tlistview frage...

[OLLI_T]

HY!

Achtung die Zählung des Parameters SubItem beginnt bei 1 während die TStringList SubItems wie immer beim Element 0 anfängt:

Delphi-Quellcode:

procedure TForm1.otListview1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  If SubItem=2 Then Begin
    If Item.SubItems[1]='On' Then
       Sender.Canvas.Font.Color:=clGreen;
    If Item.SubItems[1]='Off' Then
       Sender.Canvas.Font.Color:=clRed;
  End;
end;

Gruss

OLLI