Changeset 162 for MicroThreading/UMicroThreadList.pas

Timestamp:

Feb 7, 2011, 1:04:27 PM (13 years ago)

Author:

george

Message:

• Add: MicroThread critical section.
• Add: Thread list to microthread list window.

File:

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

MicroThreading/UMicroThreadList.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls;
+  ExtCtrls, StdCtrls, DateUtils;
 
 type
@@ -14 +14 @@
 
   TMicroThreadListForm = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
     ListView1: TListView;
+    ListView2: TListView;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    Splitter1: TSplitter;
     TimerRedraw: TTimer;
     procedure FormHide(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView2Data(Sender: TObject; Item: TListItem);
     procedure TimerRedrawTimer(Sender: TObject);
   private
@@ -36 +43 @@
 
 procedure TMicroThreadListForm.TimerRedrawTimer(Sender: TObject);
+var
+  ThreadCount: Integer;
 begin
   if ListView1.Items.Count <> MainScheduler.MicroThreadCount then
@@ -41 +50 @@
   ListView1.Items[-1];
   ListView1.Refresh;
+
+  ThreadCount := MainScheduler.ThreadPoolCount;
+  if MainScheduler.UseMainThread then Inc(ThreadCount);
+  if ListView2.Items.Count <> ThreadCount then
+    ListView2.Items.Count := ThreadCount;
+  ListView2.Items[-1];
+  ListView2.Refresh;
 end;
 
@@ -66 +82 @@
 end;
 
+procedure TMicroThreadListForm.ListView2Data(Sender: TObject; Item: TListItem);
+var
+  Increment: Integer;
+begin
+  if MainScheduler.UseMainThread then Increment := 1
+    else Increment := 0;
+
+  if Item.Index < (MainScheduler.ThreadPoolCount + Increment) then begin
+    if MainScheduler.UseMainThread and (Item.Index = 0) then begin
+      Item.Caption := IntToStr(MainThreadID);
+      Item.SubItems.Add('');
+      Item.SubItems.Add(IntToStr(MainScheduler.MainThreadManager.GetCurrentMicroThreadId));
+      Item.SubItems.Add(FloatToStr(MainScheduler.MainThreadManager.LoopDuration / OneMillisecond) + ' ms');
+    end else
+    try
+      MainScheduler.ThreadPoolLock.Acquire;
+      with TMicroThreadThread(MainScheduler.ThreadPool[Item.Index - Increment]) do begin
+        Item.Caption := IntToStr(ThreadID);
+        Item.SubItems.Add(MicroThreadThreadStateText[State]);
+        Item.SubItems.Add(IntToStr(Manager.GetCurrentMicroThreadId));
+        Item.SubItems.Add(FloatToStr(Manager.LoopDuration / OneMillisecond) + ' ms');
+      end;
+    finally
+      MainScheduler.ThreadPoolLock.Release;
+    end;
+  end;
+end;
+
 procedure TMicroThreadListForm.FormShow(Sender: TObject);
 begin