Changeset 23 for branches/Xvcl/Drivers/Driver.MouseVCL.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/Drivers/Driver.MouseVCL.pas (modified) (3 diffs)

branches/Xvcl/Drivers/Driver.MouseVCL.pas

@@ -13 +13 @@
     procedure DoMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
+    procedure DoMouseMove(Sender: TObject; Shift: TShiftState;
+      X, Y: Integer);
   public
     Form: Vcl.Forms.TForm;
@@ -25 +27 @@
 begin
   Kernel.Mouse.HandleDown(TPoint.Create(X, Y));
+end;
+
+procedure TDriverMouseVCL.DoMouseMove(Sender: TObject; Shift: TShiftState; X,
+  Y: Integer);
+begin
+  Kernel.Mouse.HandleMouseMove(TPoint.Create(X, Y));
 end;
 
@@ -45 +53 @@
   TForm1(Form).Image1.OnMouseDown := DoMouseDown;
   TForm1(Form).Image1.OnMouseUp := DoMouseUp;
+  TForm1(Form).Image1.OnMouseMove := DoMouseMove;
 end;