Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

RichEdit: Alle zeilen farbig?

  Alt 25. Jan 2004, 13:19
hoi,

ich habe das problem das bei folgendem code, immer nur das erste Add die zeile farbig macht, das nächste ist dann wieder standard farbe. ich hatte das ganze so:

Delphi-Quellcode:
procedure RECL(RE: TRichEdit; s: string; c: TColor);
begin
  with RE do
  begin
    SelStart := Length(s);
    SelAttributes.Color := c;
    SelAttributes.Size := 9;
    SelAttributes.Name := 'MS Sans Serif';
    Lines.Add(s);
  end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  RECL(RichEdit1, Edit1.Text, $00FF00FF);
end;
Mario
  Mit Zitat antworten Zitat