Delphi-Quellcode:
Canvas.TextOut(x,y,RichEdit.Lines[i]);
inc(y,20);
end;
Es erscheint zu funktionieren
Delphi-Quellcode:
procedure TfrmMain.Button2Click(Sender: TObject);
var
lf: LOGFONT;
i, x, y: Integer;
begin
x:=0;
y:=1;
Canvas.Brush.Style := bsClear;
FillChar(lf, SizeOf(lf), Byte(0)) ;
lf.lfHeight := 100;
lf.lfFaceName := 'Arial';
Canvas.Font.Handle := CreateFontIndirect(lf) ;
Canvas.Font.Color := clBlack;
Canvas.Font.Color := clBlue;
for i:=0 to RichEdit1.Lines.Count -1 do
begin
Canvas.TextOut(0,y*80,RichEdit1.Lines[i]);
inc(y);
end;
end;
Es gibt ein kleines Problem und zwar wenn der Text in Richedit (Zeile) nicht den die selbe Font.Size
Dann kann es sein dass die Text-Zeile über einander oder weit weg von einander kommen