Thumbnails von Pagecontrol-Pages ...

[guidok]

Ich habe mir mal Gedanken dazu gemacht und einen Lösungsansatz dazu gefunden.

Delphi-Quellcode:

var
  bm: TBitmap;
  x,y: Integer;
begin
  bm:=TBitmap.Create;
  bm.SetSize(Width,Height);
  for x := 0 to Width do
    for y := 0 to Height do
      bm.Canvas.Pixels[x,y]:=Canvas.Pixels[x,y];
  Image1.Picture.Bitmap.Assign(bm);
  Image1.Stretch:=True;
  bm.Free;
end;

Das ganze ist natürlich grottig langsam und darum nicht praktikabel und leider funktioniert es nur teilweise, das kopierte Bild der Formulars ist irgendwie nur schwarzweiß. Aber wieso?

Guido