Changeset 23 for branches/Xvcl/Drivers/Driver.VideoVCL.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.VideoVCL.pas (modified) (1 diff)

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;