mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 02:16:14 +02:00
simplify TControl.PositionDockRect
git-svn-id: trunk@14366 -
This commit is contained in:
parent
38674222ad
commit
eb1af28f12
@ -188,10 +188,6 @@ end;
|
||||
------------------------------------------------------------------------------}
|
||||
procedure TControl.PositionDockRect(DragDockObject: TDragDockObject);
|
||||
var
|
||||
NewWidth: LongInt;
|
||||
NewHeight: LongInt;
|
||||
NewLeft: LongInt;
|
||||
NewTop: LongInt;
|
||||
WinDragTarget: TWinControl;
|
||||
begin
|
||||
with DragDockObject do
|
||||
@ -205,16 +201,13 @@ begin
|
||||
DropAlign, FDockRect);
|
||||
end else
|
||||
begin
|
||||
NewWidth := Control.UndockWidth;
|
||||
NewHeight := Control.UndockHeight;
|
||||
NewLeft := DragPos.X - DragDockObject.DockOffset.x;
|
||||
NewTop := DragPos.Y - DragDockObject.DockOffset.y;
|
||||
FDockRect.TopLeft := Point(
|
||||
DragPos.X - DragDockObject.DockOffset.x,
|
||||
DragPos.Y - DragDockObject.DockOffset.y);
|
||||
with FDockRect do
|
||||
begin
|
||||
Left := NewLeft;
|
||||
Top := NewTop;
|
||||
Right := Left + NewWidth;
|
||||
Bottom := Top + NewHeight;
|
||||
Right := Left + Control.UndockWidth;
|
||||
Bottom := Top + Control.UndockHeight;
|
||||
end;
|
||||
// let user adjust dock rect
|
||||
AdjustDockRect(FDockRect);
|
||||
|
Loading…
Reference in New Issue
Block a user