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

lcl: formatting

Browse Source 
git-svn-id: trunk@21743 -
This commit is contained in:
paul 2009-09-17 08:07:59 +00:00
parent 86450c53f1
commit e8d2dce86a
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/wincontrol.inc
View File

@ -3598,7 +3598,7 @@ begin
DbgOut('[TWinControl.DoSetBounds] ',Name,':',ClassName,
' OldHeight=',DbgS(FHeight),' NewHeight=',DbgS(AHeight));
{$ENDIF}
InvalidateClientRectCache(false);
InvalidateClientRectCache(False);
inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
end;
@ -3828,7 +3828,8 @@ var
AControl: TWinControl;
IntfBounds: TRect;
begin
if HandleAllocated then begin
if HandleAllocated then
begin
// get the interface idea where the client area is on the screen
LCLIntf.GetWindowRect(Handle,IntfBounds);
Result.X := IntfBounds.Left;