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

LCL: fixed uninitialized function results

Browse Source 
git-svn-id: trunk@26860 -
This commit is contained in:
mattias 2010-07-27 16:28:44 +00:00
parent e99b6b576c
commit 186d263d39
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/controlscrollbar.inc
View File

@ -241,7 +241,7 @@ procedure TControlScrollBar.AutoCalcRange;
PreferredHeight: Integer;
begin
GetPreferredClientRect(PreferredWidth,PreferredHeight);
//DebugLn(['AutoCalcVRange ',DbgSName(FControl),' AutoSize=',FControl.AutoSize,' Bounds=',dbgs(FControl.BoundsRect),' Client=',dbgs(FControl.ClientRect),' TmpRange=',TmpRange,' pref=',PreferredWidth,'x',PreferredHeight]);
//DebugLn(['AutoCalcVRange ',DbgSName(FControl),' AutoSize=',FControl.AutoSize,' Bounds=',dbgs(FControl.BoundsRect),' Client=',dbgs(FControl.ClientRect),' ' pref=',PreferredWidth,'x',PreferredHeight]);
InternalSetRange(PreferredHeight);
end;
@ -515,13 +515,17 @@ end;
function TControlScrollBar.GetHorzScrollBar: TControlScrollBar;
begin
if FControl is TScrollingWinControl then
Result := TScrollingWinControl(FControl).HorzScrollBar;
Result := TScrollingWinControl(FControl).HorzScrollBar
else
Result:=nil;
end;
function TControlScrollBar.GetVertScrollBar: TControlScrollBar;
begin
if FControl is TScrollingWinControl then
Result := TScrollingWinControl(FControl).VertScrollBar;
Result := TScrollingWinControl(FControl).VertScrollBar
else
Result:=nil;
end;
// included by forms.pp