Changeset 370 for ISPProgrammer/UISPProgrammer.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/UISPProgrammer.pas (modified) (3 diffs)

ISPProgrammer/UISPProgrammer.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Registry, UIntelHexFile, UCommSerialPort,
-  UCPUType;
+  UCPUType, UJobProgressView;
 
 type
@@ -34 +34 @@
     procedure LoadFromRegistry(Root: HKEY; Key: string); virtual;
     procedure SaveToRegistry(Root: HKEY; Key: string); virtual;
-    procedure Write; virtual;
-    procedure Read; virtual;
-    procedure Verify; virtual;
+    procedure Write(Job: TJob); virtual;
+    procedure Read(Job: TJob); virtual;
+    procedure Verify(Job: TJob); virtual;
     procedure Erase; virtual;
     procedure Reset; virtual;
@@ -86 +86 @@
 end;
 
-procedure TISPProgrammer.Write;
+procedure TISPProgrammer.Write(Job: TJob);
 begin
   raise Exception.Create(SNotImplemented);
 end;
 
-procedure TISPProgrammer.Read;
+procedure TISPProgrammer.Read(Job: TJob);
 begin
   raise Exception.Create(SNotImplemented);
 end;
 
-procedure TISPProgrammer.Verify;
+procedure TISPProgrammer.Verify(Job: TJob);
 begin
   raise Exception.Create(SNotImplemented);