TTaskBar: zur Laufzeit ein Vorschau-Bild zuweisen

[juergen]

Hallo zusammen,

Danke für die Tipps.
Habe nun eine Lösung erarbeitet die zu funktionieren scheint.
Meine Festlegung dabei ist, dass die anzuzeigenden Cover quadratisch sind und ich deswegen eine feste Konstante dem PreviewBitmap.Width zuordne.

Delphi-Quellcode:

procedure Tfrm_Main.Taskbar1ThumbPreviewRequest(Sender: TObject; APreviewHeight, APreviewWidth: Integer; PreviewBitmap: TBitmap);
var
 R : TRect;
begin
  PreviewBitmap.PixelFormat := pf32bit;
  PreviewBitmap.Width := 80;
  PreviewBitmap.Height := APreviewHeight;

  PreviewBitmap.Canvas.FillRect(TRect.Create(0, 0, APreviewWidth, APreviewHeight));
  R := TRect.Create(0, 0, PreviewBitmap.Width, PreviewBitmap.Height);
  PreviewBitmap.Canvas.StretchDraw(R, cxImage1.Picture.Bitmap);
end;