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

Timestamp:

May 8, 2013, 12:53:50 AM (12 years ago)

Author:

chronos

Message:

• Added: Custom independent basic generics implementation.

File:

• branches/Xvcl/Drivers/Driver.VideoVCL.pas (modified) (2 diffs)

branches/Xvcl/Drivers/Driver.VideoVCL.pas

@@ -61 +61 @@
     clGreen: Result := Vcl.Graphics.clGreen;
     clRed: Result := Vcl.Graphics.clRed;
+    clSilver: Result := Vcl.Graphics.clSilver;
+    clGray: Result := Vcl.Graphics.clGray;
   end;
 end;
@@ -85 +87 @@
 procedure TVideoDeviceVCL.TextOut(Position: TPoint; Text: string);
 begin
-  CanvasVCL.Brush.Color := clNone;
+  CanvasVCL.Brush.Style := bsClear;
   CanvasVCL.TextOut(Position.X, Position.Y, Text);
 end;