Changeset 150 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 26, 2011, 7:58:27 PM (14 years ago)

Author:

george

Message:

• Fixed: Micro threads freeing.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -14 +14 @@
 
   TMainForm = class(TForm)
+    Button1: TButton;
     Button2: TButton;
     ButtonAddWorkers: TButton;
@@ -24 +25 @@
     Label1: TLabel;
     Label10: TLabel;
+    Label11: TLabel;
     Label2: TLabel;
     Label3: TLabel;
@@ -42 +44 @@
     TimerRedraw: TTimer;
     TimerSchedulerStart: TTimer;
+    procedure Button1Click(Sender: TObject);
     procedure ButtonSchedulerStartStopClick(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -87 +90 @@
   if ButtonSchedulerStartStop.Caption = 'Start scheduler' then begin
     ButtonSchedulerStartStop.Caption := 'Stop scheduler';
-    Memo1.Clear;
+    Scheduler.ThreadPoolSize := SpinEdit2.Value;
     Scheduler.Active := True;
   end else begin
@@ -93 +96 @@
     Scheduler.Active := False;
   end;
+end;
+
+procedure TMainForm.Button1Click(Sender: TObject);
+begin
+  Memo1.Clear;
 end;
 
@@ -191 +199 @@
 procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
+  Scheduler.Active := False;
 end;