Changeset 184 for Docking/CoolDocking/URectangle.pas

Timestamp:

Mar 10, 2011, 9:57:21 AM (13 years ago)

Author:

george

Message:

• Fixed: Placing new form inside regions with different orientation.

File:

• Docking/CoolDocking/URectangle.pas (modified) (5 diffs)

Docking/CoolDocking/URectangle.pas

@@ -18 +18 @@
     function GetTopLeft: TPoint;
     function GetTopRight: TPoint;
+    function GetTRect: TRect;
     function GetWidth: Integer;
     procedure SetBottomLeft(const AValue: TPoint);
@@ -24 +25 @@
     procedure SetTopLeft(const AValue: TPoint);
     procedure SetTopRight(const AValue: TPoint);
+    procedure SetTRect(const AValue: TRect);
     procedure SetWidth(const AValue: Integer);
   public
@@ -38 +40 @@
     property BottomLeft: TPoint read GetBottomLeft write SetBottomLeft;
     property BottomRight: TPoint read GetBottomRight write SetBottomRight;
+
+    property AsTRect: TRect read GetTRect write SetTRect;
   end;
 
@@ -71 +75 @@
   Result.X := Right;
   Result.Y := Top;
+end;
+
+function TRectangle.GetTRect: TRect;
+begin
+  Result.Left := Left;
+  Result.Top := Top;
+  Result.Bottom := Bottom;
+  Result.Right := Right;
 end;
 
@@ -107 +119 @@
 end;
 
+procedure TRectangle.SetTRect(const AValue: TRect);
+begin
+  Left := AValue.Left;
+  Top := AValue.Top;
+  Bottom := AValue.Bottom;
+  Right := AValue.Right;
+end;
+
 procedure TRectangle.SetWidth(const AValue: Integer);
 begin