1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
object EditorSite: TEditorSite
Left = 354
Height = 300
Top = 156
Width = 400
Caption = 'EditorSite'
Menu = MainMenu1
OnActivate = FormActivate
OnCreate = FormCreate
OnDeactivate = FormDeactivate
OnHide = FormHide
OnResize = FormResize
OnWindowStateChange = FormWindowStateChange
LCLVersion = '0.9.29'
object MainMenu1: TMainMenu
left = 240
top = 48
object mnFile: TMenuItem
Caption = '&File'
object mnOpen: TMenuItem
Caption = '&Open'
OnClick = mnOpenClick
end
object MenuItem1: TMenuItem
Caption = '-'
end
object mnExit: TMenuItem
Caption = 'E&xit'
OnClick = mnExitClick
end
end
object mnView: TMenuItem
Caption = '&View'
object MenuItem2: TMenuItem
Caption = 'Object Inspector'
OnClick = ViewMenuClick
end
object MenuItem3: TMenuItem
Caption = 'Messages'
OnClick = ViewMenuClick
end
object MenuItem4: TMenuItem
Caption = 'Code Explorer'
OnClick = ViewMenuClick
end
object MenuItem5: TMenuItem
Caption = 'ToDo List'
OnClick = ViewMenuClick
end
object MenuItem6: TMenuItem
Caption = 'Debug windows'
object MenuItem7: TMenuItem
Caption = 'Watches'
OnClick = ViewMenuClick
end
object MenuItem8: TMenuItem
Caption = 'BreakPoints'
OnClick = ViewMenuClick
end
object MenuItem9: TMenuItem
Caption = 'Local Variables'
OnClick = ViewMenuClick
end
object MenuItem10: TMenuItem
Caption = 'Registers'
OnClick = ViewMenuClick
end
object MenuItem11: TMenuItem
Caption = 'Call Stack'
OnClick = ViewMenuClick
end
object MenuItem12: TMenuItem
Caption = 'Assembler'
OnClick = ViewMenuClick
end
object MenuItem13: TMenuItem
Caption = 'Debug Output'
OnClick = ViewMenuClick
end
end
end
object MenuItem14: TMenuItem
Caption = '&Windows'
object mnWindowDump: TMenuItem
Caption = '&Dump'
OnClick = mnWindowDumpClick
end
object mnMinimize: TMenuItem
Caption = 'Minimize all'
OnClick = mnMinimizeClick
end
object mnRestore: TMenuItem
Caption = 'Restore all'
OnClick = mnRestoreClick
end
end
end
object OpenDialog1: TOpenDialog
Filter = '*.pas|*.pas|All Files|*.*'
left = 309
top = 48
end
end
|
