source: tags/1.0.0/Forms/UFormMain.lfm

Last change on this file was 91, checked in by chronos, 6 years ago
  • Added: Allow to enable individual code optimization from settings dialog.
  • Added: Actions to format or shrink target BF code.
File size: 12.1 KB
Line 
1object FormMain: TFormMain
2 Left = 405
3 Height = 586
4 Top = 226
5 Width = 860
6 Caption = 'LazFuck'
7 ClientHeight = 561
8 ClientWidth = 860
9 DesignTimePPI = 120
10 Menu = MainMenu1
11 OnClose = FormClose
12 OnCloseQuery = FormCloseQuery
13 OnCreate = FormCreate
14 OnDestroy = FormDestroy
15 OnShow = FormShow
16 LCLVersion = '1.8.2.0'
17 WindowState = wsMaximized
18 object StatusBarMain: TStatusBar
19 Left = 0
20 Height = 28
21 Top = 533
22 Width = 860
23 Panels = <
24 item
25 Width = 70
26 end
27 item
28 Width = 70
29 end
30 item
31 Width = 80
32 end>
33 SimplePanel = False
34 end
35 object ToolBarMain: TToolBar
36 Left = 0
37 Height = 26
38 Top = 0
39 Width = 860
40 Images = Core.ImageListMain
41 ParentShowHint = False
42 ShowHint = True
43 TabOrder = 1
44 object ToolButton1: TToolButton
45 Left = 1
46 Top = 2
47 Action = AProjectNew
48 end
49 object ToolButton2: TToolButton
50 Left = 30
51 Top = 2
52 Action = AProjectOpen
53 DropdownMenu = PopupMenuRecentFiles
54 Style = tbsDropDown
55 end
56 object ToolButton3: TToolButton
57 Left = 74
58 Top = 2
59 Action = AProjectSave
60 end
61 object ToolButton4: TToolButton
62 Left = 103
63 Top = 2
64 Action = AProjectClose
65 end
66 object ToolButton5: TToolButton
67 Left = 161
68 Height = 28
69 Top = 2
70 Style = tbsSeparator
71 end
72 object ToolButton6: TToolButton
73 Left = 198
74 Top = 2
75 Action = AProgramRun
76 end
77 object ToolButton7: TToolButton
78 Left = 169
79 Top = 2
80 Action = AProgramCompile
81 end
82 object ToolButton8: TToolButton
83 Left = 132
84 Top = 2
85 Action = AOptions
86 end
87 object ToolButton9: TToolButton
88 Left = 285
89 Top = 2
90 Action = ABreakpointToggle
91 end
92 object ToolButton10: TToolButton
93 Left = 227
94 Top = 2
95 Action = AProgramPause
96 end
97 object ToolButton11: TToolButton
98 Left = 256
99 Top = 2
100 Action = AProgramStop
101 end
102 object ToolButton12: TToolButton
103 Left = 314
104 Top = 2
105 Action = AProgramStepOver
106 end
107 object ToolButton13: TToolButton
108 Left = 343
109 Top = 2
110 Action = AProgramStepInto
111 end
112 object ToolButton14: TToolButton
113 Left = 372
114 Top = 2
115 Action = AProgramStepOut
116 end
117 object ToolButton15: TToolButton
118 Left = 401
119 Top = 2
120 Action = AProgramRunToCursor
121 end
122 object ToolButtonTarget: TToolButton
123 Left = 430
124 Hint = 'Target select'
125 Top = 2
126 Caption = 'Target select'
127 DropdownMenu = PopupMenuTargets
128 Style = tbsDropDown
129 end
130 end
131 object PageControlRight: TPageControl
132 Left = 467
133 Height = 507
134 Top = 26
135 Width = 393
136 ActivePage = TabSheetDebug
137 Align = alRight
138 TabIndex = 0
139 TabOrder = 2
140 TabPosition = tpRight
141 object TabSheetDebug: TTabSheet
142 Caption = 'Debug'
143 ClientHeight = 499
144 ClientWidth = 359
145 object PanelInput: TPanel
146 Left = 0
147 Height = 64
148 Top = 0
149 Width = 359
150 Align = alTop
151 BevelOuter = bvNone
152 TabOrder = 0
153 end
154 object Splitter3: TSplitter
155 Cursor = crVSplit
156 Left = 0
157 Height = 5
158 Top = 64
159 Width = 359
160 Align = alTop
161 ResizeAnchor = akTop
162 end
163 object PanelOutput: TPanel
164 Left = 0
165 Height = 259
166 Top = 69
167 Width = 359
168 Align = alTop
169 BevelOuter = bvNone
170 TabOrder = 2
171 end
172 object Splitter4: TSplitter
173 Cursor = crVSplit
174 Left = 0
175 Height = 5
176 Top = 328
177 Width = 359
178 Align = alTop
179 ResizeAnchor = akTop
180 end
181 object PanelCPU: TPanel
182 Left = 0
183 Height = 86
184 Top = 333
185 Width = 359
186 Align = alTop
187 BevelOuter = bvNone
188 TabOrder = 4
189 end
190 object Splitter5: TSplitter
191 Cursor = crVSplit
192 Left = 0
193 Height = 5
194 Top = 419
195 Width = 359
196 Align = alTop
197 ResizeAnchor = akTop
198 end
199 object PanelMemory: TPanel
200 Left = 0
201 Height = 75
202 Top = 424
203 Width = 359
204 Align = alClient
205 BevelOuter = bvNone
206 TabOrder = 6
207 end
208 end
209 end
210 object Splitter1: TSplitter
211 Left = 462
212 Height = 507
213 Top = 26
214 Width = 5
215 Align = alRight
216 ResizeAnchor = akRight
217 end
218 object PanelLeft: TPanel
219 Left = 0
220 Height = 507
221 Top = 26
222 Width = 462
223 Align = alClient
224 BevelOuter = bvNone
225 ClientHeight = 507
226 ClientWidth = 462
227 TabOrder = 4
228 object PageControlMain: TPageControl
229 Left = 0
230 Height = 384
231 Top = 0
232 Width = 462
233 ActivePage = TabSheetSource
234 Align = alClient
235 ParentFont = False
236 TabIndex = 0
237 TabOrder = 0
238 object TabSheetSource: TTabSheet
239 Caption = 'Source code'
240 end
241 object TabSheetTarget: TTabSheet
242 Caption = 'Target code'
243 end
244 end
245 object PageControlBottom: TPageControl
246 Left = 0
247 Height = 118
248 Top = 389
249 Width = 462
250 ActivePage = TabSheetMessages
251 Align = alBottom
252 TabIndex = 0
253 TabOrder = 1
254 TabPosition = tpBottom
255 object TabSheetMessages: TTabSheet
256 Caption = 'Messages'
257 end
258 end
259 object Splitter2: TSplitter
260 Cursor = crVSplit
261 Left = 0
262 Height = 5
263 Top = 384
264 Width = 462
265 Align = alBottom
266 ResizeAnchor = akBottom
267 end
268 end
269 object MainMenu1: TMainMenu
270 Images = Core.ImageListMain
271 left = 216
272 top = 136
273 object MenuItem1: TMenuItem
274 Caption = 'Project'
275 object MenuItem8: TMenuItem
276 Action = AProjectNew
277 end
278 object MenuItem2: TMenuItem
279 Action = AProjectOpen
280 end
281 object MenuItemOpenRecent: TMenuItem
282 Caption = 'Open recent'
283 end
284 object MenuItem3: TMenuItem
285 Action = AProjectSave
286 end
287 object MenuItem4: TMenuItem
288 Action = AProjectSaveAs
289 end
290 object MenuItem7: TMenuItem
291 Action = AProjectClose
292 end
293 object MenuItem5: TMenuItem
294 Caption = '-'
295 end
296 object MenuItem6: TMenuItem
297 Action = AExit
298 end
299 end
300 object MenuItem9: TMenuItem
301 Caption = 'Program'
302 object MenuItem11: TMenuItem
303 Action = AProgramCompile
304 end
305 object MenuItemTarget: TMenuItem
306 Caption = 'Target'
307 end
308 object MenuItem17: TMenuItem
309 Caption = '-'
310 end
311 object MenuItem12: TMenuItem
312 Action = AProgramRun
313 end
314 object MenuItem15: TMenuItem
315 Action = AProgramPause
316 end
317 object MenuItem16: TMenuItem
318 Action = AProgramStop
319 end
320 object MenuItem32: TMenuItem
321 Action = AProgramStepInto
322 end
323 object MenuItem33: TMenuItem
324 Action = AProgramStepOver
325 end
326 object MenuItem34: TMenuItem
327 Action = AProgramStepOut
328 end
329 object MenuItem35: TMenuItem
330 Action = AProgramRunToCursor
331 end
332 object MenuItem31: TMenuItem
333 Action = AProgramShowExecutionPoint
334 end
335 end
336 object MenuItem24: TMenuItem
337 Caption = 'Tools'
338 object MenuItem25: TMenuItem
339 Action = FormSourceCode.AFormatSource
340 end
341 object MenuItem27: TMenuItem
342 Action = FormSourceCode.AShrinkSource
343 end
344 object MenuItem28: TMenuItem
345 Action = FormSourceCode.AGenerateNumber
346 end
347 end
348 object MenuItem18: TMenuItem
349 Caption = 'View'
350 object MenuItem22: TMenuItem
351 Action = AOptions
352 end
353 object MenuItem19: TMenuItem
354 Action = AViewLog
355 end
356 object MenuItem30: TMenuItem
357 Action = AViewCompilers
358 end
359 end
360 object MenuItem10: TMenuItem
361 Caption = 'Help'
362 object MenuItem13: TMenuItem
363 Action = AHelp
364 end
365 object MenuItem14: TMenuItem
366 Action = AAbout
367 end
368 end
369 end
370 object ActionList1: TActionList
371 Images = Core.ImageListMain
372 left = 216
373 top = 192
374 object AProjectOpen: TAction
375 Category = 'Project'
376 Caption = 'Open'
377 ImageIndex = 7
378 OnExecute = AProjectOpenExecute
379 ShortCut = 16463
380 end
381 object AProjectSave: TAction
382 Category = 'Project'
383 Caption = 'Save'
384 ImageIndex = 0
385 OnExecute = AProjectSaveExecute
386 ShortCut = 16467
387 end
388 object AProjectClose: TAction
389 Category = 'Project'
390 Caption = 'Close'
391 ImageIndex = 4
392 OnExecute = AProjectCloseExecute
393 ShortCut = 16465
394 end
395 object AProjectSaveAs: TAction
396 Category = 'Project'
397 Caption = 'Save as...'
398 ImageIndex = 0
399 OnExecute = AProjectSaveAsExecute
400 ShortCut = 24659
401 end
402 object AProjectNew: TAction
403 Category = 'Project'
404 Caption = 'New'
405 ImageIndex = 9
406 OnExecute = AProjectNewExecute
407 ShortCut = 16462
408 end
409 object AExit: TAction
410 Caption = 'Exit'
411 ImageIndex = 5
412 OnExecute = AExitExecute
413 ShortCut = 32883
414 end
415 object AProgramCompile: TAction
416 Category = 'Program'
417 Caption = 'Compile'
418 ImageIndex = 8
419 OnExecute = AProgramCompileExecute
420 ShortCut = 16504
421 end
422 object AProgramRun: TAction
423 Category = 'Program'
424 Caption = 'Run'
425 ImageIndex = 1
426 OnExecute = AProgramRunExecute
427 ShortCut = 120
428 end
429 object AAbout: TAction
430 Caption = 'About'
431 OnExecute = AAboutExecute
432 end
433 object AHelp: TAction
434 Caption = 'Help'
435 ImageIndex = 6
436 end
437 object AProgramPause: TAction
438 Category = 'Program'
439 Caption = 'Pause'
440 ImageIndex = 11
441 OnExecute = AProgramPauseExecute
442 end
443 object AProgramStop: TAction
444 Category = 'Program'
445 Caption = 'Stop'
446 ImageIndex = 10
447 OnExecute = AProgramStopExecute
448 ShortCut = 16497
449 end
450 object AProgramStepInto: TAction
451 Category = 'Program'
452 Caption = 'Step into'
453 ImageIndex = 15
454 OnExecute = AProgramStepIntoExecute
455 ShortCut = 118
456 end
457 object AProgramStepOver: TAction
458 Category = 'Program'
459 Caption = 'Step over'
460 ImageIndex = 17
461 OnExecute = AProgramStepOverExecute
462 ShortCut = 119
463 end
464 object AProgramRunToCursor: TAction
465 Category = 'Program'
466 Caption = 'Run to cursor'
467 ImageIndex = 14
468 OnExecute = AProgramRunToCursorExecute
469 ShortCut = 115
470 end
471 object AProgramStepOut: TAction
472 Category = 'Program'
473 Caption = 'Step out'
474 ImageIndex = 16
475 OnExecute = AProgramStepOutExecute
476 ShortCut = 8311
477 end
478 object ABreakpointToggle: TAction
479 Caption = 'Toggle breakpoint'
480 ImageIndex = 12
481 OnExecute = ABreakpointToggleExecute
482 end
483 object AOptions: TAction
484 Category = 'View'
485 Caption = 'Options'
486 ImageIndex = 2
487 OnExecute = AOptionsExecute
488 end
489 object AViewCompilers: TAction
490 Category = 'View'
491 Caption = 'Compilers'
492 OnExecute = AViewCompilersExecute
493 end
494 object AShowTargetPosition: TAction
495 Caption = 'Show position in target'
496 OnExecute = AShowTargetPositionExecute
497 ShortCut = 16393
498 end
499 object AShowSourcePosition: TAction
500 Caption = 'Show position in source'
501 OnExecute = AShowSourcePositionExecute
502 ShortCut = 16393
503 end
504 object AProgramShowExecutionPoint: TAction
505 Category = 'Program'
506 Caption = 'Show execution point'
507 OnExecute = AProgramShowExecutionPointExecute
508 end
509 object AViewLog: TAction
510 Category = 'View'
511 Caption = 'Log'
512 OnExecute = AViewLogExecute
513 end
514 end
515 object OpenDialog1: TOpenDialog
516 DefaultExt = '.b'
517 Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
518 left = 56
519 top = 184
520 end
521 object SaveDialog1: TSaveDialog
522 DefaultExt = '.b'
523 Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
524 left = 56
525 top = 240
526 end
527 object TimerRefresh: TTimer
528 OnTimer = TimerRefreshTimer
529 left = 56
530 top = 296
531 end
532 object PopupMenuRecentFiles: TPopupMenu
533 left = 56
534 top = 64
535 end
536 object PopupMenuTargets: TPopupMenu
537 Images = Core.ImageListMain
538 left = 56
539 top = 119
540 end
541end
Note: See TracBrowser for help on using the repository browser.