source: Generics/NativeGenerics/Demo/UMainForm.lfm

Last change on this file was 496, checked in by chronos, 6 years ago
  • Modified: New native generics classes working under FPC 3.0 transformed from TemplateGenerics package.
File size: 3.1 KB
Line 
1object MainForm: TMainForm
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
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 LCLVersion = '1.8.0.4'
13 object ButtonIntegerList: TButton
14 Left = 8
15 Height = 25
16 Top = 8
17 Width = 264
18 Caption = 'TGList<Integer>'
19 OnClick = ButtonIntegerListClick
20 TabOrder = 0
21 end
22 object ButtonStringList: TButton
23 Left = 8
24 Height = 25
25 Top = 40
26 Width = 264
27 Caption = 'TGList<String>'
28 OnClick = ButtonStringListClick
29 TabOrder = 1
30 end
31 object ButtonDictionaryString: TButton
32 Left = 8
33 Height = 25
34 Top = 72
35 Width = 264
36 Caption = 'TGDictionary<string>'
37 OnClick = ButtonDictionaryStringClick
38 TabOrder = 2
39 end
40 object ButtonQueueInteger: TButton
41 Left = 8
42 Height = 25
43 Top = 102
44 Width = 264
45 Caption = 'TGQueue<Integer>'
46 OnClick = ButtonQueueIntegerClick
47 TabOrder = 3
48 end
49 object ButtonCharList: TButton
50 Left = 8
51 Height = 25
52 Top = 134
53 Width = 264
54 Caption = 'TListChar(TString)'
55 OnClick = ButtonCharListClick
56 TabOrder = 4
57 end
58 object ButtonBenchmarkListString: TButton
59 Left = 8
60 Height = 24
61 Top = 614
62 Width = 264
63 Anchors = [akLeft, akBottom]
64 Caption = 'TGList<string>'
65 OnClick = ButtonBenchmarkListStringClick
66 TabOrder = 5
67 end
68 object ButtonListObject: TButton
69 Left = 8
70 Height = 25
71 Top = 163
72 Width = 264
73 Caption = 'TGListObject<TObject>'
74 OnClick = ButtonListObjectClick
75 TabOrder = 6
76 end
77 object ButtonBenchmarkDictionary: TButton
78 Left = 8
79 Height = 25
80 Top = 582
81 Width = 264
82 Anchors = [akLeft, akBottom]
83 Caption = 'TGDictionary<string,string>'
84 OnClick = ButtonBenchmarkDictionaryClick
85 TabOrder = 7
86 end
87 object ButtonMatrixInteger: TButton
88 Left = 8
89 Height = 25
90 Top = 192
91 Width = 264
92 Caption = 'TGMatrix<Integer>'
93 OnClick = ButtonMatrixIntegerClick
94 TabOrder = 8
95 end
96 object ListViewOutput: TListView
97 Left = 280
98 Height = 649
99 Top = 24
100 Width = 648
101 Anchors = [akTop, akLeft, akRight, akBottom]
102 Columns = <
103 item
104 Caption = 'Action'
105 Width = 200
106 end
107 item
108 Caption = 'Value'
109 Width = 428
110 end>
111 ReadOnly = True
112 TabOrder = 9
113 ViewStyle = vsReport
114 end
115 object LabelTestName: TLabel
116 Left = 144
117 Height = 26
118 Top = 8
119 Width = 15
120 Caption = ' '
121 ParentColor = False
122 end
123 object Label1: TLabel
124 Left = 10
125 Height = 26
126 Top = 554
127 Width = 111
128 Anchors = [akLeft, akBottom]
129 Caption = 'Benchmarks:'
130 ParentColor = False
131 end
132 object ButtonBenchmarkListPointer: TButton
133 Left = 8
134 Height = 24
135 Top = 646
136 Width = 264
137 Anchors = [akLeft, akBottom]
138 Caption = 'TGList<Pointer>'
139 OnClick = ButtonBenchmarkListPointerClick
140 TabOrder = 10
141 end
142 object ButtonStreamByte: TButton
143 Left = 10
144 Height = 25
145 Top = 224
146 Width = 264
147 Caption = 'TMemoryStreamByte'
148 OnClick = ButtonStreamByteClick
149 TabOrder = 11
150 end
151end
Note: See TracBrowser for help on using the repository browser.