source: trunk/Packages/TemplateGenerics/Demo/UMainForm.lfm

Last change on this file was 18, checked in by chronos, 12 years ago
  • Used external packages are now stored in uncompressed form rather in zipped files. This allow better package version synchronisation.
File size: 3.1 KB
Line 
1object MainForm: TMainForm
2 Left = 261
3 Height = 520
4 Top = 104
5 Width = 692
6 ActiveControl = ButtonIntegerList
7 Caption = 'Template generics demo'
8 ClientHeight = 520
9 ClientWidth = 692
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 LCLVersion = '0.9.31'
13 object ButtonIntegerList: TButton
14 Left = 8
15 Height = 25
16 Top = 8
17 Width = 128
18 Caption = 'TListInteger'
19 OnClick = ButtonIntegerListClick
20 TabOrder = 0
21 end
22 object ButtonStringList: TButton
23 Left = 8
24 Height = 25
25 Top = 40
26 Width = 128
27 Caption = 'TListString'
28 OnClick = ButtonStringListClick
29 TabOrder = 1
30 end
31 object ButtonDictionaryString: TButton
32 Left = 8
33 Height = 25
34 Top = 72
35 Width = 128
36 Caption = 'TDictionaryString'
37 OnClick = ButtonDictionaryStringClick
38 TabOrder = 2
39 end
40 object ButtonQueueInteger: TButton
41 Left = 8
42 Height = 25
43 Top = 102
44 Width = 128
45 Caption = 'TQueueInteger'
46 OnClick = ButtonQueueIntegerClick
47 TabOrder = 3
48 end
49 object ButtonCharList: TButton
50 Left = 8
51 Height = 25
52 Top = 134
53 Width = 128
54 Caption = 'TListChar(TString)'
55 OnClick = ButtonCharListClick
56 TabOrder = 4
57 end
58 object ButtonBenchmarkListString: TButton
59 Left = 8
60 Height = 24
61 Top = 456
62 Width = 128
63 Anchors = [akLeft, akBottom]
64 Caption = 'TListString'
65 OnClick = ButtonBenchmarkListStringClick
66 TabOrder = 5
67 end
68 object ButtonListObject: TButton
69 Left = 8
70 Height = 25
71 Top = 163
72 Width = 128
73 Caption = 'TListObject'
74 OnClick = ButtonListObjectClick
75 TabOrder = 6
76 end
77 object ButtonBenchmarkDictionary: TButton
78 Left = 8
79 Height = 25
80 Top = 424
81 Width = 128
82 Anchors = [akLeft, akBottom]
83 Caption = 'TDictionaryStringString'
84 OnClick = ButtonBenchmarkDictionaryClick
85 TabOrder = 7
86 end
87 object ButtonMatrixInteger: TButton
88 Left = 8
89 Height = 25
90 Top = 192
91 Width = 128
92 Caption = 'TMatrixInteger'
93 OnClick = ButtonMatrixIntegerClick
94 TabOrder = 8
95 end
96 object ListViewOutput: TListView
97 Left = 144
98 Height = 491
99 Top = 24
100 Width = 542
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 = 321
110 end>
111 ReadOnly = True
112 TabOrder = 9
113 ViewStyle = vsReport
114 end
115 object LabelTestName: TLabel
116 Left = 144
117 Height = 14
118 Top = 8
119 Width = 10
120 Caption = ' '
121 ParentColor = False
122 end
123 object Label1: TLabel
124 Left = 10
125 Height = 14
126 Top = 408
127 Width = 62
128 Anchors = [akLeft, akBottom]
129 Caption = 'Benchmarks:'
130 ParentColor = False
131 end
132 object ButtonBenchmarkListPointer: TButton
133 Left = 8
134 Height = 24
135 Top = 488
136 Width = 128
137 Anchors = [akLeft, akBottom]
138 Caption = 'TListPointer'
139 OnClick = ButtonBenchmarkListPointerClick
140 TabOrder = 10
141 end
142 object ButtonStreamByte: TButton
143 Left = 10
144 Height = 25
145 Top = 224
146 Width = 128
147 Caption = 'TMemoryStreamByte'
148 OnClick = ButtonStreamByteClick
149 TabOrder = 11
150 end
151end
Note: See TracBrowser for help on using the repository browser.