Changeset 369 for Common

Timestamp:

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

Author:

chronos

Message:

• Fixed: In package Common TJobProgressView fixed handling of job resultstring and job termination.

Location:

Common

Files:

• Common.lpk (modified) (1 diff)
• UJobProgressView.pas (modified) (7 diffs)
• ULastOpenedList.pas (modified) (1 diff)
• UThreading.pas (modified) (1 diff)

Common/Common.lpk

@@ -21 +21 @@
     <Description Value="Various libraries"/>
     <License Value="GNU/GPL"/>
-    <Version Minor="5"/>
+    <Version Minor="6"/>
     <Files Count="13">
       <Item1>

Common/UJobProgressView.pas

@@ -49 +49 @@
   TJob = class
   private
-    FResultString: string;
     FTerminate: Boolean;
     procedure SetTerminate(const AValue: Boolean);
@@ -211 +210 @@
 var
   I: Integer;
-  H: Integer;
 begin
   Terminate := False;
@@ -277 +275 @@
       end;
       Form.ProgressBarPart.Hide;
+      if Assigned(FOnJobFinish) then
+        FOnJobFinish(CurrentJob);
       if Terminate then Break;
       EndTime := Now;
       Finished := True;
-      if Assigned(FOnJobFinish) then
-        FOnJobFinish(CurrentJob);
       Inc(I);
     end;
@@ -427 +425 @@
   I: Integer;
 begin
+  if AValue = FTerminate then Exit;
   for I := 0 to Jobs.Count - 1 do
     TJob(Jobs[I]).Terminate := AValue;
@@ -440 +439 @@
   EstimatedTimePart: TDateTime;
   RemainingTime: TDateTime;
-  LabelEstimatedTimePartCaption: string;
-  LabelEstimatedTimePartVisible: Boolean;
 begin
   if Assigned(CurrentJob) then
@@ -480 +477 @@
 
 procedure TJobProgressView.ReloadJobList;
-var
-  OldImageIndex: Integer;
 begin
   UpdateHeight;
@@ -593 +588 @@
   if FTerminate = AValue then Exit;
   FTerminate := AValue;
-  if Assigned(Thread) then Thread.Terminate;
+  if AValue then begin
+    ProgressView.Terminate := AValue;
+    if Assigned(Thread) then Thread.Terminate;
+  end;
 end;
 

Common/ULastOpenedList.pas

@@ -91 +91 @@
   with Registry do
   try
+    RootKey := Root;
     OpenKey(Key, True);
     for I := 0 to Count - 1 do

Common/UThreading.pas

@@ -164 +164 @@
 procedure Synchronize(Method: TMethodCall);
 var
-  I: Integer;
   Thread: TVirtualThread;
 begin