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