source: branches/generator/Forms/UFormMain.lfm

Last change on this file was 191, checked in by chronos, 6 years ago
  • Added: Interface language selection in Settings dialog.
File size: 6.5 KB
Line 
1object FormMain: TFormMain
2 Left = 376
3 Height = 814
4 Top = 202
5 Width = 1260
6 Caption = 'Language generator'
7 ClientHeight = 780
8 ClientWidth = 1260
9 DesignTimePPI = 144
10 Menu = MainMenu1
11 OnClose = FormClose
12 OnCloseQuery = FormCloseQuery
13 OnShow = FormShow
14 LCLVersion = '2.0.2.0'
15 WindowState = wsMaximized
16 object CoolBar1: TCoolBar
17 Left = 0
18 Height = 42
19 Top = 0
20 Width = 1260
21 Bands = <
22 item
23 Control = ToolBar1
24 Width = 179
25 end>
26 Images = Core.ImageList1
27 ParentFont = False
28 object ToolBar1: TToolBar
29 AnchorSideLeft.Control = CoolBar1
30 AnchorSideTop.Control = CoolBar1
31 Left = 24
32 Height = 33
33 Top = 5
34 Width = 237
35 Align = alNone
36 AutoSize = True
37 BorderSpacing.Left = 22
38 BorderSpacing.Top = 3
39 EdgeInner = esNone
40 EdgeOuter = esNone
41 Images = Core.ImageList1
42 ParentFont = False
43 ParentShowHint = False
44 ShowHint = True
45 TabOrder = 0
46 Transparent = True
47 object ToolButton2: TToolButton
48 Left = 167
49 Top = 0
50 Action = ABuildCompiler
51 end
52 object ToolButton3: TToolButton
53 Left = 1
54 Top = 0
55 Action = AProjectNew
56 end
57 object ToolButton4: TToolButton
58 Left = 36
59 Top = 0
60 Action = AProjectOpen
61 DropdownMenu = PopupMenuOpenRecent
62 Style = tbsDropDown
63 end
64 object ToolButton5: TToolButton
65 Left = 89
66 Top = 0
67 Action = AProjectSave
68 end
69 object ToolButton6: TToolButton
70 Left = 159
71 Height = 33
72 Top = 0
73 Style = tbsSeparator
74 end
75 object ToolButton1: TToolButton
76 Left = 124
77 Top = 0
78 Action = AGrammerSettings
79 end
80 object ToolButton7: TToolButton
81 Left = 202
82 Top = 0
83 Action = ALookupTables
84 end
85 end
86 end
87 object PageControl1: TPageControl
88 Left = 0
89 Height = 738
90 Top = 42
91 Width = 1260
92 ActivePage = TabSheetEbnf
93 Align = alClient
94 ParentFont = False
95 TabIndex = 2
96 TabOrder = 1
97 object TabSheetRules: TTabSheet
98 Caption = 'Rules'
99 ParentFont = False
100 end
101 object TabSheetBnf: TTabSheet
102 Caption = 'BNF'
103 ClientHeight = 698
104 ClientWidth = 1250
105 ParentFont = False
106 object MemoBnf: TMemo
107 Left = 0
108 Height = 571
109 Top = 0
110 Width = 1044
111 Align = alClient
112 ParentFont = False
113 ReadOnly = True
114 ScrollBars = ssAutoBoth
115 TabOrder = 0
116 end
117 end
118 object TabSheetEbnf: TTabSheet
119 Caption = 'EBNF'
120 ClientHeight = 698
121 ClientWidth = 1250
122 ParentFont = False
123 object MemoEbnf: TMemo
124 Left = 0
125 Height = 698
126 Top = 0
127 Width = 1250
128 Align = alClient
129 ParentFont = False
130 ReadOnly = True
131 ScrollBars = ssAutoBoth
132 TabOrder = 0
133 end
134 end
135 end
136 object MainMenu1: TMainMenu
137 Images = Core.ImageList1
138 left = 365
139 top = 275
140 object MenuItem2: TMenuItem
141 Caption = 'File'
142 object MenuItem11: TMenuItem
143 Action = AProjectNew
144 end
145 object MenuItem4: TMenuItem
146 Action = AProjectOpen
147 end
148 object MenuItemRecent: TMenuItem
149 Caption = 'Open recent'
150 end
151 object MenuItem10: TMenuItem
152 Action = AProjectSave
153 end
154 object MenuItem5: TMenuItem
155 Action = AProjectSaveAs
156 end
157 object MenuItem13: TMenuItem
158 Action = AProjectClose
159 end
160 object MenuItem12: TMenuItem
161 Action = AGrammerSettings
162 end
163 object MenuItem6: TMenuItem
164 Caption = '-'
165 end
166 object MenuItem7: TMenuItem
167 Action = AExit
168 end
169 end
170 object MenuItem8: TMenuItem
171 Caption = 'Grammer'
172 object MenuItem9: TMenuItem
173 Action = ABuildCompiler
174 end
175 object MenuItem3: TMenuItem
176 Action = ALookupTables
177 end
178 end
179 object MenuItem1: TMenuItem
180 Caption = 'View'
181 object MenuItemToolbar: TMenuItem
182 Action = AToolbarVisible
183 AutoCheck = True
184 end
185 end
186 object MenuItem14: TMenuItem
187 Caption = 'Tools'
188 object MenuItem15: TMenuItem
189 Action = ASettings
190 end
191 end
192 end
193 object ActionList1: TActionList
194 Images = Core.ImageList1
195 left = 514
196 top = 275
197 object ARules: TAction
198 Caption = 'Rules'
199 Hint = 'Rules'
200 ImageIndex = 8
201 OnExecute = ARulesExecute
202 end
203 object AExit: TAction
204 Caption = 'Exit'
205 Hint = 'Exit'
206 ImageIndex = 2
207 OnExecute = AExitExecute
208 end
209 object AProjectOpen: TAction
210 Caption = 'Open...'
211 Hint = 'Open...'
212 ImageIndex = 4
213 OnExecute = AProjectOpenExecute
214 end
215 object AProjectOpenRecent: TAction
216 Caption = 'Open recent'
217 OnExecute = AProjectOpenRecentExecute
218 end
219 object AProjectSaveAs: TAction
220 Caption = 'Save as...'
221 Hint = 'Save as...'
222 ImageIndex = 5
223 OnExecute = AProjectSaveAsExecute
224 end
225 object AProjectSave: TAction
226 Caption = 'Save'
227 ImageIndex = 5
228 OnExecute = AProjectSaveExecute
229 end
230 object AProjectNew: TAction
231 Caption = 'New'
232 ImageIndex = 10
233 OnExecute = AProjectNewExecute
234 end
235 object AProjectClose: TAction
236 Caption = 'Close'
237 OnExecute = AProjectCloseExecute
238 end
239 object AGrammerSettings: TAction
240 Caption = 'Grammer settings'
241 ImageIndex = 3
242 OnExecute = AGrammerSettingsExecute
243 end
244 object ABuildCompiler: TAction
245 Caption = 'Build compiler'
246 ImageIndex = 9
247 OnExecute = ABuildCompilerExecute
248 end
249 object AToolbarVisible: TAction
250 AutoCheck = True
251 Caption = 'Toolbar'
252 OnExecute = AToolbarVisibleExecute
253 end
254 object ALookupTables: TAction
255 Caption = 'Lookup tables'
256 ImageIndex = 8
257 OnExecute = ALookupTablesExecute
258 end
259 object ASettings: TAction
260 Caption = 'Settings'
261 OnExecute = ASettingsExecute
262 end
263 end
264 object OpenDialog1: TOpenDialog
265 DefaultExt = '.grm'
266 Filter = 'Grammer (.grm)|*.grm|All files|*.*'
267 left = 898
268 top = 226
269 end
270 object SaveDialog1: TSaveDialog
271 DefaultExt = '.grm'
272 Filter = 'Grammer (.grm)|*.grm|All files|*.*'
273 left = 704
274 top = 497
275 end
276 object LastOpenedList1: TLastOpenedList
277 MaxCount = 10
278 OnChange = LastOpenedList1Change
279 left = 186
280 top = 157
281 end
282 object PopupMenuOpenRecent: TPopupMenu
283 left = 179
284 top = 281
285 end
286end
Note: See TracBrowser for help on using the repository browser.