Einzelnen Beitrag anzeigen

guidok

Registriert seit: 28. Jun 2007
417 Beiträge
 
#9

Re: Thumbnails von Pagecontrol-Pages ...

  Alt 20. Jul 2007, 19:58
Schade, aber ihr habt (wie immer) recht. Naja, das war in meinem Fall eh nur just for fun. Ich habe das mal mit PaintTo ausprobiert, es funktioniert auch mit nicht sichtbaren Fenstern, allerdings werden schon einige Komponenten weggelassen.

Mein Testcode dazu
Delphi-Quellcode:
var
  bm: TBitmap;
begin
  //frmBotEditor.Show;
  bm:=TBitmap.Create;
  bm.SetSize(frmBotEditor.Width,frmBotEditor.Height);
  //bm.Canvas.Lock;
  frmBotEditor.PaintTo(bm.Canvas,0,0);
  //bm.Canvas.Unlock;
  Image1.Picture.Bitmap.Assign(bm);
  Image1.Stretch:=True;
  bm.Free;
end;
Falls sich deine Seiten nicht dynamisch ändern, dann würde ich eine verkleinerte Screenshoot bmp in eine Imagelist packen und entsprechend einblenden.

Guido
  Mit Zitat antworten Zitat