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

LCL, fix grid cursor disappearing on scrolling up/left when toprow/leftcol>=fixedRow/fixedcolcol, issue #18243

Browse Source 
git-svn-id: trunk@29202 -
This commit is contained in:
jesus 2011-01-25 19:49:33 +00:00
parent 3168fd2e6e
commit 0bb3877d59
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -3119,7 +3119,7 @@ begin
RNew.Right := FlipX(RNew.Right);
Xinc := 0;
if RNew.Right <= FGCache.FixedWidth then
if RNew.Right <= FGCache.FixedWidth+GetBorderWidth then
Xinc := -1 // hidden at the left of fixedwidth line
else
if RNew.Left >= CWidth then
@ -3132,7 +3132,7 @@ begin
end;
Yinc := 0;
if RNew.Bottom <= FGCache.FixedHeight then
if RNew.Bottom <= FGCache.FixedHeight+GetBorderWidth then
Yinc := -1 // hidden at the top of fixedheight line
else
if (RNew.Top >= CHeight) then