Changeset 20 for branches/Xvcl/Drivers/Driver.VideoVCL.pas

Timestamp:

May 6, 2013, 12:16:30 AM (12 years ago)

Author:

chronos

Message:

• Modified: Improved messages passing to controls.
• Modified: Now TButton change background color during mouse click.

Location:

branches/Xvcl

Files:

• . (modified) (1 prop)
• Drivers (modified) (1 prop)
• Drivers/Driver.VideoVCL.pas (modified) (4 diffs)

branches/Xvcl

@@ -2 +2 @@
 *.local
 Win32
+__history

@@ -2 +2 @@
 *.local
 Win32
+__history

branches/Xvcl/Drivers/Driver.VideoVCL.pas

@@ -4 +4 @@
 
 uses
-  Vcl.Forms, Vcl.Graphics, UFormMain, Xvcl.Classes, Xvcl.Kernel, Xvcl.Graphics;
+  Vcl.Forms, Vcl.Graphics, System.Types, UFormMain, Xvcl.Classes, Xvcl.Kernel,
+  Xvcl.Graphics;
 
 type
@@ -16 +17 @@
     CanvasVCL: Vcl.Graphics.TCanvas;
     function ColorToVCL(Color: TColor): Vcl.Graphics.TColor;
+    procedure FillRect(Rect: TRectangle; Color: TColor); override;
     procedure Line(Pos1, Pos2: TPoint; Color: TColor); override;
     procedure TextOut(Position: TPoint; Text: string); override;
@@ -62 +64 @@
 end;
 
+procedure TVideoDeviceVCL.FillRect(Rect: TRectangle; Color: TColor);
+begin
+  inherited;
+  CanvasVCL.Brush.Color := ColorToVCL(Color);
+  CanvasVCL.FillRect(System.Types.Rect(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom));
+end;
+
 function TVideoDeviceVCL.GetTextSize(Text: string): TPoint;
 begin
@@ -76 +85 @@
 procedure TVideoDeviceVCL.TextOut(Position: TPoint; Text: string);
 begin
+  CanvasVCL.Brush.Color := clNone;
   CanvasVCL.TextOut(Position.X, Position.Y, Text);
 end;

@@ -2 +2 @@
 *.local
 Win32
+__history