Changeset 20 for branches/Xvcl/Drivers
- Timestamp:
- May 6, 2013, 12:16:30 AM (12 years ago)
- Location:
- branches/Xvcl
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/Xvcl
- Property svn:ignore
-
old new 2 2 *.local 3 3 Win32 4 __history
-
- Property svn:ignore
-
branches/Xvcl/Drivers
-
Property svn:ignore
set to
__history
-
Property svn:ignore
set to
-
branches/Xvcl/Drivers/Driver.MouseVCL.pas
r19 r20 24 24 Shift: TShiftState; X, Y: Integer); 25 25 begin 26 Kernel.Mouse.Handle Click(TPoint.Create(X, Y));26 Kernel.Mouse.HandleDown(TPoint.Create(X, Y)); 27 27 end; 28 28 … … 30 30 Shift: TShiftState; X, Y: Integer); 31 31 begin 32 32 Kernel.Mouse.HandleUp(TPoint.Create(X, Y)); 33 33 end; 34 34 -
branches/Xvcl/Drivers/Driver.VideoVCL.pas
r19 r20 4 4 5 5 uses 6 Vcl.Forms, Vcl.Graphics, UFormMain, Xvcl.Classes, Xvcl.Kernel, Xvcl.Graphics; 6 Vcl.Forms, Vcl.Graphics, System.Types, UFormMain, Xvcl.Classes, Xvcl.Kernel, 7 Xvcl.Graphics; 7 8 8 9 type … … 16 17 CanvasVCL: Vcl.Graphics.TCanvas; 17 18 function ColorToVCL(Color: TColor): Vcl.Graphics.TColor; 19 procedure FillRect(Rect: TRectangle; Color: TColor); override; 18 20 procedure Line(Pos1, Pos2: TPoint; Color: TColor); override; 19 21 procedure TextOut(Position: TPoint; Text: string); override; … … 62 64 end; 63 65 66 procedure TVideoDeviceVCL.FillRect(Rect: TRectangle; Color: TColor); 67 begin 68 inherited; 69 CanvasVCL.Brush.Color := ColorToVCL(Color); 70 CanvasVCL.FillRect(System.Types.Rect(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom)); 71 end; 72 64 73 function TVideoDeviceVCL.GetTextSize(Text: string): TPoint; 65 74 begin … … 76 85 procedure TVideoDeviceVCL.TextOut(Position: TPoint; Text: string); 77 86 begin 87 CanvasVCL.Brush.Color := clNone; 78 88 CanvasVCL.TextOut(Position.X, Position.Y, Text); 79 89 end;
Note:
See TracChangeset
for help on using the changeset viewer.