Hallo,
ich hät da mal wieder ein Problem unzwar färbe ich meine Items
in TLIstView grün.
Alerdings möchte ich bei einer Spalte Rot verwenden wenn dort "Ja - ..."
und nicht "Nein" drinne steht.
Also habe ich folgendes versucht, was wieder einmal nicht klappt.
Delphi-Quellcode:
procedure TMainFrm.LViewCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var i,j: integer;
begin
j := 1;
with Sender.Canvas do begin
if SubItem = 1 then Font.Color := clGreen;
if SubItem = 2 then Font.Color := clGreen;
if SubItem = 8 then Font.Color := clGreen;
end;
for i := 0 to LView.Items.Count-1 do
j := Pos('Ja',LView.Items.Item[i].Caption);
if (j <> 0) then
if SubItem = 7 then Sender.Canvas.Font.Color := clRed
else Sender.Canvas.Font.Color := clGreen;
end;