Changeset 370 for ISPProgrammer/RFU/URFUProgrammer.pas

Timestamp:

May 31, 2012, 6:29:12 AM (12 years ago)

Author:

chronos

Message:

• Modified: ISPProgrammer now use updated component oriented TJobProgressView from Common package.

File:

• ISPProgrammer/RFU/URFUProgrammer.pas (modified) (4 diffs)

ISPProgrammer/RFU/URFUProgrammer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Forms, UISPProgrammer, UCPUType, Process;
+  Classes, SysUtils, Forms, UISPProgrammer, UCPUType, Process, UJobProgressView;
 
 type
@@ -13 +13 @@
 
   TRFUProgrammer = class(TISPProgrammer)
-    procedure Write; override;
-    procedure Verify; override;
+    procedure Write(Job: TJob); override;
+    procedure Verify(Job: TJob); override;
     procedure Erase; override;
     procedure Reset; override;
@@ -26 +26 @@
 { TRFUProgrammer }
 
-procedure TRFUProgrammer.Write;
+procedure TRFUProgrammer.Write(Job: TJob);
 begin
-  inherited Write;
+  inherited;
   with TProcess.Create(nil) do
   try
@@ -41 +41 @@
 end;
 
-procedure TRFUProgrammer.Verify;
+procedure TRFUProgrammer.Verify(Job: TJob);
 begin
-  inherited Verify;
+  inherited;
 end;