RichText (Farbe bei Insert)

[Sharky]

Hai,

Du musst zuerst den Text einfügen und dann "markieren".

Delphi-Quellcode:

procedure TForm1.LogNachricht(text:string; texttyp:integer);
begin
  Log.Lines.insert(0,FormatDateTime('dd.mm.yy - hh:mm:ss', Now)+' - '+text);
  Log.SelStart := 0;
  Log.SelLength := Length (Log.Lines[0]);
  case texttyp of
      -1 : begin
             Log.SelAttributes.Color := clRed;
           end;
       0 : begin
             Log.SelAttributes.Color := clWindowText;
           end;
       1 : begin
             Log.SelAttributes.Color := clGreen;
           end;
  end;
  Log.SelStart := 0;
end;

[Edit]Das kommt davon wenn die Frau einen ablenkt. Schon ist Dax schneller *g*