frage zu Tlistview!

[bitsetter]

Du kannst ja mal folgenden Code probieren, der gewählte Eintrag wird grün dargestellt.

Delphi-Quellcode:

         //onClick Ereigneis für das Menü
procedure TForm1.farbigmachen1Click(Sender: TObject);
begin
  RedrawWindow(ListView1.Handle, nil, 0, RDW_INVALIDATE);//alte Farbe löschen
  //ListView1.Tag speichert die Position des markierten Eintrages
  ListView1.Tag:= ListView1.ItemIndex+ 1;
end;
          //Event onCustomDrawItem im OI zuweisen
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if ListView1.Tag- 1=  Item.Index then
  Sender.Canvas.Brush.Color := clLime
  else
  Sender.Canvas.Brush.Color := ListView1.Color;
end;