Changeset 22

Timestamp:

May 8, 2013, 12:56:56 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Not committed generics modification.

Location:

branches/Xvcl

Files:

• Drivers/Driver.VideoVCL.pas (modified) (1 diff)
• Xvcl.Forms.pas (modified) (1 diff)
• Xvcl.Generics.pas (modified) (1 diff)

branches/Xvcl/Drivers/Driver.VideoVCL.pas

@@ -63 +63 @@
     clSilver: Result := Vcl.Graphics.clSilver;
     clGray: Result := Vcl.Graphics.clGray;
+    else Result := Vcl.Graphics.clBlack;
   end;
 end;

branches/Xvcl/Xvcl.Forms.pas

@@ -8 +8 @@
 type
   TForm = class(TWinControl)
-  private
+  protected
     function GetVideoDevice: TVideoDevice; override;
   public

branches/Xvcl/Xvcl.Generics.pas

@@ -63 +63 @@
   Result := TEnumerator.Create;
   Result.FList := Self;
+  Result.FIndex := -1;
 end;