Re-hello Sieghard.
Ooops, once again I have to resent the mail with correction:
The only easy way I found was using BGRABitmap:
procedure TfrmMain.CopyScreenForm;
var
FMyCapture: TBgraBitmap;
Clip: TRect;
begin
try
FMyCapture := TBgraBitmap.Create;
Clip := Bounds(Left, Top, Width, Height);
FMyCapture.TakeScreenShot(Clip); // here screenshot of the form
only
Clipboard.Assign(FMyCapture.Bitmap); // store to clipboard and do all
you want after
FMyCapture.free;
except
on E: exception do
Clipboard.AsText := E.Message;
end;
end;
________________________________
De : Fred van Stappen <fi...@hotmail.com>
Envoyé : mardi 21 mars 2023 01:53
À : General list for MSEide+MSEgui <mseide-msegui-talk@lists.sourceforge.net>
Objet : Re: [MSEide-MSEgui-talk] Save form as bitmap?
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
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
