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

Timestamp:

May 8, 2013, 1:52:33 PM (12 years ago)

Author:

chronos

Message:

• Added: Support for mouse move handling. Now forms can be moved by dragging title bar.
• Fixed: Clearing background during painting in screen and forms.

File:

• branches/Xvcl/Xvcl.Classes.pas (modified) (5 diffs)

branches/Xvcl/Xvcl.Classes.pas

@@ -11 +11 @@
     function Substract(Point: TPoint): TPoint;
     function IsZero: Boolean;
+    class operator Add(A, B: TPoint): TPoint;
+    class operator Subtract(A, B: TPoint): TPoint;
   end;
 
@@ -57 +59 @@
   TNotifyEvent = procedure (Sender: TObject) of object;
 
+  TUpdateLock = class
+  private
+    FOnUpdate: TNotifyEvent;
+  published
+    Counter: Integer;
+    procedure Start;
+    procedure Stop;
+    procedure Update;
+    property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate;
+  end;
+
 
 implementation
@@ -157 +170 @@
 end;
 
+class operator TPoint.Add(A, B: TPoint): TPoint;
+begin
+  Result.X := A.X + B.X;
+  Result.Y := A.Y + B.Y;
+end;
+
 constructor TPoint.Create(X, Y: Integer);
 begin
@@ -169 +188 @@
 end;
 
+class operator TPoint.Subtract(A, B: TPoint): TPoint;
+begin
+  Result.X := A.X - B.X;
+  Result.Y := A.Y - B.Y;
+end;
+
 function TPoint.Substract(Point: TPoint): TPoint;
 begin
@@ -174 +199 @@
 end;
 
+{ TUpdateLock }
+
+procedure TUpdateLock.Start;
+begin
+  Inc(Counter);
+end;
+
+procedure TUpdateLock.Stop;
+begin
+  if Counter > 0 then begin
+    Dec(Counter);
+    Update;
+  end;
+end;
+
+procedure TUpdateLock.Update;
+begin
+  if (Counter = 0) and Assigned(FOnUpdate) then
+    FOnUpdate(Self);
+end;
+
 end.