pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

NiceGrid: Fix endless loop when colwidths are changed so that a horizontal scrollbar is about to disappear (https://forum.lazarus.freepascal.org/index.php?topic=64703).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8924 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-09-23 17:56:55 +00:00
parent 162be1c7af
commit 6fd35ce8df
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/nicegrid/source/nicegrid.pas
View File

@ -999,7 +999,9 @@ begin
FHorzOffset := Max(0, Min(FHorzOffset, FMaxHScroll)); FHorzOffset := Max(0, Min(FHorzOffset, FMaxHScroll));
FVertOffset := Max(0, Min(FVertOffset, FMaxVScroll)); FVertOffset := Max(0, Min(FVertOffset, FMaxVScroll));
if FHorzOffset <> 0 then
SetScrollBar(SB_HORZ, FMaxHScroll, FHorzOffset, SIF_POS or SIF_RANGE); SetScrollBar(SB_HORZ, FMaxHScroll, FHorzOffset, SIF_POS or SIF_RANGE);
if FVertOffset <> 0 then
SetScrollBar(SB_VERT, FMaxVScroll, FVertOffset, SIF_POS or SIF_RANGE); SetScrollBar(SB_VERT, FMaxVScroll, FVertOffset, SIF_POS or SIF_RANGE);
AllWidth := Min(ClientWidth, BodyWidth + FixedWidth); AllWidth := Min(ClientWidth, BodyWidth + FixedWidth);