[VCL] Listview: zeichnen eines zusätzlichen icons zerstört caption

[Memnarch]

Tag allerseits,
Wenn ich im OnCustomDraeItem der TListView in der stage csdPostPaint ein zusätzliches icon auf das Item Zeichne, scheint zuerst alles ok.
Sobald man aber mit der Maus drüber geht, und die Highlightbox gezeichnet wird, wird die caption zerstört. Es bleibt dort nur eine schwarze box übrig.

Zuerst wollte ich eigentlich die StateImages verwenden, aber mir gefällt es nicht, dass sie daneben und nicht darüber gezeichnet werden.

MFG
Memnarch

[Blup]

Du meinst sicher "OnAdvancedCustomDrawItem", so in der Art:

Delphi-Quellcode:

case Stage of
  cdPrePaint:
    DefaultDraw := True;
  cdPostPaint:
    begin
      // drüber zeichnen
    end;
end;

[Memnarch]

Ganz genau.
Hinterlässt dann leider nur ne schwarze box an der stelle wo der text steht. Irgendwo mal gelesen dass es bei Listview ein problem mit windows+canvas gibt. Habe aber nichts gefunden um das igrnedwie zu fixen.

[jaenicke]

Wie wäre es denn mit der Virtual Tree View?

Die ist erstens schneller, zweitens einfacher was die Datenhaltung angeht und drittens lässt sich da alles problemlos selbst zeichnen was man nur möchte.

[CCRDude]

Das Problem habe ich alle paar Monate mal wieder. Im Netz gibt es diverse Threads in Foren dazu, mit diversen Tipps.

Eine Methode, die bei mir funktioniert, ist im AdvancedCustomDrawSubItem am ende ein

Delphi-Quellcode:

SetBkMode(listviewobject.Canvas.Handle, TRANSPARENT);

Ich hatte dazu einen Link auf's Emba-Forum direkt im Code an der Stelle, der ist aber tot.

[Memnarch]

@CCRDude: Oha, funktioniert super. Danke