Changeset 204 for Docking/CoolDocking/Common/URectangle.pas

Timestamp:

Mar 17, 2011, 11:11:36 AM (13 years ago)

Author:

george

Message:

• Modified: Better tabs popup animation.

File:

• Docking/CoolDocking/Common/URectangle.pas (modified) (2 diffs)

Docking/CoolDocking/Common/URectangle.pas

@@ -32 +32 @@
     Right: Integer;
     Bottom: Integer;
+
+    procedure Assign(Source: TRectangle);
 
     property Width: Integer read GetWidth write SetWidth;
@@ -132 +134 @@
 end;
 
+procedure TRectangle.Assign(Source: TRectangle);
+begin
+  Left := Source.Left;
+  Top := Source.Top;
+  Right := Source.Right;
+  Bottom := Source.Bottom;
+end;
+
 end.