Changeset 513 for Common/Demo/JobProgressView

Timestamp:

Apr 19, 2018, 5:07:40 PM (6 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: Center progress dialog to center of screen even with multiple jobs.

Location:

Common/Demo/JobProgressView

Files:

• JobProgressViewDemo.lpi (modified) (1 diff)
• JobProgressViewDemo.lpr (modified) (1 diff)
• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (4 diffs)

Common/Demo/JobProgressView/JobProgressViewDemo.lpi

@@ -80 +80 @@
         <Filename Value="UFormMain.pas"/>
         <IsPartOfProject Value="True"/>
-        <ComponentName Value="Form1"/>
+        <ComponentName Value="FormMain"/>
         <ResourceBaseClass Value="Form"/>
       </Unit1>

Common/Demo/JobProgressView/JobProgressViewDemo.lpr

@@ -16 +16 @@
   RequireDerivedFormResource:=True;
   Application.Initialize;
-  Application.CreateForm(TForm1, Form1);
+  Application.CreateForm(TFormMain, FormMain);
   Application.Run;
 end.

Common/Demo/JobProgressView/UFormMain.lfm

@@ -1 @@
-object Form1: TForm1
-  Left = 515
+object FormMain: TFormMain
+  Left = 501
   Height = 480
-  Top = 252
+  Top = 296
   Width = 743
   Caption = 'JobProgressView demo'
@@ -89 +89 @@
     ShowDelay = 0
     AutoClose = False
-    left = 488
-    top = 72
+    left = 480
+    top = 120
   end
 end

Common/Demo/JobProgressView/UFormMain.pas

@@ -11 +11 @@
 type
 
-  { TForm1 }
+  { TFormMain }
 
-  TForm1 = class(TForm)
+  TFormMain = class(TForm)
     ButtonTest: TButton;
     CheckBoxAutoClose: TCheckBox;
@@ -32 +32 @@
 
 var
-  Form1: TForm1;
+  FormMain: TFormMain;
 
 implementation
@@ -38 +38 @@
 {$R *.lfm}
 
-{ TForm1 }
+{ TFormMain }
 
-procedure TForm1.ButtonTestClick(Sender: TObject);
+procedure TFormMain.ButtonTestClick(Sender: TObject);
 var
   I: Integer;
 begin
+  ButtonTest.Enabled := False;
   with JobProgressView1 do begin
     AutoClose := CheckBoxAutoClose.Checked;
@@ -52 +53 @@
     Start;
   end;
+  ButtonTest.Enabled := True;
 end;
 
-procedure TForm1.JobMethod(Job: TJob);
+procedure TFormMain.JobMethod(Job: TJob);
 var
   Count: Integer;