paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 07:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

grids: Introduce constColRowBorderTolerance for colwidth/rowheight resizing.

Browse Source 
git-svn-id: trunk@55494 -
This commit is contained in:
wp 2017-07-13 08:23:24 +00:00
parent 946806aef2
commit 6b1b12d66d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -182,6 +182,7 @@ const
soAll: TSaveOptions = [soDesign, soAttributes, soContent, soPosition];
constRubberSpace: byte = 2;
constCellPadding: byte = 3;
constColRowBorderTolerance: byte = 3;
DefaultGridOptions = [goFixedVertLine, goFixedHorzLine,
goVertLine, goHorzLine, goRangeSelect, goSmoothScroll ];
@ -5703,7 +5704,7 @@ begin
end;
// check if cursor is near boundary and it's a valid column
if (Abs(Offset-x)<=2) then begin
if (Abs(Offset-x)<=constColRowBorderTolerance) then begin
if goFixedColSizing in Options then
Offset := 0
else
@ -5775,7 +5776,7 @@ begin
// check if it's not fixed row and if cursor is close enough to
// selected boundary
if (Index>=FFixedRows)and(Abs(Offset-Y)<=2) then begin
if (Index>=FFixedRows)and(Abs(Offset-Y)<=constColRowBorderTolerance) then begin
// start resizing
if Cursor<>crVSplit then begin
ChangeCursor(crVSplit);