Hello Sieghard. The only easy way I found was using BGRABitmap:
var
FMyCapture: TBgraBitmap;
....
procedure TfrmMain.CopyScreenForm;
var
Clip: TRect;
begin
try
Clip := Bounds(Left, Top, Width, Height);
Clipboard.Assign(FMyCapture.Bitmap);
except
on E: exception do
Clipboard.AsText := E.Message;
end;
end;
Fre;D
_______________________________________________ mseide-msegui-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
