TVirtualImageList und ImageList_DrawEx

[anse]

Hallo,

die noch relativ neue TVirtualImageList habe ich als Ersatz für die gute alte TImageList verwendet. Seitdem zeichnet eine VirtualTree Instanz aber keine Icons mehr mit dem "Ghosted" Style, den ich im VirtualTree.OnGetImageIndex event auf True setze. Mit der alten TImageList sah das wie im ersten Screen aus. Im zweiten Screen sieht man dass Ghosted gar keinen Unterschied mehr macht.

VirtualTree malt in beiden Fällen das Icon über Vcl.ImgList.TCustomImageList.DoDraw, welche (wenn ich das richtig verstehe) wiederum die Winapi.CommCtrl.ImageList_DrawEx aufruft. Der Style Parameter enthält bei einem Ghosted Icon die Konstante Winapi.CommCtrl.ILD_BLEND50:

Delphi-Quellcode:

procedure TCustomImageList.DoDraw(Index: Integer; Canvas: TCanvas; X, Y: Integer;
  Style: Cardinal; Enabled: Boolean);
...
begin
  if HandleAllocated then
  begin
    if Enabled then
      ImageList_DrawEx(Handle, Index, Canvas.Handle, X, Y, 0, 0,
        GetRGBColor(BkColor), GetRGBColor(BlendColor), Style)
    else
    begin
      if FGrayscaleFactor <> 0 then
...

Jetzt weiß ich nicht ob das ein Bug in der TVirtualImageList ist, in VirtualTree, oder in der TCustomImageList...

Delphi Version ist die 10.3 - vielleicht gibt es da auch in der v10.4 schon einen Unterschied/Bugfix in der DoDraw-Methode?

[Uwe Raabe]

DoDraw ist virtuell und wird von TVirtualImageList überschrieben.

In Delphi 10.3 steht da folgendes:

Delphi-Quellcode:

  if Enabled then
    ImageList_Draw(Handle, Index, Canvas.Handle, X, Y, ILD_NORMAL)
  else

Damit wird der Parameter Style völlig ignoriert.

In Delphi 10.4 ist das allerdings behoben worden:

Delphi-Quellcode:

  if Enabled then
    ImageList_Draw(Handle, Index, Canvas.Handle, X, Y, Style)
  else

[anse]

Oh, mega. Danke für die schnelle Info. Dann werd ich mal updaten.

[anse]

So, mit Delphi 10.4 und ImageList_Draw sieht der "Blended" Style tatsächlich anders aus, aber noch nicht wieder so wie es sein sollte. Siehe Anhang.

Eigentlich müsste nämlich statt ImageList_Draw die ImageList_DrawEx verwendet werden, damit auch die ImageList.BkColor und ImageList.BlendColor berücksichtigt werden.

Für mein Projekt kann ich das auch innerhalb der Kopie von VirtualTree machen, aber ich reiche bei quality.embarcadero.com mal dafür einen Bugreport ein.

[anse]

Der Vollständigkeit halber hier der Link zum Ticket: https://quality.embarcadero.com/browse/RSP-29438
(Hatte gehofft das wäre schon gelöst, was aber in 10.4.1 noch nicht der Fall ist)