paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-26 07:10:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: debugging

Browse Source 
git-svn-id: trunk@29035 -
This commit is contained in:
mattias 2011-01-15 13:17:09 +00:00
parent 95f11f493b
commit d79b8e282e
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/controlscrollbar.inc
View File

@ -231,12 +231,13 @@ procedure TControlScrollBar.AutoCalcRange;
PreferredWidth:=0;
PreferredHeight:=0;
FControl.GetPreferredSize(PreferredWidth,PreferredHeight,true,false);
//DebugLn(['GetPreferredClientRect ',DbgSName(FControl),' PrefSize=',PreferredWidth,'x',PreferredHeight]);
CurClientRect := FControl.ClientRect;
if PreferredWidth>0 then
PreferredWidth:=Max(0,PreferredWidth-(FControl.Width-CurClientRect.Right));
if PreferredHeight>0 then
PreferredHeight:=Max(0,PreferredHeight-(FControl.Height-CurClientRect.Bottom));
//DebugLn(['GetPreferredClientRect ',DbgSName(FControl),' PrefClient=',PreferredWidth,'x',PreferredHeight]);
//DebugLn(['GetPreferredClientRect ',DbgSName(FControl),' PrefClient=',PreferredWidth,'x',PreferredHeight,' Client=',dbgs(CurClientRect),' Size=',dbgs(FControl.BoundsRect)]);
end;
procedure AutoCalcVRange;

3
lcl/include/wincontrol.inc
View File

@ -7916,7 +7916,8 @@ begin
' Cur=',Width,'x',Height,
' Client=',CurClientRect.Right,'x',CurClientRect.Bottom,
' NewWidth=',NewWidth,' NewHeight=',NewHeight,
' NewClientWidth=',NewClientWidth,' NewClientHeight=',NewClientHeight]);
' NewClientWidth=',NewClientWidth,' NewClientHeight=',NewClientHeight,
' IntfPref+AdjustClientRect=',PreferredWidth,'x',PreferredHeight]);
{$ENDIF}
PreferredWidth:=Max(PreferredWidth,NewWidth);
PreferredHeight:=Max(PreferredHeight,NewHeight);