Changeset 142 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 24, 2011, 4:02:40 PM (13 years ago)

Author:

george

Message:

• Added: Global scheduler MainScheduler for direct access.
• Added: Similar thread construction as TThread class where Execute is virtual method. Direct adding of method is supported as well.

File:

• MicroThreading/Demo/UMainForm.pas (modified) (5 diffs)

MicroThreading/Demo/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ExtCtrls, UMicroThreading, Coroutine, DateUtils;
+  ComCtrls, ExtCtrls, Spin, UMicroThreading, Coroutine, DateUtils;
 
 type
@@ -23 +23 @@
     Button2: TButton;
     Button3: TButton;
+    Button4: TButton;
     Label1: TLabel;
     Label2: TLabel;
     ListView1: TListView;
     Memo1: TMemo;
+    SpinEdit1: TSpinEdit;
     Timer1: TTimer;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -70 +73 @@
 begin
   Scheduler := TMicroThreadScheduler.Create;
-  Scheduler.FreeMicroThreadOnFinish := False;
   Test := TTest.Create;
   DoubleBuffered := True;
@@ -84 +86 @@
     Scheduler.MicroThreads.Clear;
     Memo1.Clear;
-    for I := 0 to 20 do
-      Scheduler.Add('Worker', Worker);
     Scheduler.Start;
   end else begin
@@ -149 +149 @@
 begin
   Test.Invoke;
+end;
+
+procedure TForm1.Button4Click(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to SpinEdit1.Value do
+    Scheduler.AddMethod(Worker);
 end;