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

lcl: TScrollingWinControl: fix invisible scrollbar handling.

Browse Source 
git-svn-id: trunk@52399 -
This commit is contained in:
ondrej 2016-05-27 15:41:21 +00:00
parent 5b81517c26
commit f261670cc6
1 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/include/scrollingwincontrol.inc
View File

@ -115,8 +115,15 @@ begin
if NeededClientH>0 then
NeededClientH-=FrameHeight;
HorzScrollBar.InternalSetRange(NeededClientW);
VertScrollBar.InternalSetRange(NeededClientH);
if HorzScrollBar.Visible then
HorzScrollBar.InternalSetRange(NeededClientW)
else
HorzScrollBar.InternalSetRange(0);
if VertScrollBar.Visible then
VertScrollBar.InternalSetRange(NeededClientH)
else
VertScrollBar.InternalSetRange(0);
end;
class function TScrollingWinControl.GetControlClassDefaultSize: TSize;
@ -161,23 +168,6 @@ begin
end;
procedure TScrollingWinControl.ComputeScrollbars;
// true if something has changed
// update Page, AutoRange
{procedure trav(aControl: TControl; Prefix: string);
var
w: integer;
h: integer;
i: Integer;
begin
if not aControl.IsVisible then exit;
aControl.GetPreferredSize(w,h,true,true);
debugln([Prefix,'W ',DbgSName(aControl),' ',dbgs(aControl.BoundsRect),' Pref=',w,'x',h]);
if aControl is TWinControl then
for i:=0 to TWinControl(aControl).ControlCount-1 do
trav(TWinControl(aControl).Controls[i],Prefix+' ');
end;}
procedure UpdateBar(aBar: TControlScrollBar; aClientSize: integer);
begin
// page (must be smaller than Range but at least 1)