paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 11:59:25 +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

29
lcl/include/wincontrol.inc
View File

@ -3598,8 +3598,8 @@ begin
DbgOut('[TWinControl.DoSetBounds] ',Name,':',ClassName,
' OldHeight=',DbgS(FHeight),' NewHeight=',DbgS(AHeight));
{$ENDIF}
InvalidateClientRectCache(false);
inherited DoSetBounds(ALeft,ATop,AWidth,AHeight);
InvalidateClientRectCache(False);
inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
end;
{------------------------------------------------------------------------------
@ -3828,18 +3828,19 @@ 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;
Result.Y := IntfBounds.Top;
// adjust the result by all bounds, that are not yet sent to the interface
AControl:=Self;
AControl := Self;
repeat
inc(Result.X,AControl.Left-AControl.FBoundsRealized.Left);
inc(Result.Y,AControl.Top-AControl.FBoundsRealized.Top);
AControl:=AControl.Parent;
until AControl=nil;
inc(Result.X, AControl.Left - AControl.FBoundsRealized.Left);
inc(Result.Y, AControl.Top - AControl.FBoundsRealized.Top);
AControl := AControl.Parent;
until AControl = nil;
end else
Result:=inherited GetControlOrigin;
end;
@ -5138,15 +5139,15 @@ procedure TWinControl.GetSiteInfo(Client: TControl; var InfluenceRect: TRect;
const
ADockMargin = 10;
begin
GetWindowRect(Handle,InfluenceRect);
GetWindowRect(Handle, InfluenceRect);
//Margins to test docking (enlarged surface for test)
InfluenceRect.Left:= InfluenceRect.Left-ADockMargin;
InfluenceRect.Top:= InfluenceRect.Top-ADockMargin;
InfluenceRect.Right:= InfluenceRect.Right+ADockMargin;
InfluenceRect.Bottom:= InfluenceRect.Bottom+ADockMargin;
InfluenceRect.Left := InfluenceRect.Left-ADockMargin;
InfluenceRect.Top := InfluenceRect.Top-ADockMargin;
InfluenceRect.Right := InfluenceRect.Right+ADockMargin;
InfluenceRect.Bottom := InfluenceRect.Bottom+ADockMargin;
if Assigned(FOnGetSiteInfo) then
FOnGetSiteInfo(Self,Client,InfluenceRect,MousePos,CanDock);
FOnGetSiteInfo(Self, Client, InfluenceRect, MousePos, CanDock);
end;
{------------------------------------------------------------------------------