RichText (Farbe bei Insert)

[PremiumPils]

Huhu... kleines Problem, ich möchte in einem Textfeld Meldungen ausgeben, wobei die neuste Meldung immer oben sein soll - wichtig sind verschiedene Farben. Bei "add" gibt es keine Probleme, nur das dann die Zeilen unten sind. Dei "insert" sind die neuen Zeilen oben, jedoch ohne das neue Farbattribut.

Code:

procedure LogNachricht(text:string; texttyp:integer);
begin
  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.Lines.insert(0,FormatDateTime('dd.mm.yy - hh:mm:ss', Now)+' - '+text);
  //Log.Lines.add(FormatDateTime('dd.mm.yy - hh:mm:ss', Now)+' - '+text);
end;

[Dax]

Wenn du es so machen willst, musst du erst die Zeile einfügen und dann erst die Zeile selektieren. Danach kannst du mit SelAttributes arbeiten.

[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*

[PremiumPils]

Das war die Lösung? :oops: Danke euch von ganzem Herzen...