paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-27 14:37:32 +01: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); RNew.Right := FlipX(RNew.Right);
Xinc := 0; Xinc := 0;
if RNew.Right <= FGCache.FixedWidth then if RNew.Right <= FGCache.FixedWidth+GetBorderWidth then
Xinc := -1 // hidden at the left of fixedwidth line Xinc := -1 // hidden at the left of fixedwidth line
else else
if RNew.Left >= CWidth then if RNew.Left >= CWidth then
@ -3132,7 +3132,7 @@ begin
end; end;
Yinc := 0; Yinc := 0;
if RNew.Bottom <= FGCache.FixedHeight then if RNew.Bottom <= FGCache.FixedHeight+GetBorderWidth then
Yinc := -1 // hidden at the top of fixedheight line Yinc := -1 // hidden at the top of fixedheight line
else else
if (RNew.Top >= CHeight) then if (RNew.Top >= CHeight) then