Changeset 157 for MicroThreading/Demo/UMainForm.lfm

Timestamp:

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

Author:

george

Message:

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

File:

• MicroThreading/Demo/UMainForm.lfm (modified) (11 diffs)

MicroThreading/Demo/UMainForm.lfm

@@ -22 +22 @@
     object TabSheet2: TTabSheet
       Caption = 'Scheduler state'
-      ClientHeight = 493
-      ClientWidth = 794
+      ClientHeight = 492
+      ClientWidth = 798
       object ListView1: TListView
         Left = 222
-        Height = 460
+        Height = 459
         Top = 24
-        Width = 567
+        Width = 571
         Anchors = [akTop, akLeft, akRight, akBottom]
         Columns = <        
@@ -76 +76 @@
         Height = 14
         Top = 7
-        Width = 74
-        Caption = 'Microthread list'
+        Width = 76
+        Caption = 'Microthreads:'
         ParentColor = False
       end
@@ -86 +86 @@
         Width = 205
         Caption = 'State'
-        ClientHeight = 63
+        ClientHeight = 66
         ClientWidth = 201
         TabOrder = 1
@@ -93 +93 @@
           Height = 14
           Top = 4
-          Width = 117
+          Width = 135
           Caption = 'Logical processor count:'
           ParentColor = False
@@ -109 +109 @@
           Height = 14
           Top = 20
-          Width = 69
+          Width = 78
           Caption = 'Thread count:'
           ParentColor = False
@@ -117 +117 @@
           Height = 14
           Top = 36
-          Width = 95
+          Width = 107
           Caption = 'Micro thread count:'
           ParentColor = False
@@ -144 +144 @@
         Width = 206
         Caption = 'Control'
-        ClientHeight = 108
+        ClientHeight = 111
         ClientWidth = 202
         TabOrder = 2
@@ -160 +160 @@
           Height = 14
           Top = 46
-          Width = 69
+          Width = 78
           Caption = 'Thread count:'
           ParentColor = False
@@ -174 +174 @@
         object CheckBoxUseMainThread: TCheckBox
           Left = 10
-          Height = 17
+          Height = 20
           Top = 64
-          Width = 98
+          Width = 112
           Caption = 'Use main thread'
           OnChange = CheckBoxUseMainThreadChange
@@ -182 +182 @@
         end
       end
+      object ListView2: TListView
+        Left = 6
+        Height = 236
+        Top = 247
+        Width = 206
+        Anchors = [akTop, akLeft, akBottom]
+        Columns = <        
+          item
+            Caption = 'Id'
+          end        
+          item
+            Caption = 'State'
+            Width = 135
+          end>
+        OwnerData = True
+        TabOrder = 3
+        ViewStyle = vsReport
+        OnData = ListView2Data
+      end
+      object Label13: TLabel
+        Left = 7
+        Height = 14
+        Top = 233
+        Width = 50
+        Caption = 'Threads:'
+        ParentColor = False
+      end
     end
     object TabSheet1: TTabSheet
       Caption = 'Job control'
-      ClientHeight = 493
-      ClientWidth = 794
+      ClientHeight = 492
+      ClientWidth = 798
       object ButtonAddWorkers: TButton
         Left = 10
@@ -263 +290 @@
     object TabSheet3: TTabSheet
       Caption = 'Testing'
-      ClientHeight = 493
-      ClientWidth = 753
+      ClientHeight = 492
+      ClientWidth = 798
       object ButtonShowThreadId: TButton
         Left = 14