Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • MicroThreading/Demo/UMainForm.lfm

    r158 r159  
    11object MainForm: TMainForm
    2   Left = 224
     2  Left = 237
    33  Height = 533
    4   Top = 98
     4  Top = 102
    55  Width = 816
    66  Caption = 'MicroThreading demo'
    … …  
    1616    Top = 8
    1717    Width = 802
    18     ActivePage = TabSheet1
     18    ActivePage = TabSheet2
    1919    Anchors = [akTop, akLeft, akRight, akBottom]
    20     TabIndex = 1
     20    TabIndex = 0
    2121    TabOrder = 0
    2222    object TabSheet2: TTabSheet
    2323      Caption = 'Scheduler state'
    24       ClientHeight = 492
    25       ClientWidth = 798
    26       object ListView1: TListView
    27         Left = 222
    28         Height = 459
    29         Top = 24
    30         Width = 571
    31         Anchors = [akTop, akLeft, akRight, akBottom]
    32         Columns = <       
    33           item
    34             Caption = 'Id'
    35             Width = 40
    36           end       
    37           item
    38             Caption = 'Usage'
    39           end       
    40           item
    41             Caption = 'Priority'
    42           end       
    43           item
    44             Caption = 'State'
    45             Width = 60
    46           end       
    47           item
    48             Caption = 'Block state'
    49           end       
    50           item
    51             Caption = 'Execution time'
    52             Width = 70
    53           end       
    54           item
    55             Caption = 'Execution count'
    56           end       
    57           item
    58             Caption = 'Completion'
    59           end       
    60           item
    61             Caption = 'Used stack'
    62             Width = 178
    63           end       
    64           item
    65             Caption = 'Name'
    66           end>
    67         OwnerData = True
    68         ReadOnly = True
    69         RowSelect = True
    70         TabOrder = 0
    71         ViewStyle = vsReport
    72         OnData = ListView1Data
    73       end
    74       object Label1: TLabel
    75         Left = 222
    76         Height = 14
    77         Top = 7
    78         Width = 76
    79         Caption = 'Microthreads:'
    80         ParentColor = False
    81       end
     24      ClientHeight = 493
     25      ClientWidth = 794
    8226      object GroupBox1: TGroupBox
    8327        Left = 6
    … …  
    8630        Width = 205
    8731        Caption = 'State'
    88         ClientHeight = 66
     32        ClientHeight = 63
    8933        ClientWidth = 201
    90         TabOrder = 1
     34        TabOrder = 0
    9135        object Label5: TLabel
    9236          Left = 9
    9337          Height = 14
    9438          Top = 4
    95           Width = 135
     39          Width = 117
    9640          Caption = 'Logical processor count:'
    9741          ParentColor = False
    … …  
    10953          Height = 14
    11054          Top = 20
    111           Width = 78
     55          Width = 69
    11256          Caption = 'Thread count:'
    11357          ParentColor = False
    … …  
    11761          Height = 14
    11862          Top = 36
    119           Width = 107
     63          Width = 95
    12064          Caption = 'Micro thread count:'
    12165          ParentColor = False
    … …  
    14185          Height = 14
    14286          Top = 52
    143           Width = 83
     87          Width = 73
    14488          Caption = 'Main thread id:'
    14589          ParentColor = False
    … …  
    160104        Width = 206
    161105        Caption = 'Control'
    162         ClientHeight = 111
     106        ClientHeight = 108
    163107        ClientWidth = 202
    164         TabOrder = 2
     108        TabOrder = 1
    165109        object ButtonSchedulerStartStop: TButton
    166110          Left = 8
    … …  
    176120          Height = 14
    177121          Top = 46
    178           Width = 78
     122          Width = 69
    179123          Caption = 'Thread count:'
    180124          ParentColor = False
    … …  
    190134        object CheckBoxUseMainThread: TCheckBox
    191135          Left = 10
    192           Height = 20
     136          Height = 17
    193137          Top = 64
    194           Width = 112
     138          Width = 98
    195139          Caption = 'Use main thread'
    196140          OnChange = CheckBoxUseMainThreadChange
    … …  
    200144      object ListView2: TListView
    201145        Left = 6
    202         Height = 236
     146        Height = 237
    203147        Top = 247
    204148        Width = 206
    … …  
    213157          end>
    214158        OwnerData = True
    215         TabOrder = 3
     159        TabOrder = 2
    216160        ViewStyle = vsReport
    217161        OnData = ListView2Data
    … …  
    221165        Height = 14
    222166        Top = 233
    223         Width = 50
     167        Width = 44
    224168        Caption = 'Threads:'
    225169        ParentColor = False
     170      end
     171      object Button4: TButton
     172        Left = 226
     173        Height = 25
     174        Top = 17
     175        Width = 123
     176        Caption = 'Show manager'
     177        OnClick = Button4Click
     178        TabOrder = 3
    226179      end
    227180    end
    228181    object TabSheet1: TTabSheet
    229182      Caption = 'Job control'
    230       ClientHeight = 492
    231       ClientWidth = 798
     183      ClientHeight = 493
     184      ClientWidth = 794
    232185      object ButtonAddWorkers: TButton
    233186        Left = 10
    … …  
    252205        Height = 14
    253206        Top = 14
    254         Width = 37
     207        Width = 34
    255208        Caption = 'Count:'
    256209        ParentColor = False
    … …  
    269222      object Memo1: TMemo
    270223        Left = 316
    271         Height = 243
     224        Height = 244
    272225        Top = 14
    273226        Width = 294
    … …  
    289242        Height = 14
    290243        Top = 38
    291         Width = 57
     244        Width = 52
    292245        Caption = 'Iterations:'
    293246        ParentColor = False
    … …  
    309262        Width = 292
    310263        Caption = 'Do inside jobs'
    311         ClientHeight = 122
     264        ClientHeight = 119
    312265        ClientWidth = 288
    313266        TabOrder = 6
    314267        object CheckBox1: TCheckBox
    315268          Left = 4
    316           Height = 20
     269          Height = 17
    317270          Top = 9
    318           Width = 76
     271          Width = 66
    319272          Caption = 'Use sleep'
    320273          OnChange = CheckBox1Change
    … …  
    334287          Height = 14
    335288          Top = 15
    336           Width = 17
     289          Width = 14
    337290          Caption = 'ms'
    338291          ParentColor = False
    … …  
    340293        object CheckBox2: TCheckBox
    341294          Left = 5
    342           Height = 20
     295          Height = 17
    343296          Top = 32
    344           Width = 126
     297          Width = 112
    345298          Caption = 'Write test to memo'
    346299          OnChange = CheckBox2Change
    … …  
    349302        object CheckBox3: TCheckBox
    350303          Left = 5
    351           Height = 20
     304          Height = 17
    352305          Top = 56
    353           Width = 98
     306          Width = 90
    354307          Caption = 'Wait for event'
    355308          OnChange = CheckBox3Change
    … …  
    379332          Height = 14
    380333          Top = 56
    381           Width = 17
     334          Width = 14
    382335          Caption = 'ms'
    383336          ParentColor = False
Note: See TracChangeset for help on using the changeset viewer.