Icon aus ImageCollection auf TJvTransparentButton zeichnen

[TurboMagic]

Hallo,

ich möchte gerne in D12.3 auf einem TJvTransparentButton in der linken unteren Ecke
ein Icon aus einer TVirtualImageList zeichnen.

In der
procedure TMyButton.PaintButton(Canvas: TCanvas); override; meiner direkt vom TJvTransparentButton geerbten Klasse rufe ich diese
Methode auf und übergebe Canvas.

Delphi-Quellcode:

function TMyButton.DrawWarningIcon(ACanvas: TCanvas): Integer;
var
  Width : Integer;
  Left  : Integer;
  Top   : Integer;
begin
  Width := ACanvas.ClipRect.Width div 10;
  Left  := Round((CurrentPPI/96)*3);
  Top   := ACanvas.ClipRect.Height - Width -
             Round((CurrentPPI/96)*3);

  dm.ImageCollection.Draw(ACanvas,
                          Rect(Left, Top, Width, Width),
                          3, // Icon Index
                          true);

  Result := Width;
end;

dm.ImageCollection ist die Imagecollection aus der das Icon stammen soll.

Bei mir wird aber nichts gezeichnet, obwohl Width als 48 berechnet wird.