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

LCL: grids: don't reset offset when start col/row dragging

Browse Source 
git-svn-id: trunk@52819 -
This commit is contained in:
ondrej 2016-08-17 16:44:55 +00:00
parent 2e76894327
commit f2755c401f
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -5603,7 +5603,6 @@ begin
if (Abs(ClickMouse.X-X)>FDragDX) and (Cursor<>crMultiDrag) then begin if (Abs(ClickMouse.X-X)>FDragDX) and (Cursor<>crMultiDrag) then begin
ChangeCursor(crMultiDrag); ChangeCursor(crMultiDrag);
FMoveLast:=Point(-1,-1); FMoveLast:=Point(-1,-1);
ResetOffset(True, False);
end; end;
if (Cursor=crMultiDrag) and if (Cursor=crMultiDrag) and
@ -5639,7 +5638,6 @@ begin
if (Cursor<>crMultiDrag) and (Abs(ClickMouse.Y-Y)>FDragDX) then begin if (Cursor<>crMultiDrag) and (Abs(ClickMouse.Y-Y)>FDragDX) then begin
ChangeCursor(crMultiDrag); ChangeCursor(crMultiDrag);
FMoveLast:=Point(-1,-1); FMoveLast:=Point(-1,-1);
ResetOffset(False, True);
end; end;
if (Cursor=crMultiDrag)and if (Cursor=crMultiDrag)and