1object Form1: TForm1 2 Left = 261 3 Height = 594 4 Top = 158 5 Width = 1301 6 Caption = 'JCF' 7 ClientHeight = 594 8 ClientWidth = 1301 9 LCLVersion = '2.1.0.0' 10 object Button1: TButton 11 Left = 616 12 Height = 25 13 Top = 64 14 Width = 75 15 Caption = 'Format' 16 OnClick = Button1Click 17 TabOrder = 0 18 end 19 object Memo3: TMemo 20 Left = 11 21 Height = 90 22 Top = 491 23 Width = 1277 24 Anchors = [akLeft, akRight, akBottom] 25 Lines.Strings = ( 26 '' 27 ) 28 TabOrder = 1 29 end 30 inline Memo1: TSynEdit 31 Left = 16 32 Height = 424 33 Top = 32 34 Width = 592 35 Anchors = [akTop, akLeft, akBottom] 36 Font.Height = -13 37 Font.Name = 'Courier New' 38 Font.Pitch = fpFixed 39 Font.Quality = fqNonAntialiased 40 ParentColor = False 41 ParentFont = False 42 PopupMenu = PopupMenu1 43 TabOrder = 2 44 Gutter.Width = 57 45 Gutter.MouseActions = <> 46 RightGutter.Width = 0 47 RightGutter.MouseActions = <> 48 Highlighter = SynPasSyn1 49 Keystrokes = < 50 item 51 Command = ecUp 52 ShortCut = 38 53 end 54 item 55 Command = ecSelUp 56 ShortCut = 8230 57 end 58 item 59 Command = ecScrollUp 60 ShortCut = 16422 61 end 62 item 63 Command = ecDown 64 ShortCut = 40 65 end 66 item 67 Command = ecSelDown 68 ShortCut = 8232 69 end 70 item 71 Command = ecScrollDown 72 ShortCut = 16424 73 end 74 item 75 Command = ecLeft 76 ShortCut = 37 77 end 78 item 79 Command = ecSelLeft 80 ShortCut = 8229 81 end 82 item 83 Command = ecWordLeft 84 ShortCut = 16421 85 end 86 item 87 Command = ecSelWordLeft 88 ShortCut = 24613 89 end 90 item 91 Command = ecRight 92 ShortCut = 39 93 end 94 item 95 Command = ecSelRight 96 ShortCut = 8231 97 end 98 item 99 Command = ecWordRight 100 ShortCut = 16423 101 end 102 item 103 Command = ecSelWordRight 104 ShortCut = 24615 105 end 106 item 107 Command = ecPageDown 108 ShortCut = 34 109 end 110 item 111 Command = ecSelPageDown 112 ShortCut = 8226 113 end 114 item 115 Command = ecPageBottom 116 ShortCut = 16418 117 end 118 item 119 Command = ecSelPageBottom 120 ShortCut = 24610 121 end 122 item 123 Command = ecPageUp 124 ShortCut = 33 125 end 126 item 127 Command = ecSelPageUp 128 ShortCut = 8225 129 end 130 item 131 Command = ecPageTop 132 ShortCut = 16417 133 end 134 item 135 Command = ecSelPageTop 136 ShortCut = 24609 137 end 138 item 139 Command = ecLineStart 140 ShortCut = 36 141 end 142 item 143 Command = ecSelLineStart 144 ShortCut = 8228 145 end 146 item 147 Command = ecEditorTop 148 ShortCut = 16420 149 end 150 item 151 Command = ecSelEditorTop 152 ShortCut = 24612 153 end 154 item 155 Command = ecLineEnd 156 ShortCut = 35 157 end 158 item 159 Command = ecSelLineEnd 160 ShortCut = 8227 161 end 162 item 163 Command = ecEditorBottom 164 ShortCut = 16419 165 end 166 item 167 Command = ecSelEditorBottom 168 ShortCut = 24611 169 end 170 item 171 Command = ecToggleMode 172 ShortCut = 45 173 end 174 item 175 Command = ecCopy 176 ShortCut = 16429 177 end 178 item 179 Command = ecPaste 180 ShortCut = 8237 181 end 182 item 183 Command = ecDeleteChar 184 ShortCut = 46 185 end 186 item 187 Command = ecCut 188 ShortCut = 8238 189 end 190 item 191 Command = ecDeleteLastChar 192 ShortCut = 8 193 end 194 item 195 Command = ecDeleteLastChar 196 ShortCut = 8200 197 end 198 item 199 Command = ecDeleteLastWord 200 ShortCut = 16392 201 end 202 item 203 Command = ecUndo 204 ShortCut = 32776 205 end 206 item 207 Command = ecRedo 208 ShortCut = 40968 209 end 210 item 211 Command = ecLineBreak 212 ShortCut = 13 213 end 214 item 215 Command = ecSelectAll 216 ShortCut = 16449 217 end 218 item 219 Command = ecCopy 220 ShortCut = 16451 221 end 222 item 223 Command = ecBlockIndent 224 ShortCut = 24649 225 end 226 item 227 Command = ecLineBreak 228 ShortCut = 16461 229 end 230 item 231 Command = ecInsertLine 232 ShortCut = 16462 233 end 234 item 235 Command = ecDeleteWord 236 ShortCut = 16468 237 end 238 item 239 Command = ecBlockUnindent 240 ShortCut = 24661 241 end 242 item 243 Command = ecPaste 244 ShortCut = 16470 245 end 246 item 247 Command = ecCut 248 ShortCut = 16472 249 end 250 item 251 Command = ecDeleteLine 252 ShortCut = 16473 253 end 254 item 255 Command = ecDeleteEOL 256 ShortCut = 24665 257 end 258 item 259 Command = ecUndo 260 ShortCut = 16474 261 end 262 item 263 Command = ecRedo 264 ShortCut = 24666 265 end 266 item 267 Command = ecGotoMarker0 268 ShortCut = 16432 269 end 270 item 271 Command = ecGotoMarker1 272 ShortCut = 16433 273 end 274 item 275 Command = ecGotoMarker2 276 ShortCut = 16434 277 end 278 item 279 Command = ecGotoMarker3 280 ShortCut = 16435 281 end 282 item 283 Command = ecGotoMarker4 284 ShortCut = 16436 285 end 286 item 287 Command = ecGotoMarker5 288 ShortCut = 16437 289 end 290 item 291 Command = ecGotoMarker6 292 ShortCut = 16438 293 end 294 item 295 Command = ecGotoMarker7 296 ShortCut = 16439 297 end 298 item 299 Command = ecGotoMarker8 300 ShortCut = 16440 301 end 302 item 303 Command = ecGotoMarker9 304 ShortCut = 16441 305 end 306 item 307 Command = ecSetMarker0 308 ShortCut = 24624 309 end 310 item 311 Command = ecSetMarker1 312 ShortCut = 24625 313 end 314 item 315 Command = ecSetMarker2 316 ShortCut = 24626 317 end 318 item 319 Command = ecSetMarker3 320 ShortCut = 24627 321 end 322 item 323 Command = ecSetMarker4 324 ShortCut = 24628 325 end 326 item 327 Command = ecSetMarker5 328 ShortCut = 24629 329 end 330 item 331 Command = ecSetMarker6 332 ShortCut = 24630 333 end 334 item 335 Command = ecSetMarker7 336 ShortCut = 24631 337 end 338 item 339 Command = ecSetMarker8 340 ShortCut = 24632 341 end 342 item 343 Command = ecSetMarker9 344 ShortCut = 24633 345 end 346 item 347 Command = EcFoldLevel1 348 ShortCut = 41009 349 end 350 item 351 Command = EcFoldLevel2 352 ShortCut = 41010 353 end 354 item 355 Command = EcFoldLevel3 356 ShortCut = 41011 357 end 358 item 359 Command = EcFoldLevel4 360 ShortCut = 41012 361 end 362 item 363 Command = EcFoldLevel5 364 ShortCut = 41013 365 end 366 item 367 Command = EcFoldLevel6 368 ShortCut = 41014 369 end 370 item 371 Command = EcFoldLevel7 372 ShortCut = 41015 373 end 374 item 375 Command = EcFoldLevel8 376 ShortCut = 41016 377 end 378 item 379 Command = EcFoldLevel9 380 ShortCut = 41017 381 end 382 item 383 Command = EcFoldLevel0 384 ShortCut = 41008 385 end 386 item 387 Command = EcFoldCurrent 388 ShortCut = 41005 389 end 390 item 391 Command = EcUnFoldCurrent 392 ShortCut = 41003 393 end 394 item 395 Command = EcToggleMarkupWord 396 ShortCut = 32845 397 end 398 item 399 Command = ecNormalSelect 400 ShortCut = 24654 401 end 402 item 403 Command = ecColumnSelect 404 ShortCut = 24643 405 end 406 item 407 Command = ecLineSelect 408 ShortCut = 24652 409 end 410 item 411 Command = ecTab 412 ShortCut = 9 413 end 414 item 415 Command = ecShiftTab 416 ShortCut = 8201 417 end 418 item 419 Command = ecMatchBracket 420 ShortCut = 24642 421 end 422 item 423 Command = ecColSelUp 424 ShortCut = 40998 425 end 426 item 427 Command = ecColSelDown 428 ShortCut = 41000 429 end 430 item 431 Command = ecColSelLeft 432 ShortCut = 40997 433 end 434 item 435 Command = ecColSelRight 436 ShortCut = 40999 437 end 438 item 439 Command = ecColSelPageDown 440 ShortCut = 40994 441 end 442 item 443 Command = ecColSelPageBottom 444 ShortCut = 57378 445 end 446 item 447 Command = ecColSelPageUp 448 ShortCut = 40993 449 end 450 item 451 Command = ecColSelPageTop 452 ShortCut = 57377 453 end 454 item 455 Command = ecColSelLineStart 456 ShortCut = 40996 457 end 458 item 459 Command = ecColSelLineEnd 460 ShortCut = 40995 461 end 462 item 463 Command = ecColSelEditorTop 464 ShortCut = 57380 465 end 466 item 467 Command = ecColSelEditorBottom 468 ShortCut = 57379 469 end> 470 MouseActions = <> 471 MouseTextActions = <> 472 MouseSelActions = <> 473 Lines.Strings = ( 474 'unit unit4;' 475 '' 476 '{$mode objfpc}{$H+}' 477 '' 478 'interface' 479 '' 480 'implementation' 481 '' 482 'type' 483 ' generic TFakeClass<_GT> = class' 484 ' class function gmax(a, b: _GT): _GT;' 485 ' end;' 486 '' 487 ' TFakeClassInt = specialize TFakeClass<integer>;' 488 ' TFakeClassDouble = specialize TFakeClass<double>;' 489 '' 490 'class function TFakeClass.gmax(a, b: _GT): _GT;' 491 'begin' 492 ' if a > b then' 493 ' Result := a' 494 ' else' 495 ' Result := b;' 496 'end;' 497 '' 498 ' generic' 499 'function f<T>(a: T): T;' 500 'begin' 501 ' Result := a + a;' 502 'end;' 503 '' 504 'class function f<T>(a: T): T;' 505 'begin' 506 ' Result := a + a;' 507 'end;' 508 '' 509 '' 510 'generic function f<T>(a: T): T;' 511 'begin' 512 ' Result := a + a;' 513 'end;' 514 '' 515 'generic class function f<T>(a: T): T;' 516 'begin' 517 ' Result := a + a;' 518 'end;' 519 '' 520 '' 521 '//generic' 522 'function Add<T>(aLeft, aRight: T): T;' 523 'begin' 524 ' Result := aLeft + aRight;' 525 'end;' 526 '' 527 'procedure test;' 528 'begin' 529 'Writeln(specialize Add<String>(''Generic '', ''routines'') + specialize Add<String>('' with '', ''Free Pascal''));' 530 'end;' 531 '' 532 '' 533 'procedure test2;' 534 'begin' 535 'writeln( specialize f<integer>(1));' 536 '// show max of two integers' 537 'writeln(''Integer GMax:'', TFakeClassInt.gmax(23, 56));' 538 '// show max of two doubles' 539 'writeln(''Double GMax:'', TFakeClassDouble.gmax(23.89, 56.5));' 540 'readln();' 541 'end;' 542 '' 543 'end.' 544 ) 545 VisibleSpecialChars = [vscSpace, vscTabAtLast] 546 SelectedColor.BackPriority = 50 547 SelectedColor.ForePriority = 50 548 SelectedColor.FramePriority = 50 549 SelectedColor.BoldPriority = 50 550 SelectedColor.ItalicPriority = 50 551 SelectedColor.UnderlinePriority = 50 552 SelectedColor.StrikeOutPriority = 50 553 ScrollOnEditLeftOptions.ScrollExtraPercent = 20 554 ScrollOnEditLeftOptions.ScrollExtraMax = 10 555 ScrollOnEditRightOptions.ScrollExtraPercent = 30 556 ScrollOnEditRightOptions.ScrollExtraMax = 25 557 BracketHighlightStyle = sbhsBoth 558 BracketMatchColor.Background = clNone 559 BracketMatchColor.Foreground = clNone 560 BracketMatchColor.Style = [fsBold] 561 FoldedCodeColor.Background = clNone 562 FoldedCodeColor.Foreground = clGray 563 FoldedCodeColor.FrameColor = clGray 564 MouseLinkColor.Background = clNone 565 MouseLinkColor.Foreground = clBlue 566 LineHighlightColor.Background = clNone 567 LineHighlightColor.Foreground = clNone 568 OnStatusChange = Memo1StatusChange 569 inline SynLeftGutterPartList1: TSynGutterPartList 570 object SynGutterMarks1: TSynGutterMarks 571 Width = 24 572 MouseActions = <> 573 end 574 object SynGutterLineNumber1: TSynGutterLineNumber 575 Width = 17 576 MouseActions = <> 577 MarkupInfo.Background = clBtnFace 578 MarkupInfo.Foreground = clNone 579 DigitCount = 2 580 ShowOnlyLineNumbersMultiplesOf = 1 581 ZeroStart = False 582 LeadingZeros = False 583 end 584 object SynGutterChanges1: TSynGutterChanges 585 Width = 4 586 MouseActions = <> 587 ModifiedColor = 59900 588 SavedColor = clGreen 589 end 590 object SynGutterSeparator1: TSynGutterSeparator 591 Width = 2 592 MouseActions = <> 593 MarkupInfo.Background = clWhite 594 MarkupInfo.Foreground = clGray 595 end 596 object SynGutterCodeFolding1: TSynGutterCodeFolding 597 MouseActions = <> 598 MarkupInfo.Background = clNone 599 MarkupInfo.Foreground = clGray 600 MouseActionsExpanded = <> 601 MouseActionsCollapsed = <> 602 end 603 end 604 end 605 inline Memo2: TSynEdit 606 Left = 704 607 Height = 472 608 Top = 8 609 Width = 587 610 Anchors = [akTop, akLeft, akRight, akBottom] 611 Font.Height = -13 612 Font.Name = 'Courier New' 613 Font.Pitch = fpFixed 614 Font.Quality = fqNonAntialiased 615 ParentColor = False 616 ParentFont = False 617 TabOrder = 3 618 Gutter.Width = 57 619 Gutter.MouseActions = <> 620 RightGutter.Width = 0 621 RightGutter.MouseActions = <> 622 Highlighter = SynPasSyn1 623 Keystrokes = < 624 item 625 Command = ecUp 626 ShortCut = 38 627 end 628 item 629 Command = ecSelUp 630 ShortCut = 8230 631 end 632 item 633 Command = ecScrollUp 634 ShortCut = 16422 635 end 636 item 637 Command = ecDown 638 ShortCut = 40 639 end 640 item 641 Command = ecSelDown 642 ShortCut = 8232 643 end 644 item 645 Command = ecScrollDown 646 ShortCut = 16424 647 end 648 item 649 Command = ecLeft 650 ShortCut = 37 651 end 652 item 653 Command = ecSelLeft 654 ShortCut = 8229 655 end 656 item 657 Command = ecWordLeft 658 ShortCut = 16421 659 end 660 item 661 Command = ecSelWordLeft 662 ShortCut = 24613 663 end 664 item 665 Command = ecRight 666 ShortCut = 39 667 end 668 item 669 Command = ecSelRight 670 ShortCut = 8231 671 end 672 item 673 Command = ecWordRight 674 ShortCut = 16423 675 end 676 item 677 Command = ecSelWordRight 678 ShortCut = 24615 679 end 680 item 681 Command = ecPageDown 682 ShortCut = 34 683 end 684 item 685 Command = ecSelPageDown 686 ShortCut = 8226 687 end 688 item 689 Command = ecPageBottom 690 ShortCut = 16418 691 end 692 item 693 Command = ecSelPageBottom 694 ShortCut = 24610 695 end 696 item 697 Command = ecPageUp 698 ShortCut = 33 699 end 700 item 701 Command = ecSelPageUp 702 ShortCut = 8225 703 end 704 item 705 Command = ecPageTop 706 ShortCut = 16417 707 end 708 item 709 Command = ecSelPageTop 710 ShortCut = 24609 711 end 712 item 713 Command = ecLineStart 714 ShortCut = 36 715 end 716 item 717 Command = ecSelLineStart 718 ShortCut = 8228 719 end 720 item 721 Command = ecEditorTop 722 ShortCut = 16420 723 end 724 item 725 Command = ecSelEditorTop 726 ShortCut = 24612 727 end 728 item 729 Command = ecLineEnd 730 ShortCut = 35 731 end 732 item 733 Command = ecSelLineEnd 734 ShortCut = 8227 735 end 736 item 737 Command = ecEditorBottom 738 ShortCut = 16419 739 end 740 item 741 Command = ecSelEditorBottom 742 ShortCut = 24611 743 end 744 item 745 Command = ecToggleMode 746 ShortCut = 45 747 end 748 item 749 Command = ecCopy 750 ShortCut = 16429 751 end 752 item 753 Command = ecPaste 754 ShortCut = 8237 755 end 756 item 757 Command = ecDeleteChar 758 ShortCut = 46 759 end 760 item 761 Command = ecCut 762 ShortCut = 8238 763 end 764 item 765 Command = ecDeleteLastChar 766 ShortCut = 8 767 end 768 item 769 Command = ecDeleteLastChar 770 ShortCut = 8200 771 end 772 item 773 Command = ecDeleteLastWord 774 ShortCut = 16392 775 end 776 item 777 Command = ecUndo 778 ShortCut = 32776 779 end 780 item 781 Command = ecRedo 782 ShortCut = 40968 783 end 784 item 785 Command = ecLineBreak 786 ShortCut = 13 787 end 788 item 789 Command = ecSelectAll 790 ShortCut = 16449 791 end 792 item 793 Command = ecCopy 794 ShortCut = 16451 795 end 796 item 797 Command = ecBlockIndent 798 ShortCut = 24649 799 end 800 item 801 Command = ecLineBreak 802 ShortCut = 16461 803 end 804 item 805 Command = ecInsertLine 806 ShortCut = 16462 807 end 808 item 809 Command = ecDeleteWord 810 ShortCut = 16468 811 end 812 item 813 Command = ecBlockUnindent 814 ShortCut = 24661 815 end 816 item 817 Command = ecPaste 818 ShortCut = 16470 819 end 820 item 821 Command = ecCut 822 ShortCut = 16472 823 end 824 item 825 Command = ecDeleteLine 826 ShortCut = 16473 827 end 828 item 829 Command = ecDeleteEOL 830 ShortCut = 24665 831 end 832 item 833 Command = ecUndo 834 ShortCut = 16474 835 end 836 item 837 Command = ecRedo 838 ShortCut = 24666 839 end 840 item 841 Command = ecGotoMarker0 842 ShortCut = 16432 843 end 844 item 845 Command = ecGotoMarker1 846 ShortCut = 16433 847 end 848 item 849 Command = ecGotoMarker2 850 ShortCut = 16434 851 end 852 item 853 Command = ecGotoMarker3 854 ShortCut = 16435 855 end 856 item 857 Command = ecGotoMarker4 858 ShortCut = 16436 859 end 860 item 861 Command = ecGotoMarker5 862 ShortCut = 16437 863 end 864 item 865 Command = ecGotoMarker6 866 ShortCut = 16438 867 end 868 item 869 Command = ecGotoMarker7 870 ShortCut = 16439 871 end 872 item 873 Command = ecGotoMarker8 874 ShortCut = 16440 875 end 876 item 877 Command = ecGotoMarker9 878 ShortCut = 16441 879 end 880 item 881 Command = ecSetMarker0 882 ShortCut = 24624 883 end 884 item 885 Command = ecSetMarker1 886 ShortCut = 24625 887 end 888 item 889 Command = ecSetMarker2 890 ShortCut = 24626 891 end 892 item 893 Command = ecSetMarker3 894 ShortCut = 24627 895 end 896 item 897 Command = ecSetMarker4 898 ShortCut = 24628 899 end 900 item 901 Command = ecSetMarker5 902 ShortCut = 24629 903 end 904 item 905 Command = ecSetMarker6 906 ShortCut = 24630 907 end 908 item 909 Command = ecSetMarker7 910 ShortCut = 24631 911 end 912 item 913 Command = ecSetMarker8 914 ShortCut = 24632 915 end 916 item 917 Command = ecSetMarker9 918 ShortCut = 24633 919 end 920 item 921 Command = EcFoldLevel1 922 ShortCut = 41009 923 end 924 item 925 Command = EcFoldLevel2 926 ShortCut = 41010 927 end 928 item 929 Command = EcFoldLevel3 930 ShortCut = 41011 931 end 932 item 933 Command = EcFoldLevel4 934 ShortCut = 41012 935 end 936 item 937 Command = EcFoldLevel5 938 ShortCut = 41013 939 end 940 item 941 Command = EcFoldLevel6 942 ShortCut = 41014 943 end 944 item 945 Command = EcFoldLevel7 946 ShortCut = 41015 947 end 948 item 949 Command = EcFoldLevel8 950 ShortCut = 41016 951 end 952 item 953 Command = EcFoldLevel9 954 ShortCut = 41017 955 end 956 item 957 Command = EcFoldLevel0 958 ShortCut = 41008 959 end 960 item 961 Command = EcFoldCurrent 962 ShortCut = 41005 963 end 964 item 965 Command = EcUnFoldCurrent 966 ShortCut = 41003 967 end 968 item 969 Command = EcToggleMarkupWord 970 ShortCut = 32845 971 end 972 item 973 Command = ecNormalSelect 974 ShortCut = 24654 975 end 976 item 977 Command = ecColumnSelect 978 ShortCut = 24643 979 end 980 item 981 Command = ecLineSelect 982 ShortCut = 24652 983 end 984 item 985 Command = ecTab 986 ShortCut = 9 987 end 988 item 989 Command = ecShiftTab 990 ShortCut = 8201 991 end 992 item 993 Command = ecMatchBracket 994 ShortCut = 24642 995 end 996 item 997 Command = ecColSelUp 998 ShortCut = 40998 999 end 1000 item 1001 Command = ecColSelDown 1002 ShortCut = 41000 1003 end 1004 item 1005 Command = ecColSelLeft 1006 ShortCut = 40997 1007 end 1008 item 1009 Command = ecColSelRight 1010 ShortCut = 40999 1011 end 1012 item 1013 Command = ecColSelPageDown 1014 ShortCut = 40994 1015 end 1016 item 1017 Command = ecColSelPageBottom 1018 ShortCut = 57378 1019 end 1020 item 1021 Command = ecColSelPageUp 1022 ShortCut = 40993 1023 end 1024 item 1025 Command = ecColSelPageTop 1026 ShortCut = 57377 1027 end 1028 item 1029 Command = ecColSelLineStart 1030 ShortCut = 40996 1031 end 1032 item 1033 Command = ecColSelLineEnd 1034 ShortCut = 40995 1035 end 1036 item 1037 Command = ecColSelEditorTop 1038 ShortCut = 57380 1039 end 1040 item 1041 Command = ecColSelEditorBottom 1042 ShortCut = 57379 1043 end> 1044 MouseActions = <> 1045 MouseTextActions = <> 1046 MouseSelActions = <> 1047 Lines.Strings = ( 1048 '' 1049 ) 1050 VisibleSpecialChars = [vscSpace, vscTabAtLast] 1051 SelectedColor.BackPriority = 50 1052 SelectedColor.ForePriority = 50 1053 SelectedColor.FramePriority = 50 1054 SelectedColor.BoldPriority = 50 1055 SelectedColor.ItalicPriority = 50 1056 SelectedColor.UnderlinePriority = 50 1057 SelectedColor.StrikeOutPriority = 50 1058 ScrollOnEditLeftOptions.ScrollExtraPercent = 20 1059 ScrollOnEditLeftOptions.ScrollExtraMax = 10 1060 ScrollOnEditRightOptions.ScrollExtraPercent = 30 1061 ScrollOnEditRightOptions.ScrollExtraMax = 25 1062 BracketHighlightStyle = sbhsBoth 1063 BracketMatchColor.Background = clNone 1064 BracketMatchColor.Foreground = clNone 1065 BracketMatchColor.Style = [fsBold] 1066 FoldedCodeColor.Background = clNone 1067 FoldedCodeColor.Foreground = clGray 1068 FoldedCodeColor.FrameColor = clGray 1069 MouseLinkColor.Background = clNone 1070 MouseLinkColor.Foreground = clBlue 1071 LineHighlightColor.Background = clNone 1072 LineHighlightColor.Foreground = clNone 1073 inline SynLeftGutterPartList1: TSynGutterPartList 1074 object SynGutterMarks1: TSynGutterMarks 1075 Width = 24 1076 MouseActions = <> 1077 end 1078 object SynGutterLineNumber1: TSynGutterLineNumber 1079 Width = 17 1080 MouseActions = <> 1081 MarkupInfo.Background = clBtnFace 1082 MarkupInfo.Foreground = clNone 1083 DigitCount = 2 1084 ShowOnlyLineNumbersMultiplesOf = 1 1085 ZeroStart = False 1086 LeadingZeros = False 1087 end 1088 object SynGutterChanges1: TSynGutterChanges 1089 Width = 4 1090 MouseActions = <> 1091 ModifiedColor = 59900 1092 SavedColor = clGreen 1093 end 1094 object SynGutterSeparator1: TSynGutterSeparator 1095 Width = 2 1096 MouseActions = <> 1097 MarkupInfo.Background = clWhite 1098 MarkupInfo.Foreground = clGray 1099 end 1100 object SynGutterCodeFolding1: TSynGutterCodeFolding 1101 MouseActions = <> 1102 MarkupInfo.Background = clNone 1103 MarkupInfo.Foreground = clGray 1104 MouseActionsExpanded = <> 1105 MouseActionsCollapsed = <> 1106 end 1107 end 1108 end 1109 object edFileName: TFileNameEdit 1110 Left = 18 1111 Height = 23 1112 Top = 6 1113 Width = 350 1114 OnAcceptFileName = edFileNameAcceptFileName 1115 FilterIndex = 0 1116 HideDirectories = False 1117 ButtonWidth = 23 1118 NumGlyphs = 1 1119 MaxLength = 0 1120 TabOrder = 4 1121 TextHint = 'filename.pas to load' 1122 end 1123 object Button2: TButton 1124 Left = 376 1125 Height = 25 1126 Top = 4 1127 Width = 75 1128 Caption = 'Load' 1129 OnClick = Button2Click 1130 TabOrder = 5 1131 end 1132 object cbShowTree: TCheckBox 1133 Left = 616 1134 Height = 19 1135 Top = 40 1136 Width = 75 1137 Caption = 'Show Tree' 1138 TabOrder = 6 1139 end 1140 object btnClearAndPaste: TButton 1141 Left = 520 1142 Height = 25 1143 Top = 4 1144 Width = 88 1145 Caption = 'Clear and Paste' 1146 OnClick = btnClearAndPasteClick 1147 TabOrder = 7 1148 end 1149 object lbPos: TLabel 1150 Left = 18 1151 Height = 15 1152 Top = 465 1153 Width = 152 1154 Anchors = [akLeft, akBottom] 1155 AutoSize = False 1156 ParentColor = False 1157 end 1158 object SynPasSyn1: TSynPasSyn 1159 Enabled = False 1160 CompilerMode = pcmObjFPC 1161 NestedComments = True 1162 TypeHelpers = False 1163 Left = 644 1164 Top = 120 1165 end 1166 object PopupMenu1: TPopupMenu 1167 Left = 632 1168 Top = 300 1169 object miCut: TMenuItem 1170 Caption = 'Cut' 1171 OnClick = miCutClick 1172 end 1173 object miCopy: TMenuItem 1174 Caption = 'Copy' 1175 OnClick = miCopyClick 1176 end 1177 object miPaste: TMenuItem 1178 Caption = 'Paste' 1179 OnClick = miPasteClick 1180 end 1181 object miSelectAll: TMenuItem 1182 Caption = 'Select all' 1183 OnClick = miSelectAllClick 1184 end 1185 end 1186end 1187