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

LCL: Update contents of TTreeView better when Scrollbars are hidden with ssAutoVertical. Issue #36731, patch from nappsoft.

Browse Source 
git-svn-id: trunk@62843 -
This commit is contained in:
juha 2020-04-01 10:43:21 +00:00
parent 01082a807d
commit 7c479cba63
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/treeview.inc
View File

@ -4360,6 +4360,8 @@ begin
if (fScrollBars in [ssAutoBoth, ssAutoVertical]) if (fScrollBars in [ssAutoBoth, ssAutoVertical])
and (ScrollInfo.nPage>=cardinal(ScrollInfo.nMax)) then begin and (ScrollInfo.nPage>=cardinal(ScrollInfo.nMax)) then begin
//DebugLn(['TCustomTreeView.UpdateScrollbars Hide Vertical.']); //DebugLn(['TCustomTreeView.UpdateScrollbars Hide Vertical.']);
ScrollInfo.nPos:=0;
SetScrollInfo(Handle, SB_VERT, ScrollInfo, false);
FLastVertScrollInfo.cbSize:=0; FLastVertScrollInfo.cbSize:=0;
SetShowScrollBar(SB_VERT, false); SetShowScrollBar(SB_VERT, false);
end else begin end else begin