The cross-platform samples project contains 100 demos showing the power of Delphi FireMonkey. These applications were created in a cross-platform solution that is built using a single code base and ...
procedure TFormMain.MenuItemSavePictureClick(Sender: TObject); var B: TBitmap; begin B := TBitmap.Create; try if SaveDialog1.Execute then B := Image1.MakeScreenshot ...