Changeset 86 for trunk/Packages/Common/UJobProgressView.pas

Timestamp:

Jun 21, 2022, 5:04:48 PM (23 months ago)

Author:

chronos

Message:

• Fixed: Calculation of tracks end.
• Modified: Updated Common package to version 0.10.
• Modified: Build with Lazarus 2.2.2.
• Modified: Used Generics.Collections instead of fgl for generic lists.

File:

• trunk/Packages/Common/UJobProgressView.pas (modified) (12 diffs)

trunk/Packages/Common/UJobProgressView.pas

@@ -1 +1 @@
 unit UJobProgressView;
-
-{$MODE Delphi}
 
 interface
@@ -7 +5 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms, Syncobjs,
-  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Contnrs, UThreading, Math,
+  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Generics.Collections, UThreading, Math,
   DateUtils;
 
@@ -71 +69 @@
   end;
 
-  TJobs = class(TObjectList)
+  TJobs = class(TObjectList<TJob>)
   end;
 
@@ -105 +103 @@
     procedure ReloadJobList;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
-    procedure FormDestroy(Sender: TObject);
     procedure ListViewJobsData(Sender: TObject; Item: TListItem);
     procedure TimerUpdateTimer(Sender: TObject);
@@ -165 +162 @@
   SExecuted = 'Executed';
 
+
 implementation
 
@@ -286 +284 @@
 end;
 
-procedure TFormJobProgressView.FormDestroy(Sender:TObject);
-begin
-end;
-
 procedure TFormJobProgressView.ListViewJobsData(Sender: TObject; Item: TListItem);
 begin
   if (Item.Index >= 0) and (Item.Index < JobProgressView.Jobs.Count) then
-  with TJob(JobProgressView.Jobs[Item.Index]) do begin
+  with JobProgressView.Jobs[Item.Index] do begin
     Item.Caption := Title;
     if Item.Index = JobProgressView.CurrentJobIndex then Item.ImageIndex := 1
@@ -405 +399 @@
     I := 0;
     while I < Jobs.Count do
-    with TJob(Jobs[I]) do begin
+    with Jobs[I] do begin
       CurrentJobIndex := I;
-      CurrentJob := TJob(Jobs[I]);
+      CurrentJob := Jobs[I];
       JobProgressChange(Self);
       StartTime := Now;
@@ -420 +414 @@
         Method(CurrentJob);
       end else begin
+        Thread := TJobThread.Create(True);
         try
-          Thread := TJobThread.Create(True);
           with Thread do begin
             FreeOnTerminate := False;
@@ -494 +488 @@
   if AValue = FTerminate then Exit;
   for I := 0 to Jobs.Count - 1 do
-    TJob(Jobs[I]).Terminate := AValue;
+    Jobs[I].Terminate := AValue;
   FTerminate := AValue;
 end;
@@ -620 +614 @@
 procedure TProgress.Increment;
 begin
-  try
-    FLock.Acquire;
+  FLock.Acquire;
+  try
     Value := Value + 1;
   finally
@@ -630 +624 @@
 procedure TProgress.Reset;
 begin
-  try
-    FLock.Acquire;
+  FLock.Acquire;
+  try
     FValue := 0;
   finally
@@ -678 +672 @@
 destructor TJob.Destroy;
 begin
-  Progress.Free;
+  FreeAndNil(Progress);
   inherited;
 end;