This program powered by the FireMonkey framework. And uses FMX components.
Here this is the development screenshot (RAD Studio 10.1 Berlin)
In this Image Effects program, you can change your existing pictures. See that!
There are several effects, for example:
- Ripple
- Blur
- Invert
- Monochrome
- Gloom
- Emboss
- Sepial
- Pencil
How to make a screenshot from running application in Delphi FireMonkey?
procedure TFormMain.MenuItemSavePictureClick(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
try
if SaveDialog1.Execute then
B := Image1.MakeScreenshot;
Image1.Bitmap.Assign(B);
Image1.Bitmap.SaveToFile(SaveDialog1.FileName + '.bmp');
finally
B.Free;
end;
end;
Learn more on my website! Delphi.Uz
I'm on social networks:
My Android app which is built with Delphi FireMonkey