Changeset 23 for branches/Xvcl/Drivers

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.

Location:

branches/Xvcl/Drivers

Files:

• Driver.MouseVCL.pas (modified) (3 diffs)
• Driver.VideoVCL.pas (modified) (1 diff)

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;
 

branches/Xvcl/Drivers/Driver.VideoVCL.pas

@@ -56 +56 @@
 begin
   case Color of
-    clBlack: Result := Vcl.Graphics.clBlack;
-    clWhite: Result := Vcl.Graphics.clWhite;
-    clBlue: Result := Vcl.Graphics.clBlue;
-    clGreen: Result := Vcl.Graphics.clGreen;
-    clRed: Result := Vcl.Graphics.clRed;
-    clSilver: Result := Vcl.Graphics.clSilver;
-    clGray: Result := Vcl.Graphics.clGray;
-    else Result := Vcl.Graphics.clBlack;
+    clBlack: Result := $000000;
+    clWhite: Result := $ffffff;
+    clBlue: Result := $ff0000;
+    clGreen: Result := $00ff00;
+    clRed: Result := $0000ff;
+    clSilver: Result := $c0c0c0;
+    clGray: Result := $808080;
+    clLightBlue: Result := $ff8080;
+    clLightRed: Result := $80ff80;
+    clLightGreen: Result := $8080ff;
+    clBrown: Result := $a52a2a;
+    clMagenta: Result := $ff00ff;
+    clCyan: Result := $00ffff;
+    clYellow: Result := $ffff00;
+    else Result := $000000;
   end;
 end;