TRichView.com

Code: Select all

procedure TfrmMain.RVCamera1GetImage(Sender: TObject; img: TRVMBitmap);
var
  bmp: TBitmap;
  sDisplayStemp : Array[0..20] of String;
  iSZ: TSize;
  rDT, rTS : Real;
  iTH, iTM, iDY : Integer;
  i, iBtCnt : Integer;
  sTS : String;
begin
  rDT := Now;
  iDY := Trunc(rDT);
  rDT := rDT - iDY;

  iTH := Trunc(rDT * 24);
  iTM := Trunc(rDT * 24 * 60) - (iTH * 60);
  rTS := (rDT * 24 * 60 * 60) - (iTH * 60 * 60) - (iTM * 60);

  if rTS > 10 then sTS := Format('%2.1f', [rTS])
    else sTS := '0' + Format('%2.1f', [rTS]);

  bmp := img.GetBitmap;

  with bmp.Canvas do
  begin
    Lock;
    try
      if CFG.bBkView then
      begin
        Brush.Style := bsSolid;
        Brush.Color := CFG.iBkCR;

        Rectangle(cfg.iSX, cfg.iSY, CFG.iEX, CFG.iEY);
      end;

      Brush.Style := bsClear;
      Font.PixelsPerInch := 96;

      iBtCnt := 0;

      IND.sVal[0] := FormatDateTime('yyyy.mm.dd.', now);
      IND.sVal[1] := Format('%2d:%.2d:', [iTH, iTM]) + sTS;
      IND.sVal[2] := Format('%8.2f', [IND.rTM]);

      for i := 0 to 20 do
      begin
        if CFG.bView[i] then
        begin
          Font.Name  := CFG.sFtNm[i];// 'Tahoma';
          Font.Color := CFG.iFtCR[i]; // clWhite;
          Font.Size  := CFG.iFtSZ[i];  // 32

          if not CFG.bStyle[i, 0] and not CFG.bStyle[i, 1] then Font.Style := [];
          if not CFG.bStyle[i, 0] and     CFG.bStyle[i, 1] then Font.Style := [fsItalic];
          if     CFG.bStyle[i, 0] and not CFG.bStyle[i, 1] then Font.Style := [fsBold];
          if     CFG.bStyle[i, 0] and     CFG.bStyle[i, 1] then Font.Style := [fsBold,fsItalic];

          sDisplayStemp[i] := CFG.sTitle[i] + IND.sVal[i] + ' ' + CFG.sUnit[i];

          TextOut(CFG.iX[i], CFG.iY[i], sDisplayStemp[i]);
        end;
      end;

    finally
      Unlock;
    end;
  end;
  img.UpdateData;
end;