source: trunk/Forms/FormMain.lfm

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