Ja, das stimmt, aber dann gibts ne Fehlermeldung: Inkompatible Typen String und Integer
Aber ich glaub, mich hat noch keiner richtig verstanden.
ListView
Datum_________Tage bis 23.02.2004___Name
19.02.2004____4_____________________Michael
23.02.2004____0_____________________Bernd
25.02.2004____368___________________Christian
Wenn also nun in der 2. Spalte (Tage bis) der Wert größer als 0 ist, dann soll dieser Wert rot eingefärbt werden.
Also das Ganze nochmal:
Delphi-Quellcode:
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if Item.SubItems.Text >= 0 then
begin
TListView(Sender).Canvas.Font.Color := clRed;
end;
end;
Ich hoffe, es ist jetzt verstanden und tut mir leid, dass es am Anfang vielleicht nicht klar ausgedrückt war.