Changeset 141 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 24, 2011, 8:49:56 AM (14 years ago)

Author:

george

Message:

• Added: Scheduler Start and Stop methods.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -41 +41 @@
     Scheduler: TMicroThreadScheduler;
     Test: TTest;
-    Terminate: Boolean;
-  end; 
+  end;
 
 var
@@ -73 +72 @@
   Scheduler.FreeMicroThreadOnFinish := False;
   Test := TTest.Create;
+  DoubleBuffered := True;
+  ListView1.DoubleBuffered := True;
 end;
 
@@ -78 +79 @@
 var
   I: Integer;
-  Executed: Integer;
 begin
   if Button1.Caption = 'Start scheduler' then begin
     Button1.Caption := 'Stop scheduler';
-    Terminate := False;
     Scheduler.MicroThreads.Clear;
     Memo1.Clear;
     for I := 0 to 20 do
       Scheduler.Add('Worker', Worker);
-    repeat
-      Executed := Scheduler.Execute(10);
-      Application.ProcessMessages;
-      if Executed = 0 then Sleep(1);
-    until (Scheduler.MicroThreadCount = 0) or Terminate;
+    Scheduler.Start;
   end else begin
     Button1.Caption := 'Start scheduler';
-    Terminate := True;
+    Scheduler.Stop;
   end;
 end;
@@ -158 +153 @@
 procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  Terminate := True;
+  Scheduler.Stop;
 end;