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

formatting some code

Browse Source 
git-svn-id: trunk@13619 -
This commit is contained in:
paul 2008-01-04 18:04:26 +00:00
parent 6343b3f025
commit f089997530
4 changed files with 13 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/controls.pp
View File

@ -3317,8 +3317,3 @@ finalization
FreeThenNil(Mouse);
end.

10
lcl/include/control.inc
View File

@ -106,13 +106,13 @@ begin
DebugLn('TControl.DoDock BEFORE Adjusting ',Name,' ',dbgs(ARect));
// adjust new bounds, so that they at least fit into the client area of
// its parent
LCLProc.MoveRectToFit(ARect,NewDockSite.GetLogicalClientRect);
LCLProc.MoveRectToFit(ARect, NewDockSite.GetLogicalClientRect);
// consider Align to increase chance the width/height is kept
case Align of
alLeft: OffsetRect(ARect,-ARect.Left,0);
alTop: OffsetRect(ARect,0,-ARect.Top);
alRight: OffsetRect(ARect,NewDockSite.ClientWidth-ARect.Right,0);
alBottom: OffsetRect(ARect,0,NewDockSite.ClientHeight-ARect.Bottom);
alLeft: OffsetRect(ARect,-ARect.Left,0);
alTop: OffsetRect(ARect,0,-ARect.Top);
alRight: OffsetRect(ARect,NewDockSite.ClientWidth-ARect.Right,0);
alBottom: OffsetRect(ARect,0,NewDockSite.ClientHeight-ARect.Bottom);
end;
DebugLn('TControl.DoDock AFTER Adjusting ',Name,' ',dbgs(ARect),' Align=',AlignNames[Align],' NewDockSite.ClientRect=',dbgs(NewDockSite.ClientRect));
end;

14
lcl/include/docktree.inc
View File

@ -28,12 +28,11 @@ end;
procedure TDockTree.SetDockZoneClass(const AValue: TDockZoneClass);
begin
FDockZoneClass:=AValue;
FDockZoneClass := AValue;
end;
procedure TDockTree.AdjustDockRect(AControl: TControl; var ARect: TRect);
begin
end;
procedure TDockTree.BeginUpdate;
@ -119,13 +118,14 @@ end;
constructor TDockTree.Create(TheDockSite: TWinControl);
begin
if FDockZoneClass=nil then FDockZoneClass:=TDockZone;
FDockSite:=TheDockSite;
if FDockZoneClass = nil then
FDockZoneClass := TDockZone;
FDockSite := TheDockSite;
inherited Create;
FBorderWidth:=4;
//FGrabberSize:=DefaultDockGrabberSize;
FBorderWidth := 4;
//FGrabberSize := DefaultDockGrabberSize;
//FGrabbersOnTop:=(FDockSite.Align <> alTop) and (FDockSite.Align <> alBottom);
FRootZone:=FDockZoneClass.Create(Self,TheDockSite);
FRootZone := FDockZoneClass.Create(Self, TheDockSite);
end;
destructor TDockTree.Destroy;

1
lcl/include/dragobject.inc
View File

@ -87,6 +87,7 @@ begin
if (DeltaX <> 0) or (DeltaY <> 0) then
OffsetRect(FDockRect, -DeltaX, -DeltaY);
end;
function TDragDockObject.GetDragCursor(Accepted: Boolean; X, Y: Integer): TCursor;
begin
Result := crDefault;