Changeset 164 for MicroThreading/Demo/UMainForm.lfm

Timestamp:

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

Author:

george

Message:

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

File:

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

MicroThreading/Demo/UMainForm.lfm

@@ -5 +5 @@
   Width = 816
   Caption = 'MicroThreading demo'
-  ClientHeight = 533
+  ClientHeight = 514
   ClientWidth = 816
+  Menu = MainMenu1
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -13 +14 @@
   object PageControl1: TPageControl
     Left = 8
-    Height = 519
+    Height = 500
     Top = 8
     Width = 802
@@ -22 +23 @@
     object TabSheet2: TTabSheet
       Caption = 'Scheduler state'
-      ClientHeight = 493
+      ClientHeight = 474
       ClientWidth = 794
       object GroupBox1: TGroupBox
@@ -33 +34 @@
         ClientWidth = 201
         TabOrder = 0
-        object Label5: TLabel
-          Left = 9
-          Height = 14
-          Top = 4
-          Width = 117
-          Caption = 'Logical processor count:'
-          ParentColor = False
-        end
-        object Label6: TLabel
-          Left = 150
-          Height = 14
-          Top = 4
-          Width = 13
-          Caption = '    '
-          ParentColor = False
-        end
-        object Label7: TLabel
-          Left = 8
-          Height = 14
-          Top = 20
-          Width = 69
-          Caption = 'Thread count:'
-          ParentColor = False
-        end
-        object Label8: TLabel
-          Left = 9
-          Height = 14
-          Top = 36
-          Width = 95
-          Caption = 'Micro thread count:'
-          ParentColor = False
-        end
-        object Label9: TLabel
-          Left = 150
-          Height = 14
-          Top = 20
-          Width = 13
-          Caption = '    '
-          ParentColor = False
-        end
-        object Label10: TLabel
-          Left = 151
-          Height = 14
-          Top = 36
-          Width = 13
-          Caption = '    '
-          ParentColor = False
-        end
         object Label15: TLabel
           Left = 9
@@ -403 +356 @@
     top = 115
   end
+  object MainMenu1: TMainMenu
+    left = 512
+    top = 115
+    object MenuItem1: TMenuItem
+      Caption = 'New Item1'
+      object MenuItem2: TMenuItem
+        Caption = 'New Item2'
+      end
+      object MenuItem4: TMenuItem
+        Caption = 'New Item4'
+      end
+    end
+    object MenuItem3: TMenuItem
+      Caption = 'New Item3'
+    end
+  end
 end