source: trunk/IDE/Forms/FormSourceCode.lfm

Last change on this file was 75, checked in by chronos, 6 months ago
  • Modified: Removed U prefix from unit names.
  • Modified: Updated Common package.
File size: 14.1 KB
Line 
1object FormSourceCode: TFormSourceCode
2 Left = 353
3 Height = 426
4 Top = 97
5 Width = 535
6 Caption = 'Source code'
7 ClientHeight = 426
8 ClientWidth = 535
9 LCLVersion = '1.1'
10 inline SynEditSource: TSynEdit
11 Left = 0
12 Height = 426
13 Top = 0
14 Width = 535
15 Align = alClient
16 Font.Height = -13
17 Font.Name = 'Courier New'
18 Font.Pitch = fpFixed
19 Font.Quality = fqNonAntialiased
20 ParentColor = False
21 ParentFont = False
22 TabOrder = 0
23 Gutter.Width = 57
24 Gutter.MouseActions = <
25 item
26 ClickCount = ccAny
27 ClickDir = cdDown
28 Command = emcOnMainGutterClick
29 end
30 item
31 Button = mbRight
32 Command = emcContextMenu
33 end>
34 RightGutter.Width = 0
35 RightGutter.MouseActions = <
36 item
37 ClickCount = ccAny
38 ClickDir = cdDown
39 Command = emcOnMainGutterClick
40 end
41 item
42 Button = mbRight
43 Command = emcContextMenu
44 end>
45 Highlighter = SynPasSyn1
46 Keystrokes = <
47 item
48 Command = ecUp
49 ShortCut = 38
50 end
51 item
52 Command = ecSelUp
53 ShortCut = 8230
54 end
55 item
56 Command = ecScrollUp
57 ShortCut = 16422
58 end
59 item
60 Command = ecDown
61 ShortCut = 40
62 end
63 item
64 Command = ecSelDown
65 ShortCut = 8232
66 end
67 item
68 Command = ecScrollDown
69 ShortCut = 16424
70 end
71 item
72 Command = ecLeft
73 ShortCut = 37
74 end
75 item
76 Command = ecSelLeft
77 ShortCut = 8229
78 end
79 item
80 Command = ecWordLeft
81 ShortCut = 16421
82 end
83 item
84 Command = ecSelWordLeft
85 ShortCut = 24613
86 end
87 item
88 Command = ecRight
89 ShortCut = 39
90 end
91 item
92 Command = ecSelRight
93 ShortCut = 8231
94 end
95 item
96 Command = ecWordRight
97 ShortCut = 16423
98 end
99 item
100 Command = ecSelWordRight
101 ShortCut = 24615
102 end
103 item
104 Command = ecPageDown
105 ShortCut = 34
106 end
107 item
108 Command = ecSelPageDown
109 ShortCut = 8226
110 end
111 item
112 Command = ecPageBottom
113 ShortCut = 16418
114 end
115 item
116 Command = ecSelPageBottom
117 ShortCut = 24610
118 end
119 item
120 Command = ecPageUp
121 ShortCut = 33
122 end
123 item
124 Command = ecSelPageUp
125 ShortCut = 8225
126 end
127 item
128 Command = ecPageTop
129 ShortCut = 16417
130 end
131 item
132 Command = ecSelPageTop
133 ShortCut = 24609
134 end
135 item
136 Command = ecLineStart
137 ShortCut = 36
138 end
139 item
140 Command = ecSelLineStart
141 ShortCut = 8228
142 end
143 item
144 Command = ecEditorTop
145 ShortCut = 16420
146 end
147 item
148 Command = ecSelEditorTop
149 ShortCut = 24612
150 end
151 item
152 Command = ecLineEnd
153 ShortCut = 35
154 end
155 item
156 Command = ecSelLineEnd
157 ShortCut = 8227
158 end
159 item
160 Command = ecEditorBottom
161 ShortCut = 16419
162 end
163 item
164 Command = ecSelEditorBottom
165 ShortCut = 24611
166 end
167 item
168 Command = ecToggleMode
169 ShortCut = 45
170 end
171 item
172 Command = ecCopy
173 ShortCut = 16429
174 end
175 item
176 Command = ecPaste
177 ShortCut = 8237
178 end
179 item
180 Command = ecDeleteChar
181 ShortCut = 46
182 end
183 item
184 Command = ecCut
185 ShortCut = 8238
186 end
187 item
188 Command = ecDeleteLastChar
189 ShortCut = 8
190 end
191 item
192 Command = ecDeleteLastChar
193 ShortCut = 8200
194 end
195 item
196 Command = ecDeleteLastWord
197 ShortCut = 16392
198 end
199 item
200 Command = ecUndo
201 ShortCut = 32776
202 end
203 item
204 Command = ecRedo
205 ShortCut = 40968
206 end
207 item
208 Command = ecLineBreak
209 ShortCut = 13
210 end
211 item
212 Command = ecSelectAll
213 ShortCut = 16449
214 end
215 item
216 Command = ecCopy
217 ShortCut = 16451
218 end
219 item
220 Command = ecBlockIndent
221 ShortCut = 24649
222 end
223 item
224 Command = ecLineBreak
225 ShortCut = 16461
226 end
227 item
228 Command = ecInsertLine
229 ShortCut = 16462
230 end
231 item
232 Command = ecDeleteWord
233 ShortCut = 16468
234 end
235 item
236 Command = ecBlockUnindent
237 ShortCut = 24661
238 end
239 item
240 Command = ecPaste
241 ShortCut = 16470
242 end
243 item
244 Command = ecCut
245 ShortCut = 16472
246 end
247 item
248 Command = ecDeleteLine
249 ShortCut = 16473
250 end
251 item
252 Command = ecDeleteEOL
253 ShortCut = 24665
254 end
255 item
256 Command = ecUndo
257 ShortCut = 16474
258 end
259 item
260 Command = ecRedo
261 ShortCut = 24666
262 end
263 item
264 Command = ecGotoMarker0
265 ShortCut = 16432
266 end
267 item
268 Command = ecGotoMarker1
269 ShortCut = 16433
270 end
271 item
272 Command = ecGotoMarker2
273 ShortCut = 16434
274 end
275 item
276 Command = ecGotoMarker3
277 ShortCut = 16435
278 end
279 item
280 Command = ecGotoMarker4
281 ShortCut = 16436
282 end
283 item
284 Command = ecGotoMarker5
285 ShortCut = 16437
286 end
287 item
288 Command = ecGotoMarker6
289 ShortCut = 16438
290 end
291 item
292 Command = ecGotoMarker7
293 ShortCut = 16439
294 end
295 item
296 Command = ecGotoMarker8
297 ShortCut = 16440
298 end
299 item
300 Command = ecGotoMarker9
301 ShortCut = 16441
302 end
303 item
304 Command = ecSetMarker0
305 ShortCut = 24624
306 end
307 item
308 Command = ecSetMarker1
309 ShortCut = 24625
310 end
311 item
312 Command = ecSetMarker2
313 ShortCut = 24626
314 end
315 item
316 Command = ecSetMarker3
317 ShortCut = 24627
318 end
319 item
320 Command = ecSetMarker4
321 ShortCut = 24628
322 end
323 item
324 Command = ecSetMarker5
325 ShortCut = 24629
326 end
327 item
328 Command = ecSetMarker6
329 ShortCut = 24630
330 end
331 item
332 Command = ecSetMarker7
333 ShortCut = 24631
334 end
335 item
336 Command = ecSetMarker8
337 ShortCut = 24632
338 end
339 item
340 Command = ecSetMarker9
341 ShortCut = 24633
342 end
343 item
344 Command = EcFoldLevel1
345 ShortCut = 41009
346 end
347 item
348 Command = EcFoldLevel2
349 ShortCut = 41010
350 end
351 item
352 Command = EcFoldLevel1
353 ShortCut = 41011
354 end
355 item
356 Command = EcFoldLevel1
357 ShortCut = 41012
358 end
359 item
360 Command = EcFoldLevel1
361 ShortCut = 41013
362 end
363 item
364 Command = EcFoldLevel6
365 ShortCut = 41014
366 end
367 item
368 Command = EcFoldLevel7
369 ShortCut = 41015
370 end
371 item
372 Command = EcFoldLevel8
373 ShortCut = 41016
374 end
375 item
376 Command = EcFoldLevel9
377 ShortCut = 41017
378 end
379 item
380 Command = EcFoldLevel0
381 ShortCut = 41008
382 end
383 item
384 Command = EcFoldCurrent
385 ShortCut = 41005
386 end
387 item
388 Command = EcUnFoldCurrent
389 ShortCut = 41003
390 end
391 item
392 Command = EcToggleMarkupWord
393 ShortCut = 32845
394 end
395 item
396 Command = ecNormalSelect
397 ShortCut = 24654
398 end
399 item
400 Command = ecColumnSelect
401 ShortCut = 24643
402 end
403 item
404 Command = ecLineSelect
405 ShortCut = 24652
406 end
407 item
408 Command = ecTab
409 ShortCut = 9
410 end
411 item
412 Command = ecShiftTab
413 ShortCut = 8201
414 end
415 item
416 Command = ecMatchBracket
417 ShortCut = 24642
418 end
419 item
420 Command = ecColSelUp
421 ShortCut = 40998
422 end
423 item
424 Command = ecColSelDown
425 ShortCut = 41000
426 end
427 item
428 Command = ecColSelLeft
429 ShortCut = 40997
430 end
431 item
432 Command = ecColSelRight
433 ShortCut = 40999
434 end
435 item
436 Command = ecColSelPageDown
437 ShortCut = 40994
438 end
439 item
440 Command = ecColSelPageBottom
441 ShortCut = 57378
442 end
443 item
444 Command = ecColSelPageUp
445 ShortCut = 40993
446 end
447 item
448 Command = ecColSelPageTop
449 ShortCut = 57377
450 end
451 item
452 Command = ecColSelLineStart
453 ShortCut = 40996
454 end
455 item
456 Command = ecColSelLineEnd
457 ShortCut = 40995
458 end
459 item
460 Command = ecColSelEditorTop
461 ShortCut = 57380
462 end
463 item
464 Command = ecColSelEditorBottom
465 ShortCut = 57379
466 end>
467 MouseActions = <
468 item
469 ShiftMask = [ssShift, ssAlt]
470 ClickDir = cdDown
471 Command = emcStartSelections
472 MoveCaret = True
473 end
474 item
475 Shift = [ssShift]
476 ShiftMask = [ssShift, ssAlt]
477 ClickDir = cdDown
478 Command = emcStartSelections
479 MoveCaret = True
480 Option = 1
481 end
482 item
483 Shift = [ssAlt]
484 ShiftMask = [ssShift, ssAlt]
485 ClickDir = cdDown
486 Command = emcStartColumnSelections
487 MoveCaret = True
488 end
489 item
490 Shift = [ssShift, ssAlt]
491 ShiftMask = [ssShift, ssAlt]
492 ClickDir = cdDown
493 Command = emcStartColumnSelections
494 MoveCaret = True
495 Option = 1
496 end
497 item
498 Button = mbRight
499 Command = emcContextMenu
500 end
501 item
502 ClickCount = ccDouble
503 ClickDir = cdDown
504 Command = emcSelectWord
505 MoveCaret = True
506 end
507 item
508 ClickCount = ccTriple
509 ClickDir = cdDown
510 Command = emcSelectLine
511 MoveCaret = True
512 end
513 item
514 ClickCount = ccQuad
515 ClickDir = cdDown
516 Command = emcSelectPara
517 MoveCaret = True
518 end
519 item
520 Button = mbMiddle
521 ClickDir = cdDown
522 Command = emcPasteSelection
523 MoveCaret = True
524 end
525 item
526 Shift = [ssCtrl]
527 ShiftMask = [ssShift, ssAlt, ssCtrl]
528 Command = emcMouseLink
529 end>
530 MouseSelActions = <
531 item
532 ClickDir = cdDown
533 Command = emcStartDragMove
534 end>
535 VisibleSpecialChars = [vscSpace, vscTabAtLast]
536 BracketHighlightStyle = sbhsBoth
537 BracketMatchColor.Background = clNone
538 BracketMatchColor.Foreground = clNone
539 BracketMatchColor.Style = [fsBold]
540 FoldedCodeColor.Background = clNone
541 FoldedCodeColor.Foreground = clGray
542 FoldedCodeColor.FrameColor = clGray
543 MouseLinkColor.Background = clNone
544 MouseLinkColor.Foreground = clBlue
545 LineHighlightColor.Background = clNone
546 LineHighlightColor.Foreground = clNone
547 OnChange = SynEditSourceChange
548 inline SynGutterPartList1: TSynGutterPartList
549 object SynGutterMarks1: TSynGutterMarks
550 Width = 24
551 MouseActions = <>
552 end
553 object SynGutterLineNumber1: TSynGutterLineNumber
554 Width = 17
555 MouseActions = <>
556 MarkupInfo.Background = clBtnFace
557 MarkupInfo.Foreground = clNone
558 DigitCount = 2
559 ShowOnlyLineNumbersMultiplesOf = 1
560 ZeroStart = False
561 LeadingZeros = False
562 end
563 object SynGutterChanges1: TSynGutterChanges
564 Width = 4
565 MouseActions = <>
566 ModifiedColor = 59900
567 SavedColor = clGreen
568 end
569 object SynGutterSeparator1: TSynGutterSeparator
570 Width = 2
571 MouseActions = <>
572 end
573 object SynGutterCodeFolding1: TSynGutterCodeFolding
574 MouseActions = <
575 item
576 Button = mbRight
577 Command = emcCodeFoldContextMenu
578 end
579 item
580 ShiftMask = [ssShift]
581 Button = mbMiddle
582 ClickCount = ccAny
583 ClickDir = cdDown
584 Command = emcCodeFoldCollaps
585 end
586 item
587 Shift = [ssShift]
588 ShiftMask = [ssShift]
589 Button = mbMiddle
590 ClickCount = ccAny
591 ClickDir = cdDown
592 Command = emcCodeFoldCollaps
593 Option = 1
594 end
595 item
596 ClickCount = ccAny
597 ClickDir = cdDown
598 Command = emcNone
599 end>
600 MarkupInfo.Background = clNone
601 MarkupInfo.Foreground = clGray
602 MouseActionsExpanded = <
603 item
604 ClickCount = ccAny
605 ClickDir = cdDown
606 Command = emcCodeFoldCollaps
607 end>
608 MouseActionsCollapsed = <
609 item
610 Shift = [ssCtrl]
611 ShiftMask = [ssCtrl]
612 ClickCount = ccAny
613 ClickDir = cdDown
614 Command = emcCodeFoldExpand
615 end
616 item
617 ShiftMask = [ssCtrl]
618 ClickCount = ccAny
619 ClickDir = cdDown
620 Command = emcCodeFoldExpand
621 Option = 1
622 end>
623 end
624 end
625 end
626 object SynPasSyn1: TSynPasSyn
627 Enabled = False
628 AsmAttri.FrameEdges = sfeAround
629 CommentAttri.FrameEdges = sfeAround
630 IDEDirectiveAttri.FrameEdges = sfeAround
631 IdentifierAttri.FrameEdges = sfeAround
632 KeyAttri.FrameEdges = sfeAround
633 NumberAttri.FrameEdges = sfeAround
634 SpaceAttri.FrameEdges = sfeAround
635 StringAttri.FrameEdges = sfeAround
636 SymbolAttri.FrameEdges = sfeAround
637 CaseLabelAttri.FrameEdges = sfeAround
638 DirectiveAttri.FrameEdges = sfeAround
639 CompilerMode = pcmDelphi
640 NestedComments = False
641 left = 170
642 top = 37
643 end
644end
Note: See TracBrowser for help on using the repository browser.