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

lcl: fix TScrollingWinControl.AutoScroll = False (issue #0014279)

Browse Source 
git-svn-id: trunk@21485 -
This commit is contained in:
paul 2009-08-30 15:47:25 +00:00
parent 2dbed7a511
commit 91a1cb262f
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/include/scrollingwincontrol.inc
View File

@ -23,17 +23,8 @@ begin
begin
HorzScrollBar.AutoCalcRange;
VertScrollBar.AutoCalcRange;
UpdateScrollBars;
end
else
begin
// If AutoScroll is false, then the scrollbars are always invisible
if HandleAllocated then
begin
ShowScrollBar(Handle, SB_HORZ, False);
ShowScrollBar(Handle, SB_VERT, False);
end;
end;
UpdateScrollBars;
end;
procedure TScrollingWinControl.CreateWnd;
@ -196,13 +187,23 @@ begin
if FIsUpdating then Exit;
if not FAutoScroll then Exit;
FIsUpdating := True;
try
ComputeScrollbars; // page, autorange, visible
FVertScrollbar.UpdateScrollbar;
FHorzScrollbar.UpdateScrollbar;
if AutoScroll then
begin
ComputeScrollbars; // page, autorange, visible
FVertScrollbar.UpdateScrollbar;
FHorzScrollbar.UpdateScrollbar;
end
else
begin
// If AutoScroll is false, then the scrollbars are always invisible
if HandleAllocated then
begin
ShowScrollBar(Handle, SB_HORZ, False);
ShowScrollBar(Handle, SB_VERT, False);
end;
end;
finally
FIsUpdating := False;
end;