Mega Code Archive

 

Categories / Delphi / Graphic

 

How to draw multiple text lines on a Canvas

Title: How to 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;