paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 16:18:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Added threshold before starting selection by mouse-move. Avoid accidental selection.

Browse Source 
git-svn-id: trunk@30071 -
This commit is contained in:
martin 2011-03-29 15:48:15 +00:00
parent 7382bb0de7
commit bde4fc65af
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/synedit/synedit.pp
View File

@ -179,7 +179,7 @@ type
// Mouse-states
sfLeftGutterClick, sfRightGutterClick,
sfDblClicked, sfTripleClicked, sfQuadClicked,
sfWaitForDragging, sfIsDragging, sfMouseSelecting, sfMouseDoneSelecting,
sfWaitForDragging, sfIsDragging, sfWaitForMouseSelecting, sfMouseSelecting, sfMouseDoneSelecting,
sfIgnoreUpClick
); //mh 2000-10-30
TSynStateFlags = set of TSynStateFlag;
@ -2591,7 +2591,7 @@ begin
Include(fStateFlags, sfMouseDoneSelecting);
end;
MouseCapture := True;
Include(fStateFlags, sfMouseSelecting);
Include(fStateFlags, sfWaitForMouseSelecting);
end;
emcSelectWord:
begin
@ -2744,7 +2744,7 @@ begin
fStateFlags := fStateFlags - [sfDblClicked, sfTripleClicked, sfQuadClicked,
sfLeftGutterClick, sfRightGutterClick,
sfMouseSelecting, sfMouseDoneSelecting,
sfWaitForMouseSelecting, sfMouseSelecting, sfMouseDoneSelecting,
sfWaitForDragging, sfIgnoreUpClick
];
@ -2802,14 +2802,20 @@ begin
LastMouseCaret := PixelsToRowColumn(Point(X,Y));
UpdateCursor;
if (sfWaitForMouseSelecting in fStateFlags) and MouseCapture and
( (abs(fMouseDownX-X) >= MinMax(fCharWidth div 2, 2, 4)) or
(abs(fMouseDownY-Y) >= MinMax(fTextHeight div 2, 2, 4)) )
then
FStateFlags := FStateFlags - [sfWaitForMouseSelecting] + [sfMouseSelecting];
//debugln('TCustomSynEdit.MouseMove sfWaitForDragging=',dbgs(sfWaitForDragging in fStateFlags),' MouseCapture=',dbgs(MouseCapture),' GetCaptureControl=',DbgSName(GetCaptureControl));
if MouseCapture and (sfWaitForDragging in fStateFlags) then begin
if (Abs(fMouseDownX - X) >= GetSystemMetrics(SM_CXDRAG))
or (Abs(fMouseDownY - Y) >= GetSystemMetrics(SM_CYDRAG))
then begin
Exclude(fStateFlags, sfWaitForDragging);
Exclude(fStateFlags, sfMouseSelecting);
Include(fStateFlags, sfIsDragging);
FStateFlags := FStateFlags
-[sfWaitForDragging, sfWaitForMouseSelecting, sfMouseSelecting]
+ [sfIsDragging];
//debugln('TCustomSynEdit.MouseMove BeginDrag');
BeginDrag(true);
end;
@ -2872,7 +2878,7 @@ begin
FBlockSelection.DecPersistentLock;
end
else
if MouseCapture and (not(sfIsDragging in fStateFlags))
if MouseCapture and (fStateFlags * [sfIsDragging, sfWaitForMouseSelecting] = [])
then begin
MouseCapture:=false;
fScrollTimer.Enabled := False;
@ -2970,6 +2976,7 @@ begin
wasSelecting := (sfMouseDoneSelecting in fStateFlags);
ignoreUp := (sfIgnoreUpClick in fStateFlags);
Exclude(fStateFlags, sfIsDragging);
Exclude(fStateFlags, sfWaitForMouseSelecting);
Exclude(fStateFlags, sfMouseSelecting);
Exclude(fStateFlags, sfMouseDoneSelecting);
Exclude(fStateFlags, sfIgnoreUpClick);