Changeset 21

Timestamp:

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

Author:

chronos

Message:

• Added: Custom independent basic generics implementation.

Location:

branches/Xvcl

Files:

• Drivers/Driver.VideoVCL.pas (modified) (2 diffs)
• Xvcl.Controls.pas (modified) (3 diffs)
• Xvcl.Forms.pas (modified) (1 diff)
• Xvcl.Generics.pas (added)
• Xvcl.Kernel.pas (modified) (1 diff)
• lddesktop.dpr (modified) (1 diff)
• lddesktop.dproj (modified) (1 diff)

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;

branches/Xvcl/Xvcl.Controls.pas

@@ -4 +4 @@
 
 uses
-  Generics.Collections, Xvcl.Classes, Xvcl.Graphics;
+  Xvcl.Generics, Xvcl.Classes, Xvcl.Graphics;
 
 type
@@ -142 +142 @@
 function TControl.HandleMessage(Message: TMessage): Boolean;
 begin
+  Result := False;
   if Message is TMessageMouseDown then begin
     if Assigned(FOnMouseDown) then FOnMouseDown(Self);
     Color := clGray;
     Paint;
+    Result := True;
   end else
   if Message is TMessageMouseUp then begin
@@ -152 +154 @@
     Paint;
     if Assigned(FOnClick) then FOnClick(Self);
+    Result := True;
   end;
 end;

branches/Xvcl/Xvcl.Forms.pas

@@ -4 +4 @@
 
 uses
-  Xvcl.Classes, Xvcl.Controls, Xvcl.Graphics, Generics.Collections;
+  Xvcl.Classes, Xvcl.Controls, Xvcl.Graphics, Xvcl.Generics;
 
 type

branches/Xvcl/Xvcl.Kernel.pas

@@ -4 +4 @@
 
 uses
-  Generics.Collections, Xvcl.Classes, Xvcl.Forms, Xvcl.Controls, Xvcl.Graphics;
+  Xvcl.Generics, Xvcl.Classes, Xvcl.Forms, Xvcl.Controls, Xvcl.Graphics;
 
 type

branches/Xvcl/lddesktop.dpr

@@ -13 +13 @@
   Driver.SystemVCL in 'Drivers\Driver.SystemVCL.pas',
   Driver.KeyboardVCL in 'Drivers\Driver.KeyboardVCL.pas',
-  Driver.MouseVCL in 'Drivers\Driver.MouseVCL.pas';
+  Driver.MouseVCL in 'Drivers\Driver.MouseVCL.pas',
+  Xvcl.Generics in 'Xvcl.Generics.pas';
 
 {$R *.res}

branches/Xvcl/lddesktop.dproj

@@ -99 +99 @@
         <DCCReference Include="Drivers\Driver.KeyboardVCL.pas"/>
         <DCCReference Include="Drivers\Driver.MouseVCL.pas"/>
+        <DCCReference Include="Xvcl.Generics.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>