Ignore:
Timestamp:
Feb 8, 2012, 2:13:08 PM (12 years ago)
Author:
chronos
Message:
  • Modified: TGTree structure.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Generics/NativeGenerics/Demo/UMainForm.lfm

    r321 r326  
    44  Top = 104
    55  Width = 692
    6   ActiveControl = ButtonIntegerList
     6  ActiveControl = IntegerListButton
    77  Caption = 'Template generics demo'
    88  ClientHeight = 520
    … …  
    1111  OnDestroy = FormDestroy
    1212  LCLVersion = '0.9.31'
    13   object ButtonIntegerList: TButton
     13  object IntegerListButton: TButton
    1414    Left = 8
    1515    Height = 25
    1616    Top = 8
    17     Width = 128
    18     Caption = 'TListInteger'
    19     OnClick = ButtonIntegerListClick
     17    Width = 152
     18    Caption = 'TList<Integer>'
     19    OnClick = IntegerListButtonClick
    2020    TabOrder = 0
    2121  end
    22   object ButtonStringList: TButton
     22  object StringListButton: TButton
    2323    Left = 8
    2424    Height = 25
    2525    Top = 40
    26     Width = 128
    27     Caption = 'TListString'
    28     OnClick = ButtonStringListClick
     26    Width = 152
     27    Caption = 'TStringList<string>'
     28    OnClick = StringListButtonClick
    2929    TabOrder = 1
    3030  end
    31   object ButtonDictionaryString: TButton
     31  object DictionaryStringButton: TButton
    3232    Left = 8
    3333    Height = 25
    3434    Top = 72
    35     Width = 128
    36     Caption = 'TDictionaryString'
    37     OnClick = ButtonDictionaryStringClick
     35    Width = 152
     36    Caption = 'TDictionary<string,string>'
     37    OnClick = DictionaryStringButtonClick
    3838    TabOrder = 2
    3939  end
    40   object ButtonQueueInteger: TButton
     40  object QueueIntegerButton: TButton
    4141    Left = 8
    4242    Height = 25
    4343    Top = 102
    44     Width = 128
    45     Caption = 'TQueueInteger'
    46     OnClick = ButtonQueueIntegerClick
     44    Width = 152
     45    Caption = 'TQueue<Integer>'
     46    OnClick = QueueIntegerButtonClick
    4747    TabOrder = 3
    4848  end
    49   object ButtonCharList: TButton
     49  object CharListButton: TButton
    5050    Left = 8
    5151    Height = 25
    5252    Top = 134
    53     Width = 128
    54     Caption = 'TListChar(TString)'
    55     OnClick = ButtonCharListClick
     53    Width = 152
     54    Caption = 'TString<Char>'
     55    OnClick = CharListButtonClick
    5656    TabOrder = 4
    5757  end
    … …  
    6060    Height = 24
    6161    Top = 456
    62     Width = 128
     62    Width = 152
    6363    Anchors = [akLeft, akBottom]
    64     Caption = 'TListString'
     64    Caption = 'TStringList<string>'
    6565    OnClick = ButtonBenchmarkListStringClick
    6666    TabOrder = 5
    6767  end
    68   object ButtonListObject: TButton
     68  object ListObjectButton: TButton
    6969    Left = 8
    7070    Height = 25
    7171    Top = 163
    72     Width = 128
    73     Caption = 'TListObject'
    74     OnClick = ButtonListObjectClick
     72    Width = 152
     73    Caption = 'TObjectList<Object>'
     74    OnClick = ListObjectButtonClick
    7575    TabOrder = 6
    7676  end
    … …  
    7979    Height = 25
    8080    Top = 424
    81     Width = 128
     81    Width = 152
    8282    Anchors = [akLeft, akBottom]
    83     Caption = 'TDictionaryStringString'
     83    Caption = 'TDictionary<string,string>'
    8484    OnClick = ButtonBenchmarkDictionaryClick
    8585    TabOrder = 7
    8686  end
    87   object ButtonMatrixInteger: TButton
     87  object MatrixIntegerButton: TButton
    8888    Left = 8
    8989    Height = 25
    9090    Top = 192
    91     Width = 128
    92     Caption = 'TMatrixInteger'
    93     OnClick = ButtonMatrixIntegerClick
     91    Width = 152
     92    Caption = 'TMatrix<Integer>'
     93    OnClick = MatrixIntegerButtonClick
    9494    TabOrder = 8
    9595  end
    9696  object ListViewOutput: TListView
    97     Left = 144
     97    Left = 168
    9898    Height = 491
    9999    Top = 24
    100     Width = 542
     100    Width = 518
    101101    Anchors = [akTop, akLeft, akRight, akBottom]
    102102    Columns = <   
    … …  
    114114  end
    115115  object LabelTestName: TLabel
    116     Left = 144
     116    Left = 168
    117117    Height = 14
    118118    Top = 8
    … …  
    134134    Height = 24
    135135    Top = 488
    136     Width = 128
     136    Width = 152
    137137    Anchors = [akLeft, akBottom]
    138     Caption = 'TListPointer'
     138    Caption = 'TList<Pointer>'
    139139    OnClick = ButtonBenchmarkListPointerClick
    140140    TabOrder = 10
    141141  end
    142   object ButtonStreamByte: TButton
     142  object StreamByteButton: TButton
    143143    Left = 8
    144144    Height = 25
    145145    Top = 224
    146     Width = 128
    147     Caption = 'TStreamByte'
    148     OnClick = ButtonStreamByteClick
     146    Width = 152
     147    Caption = 'TStream<Byte>'
     148    OnClick = StreamByteButtonClick
    149149    TabOrder = 11
    150150  end
     151  object TreeButton: TButton
     152    Left = 8
     153    Height = 25
     154    Top = 256
     155    Width = 152
     156    Caption = 'TTree<string>'
     157    OnClick = TreeButtonClick
     158    TabOrder = 12
     159  end
    151160end
Note: See TracChangeset for help on using the changeset viewer.