Changeset 157 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 28, 2011, 7:33:14 PM (14 years ago)

Author:

george

Message:

• Added: Displaying thread list in Demo.
• Fixed: Terminating and freeing unused threads.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -28 +28 @@
     Label11: TLabel;
     Label12: TLabel;
+    Label13: TLabel;
     Label2: TLabel;
     Label3: TLabel;
@@ -37 +38 @@
     Label9: TLabel;
     ListView1: TListView;
+    ListView2: TListView;
     Memo1: TMemo;
     PageControl1: TPageControl;
@@ -58 +60 @@
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView2Data(Sender: TObject; Item: TListItem);
     procedure SpinEdit2Change(Sender: TObject);
     procedure SpinEdit3Change(Sender: TObject);
@@ -240 +243 @@
 end;
 
+procedure TMainForm.ListView2Data(Sender: TObject; Item: TListItem);
+begin
+  if Item.Index < MainScheduler.ThreadPoolCount then
+  try
+    MainScheduler.ThreadPoolLock.Acquire;
+    with TMicroThreadThread(MainScheduler.ThreadPool[Item.Index]) do begin
+      Item.Caption := IntToStr(ThreadID);
+      Item.SubItems.Add(MicroThreadThreadStateText[State]);
+    end;
+  finally
+    MainScheduler.ThreadPoolLock.Release;
+  end;
+end;
+
 procedure TMainForm.SpinEdit2Change(Sender: TObject);
 begin
@@ -256 +273 @@
   ListView1.Items[-1];
   ListView1.Refresh;
+
+  if ListView2.Items.Count <> MainScheduler.ThreadPoolCount then
+    ListView2.Items.Count := MainScheduler.ThreadPoolCount;
+  ListView2.Items[-1];
+  ListView2.Refresh;
+
   Label2.Caption := DateTimeToStr(NowPrecise) + ' ' +
     FloatToStr(Frac(NowPrecise / OneSecond));