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;