-
Notifications
You must be signed in to change notification settings - Fork 3
Expand file tree
/
Copy pathMain.dfm
More file actions
304 lines (304 loc) · 7.53 KB
/
Copy pathMain.dfm
File metadata and controls
304 lines (304 loc) · 7.53 KB
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
296
297
298
299
300
301
302
303
304
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'D16IDE'
ClientHeight = 635
ClientWidth = 1184
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = MainMenu
OldCreateOrder = False
Position = poMainFormCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl: TJvPageControl
AlignWithMargins = True
Left = 3
Top = 29
Width = 1178
Height = 603
Align = alClient
TabOrder = 0
OnContextPopup = PageControlContextPopup
end
object ControlBar: TControlBar
Left = 0
Top = 0
Width = 1184
Height = 26
Align = alTop
AutoSize = True
BevelInner = bvNone
BevelKind = bkNone
DrawingStyle = dsGradient
TabOrder = 1
object tbRun: TToolBar
Left = 291
Top = 2
Width = 69
Height = 22
Align = alNone
Caption = 'ToolBar'
DisabledImages = IDEData.ToolBarDisabledImages
DrawingStyle = dsGradient
Images = IDEData.ToolBarImages
TabOrder = 0
object btnRun: TToolButton
Left = 0
Top = 0
Action = IDEActions.actRun
end
object btnPause: TToolButton
Left = 23
Top = 0
Action = IDEActions.actPause
end
object btnStop: TToolButton
Left = 46
Top = 0
Action = IDEActions.actStop
end
end
object tbDebug: TToolBar
Left = 373
Top = 2
Width = 69
Height = 22
AutoSize = True
Caption = 'tbDebug'
DisabledImages = IDEData.ToolBarDisabledImages
DrawingStyle = dsGradient
Images = IDEData.ToolBarImages
TabOrder = 1
object btnStep: TToolButton
Left = 0
Top = 0
Action = IDEActions.actStep
end
object btnStepOver: TToolButton
Left = 23
Top = 0
Action = IDEActions.actStepOver
end
object btnStepUntilReturn: TToolButton
Left = 46
Top = 0
Action = IDEActions.actStepUntilReturn
end
end
object tbFile: TToolBar
Left = 11
Top = 2
Width = 69
Height = 22
Caption = 'tbFile'
DisabledImages = IDEData.ToolBarDisabledImages
DrawingStyle = dsGradient
Images = IDEData.ToolBarImages
TabOrder = 2
object btnNewUnit: TToolButton
Left = 0
Top = 0
Action = IDEActions.actNewUnit
end
object btnSave: TToolButton
Left = 23
Top = 0
Action = IDEActions.actSaveActive
end
object btnSaveAll: TToolButton
Left = 46
Top = 0
Action = IDEActions.actSaveAll
end
end
object tbEdit: TToolBar
Left = 93
Top = 2
Width = 124
Height = 22
AutoSize = True
Caption = 'tbEdit'
DisabledImages = IDEData.ToolBarDisabledImages
DrawingStyle = dsGradient
Images = IDEData.ToolBarImages
TabOrder = 3
object ToolButton1: TToolButton
Left = 0
Top = 0
Action = IDEActions.actUndo
end
object ToolButton2: TToolButton
Left = 23
Top = 0
Action = IDEActions.actRedo
end
object ToolButton3: TToolButton
Left = 46
Top = 0
Width = 8
Caption = 'ToolButton3'
ImageIndex = 12
Style = tbsSeparator
end
object btnCopy: TToolButton
Left = 54
Top = 0
Action = IDEActions.actCopy
end
object btnCut: TToolButton
Left = 77
Top = 0
Action = IDEActions.actCut
end
object btnPaste: TToolButton
Left = 100
Top = 0
Action = IDEActions.actPaste
end
end
object tbSearch: TToolBar
Left = 230
Top = 2
Width = 48
Height = 22
Caption = 'tbSearch'
DisabledImages = IDEData.ToolBarDisabledImages
DrawingStyle = dsGradient
Images = IDEData.ToolBarImages
TabOrder = 4
object ToolButton4: TToolButton
Left = 0
Top = 0
Action = IDEActions.actFind
end
object ToolButton5: TToolButton
Left = 23
Top = 0
Action = IDEActions.actReplace
end
end
end
object MainMenu: TMainMenu
Left = 216
Top = 112
object File1: TMenuItem
Caption = 'File'
object New1: TMenuItem
Caption = 'New'
object miNewUnit: TMenuItem
Action = IDEActions.actNewUnit
end
object miNewProject: TMenuItem
Action = IDEActions.actNewProject
end
end
object miOpen: TMenuItem
Action = IDEActions.actOpenProject
end
object miSave: TMenuItem
Action = IDEActions.actSaveActive
end
object miSaveAs: TMenuItem
Action = IDEActions.actSaveActiveAs
end
object miSaveProjectAs: TMenuItem
Action = IDEActions.actSaveProjectAs
end
object miSaveAll: TMenuItem
Action = IDEActions.actSaveAll
end
object miExit: TMenuItem
Action = IDEActions.actExit
end
end
object Edit1: TMenuItem
Caption = 'Edit'
object Undo1: TMenuItem
Action = IDEActions.actUndo
end
object Redo1: TMenuItem
Action = IDEActions.actRedo
end
object Cut1: TMenuItem
Action = IDEActions.actCut
end
object Copy1: TMenuItem
Action = IDEActions.actCopy
end
object Paste1: TMenuItem
Action = IDEActions.actPaste
end
end
object Search1: TMenuItem
Caption = 'Search'
object Find1: TMenuItem
Action = IDEActions.actFind
end
object Replace1: TMenuItem
Action = IDEActions.actReplace
end
end
object btnView: TMenuItem
Caption = 'View'
end
object Project1: TMenuItem
Caption = 'Project'
object miCompile: TMenuItem
Action = IDEActions.actCompile
end
object miRun: TMenuItem
Action = IDEActions.actRun
end
object miStop: TMenuItem
Action = IDEActions.actStop
end
object miOptions: TMenuItem
Action = IDEActions.actProjectOptions
end
end
object Help1: TMenuItem
Caption = 'Help'
object btnCheckUpdates: TMenuItem
Action = IDEActions.actCheckForUpdates
end
object About1: TMenuItem
Action = IDEActions.actAbout
end
end
end
object SynCompletionProposal: TSynCompletionProposal
Options = [scoLimitToMatchedText, scoUseInsertList, scoUsePrettyText, scoUseBuiltInTimer, scoEndCharCompletion, scoCompleteWithTab, scoCompleteWithEnter]
Width = 480
EndOfTokenChr = '()[]. '
TriggerChars = '.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier'
Font.Style = []
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBtnText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
Columns = <
item
BiggestWord = 'CONSTRUCTOR'
end
item
BiggestWord = 'CONSTRUCTOR'
end>
OnExecute = SynCompletionProposalExecute
ShortCut = 16416
TimerInterval = 250
Left = 368
Top = 304
end
end