tlistview frage...

[Zero1]

HI!

hätt mal ne kurze frage!

kann man bei tlistview bei der bestimmten colum den text in farbe ändern?

zb on sollte mit grüner farbe aufleuchten und off in roter farbe!

bsp
hab eine tlistview im style vsReport
und 3colums!
in der 3ten colum sollte der text on/off in farbe sein *g
   tlistview.Items[i].SubItems[3] := 'On'; weis vielleicht einer wie sowas funkt?
ich hoffe ich versteht was ich meine *g*

danke schon im vorraus

greez

[s14]

Schau dir mal die Ereignisse "OnCustomDrawItem" und "OnCustomDrawSubItem" der Komponente an.

Gruß
s14

[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

[Zero1]

many thx! klappt alles

greez