Changeset 152 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 27, 2011, 10:30:55 AM (14 years ago)

Author:

george

Message:

• Fixed: Wrong context restoration after return from micro thread.
• Add: Option of TMicroThreadScheduler to set use or not use main thread for scheduling.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -21 +21 @@
     ButtonSchedulerStartStop: TButton;
     ButtonShowThreadId: TButton;
+    CheckBoxUseMainThread: TCheckBox;
     GroupBox1: TGroupBox;
     GroupBox2: TGroupBox;
@@ -53 +54 @@
     procedure ButtonShowThreadIdClick(Sender: TObject);
     procedure ButtonClearMicroThreadsClick(Sender: TObject);
+    procedure CheckBoxUseMainThreadChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -165 +167 @@
 begin
   //Scheduler.FMicroThreads.Clear;
-  for I := 0 to SpinEdit1.Value do
+  for I := 0 to SpinEdit1.Value - 1 do
     Scheduler.AddMethod(Worker);
 end;
@@ -199 +201 @@
     Scheduler.MicroThreadsLock.Release;
   end;
+end;
+
+procedure TMainForm.CheckBoxUseMainThreadChange(Sender: TObject);
+begin
+  Scheduler.UseMainThread := CheckBoxUseMainThread.Checked;
 end;