Changeset 164 for MicroThreading/UMicroThreadList.pas

Timestamp:

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

Author:

george

Message:

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

File:

• MicroThreading/UMicroThreadList.pas (modified) (4 diffs)

MicroThreading/UMicroThreadList.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, StdCtrls, DateUtils;
+  ExtCtrls, StdCtrls, DateUtils, UPlatform;
 
 type
@@ -14 +14 @@
 
   TMicroThreadListForm = class(TForm)
+  published
+    Label10: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    TimerRedraw: TTimer;
     Label1: TLabel;
     Label2: TLabel;
     ListView1: TListView;
     ListView2: TListView;
-    Panel1: TPanel;
-    Panel2: TPanel;
-    Splitter1: TSplitter;
-    TimerRedraw: TTimer;
+    PageControl1: TPageControl;
+    TabSheet1: TTabSheet;
+    TabSheet2: TTabSheet;
+    TabSheet3: TTabSheet;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormHide(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -57 +66 @@
   ListView2.Items[-1];
   ListView2.Refresh;
+
+  Label6.Caption := IntToStr(GetLogicalProcessorCount);
+  Label9.Caption := IntToStr(MainScheduler.ThreadPoolCount);
+  Label10.Caption := IntToStr(MainScheduler.MicroThreadCount);
+  Label2.Caption := FloatToStr(MainScheduler.MainThreadOutsideDuration / OneMillisecond) + ' ms';
 end;
 
@@ -120 +134 @@
 end;
 
+procedure TMicroThreadListForm.FormClose(Sender: TObject;
+  var CloseAction: TCloseAction);
+begin
+  TimerRedraw.Enabled := False;
+end;
+
 
 end.