Changeset 158 for MicroThreading/Demo/UMainForm.lfm

Timestamp:

Jan 28, 2011, 9:10:16 PM (14 years ago)

Author:

george

Message:

• Fixed: WaitForEvent functionality. Now TEvent.WaitFor will chane microthread to blocked state with defined timeout. TEvent.SetSignal method will unblock all waiting microthreads.

File:

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

MicroThreading/Demo/UMainForm.lfm

@@ -16 +16 @@
     Top = 8
     Width = 802
-    ActivePage = TabSheet2
+    ActivePage = TabSheet1
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     object TabSheet2: TTabSheet
@@ -133 +133 @@
           Height = 14
           Top = 36
+          Width = 13
+          Caption = '    '
+          ParentColor = False
+        end
+        object Label15: TLabel
+          Left = 9
+          Height = 14
+          Top = 52
+          Width = 83
+          Caption = 'Main thread id:'
+          ParentColor = False
+        end
+        object Label16: TLabel
+          Left = 142
+          Height = 14
+          Top = 52
           Width = 13
           Caption = '    '
@@ -226 +242 @@
         Left = 10
         Height = 25
-        Top = 74
+        Top = 223
         Width = 104
         Caption = 'Clear jobs'
@@ -236 +252 @@
         Height = 14
         Top = 14
-        Width = 34
+        Width = 37
         Caption = 'Count:'
         ParentColor = False
@@ -253 +269 @@
       object Memo1: TMemo
         Left = 316
-        Height = 244
+        Height = 243
         Top = 14
         Width = 294
@@ -261 +277 @@
       end
       object Button1: TButton
-        Left = 12
-        Height = 25
-        Top = 138
+        Left = 230
+        Height = 25
+        Top = 239
         Width = 75
         Caption = 'Clear memo'
@@ -273 +289 @@
         Height = 14
         Top = 38
-        Width = 52
+        Width = 57
         Caption = 'Iterations:'
         ParentColor = False
@@ -287 +303 @@
         Value = 10000000
       end
+      object GroupBox3: TGroupBox
+        Left = 10
+        Height = 137
+        Top = 74
+        Width = 292
+        Caption = 'Do inside jobs'
+        ClientHeight = 122
+        ClientWidth = 288
+        TabOrder = 6
+        object CheckBox1: TCheckBox
+          Left = 4
+          Height = 20
+          Top = 9
+          Width = 76
+          Caption = 'Use sleep'
+          OnChange = CheckBox1Change
+          TabOrder = 0
+        end
+        object SpinEdit4: TSpinEdit
+          Left = 149
+          Height = 21
+          Top = 8
+          Width = 90
+          MaxValue = 100000
+          TabOrder = 1
+          Value = 100
+        end
+        object Label14: TLabel
+          Left = 242
+          Height = 14
+          Top = 15
+          Width = 17
+          Caption = 'ms'
+          ParentColor = False
+        end
+        object CheckBox2: TCheckBox
+          Left = 5
+          Height = 20
+          Top = 32
+          Width = 126
+          Caption = 'Write test to memo'
+          OnChange = CheckBox2Change
+          TabOrder = 2
+        end
+        object CheckBox3: TCheckBox
+          Left = 5
+          Height = 20
+          Top = 56
+          Width = 98
+          Caption = 'Wait for event'
+          OnChange = CheckBox3Change
+          TabOrder = 3
+        end
+        object Button3: TButton
+          Left = 226
+          Height = 25
+          Top = 51
+          Width = 51
+          Caption = 'Signal'
+          OnClick = Button3Click
+          TabOrder = 4
+        end
+        object SpinEdit5: TSpinEdit
+          Left = 130
+          Height = 21
+          Top = 51
+          Width = 70
+          MaxValue = 100000
+          OnChange = CheckBox3Change
+          TabOrder = 5
+          Value = 100
+        end
+        object Label17: TLabel
+          Left = 202
+          Height = 14
+          Top = 56
+          Width = 17
+          Caption = 'ms'
+          ParentColor = False
+        end
+      end
     end
     object TabSheet3: TTabSheet