source: trunk/Forms/UFormTargetCode.lfm@ 136

Last change on this file since 136 was 106, checked in by chronos, 6 years ago
  • Added: TargetCode form use SynEdit for syntax highlighting.
  • Fixed: Do not show error if specific target doesn't have assigned compiler. Not all targets use compiler. Some of them are just interpreted.
File size: 11.8 KB
Line 
1object FormTargetCode: TFormTargetCode
2 Left = 555
3 Height = 435
4 Top = 379
5 Width = 612
6 Caption = 'Target code'
7 ClientHeight = 435
8 ClientWidth = 612
9 DesignTimePPI = 120
10 LCLVersion = '2.0.2.0'
11 inline SynEditTarget: TSynEdit
12 Left = 0
13 Height = 435
14 Top = 0
15 Width = 612
16 Align = alClient
17 Font.Height = -13
18 Font.Name = 'Courier New'
19 Font.Pitch = fpFixed
20 Font.Quality = fqNonAntialiased
21 ParentColor = False
22 ParentFont = False
23 PopupMenu = PopupMenuTarget
24 TabOrder = 0
25 Gutter.Width = 68
26 Gutter.MouseActions = <>
27 RightGutter.Width = 0
28 RightGutter.MouseActions = <>
29 Keystrokes = <
30 item
31 Command = ecUp
32 ShortCut = 38
33 end
34 item
35 Command = ecSelUp
36 ShortCut = 8230
37 end
38 item
39 Command = ecScrollUp
40 ShortCut = 16422
41 end
42 item
43 Command = ecDown
44 ShortCut = 40
45 end
46 item
47 Command = ecSelDown
48 ShortCut = 8232
49 end
50 item
51 Command = ecScrollDown
52 ShortCut = 16424
53 end
54 item
55 Command = ecLeft
56 ShortCut = 37
57 end
58 item
59 Command = ecSelLeft
60 ShortCut = 8229
61 end
62 item
63 Command = ecWordLeft
64 ShortCut = 16421
65 end
66 item
67 Command = ecSelWordLeft
68 ShortCut = 24613
69 end
70 item
71 Command = ecRight
72 ShortCut = 39
73 end
74 item
75 Command = ecSelRight
76 ShortCut = 8231
77 end
78 item
79 Command = ecWordRight
80 ShortCut = 16423
81 end
82 item
83 Command = ecSelWordRight
84 ShortCut = 24615
85 end
86 item
87 Command = ecPageDown
88 ShortCut = 34
89 end
90 item
91 Command = ecSelPageDown
92 ShortCut = 8226
93 end
94 item
95 Command = ecPageBottom
96 ShortCut = 16418
97 end
98 item
99 Command = ecSelPageBottom
100 ShortCut = 24610
101 end
102 item
103 Command = ecPageUp
104 ShortCut = 33
105 end
106 item
107 Command = ecSelPageUp
108 ShortCut = 8225
109 end
110 item
111 Command = ecPageTop
112 ShortCut = 16417
113 end
114 item
115 Command = ecSelPageTop
116 ShortCut = 24609
117 end
118 item
119 Command = ecLineStart
120 ShortCut = 36
121 end
122 item
123 Command = ecSelLineStart
124 ShortCut = 8228
125 end
126 item
127 Command = ecEditorTop
128 ShortCut = 16420
129 end
130 item
131 Command = ecSelEditorTop
132 ShortCut = 24612
133 end
134 item
135 Command = ecLineEnd
136 ShortCut = 35
137 end
138 item
139 Command = ecSelLineEnd
140 ShortCut = 8227
141 end
142 item
143 Command = ecEditorBottom
144 ShortCut = 16419
145 end
146 item
147 Command = ecSelEditorBottom
148 ShortCut = 24611
149 end
150 item
151 Command = ecToggleMode
152 ShortCut = 45
153 end
154 item
155 Command = ecCopy
156 ShortCut = 16429
157 end
158 item
159 Command = ecPaste
160 ShortCut = 8237
161 end
162 item
163 Command = ecDeleteChar
164 ShortCut = 46
165 end
166 item
167 Command = ecCut
168 ShortCut = 8238
169 end
170 item
171 Command = ecDeleteLastChar
172 ShortCut = 8
173 end
174 item
175 Command = ecDeleteLastChar
176 ShortCut = 8200
177 end
178 item
179 Command = ecDeleteLastWord
180 ShortCut = 16392
181 end
182 item
183 Command = ecUndo
184 ShortCut = 32776
185 end
186 item
187 Command = ecRedo
188 ShortCut = 40968
189 end
190 item
191 Command = ecLineBreak
192 ShortCut = 13
193 end
194 item
195 Command = ecSelectAll
196 ShortCut = 16449
197 end
198 item
199 Command = ecCopy
200 ShortCut = 16451
201 end
202 item
203 Command = ecBlockIndent
204 ShortCut = 24649
205 end
206 item
207 Command = ecLineBreak
208 ShortCut = 16461
209 end
210 item
211 Command = ecInsertLine
212 ShortCut = 16462
213 end
214 item
215 Command = ecDeleteWord
216 ShortCut = 16468
217 end
218 item
219 Command = ecBlockUnindent
220 ShortCut = 24661
221 end
222 item
223 Command = ecPaste
224 ShortCut = 16470
225 end
226 item
227 Command = ecCut
228 ShortCut = 16472
229 end
230 item
231 Command = ecDeleteLine
232 ShortCut = 16473
233 end
234 item
235 Command = ecDeleteEOL
236 ShortCut = 24665
237 end
238 item
239 Command = ecUndo
240 ShortCut = 16474
241 end
242 item
243 Command = ecRedo
244 ShortCut = 24666
245 end
246 item
247 Command = ecGotoMarker0
248 ShortCut = 16432
249 end
250 item
251 Command = ecGotoMarker1
252 ShortCut = 16433
253 end
254 item
255 Command = ecGotoMarker2
256 ShortCut = 16434
257 end
258 item
259 Command = ecGotoMarker3
260 ShortCut = 16435
261 end
262 item
263 Command = ecGotoMarker4
264 ShortCut = 16436
265 end
266 item
267 Command = ecGotoMarker5
268 ShortCut = 16437
269 end
270 item
271 Command = ecGotoMarker6
272 ShortCut = 16438
273 end
274 item
275 Command = ecGotoMarker7
276 ShortCut = 16439
277 end
278 item
279 Command = ecGotoMarker8
280 ShortCut = 16440
281 end
282 item
283 Command = ecGotoMarker9
284 ShortCut = 16441
285 end
286 item
287 Command = ecSetMarker0
288 ShortCut = 24624
289 end
290 item
291 Command = ecSetMarker1
292 ShortCut = 24625
293 end
294 item
295 Command = ecSetMarker2
296 ShortCut = 24626
297 end
298 item
299 Command = ecSetMarker3
300 ShortCut = 24627
301 end
302 item
303 Command = ecSetMarker4
304 ShortCut = 24628
305 end
306 item
307 Command = ecSetMarker5
308 ShortCut = 24629
309 end
310 item
311 Command = ecSetMarker6
312 ShortCut = 24630
313 end
314 item
315 Command = ecSetMarker7
316 ShortCut = 24631
317 end
318 item
319 Command = ecSetMarker8
320 ShortCut = 24632
321 end
322 item
323 Command = ecSetMarker9
324 ShortCut = 24633
325 end
326 item
327 Command = EcFoldLevel1
328 ShortCut = 41009
329 end
330 item
331 Command = EcFoldLevel2
332 ShortCut = 41010
333 end
334 item
335 Command = EcFoldLevel3
336 ShortCut = 41011
337 end
338 item
339 Command = EcFoldLevel4
340 ShortCut = 41012
341 end
342 item
343 Command = EcFoldLevel5
344 ShortCut = 41013
345 end
346 item
347 Command = EcFoldLevel6
348 ShortCut = 41014
349 end
350 item
351 Command = EcFoldLevel7
352 ShortCut = 41015
353 end
354 item
355 Command = EcFoldLevel8
356 ShortCut = 41016
357 end
358 item
359 Command = EcFoldLevel9
360 ShortCut = 41017
361 end
362 item
363 Command = EcFoldLevel0
364 ShortCut = 41008
365 end
366 item
367 Command = EcFoldCurrent
368 ShortCut = 41005
369 end
370 item
371 Command = EcUnFoldCurrent
372 ShortCut = 41003
373 end
374 item
375 Command = EcToggleMarkupWord
376 ShortCut = 32845
377 end
378 item
379 Command = ecNormalSelect
380 ShortCut = 24654
381 end
382 item
383 Command = ecColumnSelect
384 ShortCut = 24643
385 end
386 item
387 Command = ecLineSelect
388 ShortCut = 24652
389 end
390 item
391 Command = ecTab
392 ShortCut = 9
393 end
394 item
395 Command = ecShiftTab
396 ShortCut = 8201
397 end
398 item
399 Command = ecMatchBracket
400 ShortCut = 24642
401 end
402 item
403 Command = ecColSelUp
404 ShortCut = 40998
405 end
406 item
407 Command = ecColSelDown
408 ShortCut = 41000
409 end
410 item
411 Command = ecColSelLeft
412 ShortCut = 40997
413 end
414 item
415 Command = ecColSelRight
416 ShortCut = 40999
417 end
418 item
419 Command = ecColSelPageDown
420 ShortCut = 40994
421 end
422 item
423 Command = ecColSelPageBottom
424 ShortCut = 57378
425 end
426 item
427 Command = ecColSelPageUp
428 ShortCut = 40993
429 end
430 item
431 Command = ecColSelPageTop
432 ShortCut = 57377
433 end
434 item
435 Command = ecColSelLineStart
436 ShortCut = 40996
437 end
438 item
439 Command = ecColSelLineEnd
440 ShortCut = 40995
441 end
442 item
443 Command = ecColSelEditorTop
444 ShortCut = 57380
445 end
446 item
447 Command = ecColSelEditorBottom
448 ShortCut = 57379
449 end>
450 MouseActions = <>
451 MouseTextActions = <>
452 MouseSelActions = <>
453 VisibleSpecialChars = [vscSpace, vscTabAtLast]
454 SelectedColor.BackPriority = 50
455 SelectedColor.ForePriority = 50
456 SelectedColor.FramePriority = 50
457 SelectedColor.BoldPriority = 50
458 SelectedColor.ItalicPriority = 50
459 SelectedColor.UnderlinePriority = 50
460 SelectedColor.StrikeOutPriority = 50
461 BracketHighlightStyle = sbhsBoth
462 BracketMatchColor.Background = clNone
463 BracketMatchColor.Foreground = clNone
464 BracketMatchColor.Style = [fsBold]
465 FoldedCodeColor.Background = clNone
466 FoldedCodeColor.Foreground = clGray
467 FoldedCodeColor.FrameColor = clGray
468 MouseLinkColor.Background = clNone
469 MouseLinkColor.Foreground = clBlue
470 LineHighlightColor.Background = clNone
471 LineHighlightColor.Foreground = clNone
472 inline SynLeftGutterPartList1: TSynGutterPartList
473 object SynGutterMarks1: TSynGutterMarks
474 Width = 30
475 MouseActions = <>
476 end
477 object SynGutterLineNumber1: TSynGutterLineNumber
478 Width = 17
479 MouseActions = <>
480 MarkupInfo.Background = clBtnFace
481 MarkupInfo.Foreground = clNone
482 DigitCount = 2
483 ShowOnlyLineNumbersMultiplesOf = 1
484 ZeroStart = False
485 LeadingZeros = False
486 end
487 object SynGutterChanges1: TSynGutterChanges
488 Width = 5
489 MouseActions = <>
490 ModifiedColor = 59900
491 SavedColor = clGreen
492 end
493 object SynGutterSeparator1: TSynGutterSeparator
494 Width = 3
495 MouseActions = <>
496 MarkupInfo.Background = clWhite
497 MarkupInfo.Foreground = clGray
498 end
499 object SynGutterCodeFolding1: TSynGutterCodeFolding
500 Width = 13
501 MouseActions = <>
502 MarkupInfo.Background = clNone
503 MarkupInfo.Foreground = clGray
504 MouseActionsExpanded = <>
505 MouseActionsCollapsed = <>
506 end
507 end
508 end
509 object PopupMenuTarget: TPopupMenu
510 Images = Core.ImageListMain
511 left = 84
512 top = 100
513 object MenuItem20: TMenuItem
514 Action = AFormatCode
515 end
516 object MenuItem1: TMenuItem
517 Action = AShrinkCode
518 end
519 end
520 object ActionList1: TActionList
521 Images = Core.ImageListMain
522 left = 199
523 top = 39
524 object AFormatCode: TAction
525 Caption = 'Format code'
526 OnExecute = AFormatCodeExecute
527 end
528 object AShrinkCode: TAction
529 Caption = 'Shrink code'
530 OnExecute = AShrinkCodeExecute
531 end
532 end
533end
Note: See TracBrowser for help on using the repository browser.