Ignore:
Timestamp:
Jan 5, 2018, 10:24:36 PM (7 years ago)
Author:
chronos
Message:
  • Modified: New native generics classes working under FPC 3.0 transformed from TemplateGenerics package.
Location:
Generics/NativeGenerics/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Generics/NativeGenerics/Demo

    • Property svn:ignore

      •  

        old new  
        33Demo.exe
        44heaptrclog.trc
         5Demo

  • Generics/NativeGenerics/Demo/UMainForm.lfm

    r326 r496  
    11object MainForm: TMainForm
    2   Left = 261
    3   Height = 520
    4   Top = 104
    5   Width = 692
    6   ActiveControl = IntegerListButton
    7   Caption = 'Template generics demo'
    8   ClientHeight = 520
    9   ClientWidth = 692
     2  Left = 619
     3  Height = 678
     4  Top = 203
     5  Width = 934
     6  ActiveControl = ButtonIntegerList
     7  Caption = 'Native generics demo'
     8  ClientHeight = 678
     9  ClientWidth = 934
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    12   LCLVersion = '0.9.31'
    13   object IntegerListButton: TButton
     12  LCLVersion = '1.8.0.4'
     13  object ButtonIntegerList: TButton
    1414    Left = 8
    1515    Height = 25
    1616    Top = 8
    17     Width = 152
    18     Caption = 'TList<Integer>'
    19     OnClick = IntegerListButtonClick
     17    Width = 264
     18    Caption = 'TGList<Integer>'
     19    OnClick = ButtonIntegerListClick
    2020    TabOrder = 0
    2121  end
    22   object StringListButton: TButton
     22  object ButtonStringList: TButton
    2323    Left = 8
    2424    Height = 25
    2525    Top = 40
    26     Width = 152
    27     Caption = 'TStringList<string>'
    28     OnClick = StringListButtonClick
     26    Width = 264
     27    Caption = 'TGList<String>'
     28    OnClick = ButtonStringListClick
    2929    TabOrder = 1
    3030  end
    31   object DictionaryStringButton: TButton
     31  object ButtonDictionaryString: TButton
    3232    Left = 8
    3333    Height = 25
    3434    Top = 72
    35     Width = 152
    36     Caption = 'TDictionary<string,string>'
    37     OnClick = DictionaryStringButtonClick
     35    Width = 264
     36    Caption = 'TGDictionary<string>'
     37    OnClick = ButtonDictionaryStringClick
    3838    TabOrder = 2
    3939  end
    40   object QueueIntegerButton: TButton
     40  object ButtonQueueInteger: TButton
    4141    Left = 8
    4242    Height = 25
    4343    Top = 102
    44     Width = 152
    45     Caption = 'TQueue<Integer>'
    46     OnClick = QueueIntegerButtonClick
     44    Width = 264
     45    Caption = 'TGQueue<Integer>'
     46    OnClick = ButtonQueueIntegerClick
    4747    TabOrder = 3
    4848  end
    49   object CharListButton: TButton
     49  object ButtonCharList: TButton
    5050    Left = 8
    5151    Height = 25
    5252    Top = 134
    53     Width = 152
    54     Caption = 'TString<Char>'
    55     OnClick = CharListButtonClick
     53    Width = 264
     54    Caption = 'TListChar(TString)'
     55    OnClick = ButtonCharListClick
    5656    TabOrder = 4
    5757  end
    … …  
    5959    Left = 8
    6060    Height = 24
    61     Top = 456
    62     Width = 152
     61    Top = 614
     62    Width = 264
    6363    Anchors = [akLeft, akBottom]
    64     Caption = 'TStringList<string>'
     64    Caption = 'TGList<string>'
    6565    OnClick = ButtonBenchmarkListStringClick
    6666    TabOrder = 5
    6767  end
    68   object ListObjectButton: TButton
     68  object ButtonListObject: TButton
    6969    Left = 8
    7070    Height = 25
    7171    Top = 163
    72     Width = 152
    73     Caption = 'TObjectList<Object>'
    74     OnClick = ListObjectButtonClick
     72    Width = 264
     73    Caption = 'TGListObject<TObject>'
     74    OnClick = ButtonListObjectClick
    7575    TabOrder = 6
    7676  end
    … …  
    7878    Left = 8
    7979    Height = 25
    80     Top = 424
    81     Width = 152
     80    Top = 582
     81    Width = 264
    8282    Anchors = [akLeft, akBottom]
    83     Caption = 'TDictionary<string,string>'
     83    Caption = 'TGDictionary<string,string>'
    8484    OnClick = ButtonBenchmarkDictionaryClick
    8585    TabOrder = 7
    8686  end
    87   object MatrixIntegerButton: TButton
     87  object ButtonMatrixInteger: TButton
    8888    Left = 8
    8989    Height = 25
    9090    Top = 192
    91     Width = 152
    92     Caption = 'TMatrix<Integer>'
    93     OnClick = MatrixIntegerButtonClick
     91    Width = 264
     92    Caption = 'TGMatrix<Integer>'
     93    OnClick = ButtonMatrixIntegerClick
    9494    TabOrder = 8
    9595  end
    9696  object ListViewOutput: TListView
    97     Left = 168
    98     Height = 491
     97    Left = 280
     98    Height = 649
    9999    Top = 24
    100     Width = 518
     100    Width = 648
    101101    Anchors = [akTop, akLeft, akRight, akBottom]
    102102    Columns = <   
    … …  
    107107      item
    108108        Caption = 'Value'
    109         Width = 321
     109        Width = 428
    110110      end>
    111111    ReadOnly = True
    … …  
    114114  end
    115115  object LabelTestName: TLabel
    116     Left = 168
    117     Height = 14
     116    Left = 144
     117    Height = 26
    118118    Top = 8
    119     Width = 10
     119    Width = 15
    120120    Caption = '   '
    121121    ParentColor = False
    122122  end
    123123  object Label1: TLabel
    124     Left = 8
    125     Height = 14
    126     Top = 408
    127     Width = 62
     124    Left = 10
     125    Height = 26
     126    Top = 554
     127    Width = 111
    128128    Anchors = [akLeft, akBottom]
    129129    Caption = 'Benchmarks:'
    … …  
    133133    Left = 8
    134134    Height = 24
    135     Top = 488
    136     Width = 152
     135    Top = 646
     136    Width = 264
    137137    Anchors = [akLeft, akBottom]
    138     Caption = 'TList<Pointer>'
     138    Caption = 'TGList<Pointer>'
    139139    OnClick = ButtonBenchmarkListPointerClick
    140140    TabOrder = 10
    141141  end
    142   object StreamByteButton: TButton
    143     Left = 8
     142  object ButtonStreamByte: TButton
     143    Left = 10
    144144    Height = 25
    145145    Top = 224
    146     Width = 152
    147     Caption = 'TStream<Byte>'
    148     OnClick = StreamByteButtonClick
     146    Width = 264
     147    Caption = 'TMemoryStreamByte'
     148    OnClick = ButtonStreamByteClick
    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
    160151end
Note: See TracChangeset for help on using the changeset viewer.