TTaskBar: zur Laufzeit ein Vorschau-Bild zuweisen

[juergen]

Hallo zusammen,
@KodeZwerg,
danke, die ganzen Infos kenne ich schon, sie helfen aber nicht bei diesem Problem.

Zum jetzigen Stand nehme ich an, dass ich erstens die Tab-Eigenschaft CustomizedPreview setzen muss und dann in dem Event OnThumbPreviewRequest das Bild zuweisen muss.
Dazu nutze ich folgenden Code:

Delphi-Quellcode:

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

  PreviewBitmap.Canvas.FillRect(TRect.Create(0, 0, APreviewWidth, APreviewHeight));

  PreviewBitmap.Canvas.BrushCopy(Rect(0, 0, cxImage1.Width, cxImage1.Height), cxImage1.Picture.Bitmap, Rect(0, 0, cxImage1.Width, cxImage1.Height), $00FFFFFF);
end;

Das funktioniert prinzipiell erst mal, aber ich sehe nur den oberen linken Teil des Bildes.

Wie kann ich denn das ganze Bild anzeigen?