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

ISPProgrammer/ISPprog/UISPprog.pas

@@ -26 +26 @@
   public
     constructor Create; override;
-    procedure Write; override;
-    procedure Read; override;
-    procedure Verify; override;
+    procedure Write(Job: TJob); override;
+    procedure Read(Job: TJob); override;
+    procedure Verify(Job: TJob); override;
     procedure Erase; override;
     procedure Reset; override;
@@ -149 +149 @@
 { TISPProg }
 
-procedure TISPProg.Write;
+procedure TISPProg.Write(Job: TJob);
 var
   res: string;
@@ -212 +212 @@
     maxadr:=maxadr or pagemask;         // round up to page size
     radr:=minadr;
-    JobProgressView.CurrentJob.Progress.Max := maxadr - minadr + 1;
+    Job.Progress.Max := maxadr - minadr + 1;
     while radr <= maxadr do begin
       if (proctype = PROC_TYPE_AVR) and (flashsize > 1024*128) then
@@ -233 +233 @@
       end;
       radr := radr + pagesize;
-      JobProgressView.CurrentJob.Progress.Value := radr - minadr;
-      if JobProgressView.CurrentJob.Terminate then Break;
+      Job.Progress.Value := radr - minadr;
+      if Job.Terminate then Break;
     end;
     Log(SProgramOK);
@@ -263 +263 @@
       end;
       radr := radr + pagesize;
-      JobProgressView.CurrentJob.Progress.Value := radr - minadr;
+      Job.Progress.Value := radr - minadr;
     end;
     Log(SProgramOK);
@@ -284 +284 @@
       end;
     end;
-    JobProgressView.CurrentJob.Progress.Value := radr - minadr;
+    Job.Progress.Value := radr - minadr;
   end;
   LedOff;
@@ -295 +295 @@
 end;
 
-procedure TISPProg.Verify;
+procedure TISPProg.Verify(Job: TJob);
 begin
   inherited;