Search the Community

I use ms powerpoint to hold and store all my screenshots of various things throughout the day using my main laptop. I especially do this for items I purchase on Amazon and Ebay. However, on my tablet I cannot do this since I don't have MS Office on it. So now, I would like to create a rolling image bar that holds/shows all my screenshots made on the tablet and then save them all in one file, like a project. I want to do something very similar to what powerpoint does, but nothing fancy. Just a vertical toolbar that holds/shows all images I made. Is there a component that can help me halfway through this project idea, or can I build something close to what I want to do with the tools/components already built into D11/D12 ? In my vision of such a tool, I have the following: 1. a panel/toolbar 2. an timage 3. button to capture the screenshot(s) 4. add/create a new timage in the toolbar every time I take a screenshot (get from cliboard, etc) 5. scroll up/down inside the toolbar of images that I took thus far 6. a main timage that shows the screenshot I take 7. and if I click on any of the images in the toolbar, that image will show on the main timage 8. save and load buttons All this in the above steps are basically what I do in ms powerpoint.

Hello everyone, Full screenshot. How do I capture the entire screen? In this example, I can take a screenshot of the open form. Sample; function MakeScaleScreenshot(Sender: TObject): TBitmap; var fScreenScale: Single; function GetScreenScale: Single; var ScreenService: IFMXScreenService; begin Result := 1; if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then begin Result := ScreenService.GetScreenScale; end; end; begin fScreenScale := GetScreenScale; Result := TBitmap.Create(Round(TfmText1(Sender).Width * fScreenScale), Round(TfmText1(Sender).Height * fScreenScale)); Result.Clear(0); if Result.Canvas.BeginScene then try TfmText1(Sender).PaintTo(Result.Canvas); // Sender.PaintTo( Result.Canvas); //, RectF(0, 0, Result.Width, Result.Height)); finally Result.Canvas.EndScene; end; end; procedure TfmText1.btnScreenClick(Sender: TObject); var B: TBitmap; begin B := MakeScaleScreenshot(Self); // MakeScreenshot(Image1); Image1.Bitmap.Assign(B); B.DisposeOf; end;