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

branches/Xvcl/Xvcl.Graphics.pas

@@ -8 +8 @@
 type
 
-  TColor = (clNone, clBlack, clWhite, clGray, clSilver, clBlue, clGreen, clRed);
+  TColor = (clNone, clBlack, clWhite, clGray, clSilver, clBlue, clGreen, clRed,
+    clLightBlue, clLightRed, clLightGreen, clBrown, clYellow, clMagenta, clCyan);
 
   TPen = class
@@ -115 +116 @@
 function TCanvas.GetVideoDevice: TVideoDevice;
 begin
-  Result := nil;
+  Result := FVideoDevice;
 end;
 
@@ -138 +139 @@
 begin
   if Assigned(VideoDevice) then VideoDevice.SetPixel(Position, Color);
+end;
+
+procedure TCanvas.SetVideoDevice(const Value: TVideoDevice);
+begin
+  FVideoDevice := Value;
 end;