Graphic

[ Delphi ] – Draw multiple text lines on a Canvas

procedure TForm1.Button1Click(Sender: TObject);
var
  h, i: Integer;
begin
  Image1.Canvas.Font := Memo1.Font;
  h := Image1.Canvas.TextHeight('Test'); More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Draw a bitmap on the desktop

procedure TForm1.Button1Click(Sender: TObject);
var
  Picture: TPicture;
  Desktop: TCanvas;
  X, Y: Integer;
begin More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Determine if there is a bitmap in a Timage

if (Image1.Picture.Bitmap.Empty) then
  ShowMessage('No Image!') More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...