source: Generics/TemplateGenerics/Demo/FormMain.lfm

Last change on this file was 574, checked in by chronos, 18 months ago
  • Modified: Removed U prefix from unit names.
File size: 3.1 KB
Line 
1object FormMain: TFormMain
2 Left = 261
3 Height = 780
4 Top = 104
5 Width = 1038
6 ActiveControl = ButtonIntegerList
7 Caption = 'Template generics demo'
8 ClientHeight = 780
9 ClientWidth = 1038
10 DesignTimePPI = 144
11 OnCreate = FormCreate
12 OnDestroy = FormDestroy
13 LCLVersion = '3.4.0.0'
14 object ButtonIntegerList: TButton
15 Left = 12
16 Height = 38
17 Top = 12
18 Width = 192
19 Caption = 'TListInteger'
20 TabOrder = 0
21 OnClick = ButtonIntegerListClick
22 end
23 object ButtonStringList: TButton
24 Left = 12
25 Height = 38
26 Top = 60
27 Width = 192
28 Caption = 'TListString'
29 TabOrder = 1
30 OnClick = ButtonStringListClick
31 end
32 object ButtonDictionaryString: TButton
33 Left = 12
34 Height = 38
35 Top = 108
36 Width = 192
37 Caption = 'TDictionaryString'
38 TabOrder = 2
39 OnClick = ButtonDictionaryStringClick
40 end
41 object ButtonQueueInteger: TButton
42 Left = 12
43 Height = 38
44 Top = 153
45 Width = 192
46 Caption = 'TQueueInteger'
47 TabOrder = 3
48 OnClick = ButtonQueueIntegerClick
49 end
50 object ButtonCharList: TButton
51 Left = 12
52 Height = 38
53 Top = 201
54 Width = 192
55 Caption = 'TListChar(TString)'
56 TabOrder = 4
57 OnClick = ButtonCharListClick
58 end
59 object ButtonBenchmarkListString: TButton
60 Left = 12
61 Height = 36
62 Top = 684
63 Width = 192
64 Anchors = [akLeft, akBottom]
65 Caption = 'TListString'
66 TabOrder = 5
67 OnClick = ButtonBenchmarkListStringClick
68 end
69 object ButtonListObject: TButton
70 Left = 12
71 Height = 38
72 Top = 244
73 Width = 192
74 Caption = 'TListObject'
75 TabOrder = 6
76 OnClick = ButtonListObjectClick
77 end
78 object ButtonBenchmarkDictionary: TButton
79 Left = 12
80 Height = 38
81 Top = 636
82 Width = 192
83 Anchors = [akLeft, akBottom]
84 Caption = 'TDictionaryStringString'
85 TabOrder = 7
86 OnClick = ButtonBenchmarkDictionaryClick
87 end
88 object ButtonMatrixInteger: TButton
89 Left = 12
90 Height = 38
91 Top = 288
92 Width = 192
93 Caption = 'TMatrixInteger'
94 TabOrder = 8
95 OnClick = ButtonMatrixIntegerClick
96 end
97 object ListViewOutput: TListView
98 Left = 216
99 Height = 736
100 Top = 36
101 Width = 813
102 Anchors = [akTop, akLeft, akRight, akBottom]
103 Columns = <
104 item
105 Caption = 'Action'
106 Width = 300
107 end
108 item
109 Caption = 'Value'
110 Width = 498
111 end>
112 ReadOnly = True
113 TabOrder = 9
114 ViewStyle = vsReport
115 end
116 object LabelTestName: TLabel
117 Left = 216
118 Height = 26
119 Top = 12
120 Width = 15
121 Caption = ' '
122 ParentColor = False
123 end
124 object Label1: TLabel
125 Left = 15
126 Height = 26
127 Top = 607
128 Width = 111
129 Anchors = [akLeft, akBottom]
130 Caption = 'Benchmarks:'
131 ParentColor = False
132 end
133 object ButtonBenchmarkListPointer: TButton
134 Left = 12
135 Height = 36
136 Top = 732
137 Width = 192
138 Anchors = [akLeft, akBottom]
139 Caption = 'TListPointer'
140 TabOrder = 10
141 OnClick = ButtonBenchmarkListPointerClick
142 end
143 object ButtonStreamByte: TButton
144 Left = 15
145 Height = 38
146 Top = 336
147 Width = 192
148 Caption = 'TMemoryStreamByte'
149 TabOrder = 11
150 OnClick = ButtonStreamByteClick
151 end
152end
Note: See TracBrowser for help on using the repository browser.