Ignore:
Timestamp:
Jun 25, 2024, 11:10:44 AM (4 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from unit names.
Location:
Generics/TemplateGenerics/Demo
Files:
1 edited
1 moved

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Demo

    • Property svn:ignore

      •  

        old new  
        33heaptrclog.trc
        44Demo
         5backup

  • Generics/TemplateGenerics/Demo/FormMain.lfm

    r573 r574  
    1 object MainForm: TMainForm
     1object FormMain: TFormMain
    22  Left = 261
    3   Height = 520
     3  Height = 780
    44  Top = 104
    5   Width = 692
     5  Width = 1038
    66  ActiveControl = ButtonIntegerList
    77  Caption = 'Template generics demo'
    8   ClientHeight = 520
    9   ClientWidth = 692
     8  ClientHeight = 780
     9  ClientWidth = 1038
     10  DesignTimePPI = 144
    1011  OnCreate = FormCreate
    1112  OnDestroy = FormDestroy
    12   LCLVersion = '0.9.31'
     13  LCLVersion = '3.4.0.0'
    1314  object ButtonIntegerList: TButton
    14     Left = 8
    15     Height = 25
    16     Top = 8
    17     Width = 128
     15    Left = 12
     16    Height = 38
     17    Top = 12
     18    Width = 192
    1819    Caption = 'TListInteger'
     20    TabOrder = 0
    1921    OnClick = ButtonIntegerListClick
    20     TabOrder = 0
    2122  end
    2223  object ButtonStringList: TButton
    23     Left = 8
    24     Height = 25
    25     Top = 40
    26     Width = 128
     24    Left = 12
     25    Height = 38
     26    Top = 60
     27    Width = 192
    2728    Caption = 'TListString'
     29    TabOrder = 1
    2830    OnClick = ButtonStringListClick
    29     TabOrder = 1
    3031  end
    3132  object ButtonDictionaryString: TButton
    32     Left = 8
    33     Height = 25
    34     Top = 72
    35     Width = 128
     33    Left = 12
     34    Height = 38
     35    Top = 108
     36    Width = 192
    3637    Caption = 'TDictionaryString'
     38    TabOrder = 2
    3739    OnClick = ButtonDictionaryStringClick
    38     TabOrder = 2
    3940  end
    4041  object ButtonQueueInteger: TButton
    41     Left = 8
    42     Height = 25
    43     Top = 102
    44     Width = 128
     42    Left = 12
     43    Height = 38
     44    Top = 153
     45    Width = 192
    4546    Caption = 'TQueueInteger'
     47    TabOrder = 3
    4648    OnClick = ButtonQueueIntegerClick
    47     TabOrder = 3
    4849  end
    4950  object ButtonCharList: TButton
    50     Left = 8
    51     Height = 25
    52     Top = 134
    53     Width = 128
     51    Left = 12
     52    Height = 38
     53    Top = 201
     54    Width = 192
    5455    Caption = 'TListChar(TString)'
     56    TabOrder = 4
    5557    OnClick = ButtonCharListClick
    56     TabOrder = 4
    5758  end
    5859  object ButtonBenchmarkListString: TButton
    59     Left = 8
    60     Height = 24
    61     Top = 456
    62     Width = 128
     60    Left = 12
     61    Height = 36
     62    Top = 684
     63    Width = 192
    6364    Anchors = [akLeft, akBottom]
    6465    Caption = 'TListString'
     66    TabOrder = 5
    6567    OnClick = ButtonBenchmarkListStringClick
    66     TabOrder = 5
    6768  end
    6869  object ButtonListObject: TButton
    69     Left = 8
    70     Height = 25
    71     Top = 163
    72     Width = 128
     70    Left = 12
     71    Height = 38
     72    Top = 244
     73    Width = 192
    7374    Caption = 'TListObject'
     75    TabOrder = 6
    7476    OnClick = ButtonListObjectClick
    75     TabOrder = 6
    7677  end
    7778  object ButtonBenchmarkDictionary: TButton
    78     Left = 8
    79     Height = 25
    80     Top = 424
    81     Width = 128
     79    Left = 12
     80    Height = 38
     81    Top = 636
     82    Width = 192
    8283    Anchors = [akLeft, akBottom]
    8384    Caption = 'TDictionaryStringString'
     85    TabOrder = 7
    8486    OnClick = ButtonBenchmarkDictionaryClick
    85     TabOrder = 7
    8687  end
    8788  object ButtonMatrixInteger: TButton
    88     Left = 8
    89     Height = 25
    90     Top = 192
    91     Width = 128
     89    Left = 12
     90    Height = 38
     91    Top = 288
     92    Width = 192
    9293    Caption = 'TMatrixInteger'
     94    TabOrder = 8
    9395    OnClick = ButtonMatrixIntegerClick
    94     TabOrder = 8
    9596  end
    9697  object ListViewOutput: TListView
    97     Left = 144
    98     Height = 491
    99     Top = 24
    100     Width = 542
     98    Left = 216
     99    Height = 736
     100    Top = 36
     101    Width = 813
    101102    Anchors = [akTop, akLeft, akRight, akBottom]
    102     Columns = <   
     103    Columns = <
    103104      item
    104105        Caption = 'Action'
    105         Width = 200
    106       end   
     106        Width = 300
     107      end
    107108      item
    108109        Caption = 'Value'
    109         Width = 321
     110        Width = 498
    110111      end>
    111112    ReadOnly = True
    … …  
    114115  end
    115116  object LabelTestName: TLabel
    116     Left = 144
    117     Height = 14
    118     Top = 8
    119     Width = 10
     117    Left = 216
     118    Height = 26
     119    Top = 12
     120    Width = 15
    120121    Caption = '   '
    121122    ParentColor = False
    122123  end
    123124  object Label1: TLabel
    124     Left = 10
    125     Height = 14
    126     Top = 408
    127     Width = 62
     125    Left = 15
     126    Height = 26
     127    Top = 607
     128    Width = 111
    128129    Anchors = [akLeft, akBottom]
    129130    Caption = 'Benchmarks:'
    … …  
    131132  end
    132133  object ButtonBenchmarkListPointer: TButton
    133     Left = 8
    134     Height = 24
    135     Top = 488
    136     Width = 128
     134    Left = 12
     135    Height = 36
     136    Top = 732
     137    Width = 192
    137138    Anchors = [akLeft, akBottom]
    138139    Caption = 'TListPointer'
     140    TabOrder = 10
    139141    OnClick = ButtonBenchmarkListPointerClick
    140     TabOrder = 10
    141142  end
    142143  object ButtonStreamByte: TButton
    143     Left = 10
    144     Height = 25
    145     Top = 224
    146     Width = 128
     144    Left = 15
     145    Height = 38
     146    Top = 336
     147    Width = 192
    147148    Caption = 'TMemoryStreamByte'
     149    TabOrder = 11
    148150    OnClick = ButtonStreamByteClick
    149     TabOrder = 11
    150151  end
    151152end
Note: See TracChangeset for help on using the changeset viewer.