Graphic Delphi

  1. Home
  2. Delphi
  3. Graphic
  4. 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');
for i := 0 to Memo1.Lines.Count - 1 do
Image1.Canvas.TextOut(0, i * h, Memo1.Lines[i]);
end;