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?