Ignore:
Timestamp:
Jan 28, 2011, 2:12:42 PM (13 years ago)
Author:
george
Message:
  • Modified: Restructuralized code for support for pending state changes.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • MicroThreading/Demo/UMainForm.lfm

    r155 r156  
    33  Height = 533
    44  Top = 98
    5   Width = 775
     5  Width = 816
    66  Caption = 'MicroThreading demo'
    77  ClientHeight = 533
    8   ClientWidth = 775
     8  ClientWidth = 816
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
    … …  
    1515    Height = 519
    1616    Top = 8
    17     Width = 761
     17    Width = 802
    1818    ActivePage = TabSheet2
    1919    Anchors = [akTop, akLeft, akRight, akBottom]
    20     TabIndex = 1
     20    TabIndex = 0
    2121    TabOrder = 0
    22     object TabSheet1: TTabSheet
    23       Caption = 'Job control'
    24       ClientHeight = 493
    25       ClientWidth = 753
    26       object ButtonAddWorkers: TButton
    27         Left = 10
    28         Height = 25
    29         Top = 7
    30         Width = 104
    31         Caption = 'Add workers'
    32         OnClick = ButtonAddWorkersClick
    33         TabOrder = 0
    34       end
    35       object ButtonClearMicroThreads: TButton
    36         Left = 10
    37         Height = 25
    38         Top = 74
    39         Width = 104
    40         Caption = 'Clear jobs'
    41         OnClick = ButtonClearMicroThreadsClick
    42         TabOrder = 1
    43       end
    44       object Label4: TLabel
    45         Left = 124
    46         Height = 14
    47         Top = 14
    48         Width = 34
    49         Caption = 'Count:'
    50         ParentColor = False
    51       end
    52       object SpinEdit1: TSpinEdit
    53         Left = 204
    54         Height = 21
    55         Top = 11
    56         Width = 74
    57         MaxValue = 100000
    58         MinValue = 1
    59         TabStop = False
    60         TabOrder = 2
    61         Value = 2
    62       end
    63       object Memo1: TMemo
    64         Left = 316
    65         Height = 244
    66         Top = 14
    67         Width = 294
    68         Anchors = [akTop, akLeft, akBottom]
    69         ScrollBars = ssAutoBoth
    70         TabOrder = 3
    71       end
    72       object Button1: TButton
    73         Left = 12
    74         Height = 25
    75         Top = 138
    76         Width = 75
    77         Caption = 'Clear memo'
    78         OnClick = Button1Click
    79         TabOrder = 4
    80       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 = 1000000
    98       end
    99     end
    10022    object TabSheet2: TTabSheet
    10123      Caption = 'Scheduler state'
    10224      ClientHeight = 493
    103       ClientWidth = 753
     25      ClientWidth = 794
    10426      object ListView1: TListView
    10527        Left = 222
    10628        Height = 460
    10729        Top = 24
    108         Width = 477
     30        Width = 567
    10931        Anchors = [akTop, akLeft, akRight, akBottom]
    11032        Columns = <       
    … …  
    11436          end       
    11537          item
    116             Caption = 'Name'
    117           end       
    118           item
    11938            Caption = 'Usage'
    12039          end       
    … …  
    13453          end       
    13554          item
     55            Caption = 'Execution count'
     56          end       
     57          item
    13658            Caption = 'Completion'
    13759          end       
    … …  
    13961            Caption = 'Used stack'
    14062            Width = 178
     63          end       
     64          item
     65            Caption = 'Name'
    14166          end>
    14267        OwnerData = True
    … …  
    258183      end
    259184    end
     185    object TabSheet1: TTabSheet
     186      Caption = 'Job control'
     187      ClientHeight = 493
     188      ClientWidth = 794
     189      object ButtonAddWorkers: TButton
     190        Left = 10
     191        Height = 25
     192        Top = 7
     193        Width = 104
     194        Caption = 'Add workers'
     195        OnClick = ButtonAddWorkersClick
     196        TabOrder = 0
     197      end
     198      object ButtonClearMicroThreads: TButton
     199        Left = 10
     200        Height = 25
     201        Top = 74
     202        Width = 104
     203        Caption = 'Clear jobs'
     204        OnClick = ButtonClearMicroThreadsClick
     205        TabOrder = 1
     206      end
     207      object Label4: TLabel
     208        Left = 124
     209        Height = 14
     210        Top = 14
     211        Width = 34
     212        Caption = 'Count:'
     213        ParentColor = False
     214      end
     215      object SpinEdit1: TSpinEdit
     216        Left = 204
     217        Height = 21
     218        Top = 11
     219        Width = 74
     220        MaxValue = 100000
     221        MinValue = 1
     222        TabStop = False
     223        TabOrder = 2
     224        Value = 2
     225      end
     226      object Memo1: TMemo
     227        Left = 316
     228        Height = 244
     229        Top = 14
     230        Width = 294
     231        Anchors = [akTop, akLeft, akBottom]
     232        ScrollBars = ssAutoBoth
     233        TabOrder = 3
     234      end
     235      object Button1: TButton
     236        Left = 12
     237        Height = 25
     238        Top = 138
     239        Width = 75
     240        Caption = 'Clear memo'
     241        OnClick = Button1Click
     242        TabOrder = 4
     243      end
     244      object Label12: TLabel
     245        Left = 123
     246        Height = 14
     247        Top = 38
     248        Width = 52
     249        Caption = 'Iterations:'
     250        ParentColor = False
     251      end
     252      object SpinEdit3: TSpinEdit
     253        Left = 204
     254        Height = 21
     255        Top = 36
     256        Width = 74
     257        MaxValue = 1000000000
     258        OnChange = SpinEdit3Change
     259        TabOrder = 5
     260        Value = 10000000
     261      end
     262    end
    260263    object TabSheet3: TTabSheet
    261264      Caption = 'Testing'
    … …  
    313316    top = 115
    314317  end
    315   object TimerSchedulerStart: TTimer
    316     Interval = 10
    317     OnTimer = TimerSchedulerStartTimer
    318     left = 429
    319     top = 163
    320   end
    321318end
Note: See TracChangeset for help on using the changeset viewer.