- changed status to resolved
This works on Windows and MAC, but not on Linux. Makescreenshot works, but no IFMXClipboardservice is available, so the Image can't put into the clipboard.
procedure TF_Main.Button5Click(Sender: TObject); var bm: TBitmap; Clipboard: IFMXClipboardService; begin bm := TBitmap.Create; bm := Viewport3D1.MakeScreenshot;
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(Clipboard)) then begin Clipboard.SetClipboard(bm); end; bm.free; end;
Fixed at 0.91