Capture Screen area - Repaint low

[laguna]

Hi, help me,

In this program, capture area screen, with mouse, refresh low e repaint  is bad.

without the repaint, capture area screen is correct, but not display rectangle area, with mouse.

Code: Pascal  [Select][+][-]

1. procedure TfrmScreenShot.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
2. begin
3.   if FMakingSelection then begin
4.     FSelectionRect.Right:=X;
5.     FSelectionRect.Bottom:=Y;
6.     Repaint;        //  <---------------------------
7.   end;
8. end;
9.  
10. procedure TfrmScreenShot.FormMouseUp(Sender: TObject; Button: TMouseButton;
11.   Shift: TShiftState; X, Y: Integer);
12. begin
13.   if FMakingSelection then begin
14.     FMakingSelection:=False;
15.     FSelectionMade:=True;
16.     Repaint;  //  <---------------------------
17.     SaveSelectedRegion;
18.     Close;
19.   end;
20. end;  
21.  

Help me for optimize this.

Thanks.
Vincenzo

[Thaddy]

form.beginupdate/endupdate would help.

[laguna]

I do not understand how to use it, can you help me?

Thank you
Vincenzo

[balazsszekely]

You should really switch to something more performant like BGRABitmap or something similar. Until then try the attached project(tested only on windows).

[laguna]

Run very well.


 Thanks.