Changeset 20 for branches/Xvcl/Xvcl.Classes.pas

Timestamp:

May 6, 2013, 12:16:30 AM (12 years ago)

Author:

chronos

Message:

• Modified: Improved messages passing to controls.
• Modified: Now TButton change background color during mouse click.

Location:

branches/Xvcl

Files:

• . (modified) (1 prop)
• Xvcl.Classes.pas (modified) (4 diffs)

branches/Xvcl

@@ -2 +2 @@
 *.local
 Win32
+__history

@@ -2 +2 @@
 *.local
 Win32
+__history

branches/Xvcl/Xvcl.Classes.pas

@@ -21 +21 @@
     function GetBottomLeft: TPoint;
     function GetBottomRight: TPoint;
-    function GetLeftTop: TPoint;
-    function GetRightTop: TPoint;
+    function GetTopLeft: TPoint;
+    function GetTopRight: TPoint;
+    procedure SetTopLeft(const Value: TPoint);
+    procedure SetBottomRight(const Value: TPoint);
+    procedure SetBottom(const Value: Integer);
+    procedure SetRight(const Value: Integer);
+    procedure SetTopRight(const Value: TPoint);
   public
     Left: Integer;
@@ -28 +33 @@
     Width: Integer;
     Height: Integer;
-    property Right: Integer read GetRight;
-    property Bottom: Integer read GetBottom;
+    property Right: Integer read GetRight write SetRight;
+    property Bottom: Integer read GetBottom write SetBottom;
     property Size: TPoint read GetSize;
     property Position: TPoint read GetPosition;
-    property LeftTop: TPoint read GetLeftTop;
-    property BottomRight: TPoint read GetBottomRight;
-    property RightTop: TPoint read GetRightTop;
+    property TopLeft: TPoint read GetTopLeft write SetTopLeft;
+    property BottomRight: TPoint read GetBottomRight write SetBottomRight;
+    property TopRight: TPoint read GetTopRight write SetTopRight;
     property BottomLeft: TPoint read GetBottomLeft;
     constructor Create(Left, Top, Width, Height: Integer);
@@ -86 +91 @@
 end;
 
-function TRectangle.GetLeftTop: TPoint;
+function TRectangle.GetTopLeft: TPoint;
 begin
   Result := TPoint.Create(Left, Top);
@@ -101 +106 @@
 end;
 
-function TRectangle.GetRightTop: TPoint;
+function TRectangle.GetTopRight: TPoint;
 begin
   Result := TPoint.Create(Right, Top);
+end;
+
+procedure TRectangle.SetBottom(const Value: Integer);
+begin
+  Height := Value - Top;
+end;
+
+procedure TRectangle.SetBottomRight(const Value: TPoint);
+begin
+  Right := Value.X;
+  Bottom := Value.Y;
+end;
+
+procedure TRectangle.SetRight(const Value: Integer);
+begin
+  Width := Value - Left;
+end;
+
+procedure TRectangle.SetTopLeft(const Value: TPoint);
+begin
+  Left := Value.X;
+  Top := Value.Y;
+end;
+
+procedure TRectangle.SetTopRight(const Value: TPoint);
+begin
+  Top := Value.X;
+  Right := Value.Y;
 end;
 

@@ -2 +2 @@
 *.local
 Win32
+__history