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

Timestamp:

Dec 24, 2022, 7:17:24 PM (23 months ago)

Author:

chronos

Message:

• Modified: Updated Common package to latest version.
• Modified: Build with Lazarus 2.2.4.

Location:

trunk

Files:

• . (modified) (1 prop)
• Packages/Common/UJobProgressView.pas (modified) (13 diffs)

trunk

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+

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
@@ -647 +641 @@
 begin
   FLock.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -678 +672 @@
 destructor TJob.Destroy;
 begin
-  Progress.Free;
+  FreeAndNil(Progress);
   inherited;
 end;

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+