Memo Schriftfarbe ?

[Vader]

hallo,

geht das ?

ich würde bei verschiedenen lines eines memofeldes verschiedene schriftfarben brauchen

Delphi-Quellcode:

memo1.font.color:= clred;

da schreibt alles rot im memofeld, ich würde einzelne zeilen mit einer farbe brauchen !

mfg vader

[turboPASCAL]

Mit dem Momo geht das nicht, da müsstest du eine neue Kompon. bauen und die Paint-Routiene uberschreiben ...

Nimm ein RichEdit, mit [oh]SelStart, SelLength und SelAttributes[/oh] kannst du deinen Text bunt machen.

[Vader]

hallo,

hab das von marabu gelesen

Delphi-Quellcode:

procedure AddColoredString(ARichEdit: TRichEdit; AText: string; AColor: TColor); 
begin 
  with ARichEdit do 
  begin 
    SelStart := Length(Text); 
    SelAttributes.Color := AColor; 
    SelAttributes.Size := 8; 
    SelAttributes.Name := 'Tahoma'; 
    SelText := AText; 
  end; 
end; 

procedure TDemoForm.ButtonClick(Sender: TObject); 
begin 
  // AddColoredLine(RichEdit, 'asdfhskgfsdgfjhsdfjsd', clRed); 
  AddColoredString(RichEdit, 'asdfhskgfsdgfjhsdfjsd'#13#10, clRed); 
end;

ich möchte einzelen lines vorher schon die farbe der schrift definieren und dann einen text reinkopieren
das die lines 1-3 rot sind und dann die anderen schwarz bleiben ?

mfg vader

[Vader]

hallo,

wer könnte mir da weiter helfen ?
mfg vader

[hannesburgemeister]

Hurra

AddColoredString ist DER treffer für bunte schrift

danke