listview selected farbe ändern

[made in Germany]

hallo

ich will eine andere farbe für selektierte einträge haben, als das standard-blau.

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var left1, top1: Integer;
begin
  if Item.Selected then begin
    //item.Focused := false;
    listview1.Canvas.Brush.Color := cllime;
    listview1.Canvas.pen.Color := clred;
  end else
    listview1.Canvas.Brush.Color := clhotlight;
end;

damit markier ich zwar die selektierten einträge, aber die standardmarkierung ist nochmal über meiner eigenen markierung.

kann ich die standardmarkierung irgendwie abschalten?

[Fussball-Robby]

So sollte es gehen:

Delphi-Quellcode:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
  with Sender.Canvas do
  begin
    Brush.Color := clWhite;
    Pen.Color := clBlack;
    if Item.Selected then
    begin
      Brush.Color := clLime;
      Font.Color := clRed;
    end;
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, Item.Caption);
  end;
end;

Mfg

[made in Germany]

jop, ownerdraw noch auf true setzen, funktioniert.

wie kann ich noch ein anderes item markieren, von dem ich die position (i) weiß?

hab einen ansatz, der jedoch nicht funktioniert

Delphi-Quellcode:

var
recti :TRect; 

  if i > -1 then begin
      Canvas.Brush.Color := clred;
      Canvas.Font.Color  := clblack;
      recti := Listview1.Items[i].DisplayRect();    // was muss da bei DisplayRect rein?
     Canvas.FillRect(recti);
    Canvas.TextOut(recti.Left, recti.Top, Listview1.i]);
    end;

[Fussball-Robby]

Delphi-Quellcode:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
  with Sender.Canvas do
  begin
    Brush.Color := clWhite;
    Pen.Color := clBlack;
    if Item.Selected then
    begin
      Brush.Color := clLime;
      Font.Color := clRed;
    end;
    if i = Item.Index then
    begin
      Brush.Color := clRed;
      Font.Color := clBlack;
    end;
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, Item.Caption);
  end;
end;

[toms]

Das ist nur suboptimal, da dabei Ownerdraw auf True sein muss.
Es werden so z.B Icons, Gridlines etc nicht mehr dargestellt.
D.h man müsste alles selber zeichnen.

Vielleicht lässt sich die Farbe auch anders setzen.

via CN_NOTIFY, CDDS_ITEMPREPAINT etc.

[Bernhard Geyer]

Bei TListView gilt das Entweder-Oder-Prinzip.
Willst du mehr möglichkeiten so mußt du dir andere Komponenten die VirtualListView, Grid/Tree/ListView-Komponenten von ElPack etc. anschauen und einsetzen

[made in Germany]

wenn die spalte zu kurz für den string ist, wird der text einfach über die andere spalte gelegt.
ich kann auch die subitems nicht ansteuern



    TextOut(Rect.Left, Rect.Top, Item.SubItems.Text);

[made in Germany]

kann man mit TDE VirtualListView irgendwie verwenden?

Zitat:

Vielleicht lässt sich die Farbe auch anders setzen.

via CN_NOTIFY, CDDS_ITEMPREPAINT etc.

funktioniert das?

[toms]

Zitat von made in Germany:

kann man mit TDE VirtualListView irgendwie verwenden?

Zitat:

Vielleicht lässt sich die Farbe auch anders setzen.

via CN_NOTIFY, CDDS_ITEMPREPAINT etc.

funktioniert das?

Habe leider noch nicht herausfinden können, wie das funktioniert.
Vielleicht hat ja jemand eine Lösung.