Changeset 159 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 31, 2011, 2:16:21 PM (14 years ago)

Author:

george

Message:

• Added: Running microthread list window.
• Modified: Main thread is executed by application queued async call.

File:

• MicroThreading/Demo/UMainForm.pas (modified) (12 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, UMicroThreading, DateUtils, UPlatform,
+  UMicroThreadList;
 
 type
-
   TMainForm = class;
 
@@ -28 +28 @@
     Button2: TButton;
     Button3: TButton;
+    Button4: TButton;
     ButtonAddWorkers: TButton;
     ButtonClearMicroThreads: TButton;
@@ -40 +41 @@
     GroupBox2: TGroupBox;
     GroupBox3: TGroupBox;
-    Label1: TLabel;
     Label10: TLabel;
     Label11: TLabel;
@@ -57 +57 @@
     Label8: TLabel;
     Label9: TLabel;
-    ListView1: TListView;
     ListView2: TListView;
     Memo1: TMemo;
@@ -72 +71 @@
     procedure Button1Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
     procedure ButtonSchedulerStartStopClick(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -85 +85 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView2Data(Sender: TObject; Item: TListItem);
     procedure SpinEdit2Change(Sender: TObject);
@@ -92 +91 @@
     procedure TimerRedrawTimer(Sender: TObject);
   private
+    MicroThreadList: TMicroThreadList;
     procedure WorkerSubRoutine;
   public
@@ -117 +117 @@
 begin
   DoubleBuffered := True;
-  ListView1.DoubleBuffered := True;
+//  ListView1.DoubleBuffered := True;
   Label6.Caption := IntToStr(GetLogicalProcessorCount);
   Event := TMicroThreadEvent.Create;
+  MicroThreadList := TMicroThreadList.Create(Self);
 end;
 
@@ -144 +145 @@
 begin
   Event.SetEvent;
+end;
+
+procedure TMainForm.Button4Click(Sender: TObject);
+begin
+  MicroThreadList.Form.Show;
 end;
 
@@ -268 +274 @@
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  MicroThreadList.Free;
   MainScheduler.Active := False;
   Event.Free;
@@ -279 +286 @@
   ButtonSchedulerStartStop.Click;
   Label16.Caption := IntToStr(MainThreadID);
-end;
-
-procedure TMainForm.ListView1Data(Sender: TObject; Item: TListItem);
-begin
-  try
-    MainScheduler.MicroThreadsLock.Acquire;
-    if Item.Index < MainScheduler.MicroThreads.Count then
-    with TMicroThread(MainScheduler.MicroThreads[Item.Index]) do begin
-      Item.Caption := IntToStr(Id);
-      Item.SubItems.Add('');
-      Item.SubItems.Add(IntToStr(Priority));
-      Item.SubItems.Add(MicroThreadStateText[State]);
-      Item.SubItems.Add(MicroThreadBlockStateText[BlockState]);
-      Item.SubItems.Add(FloatToStr(ExecutionTime));
-      Item.SubItems.Add(IntToStr(ExecutionCount));
-      Item.SubItems.Add(IntToStr(Trunc(Completion * 100)) + '%');
-      Item.SubItems.Add(IntToStr(StackUsed));
-      Item.SubItems.Add(Name);
-    end;
-  finally
-    MainScheduler.MicroThreadsLock.Release;
-  end;
 end;
 
@@ -334 +319 @@
 procedure TMainForm.TimerRedrawTimer(Sender: TObject);
 begin
-  if ListView1.Items.Count <> MainScheduler.MicroThreadCount then
-    ListView1.Items.Count := MainScheduler.MicroThreadCount;
-  ListView1.Items[-1];
-  ListView1.Refresh;
-
   if ListView2.Items.Count <> MainScheduler.ThreadPoolCount then
     ListView2.Items.Count := MainScheduler.ThreadPoolCount;