1object CodeTemplateDialog: TCodeTemplateDialog 2 Left = 332 3 Height = 540 4 Top = 174 5 Width = 729 6 BorderIcons = [biSystemMenu] 7 Caption = 'CodeTemplateDialog' 8 ClientHeight = 540 9 ClientWidth = 729 10 OnClose = FormClose 11 OnCreate = FormCreate 12 OnShow = FormShow 13 Position = poScreenCenter 14 LCLVersion = '2.1.0.0' 15 object FilenameGroupBox: TGroupBox 16 Left = 6 17 Height = 46 18 Top = 6 19 Width = 717 20 Align = alTop 21 AutoSize = True 22 BorderSpacing.Around = 6 23 Caption = 'FilenameGroupBox' 24 ClientHeight = 27 25 ClientWidth = 713 26 TabOrder = 0 27 object FilenameEdit: TFileNameEdit 28 AnchorSideLeft.Control = FilenameGroupBox 29 AnchorSideRight.Control = FilenameGroupBox 30 AnchorSideRight.Side = asrBottom 31 Left = 6 32 Height = 27 33 Top = 0 34 Width = 701 35 FileName = 'FilenameEdit' 36 FilterIndex = 0 37 HideDirectories = False 38 ButtonWidth = 25 39 NumGlyphs = 1 40 Anchors = [akTop, akLeft, akRight] 41 BorderSpacing.Left = 6 42 BorderSpacing.Right = 6 43 MaxLength = 0 44 TabOrder = 0 45 Text = 'FilenameEdit' 46 end 47 end 48 object TemplatesGroupBox: TGroupBox 49 Left = 6 50 Height = 167 51 Top = 58 52 Width = 717 53 Align = alTop 54 BorderSpacing.Around = 6 55 Caption = 'TemplatesGroupBox' 56 ClientHeight = 148 57 ClientWidth = 713 58 TabOrder = 1 59 object TemplateListBox: TListBox 60 AnchorSideLeft.Control = TemplatesGroupBox 61 AnchorSideTop.Control = TemplatesGroupBox 62 AnchorSideRight.Control = AddButton 63 AnchorSideBottom.Control = TemplatesGroupBox 64 AnchorSideBottom.Side = asrBottom 65 Left = 6 66 Height = 136 67 Top = 6 68 Width = 555 69 Anchors = [akTop, akLeft, akRight, akBottom] 70 BorderSpacing.Left = 6 71 BorderSpacing.Top = 6 72 BorderSpacing.Right = 6 73 BorderSpacing.Bottom = 6 74 ItemHeight = 0 75 OnSelectionChange = TemplateListBoxSelectionChange 76 ScrollWidth = 553 77 TabOrder = 0 78 TopIndex = -1 79 end 80 object AddButton: TButton 81 AnchorSideTop.Control = TemplateListBox 82 AnchorSideRight.Control = TemplatesGroupBox 83 AnchorSideRight.Side = asrBottom 84 Left = 567 85 Height = 29 86 Top = 6 87 Width = 140 88 Anchors = [akTop, akRight] 89 AutoSize = True 90 BorderSpacing.Right = 6 91 Caption = 'AddButton' 92 Constraints.MinWidth = 140 93 OnClick = AddButtonClick 94 TabOrder = 1 95 end 96 object DeleteButton: TButton 97 AnchorSideLeft.Control = AddButton 98 AnchorSideTop.Control = AddButton 99 AnchorSideTop.Side = asrBottom 100 AnchorSideRight.Control = AddButton 101 AnchorSideRight.Side = asrBottom 102 Left = 567 103 Height = 29 104 Top = 41 105 Width = 140 106 Anchors = [akTop, akLeft, akRight] 107 AutoSize = True 108 BorderSpacing.Top = 6 109 Caption = 'DeleteButton' 110 OnClick = DeleteButtonClick 111 TabOrder = 2 112 end 113 object RenameButton: TButton 114 AnchorSideLeft.Control = AddButton 115 AnchorSideTop.Control = DeleteButton 116 AnchorSideTop.Side = asrBottom 117 AnchorSideRight.Control = DeleteButton 118 AnchorSideRight.Side = asrBottom 119 Left = 567 120 Height = 29 121 Top = 76 122 Width = 140 123 Anchors = [akTop, akLeft, akRight] 124 AutoSize = True 125 BorderSpacing.Top = 6 126 Caption = 'RenameButton' 127 OnClick = RenameButtonClick 128 TabOrder = 3 129 end 130 end 131 object EditTemplateGroupBox: TGroupBox 132 AnchorSideTop.Control = TemplatesGroupBox 133 AnchorSideRight.Control = Owner 134 AnchorSideBottom.Control = FilenameGroupBox 135 Left = 6 136 Height = 268 137 Top = 231 138 Width = 717 139 Align = alClient 140 BorderSpacing.Around = 6 141 Caption = 'EditTemplateGroupBox' 142 ClientHeight = 249 143 ClientWidth = 713 144 TabOrder = 2 145 inline TemplateSynEdit: TSynEdit 146 AnchorSideTop.Control = AutoOnOptionsCheckGroup 147 AnchorSideTop.Side = asrBottom 148 AnchorSideRight.Control = EditTemplateGroupBox 149 AnchorSideRight.Side = asrBottom 150 AnchorSideBottom.Control = EditTemplateGroupBox 151 AnchorSideBottom.Side = asrBottom 152 Left = 6 153 Height = 165 154 Top = 78 155 Width = 701 156 BorderSpacing.Around = 6 157 Anchors = [akTop, akLeft, akRight, akBottom] 158 Font.Height = -14 159 Font.Name = 'courier' 160 Font.Pitch = fpFixed 161 Font.Quality = fqNonAntialiased 162 ParentColor = False 163 ParentFont = False 164 TabOrder = 2 165 Gutter.Width = 57 166 Gutter.MouseActions = < 167 item 168 ClickCount = ccAny 169 ClickDir = cdDown 170 Command = emcOnMainGutterClick 171 end 172 item 173 Button = mbRight 174 Command = emcContextMenu 175 end> 176 RightGutter.Width = 0 177 RightGutter.MouseActions = < 178 item 179 ClickCount = ccAny 180 ClickDir = cdDown 181 Command = emcOnMainGutterClick 182 end 183 item 184 Button = mbRight 185 Command = emcContextMenu 186 end> 187 Keystrokes = < 188 item 189 Command = ecUp 190 ShortCut = 38 191 end 192 item 193 Command = ecSelUp 194 ShortCut = 8230 195 end 196 item 197 Command = ecScrollUp 198 ShortCut = 16422 199 end 200 item 201 Command = ecDown 202 ShortCut = 40 203 end 204 item 205 Command = ecSelDown 206 ShortCut = 8232 207 end 208 item 209 Command = ecScrollDown 210 ShortCut = 16424 211 end 212 item 213 Command = ecLeft 214 ShortCut = 37 215 end 216 item 217 Command = ecSelLeft 218 ShortCut = 8229 219 end 220 item 221 Command = ecWordLeft 222 ShortCut = 16421 223 end 224 item 225 Command = ecSelWordLeft 226 ShortCut = 24613 227 end 228 item 229 Command = ecRight 230 ShortCut = 39 231 end 232 item 233 Command = ecSelRight 234 ShortCut = 8231 235 end 236 item 237 Command = ecWordRight 238 ShortCut = 16423 239 end 240 item 241 Command = ecSelWordRight 242 ShortCut = 24615 243 end 244 item 245 Command = ecPageDown 246 ShortCut = 34 247 end 248 item 249 Command = ecSelPageDown 250 ShortCut = 8226 251 end 252 item 253 Command = ecPageBottom 254 ShortCut = 16418 255 end 256 item 257 Command = ecSelPageBottom 258 ShortCut = 24610 259 end 260 item 261 Command = ecPageUp 262 ShortCut = 33 263 end 264 item 265 Command = ecSelPageUp 266 ShortCut = 8225 267 end 268 item 269 Command = ecPageTop 270 ShortCut = 16417 271 end 272 item 273 Command = ecSelPageTop 274 ShortCut = 24609 275 end 276 item 277 Command = ecLineStart 278 ShortCut = 36 279 end 280 item 281 Command = ecSelLineStart 282 ShortCut = 8228 283 end 284 item 285 Command = ecEditorTop 286 ShortCut = 16420 287 end 288 item 289 Command = ecSelEditorTop 290 ShortCut = 24612 291 end 292 item 293 Command = ecLineEnd 294 ShortCut = 35 295 end 296 item 297 Command = ecSelLineEnd 298 ShortCut = 8227 299 end 300 item 301 Command = ecEditorBottom 302 ShortCut = 16419 303 end 304 item 305 Command = ecSelEditorBottom 306 ShortCut = 24611 307 end 308 item 309 Command = ecToggleMode 310 ShortCut = 45 311 end 312 item 313 Command = ecCopy 314 ShortCut = 16429 315 end 316 item 317 Command = ecPaste 318 ShortCut = 8237 319 end 320 item 321 Command = ecDeleteChar 322 ShortCut = 46 323 end 324 item 325 Command = ecCut 326 ShortCut = 8238 327 end 328 item 329 Command = ecDeleteLastChar 330 ShortCut = 8 331 end 332 item 333 Command = ecDeleteLastChar 334 ShortCut = 8200 335 end 336 item 337 Command = ecDeleteLastWord 338 ShortCut = 16392 339 end 340 item 341 Command = ecUndo 342 ShortCut = 32776 343 end 344 item 345 Command = ecRedo 346 ShortCut = 40968 347 end 348 item 349 Command = ecLineBreak 350 ShortCut = 13 351 end 352 item 353 Command = ecSelectAll 354 ShortCut = 16449 355 end 356 item 357 Command = ecCopy 358 ShortCut = 16451 359 end 360 item 361 Command = ecBlockIndent 362 ShortCut = 24649 363 end 364 item 365 Command = ecLineBreak 366 ShortCut = 16461 367 end 368 item 369 Command = ecInsertLine 370 ShortCut = 16462 371 end 372 item 373 Command = ecDeleteWord 374 ShortCut = 16468 375 end 376 item 377 Command = ecBlockUnindent 378 ShortCut = 24661 379 end 380 item 381 Command = ecPaste 382 ShortCut = 16470 383 end 384 item 385 Command = ecCut 386 ShortCut = 16472 387 end 388 item 389 Command = ecDeleteLine 390 ShortCut = 16473 391 end 392 item 393 Command = ecDeleteEOL 394 ShortCut = 24665 395 end 396 item 397 Command = ecUndo 398 ShortCut = 16474 399 end 400 item 401 Command = ecRedo 402 ShortCut = 24666 403 end 404 item 405 Command = ecGotoMarker0 406 ShortCut = 16432 407 end 408 item 409 Command = ecGotoMarker1 410 ShortCut = 16433 411 end 412 item 413 Command = ecGotoMarker2 414 ShortCut = 16434 415 end 416 item 417 Command = ecGotoMarker3 418 ShortCut = 16435 419 end 420 item 421 Command = ecGotoMarker4 422 ShortCut = 16436 423 end 424 item 425 Command = ecGotoMarker5 426 ShortCut = 16437 427 end 428 item 429 Command = ecGotoMarker6 430 ShortCut = 16438 431 end 432 item 433 Command = ecGotoMarker7 434 ShortCut = 16439 435 end 436 item 437 Command = ecGotoMarker8 438 ShortCut = 16440 439 end 440 item 441 Command = ecGotoMarker9 442 ShortCut = 16441 443 end 444 item 445 Command = ecSetMarker0 446 ShortCut = 24624 447 end 448 item 449 Command = ecSetMarker1 450 ShortCut = 24625 451 end 452 item 453 Command = ecSetMarker2 454 ShortCut = 24626 455 end 456 item 457 Command = ecSetMarker3 458 ShortCut = 24627 459 end 460 item 461 Command = ecSetMarker4 462 ShortCut = 24628 463 end 464 item 465 Command = ecSetMarker5 466 ShortCut = 24629 467 end 468 item 469 Command = ecSetMarker6 470 ShortCut = 24630 471 end 472 item 473 Command = ecSetMarker7 474 ShortCut = 24631 475 end 476 item 477 Command = ecSetMarker8 478 ShortCut = 24632 479 end 480 item 481 Command = ecSetMarker9 482 ShortCut = 24633 483 end 484 item 485 Command = ecNormalSelect 486 ShortCut = 24654 487 end 488 item 489 Command = ecColumnSelect 490 ShortCut = 24643 491 end 492 item 493 Command = ecLineSelect 494 ShortCut = 24652 495 end 496 item 497 Command = ecTab 498 ShortCut = 9 499 end 500 item 501 Command = ecShiftTab 502 ShortCut = 8201 503 end 504 item 505 Command = ecMatchBracket 506 ShortCut = 24642 507 end> 508 MouseActions = < 509 item 510 ShiftMask = [ssShift, ssAlt] 511 ClickDir = cdDown 512 Command = emcStartSelections 513 MoveCaret = True 514 end 515 item 516 Shift = [ssShift] 517 ShiftMask = [ssShift, ssAlt] 518 ClickDir = cdDown 519 Command = emcStartSelections 520 MoveCaret = True 521 Option = 1 522 end 523 item 524 Shift = [ssAlt] 525 ShiftMask = [ssShift, ssAlt] 526 ClickDir = cdDown 527 Command = emcStartColumnSelections 528 MoveCaret = True 529 end 530 item 531 Shift = [ssShift, ssAlt] 532 ShiftMask = [ssShift, ssAlt] 533 ClickDir = cdDown 534 Command = emcStartColumnSelections 535 MoveCaret = True 536 Option = 1 537 end 538 item 539 Button = mbRight 540 Command = emcContextMenu 541 end 542 item 543 ClickCount = ccDouble 544 ClickDir = cdDown 545 Command = emcSelectWord 546 MoveCaret = True 547 end 548 item 549 ClickCount = ccTriple 550 ClickDir = cdDown 551 Command = emcSelectLine 552 MoveCaret = True 553 end 554 item 555 ClickCount = ccQuad 556 ClickDir = cdDown 557 Command = emcSelectPara 558 MoveCaret = True 559 end 560 item 561 Button = mbMiddle 562 ClickDir = cdDown 563 Command = emcPasteSelection 564 MoveCaret = True 565 end 566 item 567 Shift = [ssCtrl] 568 ShiftMask = [ssShift, ssAlt, ssCtrl] 569 Command = emcMouseLink 570 end> 571 MouseTextActions = <> 572 MouseSelActions = < 573 item 574 ClickDir = cdDown 575 Command = emcStartDragMove 576 end> 577 VisibleSpecialChars = [vscSpace, vscTabAtLast] 578 SelectedColor.BackPriority = 50 579 SelectedColor.ForePriority = 50 580 SelectedColor.FramePriority = 50 581 SelectedColor.BoldPriority = 50 582 SelectedColor.ItalicPriority = 50 583 SelectedColor.UnderlinePriority = 50 584 SelectedColor.StrikeOutPriority = 50 585 BracketHighlightStyle = sbhsBoth 586 BracketMatchColor.Background = clNone 587 BracketMatchColor.Foreground = clNone 588 BracketMatchColor.Style = [fsBold] 589 FoldedCodeColor.Background = clNone 590 FoldedCodeColor.Foreground = clGray 591 FoldedCodeColor.FrameColor = clGray 592 MouseLinkColor.Background = clNone 593 MouseLinkColor.Foreground = clBlue 594 LineHighlightColor.Background = clNone 595 LineHighlightColor.Foreground = clNone 596 inline TSynGutterPartList 597 object TSynGutterMarks 598 Width = 24 599 MouseActions = <> 600 end 601 object TSynGutterLineNumber 602 Width = 17 603 MouseActions = <> 604 MarkupInfo.Background = clBtnFace 605 MarkupInfo.Foreground = clNone 606 DigitCount = 2 607 ShowOnlyLineNumbersMultiplesOf = 1 608 ZeroStart = False 609 LeadingZeros = False 610 end 611 object TSynGutterChanges 612 Width = 4 613 MouseActions = <> 614 ModifiedColor = 59900 615 SavedColor = clGreen 616 end 617 object TSynGutterSeparator 618 Width = 2 619 MouseActions = <> 620 MarkupInfo.Background = clWhite 621 MarkupInfo.Foreground = clGray 622 end 623 object TSynGutterCodeFolding 624 MouseActions = < 625 item 626 Button = mbRight 627 Command = emcCodeFoldContextMenu 628 end 629 item 630 ShiftMask = [ssShift] 631 Button = mbMiddle 632 ClickCount = ccAny 633 ClickDir = cdDown 634 Command = emcCodeFoldCollaps 635 end 636 item 637 Shift = [ssShift] 638 ShiftMask = [ssShift] 639 Button = mbMiddle 640 ClickCount = ccAny 641 ClickDir = cdDown 642 Command = emcCodeFoldCollaps 643 Option = 1 644 end 645 item 646 ClickCount = ccAny 647 ClickDir = cdDown 648 Command = emcNone 649 end> 650 MarkupInfo.Background = clNone 651 MarkupInfo.Foreground = clGray 652 MouseActionsExpanded = < 653 item 654 ClickCount = ccAny 655 ClickDir = cdDown 656 Command = emcCodeFoldCollaps 657 end> 658 MouseActionsCollapsed = < 659 item 660 Shift = [ssCtrl] 661 ShiftMask = [ssCtrl] 662 ClickCount = ccAny 663 ClickDir = cdDown 664 Command = emcCodeFoldExpand 665 end 666 item 667 ShiftMask = [ssCtrl] 668 ClickCount = ccAny 669 ClickDir = cdDown 670 Command = emcCodeFoldExpand 671 Option = 1 672 end> 673 end 674 end 675 end 676 object AutoOnOptionsCheckGroup: TCheckGroup 677 AnchorSideLeft.Control = OptionsPanel 678 AnchorSideLeft.Side = asrBottom 679 AnchorSideTop.Control = EditTemplateGroupBox 680 AnchorSideRight.Control = EditTemplateGroupBox 681 AnchorSideRight.Side = asrBottom 682 Left = 210 683 Height = 70 684 Top = 2 685 Width = 501 686 Anchors = [akTop, akLeft, akRight] 687 AutoFill = True 688 AutoSize = True 689 BorderSpacing.Left = 10 690 BorderSpacing.Top = 2 691 BorderSpacing.Right = 2 692 Caption = 'AutoOnOptionsCheckGroup' 693 ChildSizing.LeftRightSpacing = 6 694 ChildSizing.TopBottomSpacing = 6 695 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 696 ChildSizing.EnlargeVertical = crsHomogenousChildResize 697 ChildSizing.ShrinkHorizontal = crsScaleChilds 698 ChildSizing.ShrinkVertical = crsScaleChilds 699 ChildSizing.Layout = cclLeftToRightThenTopToBottom 700 ChildSizing.ControlsPerLine = 2 701 Columns = 2 702 Constraints.MinHeight = 70 703 TabOrder = 1 704 end 705 object OptionsPanel: TPanel 706 AnchorSideLeft.Control = EditTemplateGroupBox 707 AnchorSideTop.Control = EditTemplateGroupBox 708 Left = 0 709 Height = 95 710 Top = 0 711 Width = 200 712 AutoSize = True 713 BevelOuter = bvNone 714 ClientHeight = 95 715 ClientWidth = 200 716 TabOrder = 0 717 object KeepSubIndentCheckBox: TCheckBox 718 AnchorSideLeft.Control = OptionsPanel 719 AnchorSideTop.Control = OptionsPanel 720 Left = 6 721 Height = 24 722 Top = 6 723 Width = 194 724 BorderSpacing.Left = 6 725 BorderSpacing.Top = 6 726 Caption = 'KeepSubIndentCheckBox' 727 ParentShowHint = False 728 ShowHint = True 729 TabOrder = 0 730 end 731 object UseMacrosCheckBox: TCheckBox 732 AnchorSideLeft.Control = OptionsPanel 733 AnchorSideTop.Control = KeepSubIndentCheckBox 734 AnchorSideTop.Side = asrBottom 735 Left = 6 736 Height = 24 737 Top = 30 738 Width = 167 739 BorderSpacing.Left = 6 740 Caption = 'UseMacrosCheckBox' 741 OnChange = UseMacrosCheckBoxChange 742 ParentShowHint = False 743 ShowHint = True 744 TabOrder = 1 745 end 746 object InsertMacroButton: TButton 747 AnchorSideLeft.Control = OptionsPanel 748 AnchorSideTop.Control = UseMacrosCheckBox 749 AnchorSideTop.Side = asrBottom 750 AnchorSideRight.Side = asrBottom 751 Left = 6 752 Height = 29 753 Top = 60 754 Width = 140 755 AutoSize = True 756 BorderSpacing.Around = 6 757 Caption = 'InsertMacroButton' 758 OnClick = InsertMacroButtonClick 759 TabOrder = 2 760 end 761 end 762 end 763 object ButtonPanel: TButtonPanel 764 Left = 6 765 Height = 29 766 Top = 505 767 Width = 717 768 OKButton.Name = 'OKButton' 769 OKButton.DefaultCaption = True 770 OKButton.OnClick = OkButtonClick 771 HelpButton.Name = 'HelpButton' 772 HelpButton.DefaultCaption = True 773 HelpButton.OnClick = HelpButtonClick 774 CloseButton.Name = 'CloseButton' 775 CloseButton.DefaultCaption = True 776 CloseButton.Enabled = False 777 CancelButton.Name = 'CancelButton' 778 CancelButton.DefaultCaption = True 779 TabOrder = 3 780 ShowButtons = [pbOK, pbCancel, pbHelp] 781 ShowBevel = False 782 end 783 object ASynPasSyn: TSynFreePascalSyn 784 Enabled = False 785 CompilerMode = pcmObjFPC 786 NestedComments = True 787 TypeHelpers = False 788 Left = 304 789 Top = 344 790 end 791end 792