Ignore:
Timestamp:
Feb 7, 2011, 1:04:27 PM (14 years ago)
Author:
george
Message:
  • Add: MicroThread critical section.
  • Add: Thread list to microthread list window.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • MicroThreading/UMicroThreadList.lfm

    r159 r162  
    11object MicroThreadListForm: TMicroThreadListForm
    2   Left = 267
     2  Left = 367
    33  Height = 423
    44  Top = 118
    … …  
    1010  OnShow = FormShow
    1111  LCLVersion = '0.9.31'
    12   object ListView1: TListView
    13     Left = 8
    14     Height = 410
    15     Top = 8
    16     Width = 557
    17     Anchors = [akTop, akLeft, akRight, akBottom]
    18     Columns = <   
    19       item
    20         Caption = 'Id'
    21         Width = 40
    22       end   
    23       item
    24         Caption = 'Usage'
    25       end   
    26       item
    27         Caption = 'Priority'
    28         Width = 40
    29       end   
    30       item
    31         Caption = 'State'
    32         Width = 60
    33       end   
    34       item
    35         Caption = 'Block state'
    36       end   
    37       item
    38         Caption = 'Execution time'
    39         Width = 70
    40       end   
    41       item
    42         Caption = 'Tick count'
    43       end   
    44       item
    45         Caption = 'Completion'
    46       end   
    47       item
    48         Caption = 'Used stack'
    49       end   
    50       item
    51         Caption = 'Name'
    52         Width = 70
    53       end>
    54     OwnerData = True
    55     ReadOnly = True
    56     RowSelect = True
     12  object Panel1: TPanel
     13    Left = 0
     14    Height = 248
     15    Top = 0
     16    Width = 569
     17    Align = alTop
     18    BevelOuter = bvNone
     19    ClientHeight = 248
     20    ClientWidth = 569
    5721    TabOrder = 0
    58     ViewStyle = vsReport
    59     OnData = ListView1Data
     22    object Label1: TLabel
     23      Left = 8
     24      Height = 14
     25      Top = 8
     26      Width = 67
     27      Caption = 'Microthreads:'
     28      ParentColor = False
     29    end
     30    object ListView1: TListView
     31      Left = 8
     32      Height = 218
     33      Top = 24
     34      Width = 557
     35      Anchors = [akTop, akLeft, akRight, akBottom]
     36      Columns = <     
     37        item
     38          Caption = 'Id'
     39          Width = 40
     40        end     
     41        item
     42          Caption = 'Usage'
     43        end     
     44        item
     45          Caption = 'Priority'
     46          Width = 40
     47        end     
     48        item
     49          Caption = 'State'
     50          Width = 60
     51        end     
     52        item
     53          Caption = 'Block state'
     54        end     
     55        item
     56          Caption = 'Execution time'
     57          Width = 70
     58        end     
     59        item
     60          Caption = 'Tick count'
     61        end     
     62        item
     63          Caption = 'Completion'
     64        end     
     65        item
     66          Caption = 'Used stack'
     67        end     
     68        item
     69          Caption = 'Name'
     70          Width = 70
     71        end>
     72      OwnerData = True
     73      ReadOnly = True
     74      RowSelect = True
     75      TabOrder = 0
     76      ViewStyle = vsReport
     77      OnData = ListView1Data
     78    end
     79  end
     80  object Panel2: TPanel
     81    Left = 0
     82    Height = 170
     83    Top = 253
     84    Width = 569
     85    Align = alClient
     86    BevelOuter = bvNone
     87    ClientHeight = 170
     88    ClientWidth = 569
     89    TabOrder = 1
     90    object ListView2: TListView
     91      Left = 8
     92      Height = 142
     93      Top = 19
     94      Width = 557
     95      Anchors = [akTop, akLeft, akRight, akBottom]
     96      Columns = <     
     97        item
     98          Caption = 'Id'
     99        end     
     100        item
     101          Caption = 'State'
     102          Width = 100
     103        end     
     104        item
     105          Caption = 'Microthread Id'
     106          Width = 70
     107        end     
     108        item
     109          Caption = 'Loop duration'
     110          Width = 70
     111        end>
     112      OwnerData = True
     113      ReadOnly = True
     114      RowSelect = True
     115      TabOrder = 0
     116      ViewStyle = vsReport
     117      OnData = ListView2Data
     118    end
     119    object Label2: TLabel
     120      Left = 8
     121      Height = 14
     122      Top = 3
     123      Width = 44
     124      Caption = 'Threads:'
     125      ParentColor = False
     126    end
     127  end
     128  object Splitter1: TSplitter
     129    Cursor = crVSplit
     130    Left = 0
     131    Height = 5
     132    Top = 248
     133    Width = 569
     134    Align = alTop
     135    ResizeAnchor = akTop
    60136  end
    61137  object TimerRedraw: TTimer
Note: See TracChangeset for help on using the changeset viewer.