Ignore:
Timestamp:
Jan 27, 2011, 8:05:33 AM (14 years ago)
Author:
george
Message:
  • Modified: Elimination of global variables used by TMicroThreadManager Yield method.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • MicroThreading/Demo/UMainForm.lfm

    r150 r151  
    11object MainForm: TMainForm
    2   Left = 232
    3   Height = 557
    4   Top = 116
    5   Width = 863
     2  Left = 224
     3  Height = 533
     4  Top = 98
     5  Width = 775
    66  Caption = 'MicroThreading demo'
    7   ClientHeight = 557
    8   ClientWidth = 863
     7  ClientHeight = 533
     8  ClientWidth = 775
    99  OnClose = FormClose
    1010  OnCreate = FormCreate
    … …  
    1414  object PageControl1: TPageControl
    1515    Left = 8
    16     Height = 543
     16    Height = 519
    1717    Top = 8
    18     Width = 849
    19     ActivePage = TabSheet2
     18    Width = 761
     19    ActivePage = TabSheet1
    2020    Anchors = [akTop, akLeft, akRight, akBottom]
    21     TabIndex = 1
     21    TabIndex = 0
    2222    TabOrder = 0
    2323    object TabSheet1: TTabSheet
    2424      Caption = 'Job control'
    25       ClientHeight = 516
    26       ClientWidth = 845
     25      ClientHeight = 493
     26      ClientWidth = 753
    2727      object ButtonAddWorkers: TButton
    2828        Left = 10
    … …  
    3737        Left = 10
    3838        Height = 25
    39         Top = 37
    40         Width = 140
     39        Top = 74
     40        Width = 104
    4141        Caption = 'Clear jobs'
    4242        OnClick = ButtonClearMicroThreadsClick
    … …  
    4444      end
    4545      object Label4: TLabel
    46         Left = 120
     46        Left = 124
    4747        Height = 14
    4848        Top = 14
    49         Width = 104
    50         Caption = 'Microthread count:'
     49        Width = 34
     50        Caption = 'Count:'
    5151        ParentColor = False
    5252      end
    5353      object SpinEdit1: TSpinEdit
    54         Left = 224
     54        Left = 204
    5555        Height = 21
    5656        Top = 11
    … …  
    6262      end
    6363      object Memo1: TMemo
    64         Left = 382
    65         Height = 267
     64        Left = 316
     65        Height = 244
    6666        Top = 14
    6767        Width = 294
    … …  
    7171      end
    7272      object Button1: TButton
    73         Left = 14
    74         Height = 25
    75         Top = 94
     73        Left = 12
     74        Height = 25
     75        Top = 138
    7676        Width = 75
    7777        Caption = 'Clear memo'
    … …  
    7979        TabOrder = 4
    8080      end
     81      object Label12: TLabel
     82        Left = 123
     83        Height = 14
     84        Top = 38
     85        Width = 52
     86        Caption = 'Iterations:'
     87        ParentColor = False
     88      end
     89      object SpinEdit3: TSpinEdit
     90        Left = 204
     91        Height = 21
     92        Top = 36
     93        Width = 74
     94        MaxValue = 1000000000
     95        OnChange = SpinEdit3Change
     96        TabOrder = 5
     97        Value = 100000
     98      end
    8199    end
    82100    object TabSheet2: TTabSheet
    83101      Caption = 'Scheduler state'
    84       ClientHeight = 516
    85       ClientWidth = 845
     102      ClientHeight = 493
     103      ClientWidth = 753
    86104      object ListView1: TListView
    87105        Left = 222
    88         Height = 483
     106        Height = 460
    89107        Top = 24
    90         Width = 569
     108        Width = 477
    91109        Anchors = [akTop, akLeft, akRight, akBottom]
    92110        Columns = <       
    … …  
    130148        Height = 14
    131149        Top = 7
    132         Width = 85
     150        Width = 74
    133151        Caption = 'Microthread list'
    134152        ParentColor = False
    … …  
    140158        Width = 205
    141159        Caption = 'State'
    142         ClientHeight = 66
     160        ClientHeight = 63
    143161        ClientWidth = 201
    144162        TabOrder = 1
    … …  
    147165          Height = 14
    148166          Top = 4
    149           Width = 135
     167          Width = 117
    150168          Caption = 'Logical processor count:'
    151169          ParentColor = False
    … …  
    163181          Height = 14
    164182          Top = 20
    165           Width = 78
     183          Width = 69
    166184          Caption = 'Thread count:'
    167185          ParentColor = False
    … …  
    171189          Height = 14
    172190          Top = 36
    173           Width = 107
     191          Width = 95
    174192          Caption = 'Micro thread count:'
    175193          ParentColor = False
    … …  
    198216        Width = 206
    199217        Caption = 'Control'
    200         ClientHeight = 111
     218        ClientHeight = 108
    201219        ClientWidth = 202
    202220        TabOrder = 2
    … …  
    214232          Height = 14
    215233          Top = 46
    216           Width = 78
     234          Width = 69
    217235          Caption = 'Thread count:'
    218236          ParentColor = False
    … …  
    230248    object TabSheet3: TTabSheet
    231249      Caption = 'Testing'
    232       ClientHeight = 516
    233       ClientWidth = 845
     250      ClientHeight = 493
     251      ClientWidth = 753
    234252      object ButtonShowThreadId: TButton
    235253        Left = 14
    … …  
    271289        Height = 14
    272290        Top = 135
    273         Width = 81
     291        Width = 70
    274292        Caption = 'Precision time:'
    275293        ParentColor = False
Note: See TracChangeset for help on using the changeset viewer.