paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 15:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

always show scrollbar before setting info

Browse Source 
git-svn-id: trunk@5557 -
This commit is contained in:
micha 2004-06-12 07:25:35 +00:00
parent 80ba271c3a
commit 8f84821bd3
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/treeview.inc
View File

@ -3498,8 +3498,8 @@ begin
ShowScrollBar(Handle, SB_HORZ, false); ShowScrollBar(Handle, SB_HORZ, false);
end else begin end else begin
FLastHorzScrollInfo:=ScrollInfo; FLastHorzScrollInfo:=ScrollInfo;
SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True); ShowScrollBar(Handle, SB_HORZ, true);
ShowScrollBar(Handle,SB_HORZ,True); SetScrollInfo(Handle, SB_HORZ, ScrollInfo, true);
end; end;
end; end;
//DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] nMin=',ScrollInfo.nMin, //DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] nMin=',ScrollInfo.nMin,
@ -3531,8 +3531,8 @@ begin
ShowScrollBar(Handle, SB_VERT, false); ShowScrollBar(Handle, SB_VERT, false);
end else begin end else begin
FLastVertScrollInfo:=ScrollInfo; FLastVertScrollInfo:=ScrollInfo;
SetScrollInfo(Handle, SB_VERT, ScrollInfo, True); ShowScrollBar(Handle, SB_VERT, true);
ShowScrollBar(Handle,SB_VERT,True); SetScrollInfo(Handle, SB_VERT, ScrollInfo, true);
end; end;
end; end;
//DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert On nMin=',ScrollInfo.nMin, //DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert On nMin=',ScrollInfo.nMin,