-
Notifications
You must be signed in to change notification settings - Fork 6
/
mainform.lfm
295 lines (295 loc) · 6.59 KB
/
mainform.lfm
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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
object Form1: TForm1
Left = 583
Height = 840
Top = 239
Width = 939
Caption = 'Form1'
ClientHeight = 816
ClientWidth = 939
DesignTimePPI = 144
Menu = MainMenu1
OnClose = _onClose
OnCreate = _onCreate
object StatusBar1: TStatusBar
Left = 0
Height = 27
Top = 789
Width = 939
Panels = <>
end
object ToolBar1: TToolBar
Left = 0
Height = 35
Top = 0
Width = 939
AutoSize = True
ButtonHeight = 33
ButtonWidth = 34
Caption = 'ToolBar1'
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 1
object btnScan: TToolButton
Left = 166
Top = 2
Action = Scan
end
object btnGenerateFullGraph: TToolButton
Left = 261
Top = 2
Action = GenerateFullGraph
end
object btnImportLPI: TToolButton
Left = 1
Top = 2
Action = ImportLPI
end
object btnGenerateGML: TToolButton
Left = 450
Top = 2
Action = SaveGML
Visible = False
end
object btnOpenWebGraViz: TToolButton
Left = 700
Top = 2
Action = OpenWebGraphviz
end
object btnCodeExplorer: TToolButton
Left = 595
Top = 2
Action = CodeExplorer
end
object btnOpenDPR: TToolButton
Left = 88
Top = 2
Action = OpenDPR
end
object btnCheckCircularDependecies: TToolButton
Left = 209
Top = 2
Action = Check
end
object btnSave: TToolButton
Left = 407
Top = 2
Action = Save
end
object btnVizualize: TToolButton
Left = 524
Top = 2
Action = Vizualize
end
end
object Splitter1: TSplitter
Left = 450
Height = 754
Top = 35
Width = 6
end
object GDBobjinsp1: TGDBobjinsp
Left = 0
Height = 754
Top = 35
Width = 450
HorzScrollBar.Page = 1
VertScrollBar.Increment = 200
VertScrollBar.Page = 754
VertScrollBar.Range = 754
Align = alLeft
AutoScroll = False
BorderStyle = bsNone
TabOrder = 3
end
object PageControl1: TPageControl
Left = 456
Height = 754
Top = 35
Width = 483
ActivePage = TabReport
Align = alClient
TabIndex = 0
TabOrder = 4
object TabReport: TTabSheet
Caption = 'TabReport'
ClientHeight = 709
ClientWidth = 479
object Memo2: TMemo
Left = 0
Height = 709
Top = 0
Width = 479
Align = alClient
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object TabCircularGraph: TTabSheet
Caption = 'TabCircularGraph'
ClientHeight = 709
ClientWidth = 479
object Memo3: TMemo
Left = 0
Height = 709
Top = 0
Width = 479
Align = alClient
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object TabFullGraph: TTabSheet
Caption = 'TabFullGraph'
ClientHeight = 709
ClientWidth = 479
object Memo4: TMemo
Left = 0
Height = 709
Top = 0
Width = 479
Align = alClient
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object TabAll: TTabSheet
Caption = 'TabAll'
ClientHeight = 709
ClientWidth = 479
object Memo1: TMemo
Left = 0
Height = 709
Top = 0
Width = 479
Align = alClient
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
end
object ActionList1: TActionList
OnUpdate = ActionUpdate
Left = 581
Top = 41
object Scan: TAction
Caption = 'Scan'
Hint = 'Scan files'
OnExecute = _Scan
ShortCut = 16467
end
object GenerateFullGraph: TAction
Caption = 'Generate full graph'
Hint = 'Generate full graph'
OnExecute = _GenerateFullGraph
ShortCut = 113
end
object ImportLPI: TAction
Caption = 'Import LPI'
Hint = 'Import Lazarus project file'
OnExecute = _ImportLPI
end
object SaveGML: TAction
Caption = 'SaveGML'
Hint = 'Not implement yet'
OnExecute = _SaveGML
end
object OpenWebGraphviz: TAction
Caption = 'OpenWebGraphviz'
Hint = 'WebGraphViz'
OnExecute = _OpenWebGraphviz
end
object doExit: TAction
Caption = 'Exit'
Hint = 'Exit'
OnExecute = _Exit
SecondaryShortCuts.Strings = (
'Alt+X'
)
ShortCut = 16465
end
object CodeExplorer: TAction
Caption = 'CodeExplorer'
OnExecute = _CodeExplorer
end
object OpenDPR: TAction
Caption = 'OpenDPR'
OnExecute = _OpenDPR
end
object Check: TAction
Caption = 'Check'
Hint = 'Generate circular graph'
OnExecute = _Check
end
object Save: TAction
Caption = 'Save'
OnExecute = _SaveCurrentGraph
end
object Vizualize: TAction
Caption = 'Vizualize'
OnExecute = _Vizualize
end
object PrgOptsSave: TAction
Caption = 'Program options save'
OnExecute = _PrgOptsSave
end
object PrgOptsLoad: TAction
Caption = 'Program options load'
OnExecute = _PrgOptsLoad
end
object PrjOptsSave: TAction
Caption = 'Project options save'
OnExecute = _PrjOptsSave
end
object PrjOptsLoad: TAction
Caption = 'Project options load'
OnExecute = _PrjOptsLoad
end
end
object MainMenu1: TMainMenu
Left = 530
Top = 41
object mniFile: TMenuItem
Caption = 'File'
object MenuItem1: TMenuItem
Action = PrjOptsSave
end
object MenuItem2: TMenuItem
Action = PrjOptsLoad
end
object mniSeparator01: TMenuItem
Caption = '-'
end
object mniScan: TMenuItem
Action = Scan
end
object mniGenerate: TMenuItem
Action = GenerateFullGraph
end
object mniSeparator02: TMenuItem
Caption = '-'
end
object mniImportLPI: TMenuItem
Action = ImportLPI
end
object mniOpenDPR: TMenuItem
Action = OpenDPR
end
object mniSeparator03: TMenuItem
Caption = '-'
end
object MenuItem4: TMenuItem
Action = PrgOptsSave
end
object MenuItem3: TMenuItem
Action = PrgOptsLoad
end
object mniSeparator04: TMenuItem
Caption = '-'
end
object mniExit: TMenuItem
Action = doExit
end
end
end
end