Changeset 513 for Common/Demo/JobProgressView/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• Common/Demo/JobProgressView/UFormMain.pas (modified) (4 diffs)

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;