Changeset 360 for Generics/TemplateGenerics/Generic/GenericRectangle.inc

Timestamp:

May 7, 2012, 10:32:41 AM (13 years ago)

Author:

chronos

Message:

 

File:

• Generics/TemplateGenerics/Generic/GenericRectangle.inc (modified) (2 diffs)

Generics/TemplateGenerics/Generic/GenericRectangle.inc

@@ -39 +39 @@
   procedure UnionWith(Rect: TGRectangle);
 
+  procedure SetRect(Left, Top, Width, Height: TGRectangleDimension);
+  procedure SetBounds(Left, Top, Right, Bottom: TGRectangleDimension);
+
   property Left: TGRectangleDimension read FLeft write SetLeft;
   property Top: TGRectangleDimension read FTop write SetTop;
@@ -246 +249 @@
 end;
 
+procedure TGRectangle.SetRect(Left, Top, Width, Height: TGRectangleDimension);
+begin
+  Self.Left := Left;
+  Self.Top := Top;
+  Self.Width := Width;
+  Self.Height := Height;
+end;
+
+procedure TGRectangle.SetBounds(Left, Top, Right, Bottom: TGRectangleDimension);
+begin
+  Self.Left := Left;
+  Self.Top := Top;
+  Self.Right := Right;
+  Self.Bottom := Bottom;
+end;
+
 function TGRectangle.GetEmpty: Boolean;
 begin