Hallo
ich habe ein kleines Problem mit der Farbe
Wenn ich Memo verwende, dann kommt der Text farbig auf Image
wenn ich aber Richedit nehme, dann kommt der Text SW !
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
j, i: Integer;
begin
Image1.Canvas.Font := Richedit1.Font; // nehmt leider die Farbe von Richedit nicht
j := Image1.Canvas.TextHeight('Test');
for i := 0 to Richedit1.Lines.Count - 1 do
Image1.Canvas.TextOut(0, i * j, Richedit1.Lines[i]);
end;
Woran kann es liegen ?