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.
procedure TfrmScreenShot.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if FMakingSelection then begin
FSelectionRect.Right:=X;
FSelectionRect.Bottom:=Y;
Repaint; // <---------------------------
end;
end;
procedure TfrmScreenShot.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if FMakingSelection then begin
FMakingSelection:=False;
FSelectionMade:=True;
Repaint; // <---------------------------
SaveSelectedRegion;
Close;
end;
end;
Help me for optimize this.
Thanks.
Vincenzo