-
Notifications
You must be signed in to change notification settings - Fork 77
/
C2Delphi.Forms.Main.dfm
290 lines (290 loc) · 6.86 KB
/
C2Delphi.Forms.Main.dfm
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
object frmMain: TfrmMain
Left = 0
Top = 0
Caption = 'C to Delphi'
ClientHeight = 834
ClientWidth = 1184
Color = clBtnFace
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 777
Top = 21
Width = 8
Height = 672
ResizeStyle = rsUpdate
ExplicitLeft = 1009
ExplicitTop = 77
ExplicitHeight = 671
end
object Splitter2: TSplitter
Left = 241
Top = 21
Width = 8
Height = 672
ResizeStyle = rsUpdate
ExplicitLeft = 162
ExplicitTop = -11
ExplicitHeight = 887
end
object Splitter3: TSplitter
Left = 0
Top = 710
Width = 1184
Height = 8
Cursor = crVSplit
Align = alBottom
ResizeStyle = rsUpdate
ExplicitLeft = 8
ExplicitTop = 939
ExplicitWidth = 1778
end
object SearchBox1: TSearchBox
Left = 0
Top = 0
Width = 1184
Height = 21
Align = alTop
TabOrder = 0
TextHint = 'Search'
OnChange = SearchBox1Change
end
object TreeView1: TTreeView
Left = 0
Top = 21
Width = 241
Height = 672
Align = alLeft
HideSelection = False
Indent = 19
ParentShowHint = False
ReadOnly = True
RowSelect = True
ShowHint = True
ShowRoot = False
TabOrder = 1
OnChange = TreeView1Change
OnCustomDrawItem = TreeView1CustomDrawItem
end
object ListBox1: TListBox
Left = 0
Top = 718
Width = 1184
Height = 97
Align = alBottom
ItemHeight = 13
TabOrder = 2
OnDblClick = ListBox1DblClick
end
object StatusBar1: TStatusBar
Left = 0
Top = 815
Width = 1184
Height = 19
Panels = <
item
Width = 50
end
item
Width = 100
end
item
Width = 500
end
item
Width = 50
end
item
Width = 50
end>
end
object ProgressBar1: TProgressBar
Left = 0
Top = 693
Width = 1184
Height = 17
Align = alBottom
Smooth = True
MarqueeInterval = 2
TabOrder = 4
end
object Panel1: TPanel
Left = 249
Top = 21
Width = 528
Height = 672
Align = alLeft
BevelOuter = bvNone
TabOrder = 5
object StatusBar3: TStatusBar
Left = 0
Top = 653
Width = 528
Height = 19
Panels = <
item
Width = 80
end
item
Width = 50
end>
end
object edCCode: TSynEdit
Left = 0
Top = 0
Width = 528
Height = 653
Align = alClient
Color = 2238503
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
TabOrder = 1
OnClick = edCCodeSelectionChanged
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Courier New'
Gutter.Font.Style = []
Gutter.Visible = False
Gutter.Width = 0
Highlighter = SynCppSyn1
Lines.Strings = (
'edCCode')
Options = [eoAltSetsColumnMode, eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoScrollPastEol, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces]
RightEdge = 0
OnChange = edCCodeChange
OnSpecialLineColors = edCCodeSpecialLineColors
FontSmoothing = fsmNone
ExplicitWidth = 312
end
end
object Panel2: TPanel
Left = 785
Top = 21
Width = 399
Height = 672
Align = alClient
BevelOuter = bvNone
TabOrder = 6
object StatusBar2: TStatusBar
Left = 0
Top = 653
Width = 399
Height = 19
Panels = <
item
Width = 80
end
item
Width = 50
end>
end
object edPascalCode: TSynEdit
Left = 0
Top = 0
Width = 399
Height = 653
Align = alClient
Color = 2238503
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
TabOrder = 1
OnClick = edPascalCodeClick
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Courier New'
Gutter.Font.Style = []
Gutter.Visible = False
Gutter.Width = 0
Highlighter = SynPasSyn1
Lines.Strings = (
'syndt1')
Options = [eoAltSetsColumnMode, eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoScrollPastEol, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces]
RightEdge = 0
OnSpecialLineColors = edPascalCodeSpecialLineColors
FontSmoothing = fsmNone
end
end
object ActionManager1: TActionManager
Left = 368
Top = 256
StyleName = 'Platform Default'
object Action1: TAction
Caption = '&Save'
ShortCut = 16467
OnExecute = Action1Execute
end
object actRun: TAction
Caption = 'Run'
ShortCut = 120
OnExecute = actRunExecute
end
end
object PopupMenu1: TPopupMenu
Left = 992
Top = 448
object Run1: TMenuItem
Action = actRun
end
end
object ApplicationEvents1: TApplicationEvents
OnException = ApplicationEvents1Exception
OnHint = ApplicationEvents1Hint
Left = 448
Top = 352
end
object SynCppSyn1: TSynCppSyn
Options.AutoDetectEnabled = False
Options.AutoDetectLineLimit = 0
Options.Visible = False
AsmAttri.Background = clBlack
AsmAttri.Foreground = clLime
CommentAttri.Background = 2238503
CommentAttri.Foreground = 9671571
IdentifierAttri.Foreground = clSilver
KeyAttri.Foreground = 7481081
NumberAttri.Foreground = 16744878
HexAttri.Foreground = 16744878
OctalAttri.Foreground = 16744878
StringAttri.Foreground = 7658470
CharAttri.Foreground = clLime
Left = 464
Top = 192
end
object SynPasSyn1: TSynPasSyn
Options.AutoDetectEnabled = False
Options.AutoDetectLineLimit = 0
Options.Visible = False
AsmAttri.Background = clBlack
AsmAttri.Foreground = clLime
CommentAttri.Background = 2238503
CommentAttri.Foreground = 9671571
IdentifierAttri.Foreground = clSilver
KeyAttri.Foreground = 7481081
NumberAttri.Foreground = 16744878
HexAttri.Foreground = 16744878
StringAttri.Foreground = 7658470
CharAttri.Foreground = clLime
Left = 912
Top = 160
end
end