Changeset 164 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Feb 8, 2011, 11:05:30 AM (15 years ago)

Author:

george

Message:

• Modified: Optimalized microthread execution from main thread.
• Fixed: Passthrough of WaitFor on already signaled event.

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, Spin, UMicroThreading, DateUtils, UPlatform,
+  ComCtrls, ExtCtrls, Spin, Menus, UMicroThreading, DateUtils, UPlatform,
   UMicroThreadList, UThreadEx;
 
@@ -46 +46 @@
     GroupBox2: TGroupBox;
     GroupBox3: TGroupBox;
-    Label10: TLabel;
     Label11: TLabel;
     Label12: TLabel;
@@ -57 +56 @@
     Label3: TLabel;
     Label4: TLabel;
-    Label5: TLabel;
-    Label6: TLabel;
-    Label7: TLabel;
-    Label8: TLabel;
-    Label9: TLabel;
+    MainMenu1: TMainMenu;
     Memo1: TMemo;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
     PageControl1: TPageControl;
     SpinEdit1: TSpinEdit;
@@ -134 +133 @@
   DoubleBuffered := True;
 //  ListView1.DoubleBuffered := True;
-  Label6.Caption := IntToStr(GetLogicalProcessorCount);
   Event := TMicroThreadEvent.Create;
   MicroThreadList := TMicroThreadList.Create(Self);
@@ -345 +343 @@
   Label2.Caption := DateTimeToStr(NowPrecise) + ' ' +
     FloatToStr(Frac(NowPrecise / OneSecond));
-  Label9.Caption := IntToStr(MainScheduler.ThreadPoolCount);
-  Label10.Caption := IntToStr(MainScheduler.MicroThreadCount);
 end;