Farbigen Text auf Image kopieren

[thomas2009]

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 ?

[DeddyH]

Hallo und Willkommen in der DP :dp: . Versuch es mal mit

Delphi-Quellcode:

Image1.Canvas.Font.Assign(Richedit1.Font);

anstatt

Delphi-Quellcode:

Image1.Canvas.Font := Richedit1.Font;

[Fussball-Robby]

Hast du den Font evtl. über SelAttributes zugewiesen? Dann bringt nämlich das Assign(RichEdit.Font) nichts, da die Farbe nicht im .Font sondern in .SelAttributes drin ist.

[thomas2009]

Das stimmt. Ich habe ein Tutorial von CodeGear über das Thema gefunden
Der Code sendet Text von Richedit zu Image aber leider mit einem Symbol am Anfang "[]" !
woher kommt das :?:
hier