Download all you need here
Graphic
[ Delphi ] – Draw multiple text lines on a Canvas
May 4th
procedure TForm1.Button1Click(Sender: TObject);
var
h, i: Integer;
begin
Image1.Canvas.Font := Memo1.Font;
h := Image1.Canvas.TextHeight('Test'); More >
[ Delphi ] – Draw a bitmap on the desktop
May 4th
procedure TForm1.Button1Click(Sender: TObject); var Picture: TPicture; Desktop: TCanvas; X, Y: Integer; begin More >
[ Delphi ] – Determine if there is a bitmap in a Timage
May 4th
if (Image1.Picture.Bitmap.Empty) then
ShowMessage('No Image!') More >

