- Timestamp:
- Nov 10, 2009, 9:11:50 AM (15 years ago)
- Location:
- branches/Void
- Files:
-
- 1 added
- 5 edited
-
UCompilator.pas (modified) (2 diffs)
-
UMainForm.lfm (modified) (5 diffs)
-
UMainForm.pas (modified) (8 diffs)
-
UModelViewer.pas (added)
-
project1.lpi (modified) (11 diffs)
-
project1.lpr (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/Void/UCompilator.pas
r14 r15 150 150 with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin 151 151 Name := CommandName; 152 Parser.ParseNextToken;153 152 if Command.Parameters.Count > 0 then begin 153 Parser.ParseNextToken; 154 154 if (Parser.TokenType = ttSymbol) and (Parser.TokenValue = '(') then begin 155 155 Parser.ParseNextToken; … … 227 227 end; 228 228 Parser.ParseNextToken; 229 if (Parser.TokenType <> ttSymbol) and (Parser.TokenValue = ';') then 230 DoError('Expected ;'); 231 Parser.ParseNextToken; 229 232 if Parser.TokenType <> ttWhiteSpace then DoError('Expected white space'); 230 233 end else DoError('Expected identifier'); -
branches/Void/UMainForm.lfm
r9 r15 1 1 object MainForm: TMainForm 2 Left = 4573 Height = 5 254 Top = 1125 Width = 6602 Left = 259 3 Height = 580 4 Top = 65 5 Width = 760 6 6 Caption = 'Překladač Void' 7 ClientHeight = 5 258 ClientWidth = 6607 ClientHeight = 580 8 ClientWidth = 760 9 9 OnClose = FormClose 10 10 OnCreate = FormCreate … … 12 12 OnShow = FormShow 13 13 LCLVersion = '0.9.29' 14 object Memo1: TMemo15 Left = 916 Height = 40217 Top = 2218 Width = 27919 ScrollBars = ssAutoBoth20 TabOrder = 021 end22 object Memo2: TMemo23 Left = 29624 Height = 37625 Top = 2426 Width = 26027 ScrollBars = ssAutoBoth28 TabOrder = 129 end30 14 object Label1: TLabel 31 15 Left = 8 … … 50 34 Width = 549 51 35 ScrollBars = ssAutoBoth 52 TabOrder = 236 TabOrder = 0 53 37 end 54 38 object Label3: TLabel … … 63 47 Left = 562 64 48 Height = 25 65 Top = 2 549 Top = 24 66 50 Width = 75 67 51 Caption = 'Přeložit' 68 52 OnClick = ButtonCompileClick 69 TabOrder = 353 TabOrder = 1 70 54 end 71 55 object ComboBox1: TComboBox 72 Left = 29556 Left = 648 73 57 Height = 21 74 Top = 40475 Width = 26258 Top = 25 59 Width = 80 76 60 ItemHeight = 13 77 61 ItemIndex = 0 … … 81 65 ) 82 66 Style = csDropDownList 83 TabOrder = 467 TabOrder = 2 84 68 Text = 'Pascal' 85 69 end 70 inline SynEdit1: TSynEdit 71 Left = 8 72 Height = 402 73 Top = 22 74 Width = 280 75 Font.Height = -13 76 Font.Name = 'Courier New' 77 Font.Pitch = fpFixed 78 Font.Quality = fqNonAntialiased 79 ParentColor = False 80 ParentFont = False 81 TabOrder = 3 82 BookMarkOptions.OnChange = nil 83 Gutter.Width = 57 84 Gutter.MouseActions = < 85 item 86 Shift = [] 87 ShiftMask = [] 88 Button = mbLeft 89 ClickCount = ccAny 90 ClickDir = cdDown 91 Command = 13 92 MoveCaret = False 93 Option = 0 94 Priority = 0 95 end 96 item 97 Shift = [] 98 ShiftMask = [] 99 Button = mbRight 100 ClickCount = ccSingle 101 ClickDir = cdUp 102 Command = 12 103 MoveCaret = False 104 Option = 0 105 Priority = 0 106 end> 107 Highlighter = SynPasSyn1 108 Keystrokes = < 109 item 110 Command = ecUp 111 ShortCut = 38 112 end 113 item 114 Command = ecSelUp 115 ShortCut = 8230 116 end 117 item 118 Command = ecScrollUp 119 ShortCut = 16422 120 end 121 item 122 Command = ecDown 123 ShortCut = 40 124 end 125 item 126 Command = ecSelDown 127 ShortCut = 8232 128 end 129 item 130 Command = ecScrollDown 131 ShortCut = 16424 132 end 133 item 134 Command = ecLeft 135 ShortCut = 37 136 end 137 item 138 Command = ecSelLeft 139 ShortCut = 8229 140 end 141 item 142 Command = ecWordLeft 143 ShortCut = 16421 144 end 145 item 146 Command = ecSelWordLeft 147 ShortCut = 24613 148 end 149 item 150 Command = ecRight 151 ShortCut = 39 152 end 153 item 154 Command = ecSelRight 155 ShortCut = 8231 156 end 157 item 158 Command = ecWordRight 159 ShortCut = 16423 160 end 161 item 162 Command = ecSelWordRight 163 ShortCut = 24615 164 end 165 item 166 Command = ecPageDown 167 ShortCut = 34 168 end 169 item 170 Command = ecSelPageDown 171 ShortCut = 8226 172 end 173 item 174 Command = ecPageBottom 175 ShortCut = 16418 176 end 177 item 178 Command = ecSelPageBottom 179 ShortCut = 24610 180 end 181 item 182 Command = ecPageUp 183 ShortCut = 33 184 end 185 item 186 Command = ecSelPageUp 187 ShortCut = 8225 188 end 189 item 190 Command = ecPageTop 191 ShortCut = 16417 192 end 193 item 194 Command = ecSelPageTop 195 ShortCut = 24609 196 end 197 item 198 Command = ecLineStart 199 ShortCut = 36 200 end 201 item 202 Command = ecSelLineStart 203 ShortCut = 8228 204 end 205 item 206 Command = ecEditorTop 207 ShortCut = 16420 208 end 209 item 210 Command = ecSelEditorTop 211 ShortCut = 24612 212 end 213 item 214 Command = ecLineEnd 215 ShortCut = 35 216 end 217 item 218 Command = ecSelLineEnd 219 ShortCut = 8227 220 end 221 item 222 Command = ecEditorBottom 223 ShortCut = 16419 224 end 225 item 226 Command = ecSelEditorBottom 227 ShortCut = 24611 228 end 229 item 230 Command = ecToggleMode 231 ShortCut = 45 232 end 233 item 234 Command = ecCopy 235 ShortCut = 16429 236 end 237 item 238 Command = ecPaste 239 ShortCut = 8237 240 end 241 item 242 Command = ecDeleteChar 243 ShortCut = 46 244 end 245 item 246 Command = ecCut 247 ShortCut = 8238 248 end 249 item 250 Command = ecDeleteLastChar 251 ShortCut = 8 252 end 253 item 254 Command = ecDeleteLastChar 255 ShortCut = 8200 256 end 257 item 258 Command = ecDeleteLastWord 259 ShortCut = 16392 260 end 261 item 262 Command = ecUndo 263 ShortCut = 32776 264 end 265 item 266 Command = ecRedo 267 ShortCut = 40968 268 end 269 item 270 Command = ecLineBreak 271 ShortCut = 13 272 end 273 item 274 Command = ecSelectAll 275 ShortCut = 16449 276 end 277 item 278 Command = ecCopy 279 ShortCut = 16451 280 end 281 item 282 Command = ecBlockIndent 283 ShortCut = 24649 284 end 285 item 286 Command = ecLineBreak 287 ShortCut = 16461 288 end 289 item 290 Command = ecInsertLine 291 ShortCut = 16462 292 end 293 item 294 Command = ecDeleteWord 295 ShortCut = 16468 296 end 297 item 298 Command = ecBlockUnindent 299 ShortCut = 24661 300 end 301 item 302 Command = ecPaste 303 ShortCut = 16470 304 end 305 item 306 Command = ecCut 307 ShortCut = 16472 308 end 309 item 310 Command = ecDeleteLine 311 ShortCut = 16473 312 end 313 item 314 Command = ecDeleteEOL 315 ShortCut = 24665 316 end 317 item 318 Command = ecUndo 319 ShortCut = 16474 320 end 321 item 322 Command = ecRedo 323 ShortCut = 24666 324 end 325 item 326 Command = ecGotoMarker0 327 ShortCut = 16432 328 end 329 item 330 Command = ecGotoMarker1 331 ShortCut = 16433 332 end 333 item 334 Command = ecGotoMarker2 335 ShortCut = 16434 336 end 337 item 338 Command = ecGotoMarker3 339 ShortCut = 16435 340 end 341 item 342 Command = ecGotoMarker4 343 ShortCut = 16436 344 end 345 item 346 Command = ecGotoMarker5 347 ShortCut = 16437 348 end 349 item 350 Command = ecGotoMarker6 351 ShortCut = 16438 352 end 353 item 354 Command = ecGotoMarker7 355 ShortCut = 16439 356 end 357 item 358 Command = ecGotoMarker8 359 ShortCut = 16440 360 end 361 item 362 Command = ecGotoMarker9 363 ShortCut = 16441 364 end 365 item 366 Command = ecSetMarker0 367 ShortCut = 24624 368 end 369 item 370 Command = ecSetMarker1 371 ShortCut = 24625 372 end 373 item 374 Command = ecSetMarker2 375 ShortCut = 24626 376 end 377 item 378 Command = ecSetMarker3 379 ShortCut = 24627 380 end 381 item 382 Command = ecSetMarker4 383 ShortCut = 24628 384 end 385 item 386 Command = ecSetMarker5 387 ShortCut = 24629 388 end 389 item 390 Command = ecSetMarker6 391 ShortCut = 24630 392 end 393 item 394 Command = ecSetMarker7 395 ShortCut = 24631 396 end 397 item 398 Command = ecSetMarker8 399 ShortCut = 24632 400 end 401 item 402 Command = ecSetMarker9 403 ShortCut = 24633 404 end 405 item 406 Command = EcFoldLevel1 407 ShortCut = 41009 408 end 409 item 410 Command = EcFoldLevel2 411 ShortCut = 41010 412 end 413 item 414 Command = EcFoldLevel1 415 ShortCut = 41011 416 end 417 item 418 Command = EcFoldLevel1 419 ShortCut = 41012 420 end 421 item 422 Command = EcFoldLevel1 423 ShortCut = 41013 424 end 425 item 426 Command = EcFoldLevel6 427 ShortCut = 41014 428 end 429 item 430 Command = EcFoldLevel7 431 ShortCut = 41015 432 end 433 item 434 Command = EcFoldLevel8 435 ShortCut = 41016 436 end 437 item 438 Command = EcFoldLevel9 439 ShortCut = 41017 440 end 441 item 442 Command = EcFoldLevel0 443 ShortCut = 41008 444 end 445 item 446 Command = EcFoldCurrent 447 ShortCut = 41005 448 end 449 item 450 Command = EcUnFoldCurrent 451 ShortCut = 41003 452 end 453 item 454 Command = EcToggleMarkupWord 455 ShortCut = 32845 456 end 457 item 458 Command = ecNormalSelect 459 ShortCut = 24654 460 end 461 item 462 Command = ecColumnSelect 463 ShortCut = 24643 464 end 465 item 466 Command = ecLineSelect 467 ShortCut = 24652 468 end 469 item 470 Command = ecTab 471 ShortCut = 9 472 end 473 item 474 Command = ecShiftTab 475 ShortCut = 8201 476 end 477 item 478 Command = ecMatchBracket 479 ShortCut = 24642 480 end 481 item 482 Command = ecColSelUp 483 ShortCut = 40998 484 end 485 item 486 Command = ecColSelDown 487 ShortCut = 41000 488 end 489 item 490 Command = ecColSelLeft 491 ShortCut = 40997 492 end 493 item 494 Command = ecColSelRight 495 ShortCut = 40999 496 end 497 item 498 Command = ecColSelPageDown 499 ShortCut = 40994 500 end 501 item 502 Command = ecColSelPageBottom 503 ShortCut = 57378 504 end 505 item 506 Command = ecColSelPageUp 507 ShortCut = 40993 508 end 509 item 510 Command = ecColSelPageTop 511 ShortCut = 57377 512 end 513 item 514 Command = ecColSelLineStart 515 ShortCut = 40996 516 end 517 item 518 Command = ecColSelLineEnd 519 ShortCut = 40995 520 end 521 item 522 Command = ecColSelEditorTop 523 ShortCut = 57380 524 end 525 item 526 Command = ecColSelEditorBottom 527 ShortCut = 57379 528 end> 529 MouseActions = < 530 item 531 Shift = [] 532 ShiftMask = [ssShift, ssAlt] 533 Button = mbLeft 534 ClickCount = ccSingle 535 ClickDir = cdDown 536 Command = 1 537 MoveCaret = True 538 Option = 0 539 Priority = 0 540 end 541 item 542 Shift = [ssShift] 543 ShiftMask = [ssShift, ssAlt] 544 Button = mbLeft 545 ClickCount = ccSingle 546 ClickDir = cdDown 547 Command = 1 548 MoveCaret = True 549 Option = 1 550 Priority = 0 551 end 552 item 553 Shift = [ssAlt] 554 ShiftMask = [ssShift, ssAlt] 555 Button = mbLeft 556 ClickCount = ccSingle 557 ClickDir = cdDown 558 Command = 3 559 MoveCaret = True 560 Option = 0 561 Priority = 0 562 end 563 item 564 Shift = [ssShift, ssAlt] 565 ShiftMask = [ssShift, ssAlt] 566 Button = mbLeft 567 ClickCount = ccSingle 568 ClickDir = cdDown 569 Command = 3 570 MoveCaret = True 571 Option = 1 572 Priority = 0 573 end 574 item 575 Shift = [] 576 ShiftMask = [] 577 Button = mbRight 578 ClickCount = ccSingle 579 ClickDir = cdUp 580 Command = 12 581 MoveCaret = False 582 Option = 0 583 Priority = 0 584 end 585 item 586 Shift = [] 587 ShiftMask = [] 588 Button = mbLeft 589 ClickCount = ccDouble 590 ClickDir = cdDown 591 Command = 6 592 MoveCaret = True 593 Option = 0 594 Priority = 0 595 end 596 item 597 Shift = [] 598 ShiftMask = [] 599 Button = mbLeft 600 ClickCount = ccTriple 601 ClickDir = cdDown 602 Command = 7 603 MoveCaret = True 604 Option = 0 605 Priority = 0 606 end 607 item 608 Shift = [] 609 ShiftMask = [] 610 Button = mbLeft 611 ClickCount = ccQuad 612 ClickDir = cdDown 613 Command = 8 614 MoveCaret = True 615 Option = 0 616 Priority = 0 617 end 618 item 619 Shift = [] 620 ShiftMask = [] 621 Button = mbMiddle 622 ClickCount = ccSingle 623 ClickDir = cdDown 624 Command = 10 625 MoveCaret = True 626 Option = 0 627 Priority = 0 628 end 629 item 630 Shift = [ssCtrl] 631 ShiftMask = [ssShift, ssAlt, ssCtrl] 632 Button = mbLeft 633 ClickCount = ccSingle 634 ClickDir = cdUp 635 Command = 11 636 MoveCaret = False 637 Option = 0 638 Priority = 0 639 end> 640 MouseSelActions = < 641 item 642 Shift = [] 643 ShiftMask = [] 644 Button = mbLeft 645 ClickCount = ccSingle 646 ClickDir = cdDown 647 Command = 9 648 MoveCaret = False 649 Option = 0 650 Priority = 0 651 end> 652 Lines.Strings = ( 653 'SynEdit1' 654 ) 655 BracketHighlightStyle = sbhsBoth 656 inline SynGutterPartList1: TSynGutterPartList 657 object SynGutterMarks1: TSynGutterMarks 658 Width = 23 659 end 660 object SynGutterLineNumber1: TSynGutterLineNumber 661 Width = 17 662 MouseActions = <> 663 MarkupInfo.Background = clBtnFace 664 MarkupInfo.Foreground = clNone 665 DigitCount = 2 666 ShowOnlyLineNumbersMultiplesOf = 1 667 ZeroStart = False 668 LeadingZeros = False 669 end 670 object SynGutterChanges1: TSynGutterChanges 671 Width = 4 672 ModifiedColor = 59900 673 SavedColor = clGreen 674 end 675 object SynGutterSeparator1: TSynGutterSeparator 676 Width = 2 677 end 678 object SynGutterCodeFolding1: TSynGutterCodeFolding 679 MouseActions = < 680 item 681 Shift = [] 682 ShiftMask = [] 683 Button = mbRight 684 ClickCount = ccSingle 685 ClickDir = cdUp 686 Command = 16 687 MoveCaret = False 688 Option = 0 689 Priority = 0 690 end 691 item 692 Shift = [] 693 ShiftMask = [ssShift] 694 Button = mbMiddle 695 ClickCount = ccAny 696 ClickDir = cdDown 697 Command = 14 698 MoveCaret = False 699 Option = 0 700 Priority = 0 701 end 702 item 703 Shift = [ssShift] 704 ShiftMask = [ssShift] 705 Button = mbMiddle 706 ClickCount = ccAny 707 ClickDir = cdDown 708 Command = 14 709 MoveCaret = False 710 Option = 1 711 Priority = 0 712 end 713 item 714 Shift = [] 715 ShiftMask = [] 716 Button = mbLeft 717 ClickCount = ccAny 718 ClickDir = cdDown 719 Command = 0 720 MoveCaret = False 721 Option = 0 722 Priority = 0 723 end> 724 MarkupInfo.Background = clNone 725 MarkupInfo.Foreground = clGray 726 MouseActionsExpanded = < 727 item 728 Shift = [] 729 ShiftMask = [] 730 Button = mbLeft 731 ClickCount = ccAny 732 ClickDir = cdDown 733 Command = 14 734 MoveCaret = False 735 Option = 0 736 Priority = 0 737 end> 738 MouseActionsCollapsed = < 739 item 740 Shift = [ssCtrl] 741 ShiftMask = [ssCtrl] 742 Button = mbLeft 743 ClickCount = ccAny 744 ClickDir = cdDown 745 Command = 15 746 MoveCaret = False 747 Option = 0 748 Priority = 0 749 end 750 item 751 Shift = [] 752 ShiftMask = [ssCtrl] 753 Button = mbLeft 754 ClickCount = ccAny 755 ClickDir = cdDown 756 Command = 15 757 MoveCaret = False 758 Option = 1 759 Priority = 0 760 end> 761 end 762 end 763 end 764 inline SynEdit2: TSynEdit 765 Left = 296 766 Height = 404 767 Top = 22 768 Width = 258 769 Font.Height = -13 770 Font.Name = 'Courier New' 771 Font.Pitch = fpFixed 772 Font.Quality = fqNonAntialiased 773 ParentColor = False 774 ParentFont = False 775 TabOrder = 4 776 BookMarkOptions.OnChange = nil 777 Gutter.Width = 57 778 Gutter.MouseActions = < 779 item 780 Shift = [] 781 ShiftMask = [] 782 Button = mbLeft 783 ClickCount = ccAny 784 ClickDir = cdDown 785 Command = 13 786 MoveCaret = False 787 Option = 0 788 Priority = 0 789 end 790 item 791 Shift = [] 792 ShiftMask = [] 793 Button = mbRight 794 ClickCount = ccSingle 795 ClickDir = cdUp 796 Command = 12 797 MoveCaret = False 798 Option = 0 799 Priority = 0 800 end> 801 Keystrokes = < 802 item 803 Command = ecUp 804 ShortCut = 38 805 end 806 item 807 Command = ecSelUp 808 ShortCut = 8230 809 end 810 item 811 Command = ecScrollUp 812 ShortCut = 16422 813 end 814 item 815 Command = ecDown 816 ShortCut = 40 817 end 818 item 819 Command = ecSelDown 820 ShortCut = 8232 821 end 822 item 823 Command = ecScrollDown 824 ShortCut = 16424 825 end 826 item 827 Command = ecLeft 828 ShortCut = 37 829 end 830 item 831 Command = ecSelLeft 832 ShortCut = 8229 833 end 834 item 835 Command = ecWordLeft 836 ShortCut = 16421 837 end 838 item 839 Command = ecSelWordLeft 840 ShortCut = 24613 841 end 842 item 843 Command = ecRight 844 ShortCut = 39 845 end 846 item 847 Command = ecSelRight 848 ShortCut = 8231 849 end 850 item 851 Command = ecWordRight 852 ShortCut = 16423 853 end 854 item 855 Command = ecSelWordRight 856 ShortCut = 24615 857 end 858 item 859 Command = ecPageDown 860 ShortCut = 34 861 end 862 item 863 Command = ecSelPageDown 864 ShortCut = 8226 865 end 866 item 867 Command = ecPageBottom 868 ShortCut = 16418 869 end 870 item 871 Command = ecSelPageBottom 872 ShortCut = 24610 873 end 874 item 875 Command = ecPageUp 876 ShortCut = 33 877 end 878 item 879 Command = ecSelPageUp 880 ShortCut = 8225 881 end 882 item 883 Command = ecPageTop 884 ShortCut = 16417 885 end 886 item 887 Command = ecSelPageTop 888 ShortCut = 24609 889 end 890 item 891 Command = ecLineStart 892 ShortCut = 36 893 end 894 item 895 Command = ecSelLineStart 896 ShortCut = 8228 897 end 898 item 899 Command = ecEditorTop 900 ShortCut = 16420 901 end 902 item 903 Command = ecSelEditorTop 904 ShortCut = 24612 905 end 906 item 907 Command = ecLineEnd 908 ShortCut = 35 909 end 910 item 911 Command = ecSelLineEnd 912 ShortCut = 8227 913 end 914 item 915 Command = ecEditorBottom 916 ShortCut = 16419 917 end 918 item 919 Command = ecSelEditorBottom 920 ShortCut = 24611 921 end 922 item 923 Command = ecToggleMode 924 ShortCut = 45 925 end 926 item 927 Command = ecCopy 928 ShortCut = 16429 929 end 930 item 931 Command = ecPaste 932 ShortCut = 8237 933 end 934 item 935 Command = ecDeleteChar 936 ShortCut = 46 937 end 938 item 939 Command = ecCut 940 ShortCut = 8238 941 end 942 item 943 Command = ecDeleteLastChar 944 ShortCut = 8 945 end 946 item 947 Command = ecDeleteLastChar 948 ShortCut = 8200 949 end 950 item 951 Command = ecDeleteLastWord 952 ShortCut = 16392 953 end 954 item 955 Command = ecUndo 956 ShortCut = 32776 957 end 958 item 959 Command = ecRedo 960 ShortCut = 40968 961 end 962 item 963 Command = ecLineBreak 964 ShortCut = 13 965 end 966 item 967 Command = ecSelectAll 968 ShortCut = 16449 969 end 970 item 971 Command = ecCopy 972 ShortCut = 16451 973 end 974 item 975 Command = ecBlockIndent 976 ShortCut = 24649 977 end 978 item 979 Command = ecLineBreak 980 ShortCut = 16461 981 end 982 item 983 Command = ecInsertLine 984 ShortCut = 16462 985 end 986 item 987 Command = ecDeleteWord 988 ShortCut = 16468 989 end 990 item 991 Command = ecBlockUnindent 992 ShortCut = 24661 993 end 994 item 995 Command = ecPaste 996 ShortCut = 16470 997 end 998 item 999 Command = ecCut 1000 ShortCut = 16472 1001 end 1002 item 1003 Command = ecDeleteLine 1004 ShortCut = 16473 1005 end 1006 item 1007 Command = ecDeleteEOL 1008 ShortCut = 24665 1009 end 1010 item 1011 Command = ecUndo 1012 ShortCut = 16474 1013 end 1014 item 1015 Command = ecRedo 1016 ShortCut = 24666 1017 end 1018 item 1019 Command = ecGotoMarker0 1020 ShortCut = 16432 1021 end 1022 item 1023 Command = ecGotoMarker1 1024 ShortCut = 16433 1025 end 1026 item 1027 Command = ecGotoMarker2 1028 ShortCut = 16434 1029 end 1030 item 1031 Command = ecGotoMarker3 1032 ShortCut = 16435 1033 end 1034 item 1035 Command = ecGotoMarker4 1036 ShortCut = 16436 1037 end 1038 item 1039 Command = ecGotoMarker5 1040 ShortCut = 16437 1041 end 1042 item 1043 Command = ecGotoMarker6 1044 ShortCut = 16438 1045 end 1046 item 1047 Command = ecGotoMarker7 1048 ShortCut = 16439 1049 end 1050 item 1051 Command = ecGotoMarker8 1052 ShortCut = 16440 1053 end 1054 item 1055 Command = ecGotoMarker9 1056 ShortCut = 16441 1057 end 1058 item 1059 Command = ecSetMarker0 1060 ShortCut = 24624 1061 end 1062 item 1063 Command = ecSetMarker1 1064 ShortCut = 24625 1065 end 1066 item 1067 Command = ecSetMarker2 1068 ShortCut = 24626 1069 end 1070 item 1071 Command = ecSetMarker3 1072 ShortCut = 24627 1073 end 1074 item 1075 Command = ecSetMarker4 1076 ShortCut = 24628 1077 end 1078 item 1079 Command = ecSetMarker5 1080 ShortCut = 24629 1081 end 1082 item 1083 Command = ecSetMarker6 1084 ShortCut = 24630 1085 end 1086 item 1087 Command = ecSetMarker7 1088 ShortCut = 24631 1089 end 1090 item 1091 Command = ecSetMarker8 1092 ShortCut = 24632 1093 end 1094 item 1095 Command = ecSetMarker9 1096 ShortCut = 24633 1097 end 1098 item 1099 Command = EcFoldLevel1 1100 ShortCut = 41009 1101 end 1102 item 1103 Command = EcFoldLevel2 1104 ShortCut = 41010 1105 end 1106 item 1107 Command = EcFoldLevel1 1108 ShortCut = 41011 1109 end 1110 item 1111 Command = EcFoldLevel1 1112 ShortCut = 41012 1113 end 1114 item 1115 Command = EcFoldLevel1 1116 ShortCut = 41013 1117 end 1118 item 1119 Command = EcFoldLevel6 1120 ShortCut = 41014 1121 end 1122 item 1123 Command = EcFoldLevel7 1124 ShortCut = 41015 1125 end 1126 item 1127 Command = EcFoldLevel8 1128 ShortCut = 41016 1129 end 1130 item 1131 Command = EcFoldLevel9 1132 ShortCut = 41017 1133 end 1134 item 1135 Command = EcFoldLevel0 1136 ShortCut = 41008 1137 end 1138 item 1139 Command = EcFoldCurrent 1140 ShortCut = 41005 1141 end 1142 item 1143 Command = EcUnFoldCurrent 1144 ShortCut = 41003 1145 end 1146 item 1147 Command = EcToggleMarkupWord 1148 ShortCut = 32845 1149 end 1150 item 1151 Command = ecNormalSelect 1152 ShortCut = 24654 1153 end 1154 item 1155 Command = ecColumnSelect 1156 ShortCut = 24643 1157 end 1158 item 1159 Command = ecLineSelect 1160 ShortCut = 24652 1161 end 1162 item 1163 Command = ecTab 1164 ShortCut = 9 1165 end 1166 item 1167 Command = ecShiftTab 1168 ShortCut = 8201 1169 end 1170 item 1171 Command = ecMatchBracket 1172 ShortCut = 24642 1173 end 1174 item 1175 Command = ecColSelUp 1176 ShortCut = 40998 1177 end 1178 item 1179 Command = ecColSelDown 1180 ShortCut = 41000 1181 end 1182 item 1183 Command = ecColSelLeft 1184 ShortCut = 40997 1185 end 1186 item 1187 Command = ecColSelRight 1188 ShortCut = 40999 1189 end 1190 item 1191 Command = ecColSelPageDown 1192 ShortCut = 40994 1193 end 1194 item 1195 Command = ecColSelPageBottom 1196 ShortCut = 57378 1197 end 1198 item 1199 Command = ecColSelPageUp 1200 ShortCut = 40993 1201 end 1202 item 1203 Command = ecColSelPageTop 1204 ShortCut = 57377 1205 end 1206 item 1207 Command = ecColSelLineStart 1208 ShortCut = 40996 1209 end 1210 item 1211 Command = ecColSelLineEnd 1212 ShortCut = 40995 1213 end 1214 item 1215 Command = ecColSelEditorTop 1216 ShortCut = 57380 1217 end 1218 item 1219 Command = ecColSelEditorBottom 1220 ShortCut = 57379 1221 end> 1222 MouseActions = < 1223 item 1224 Shift = [] 1225 ShiftMask = [ssShift, ssAlt] 1226 Button = mbLeft 1227 ClickCount = ccSingle 1228 ClickDir = cdDown 1229 Command = 1 1230 MoveCaret = True 1231 Option = 0 1232 Priority = 0 1233 end 1234 item 1235 Shift = [ssShift] 1236 ShiftMask = [ssShift, ssAlt] 1237 Button = mbLeft 1238 ClickCount = ccSingle 1239 ClickDir = cdDown 1240 Command = 1 1241 MoveCaret = True 1242 Option = 1 1243 Priority = 0 1244 end 1245 item 1246 Shift = [ssAlt] 1247 ShiftMask = [ssShift, ssAlt] 1248 Button = mbLeft 1249 ClickCount = ccSingle 1250 ClickDir = cdDown 1251 Command = 3 1252 MoveCaret = True 1253 Option = 0 1254 Priority = 0 1255 end 1256 item 1257 Shift = [ssShift, ssAlt] 1258 ShiftMask = [ssShift, ssAlt] 1259 Button = mbLeft 1260 ClickCount = ccSingle 1261 ClickDir = cdDown 1262 Command = 3 1263 MoveCaret = True 1264 Option = 1 1265 Priority = 0 1266 end 1267 item 1268 Shift = [] 1269 ShiftMask = [] 1270 Button = mbRight 1271 ClickCount = ccSingle 1272 ClickDir = cdUp 1273 Command = 12 1274 MoveCaret = False 1275 Option = 0 1276 Priority = 0 1277 end 1278 item 1279 Shift = [] 1280 ShiftMask = [] 1281 Button = mbLeft 1282 ClickCount = ccDouble 1283 ClickDir = cdDown 1284 Command = 6 1285 MoveCaret = True 1286 Option = 0 1287 Priority = 0 1288 end 1289 item 1290 Shift = [] 1291 ShiftMask = [] 1292 Button = mbLeft 1293 ClickCount = ccTriple 1294 ClickDir = cdDown 1295 Command = 7 1296 MoveCaret = True 1297 Option = 0 1298 Priority = 0 1299 end 1300 item 1301 Shift = [] 1302 ShiftMask = [] 1303 Button = mbLeft 1304 ClickCount = ccQuad 1305 ClickDir = cdDown 1306 Command = 8 1307 MoveCaret = True 1308 Option = 0 1309 Priority = 0 1310 end 1311 item 1312 Shift = [] 1313 ShiftMask = [] 1314 Button = mbMiddle 1315 ClickCount = ccSingle 1316 ClickDir = cdDown 1317 Command = 10 1318 MoveCaret = True 1319 Option = 0 1320 Priority = 0 1321 end 1322 item 1323 Shift = [ssCtrl] 1324 ShiftMask = [ssShift, ssAlt, ssCtrl] 1325 Button = mbLeft 1326 ClickCount = ccSingle 1327 ClickDir = cdUp 1328 Command = 11 1329 MoveCaret = False 1330 Option = 0 1331 Priority = 0 1332 end> 1333 MouseSelActions = < 1334 item 1335 Shift = [] 1336 ShiftMask = [] 1337 Button = mbLeft 1338 ClickCount = ccSingle 1339 ClickDir = cdDown 1340 Command = 9 1341 MoveCaret = False 1342 Option = 0 1343 Priority = 0 1344 end> 1345 Lines.Strings = ( 1346 'SynEdit2' 1347 ) 1348 BracketHighlightStyle = sbhsBoth 1349 inline SynGutterPartList1: TSynGutterPartList 1350 object SynGutterMarks1: TSynGutterMarks 1351 Width = 23 1352 end 1353 object SynGutterLineNumber1: TSynGutterLineNumber 1354 Width = 17 1355 MouseActions = <> 1356 MarkupInfo.Background = clBtnFace 1357 MarkupInfo.Foreground = clNone 1358 DigitCount = 2 1359 ShowOnlyLineNumbersMultiplesOf = 1 1360 ZeroStart = False 1361 LeadingZeros = False 1362 end 1363 object SynGutterChanges1: TSynGutterChanges 1364 Width = 4 1365 ModifiedColor = 59900 1366 SavedColor = clGreen 1367 end 1368 object SynGutterSeparator1: TSynGutterSeparator 1369 Width = 2 1370 end 1371 object SynGutterCodeFolding1: TSynGutterCodeFolding 1372 MouseActions = < 1373 item 1374 Shift = [] 1375 ShiftMask = [] 1376 Button = mbRight 1377 ClickCount = ccSingle 1378 ClickDir = cdUp 1379 Command = 16 1380 MoveCaret = False 1381 Option = 0 1382 Priority = 0 1383 end 1384 item 1385 Shift = [] 1386 ShiftMask = [ssShift] 1387 Button = mbMiddle 1388 ClickCount = ccAny 1389 ClickDir = cdDown 1390 Command = 14 1391 MoveCaret = False 1392 Option = 0 1393 Priority = 0 1394 end 1395 item 1396 Shift = [ssShift] 1397 ShiftMask = [ssShift] 1398 Button = mbMiddle 1399 ClickCount = ccAny 1400 ClickDir = cdDown 1401 Command = 14 1402 MoveCaret = False 1403 Option = 1 1404 Priority = 0 1405 end 1406 item 1407 Shift = [] 1408 ShiftMask = [] 1409 Button = mbLeft 1410 ClickCount = ccAny 1411 ClickDir = cdDown 1412 Command = 0 1413 MoveCaret = False 1414 Option = 0 1415 Priority = 0 1416 end> 1417 MarkupInfo.Background = clNone 1418 MarkupInfo.Foreground = clGray 1419 MouseActionsExpanded = < 1420 item 1421 Shift = [] 1422 ShiftMask = [] 1423 Button = mbLeft 1424 ClickCount = ccAny 1425 ClickDir = cdDown 1426 Command = 14 1427 MoveCaret = False 1428 Option = 0 1429 Priority = 0 1430 end> 1431 MouseActionsCollapsed = < 1432 item 1433 Shift = [ssCtrl] 1434 ShiftMask = [ssCtrl] 1435 Button = mbLeft 1436 ClickCount = ccAny 1437 ClickDir = cdDown 1438 Command = 15 1439 MoveCaret = False 1440 Option = 0 1441 Priority = 0 1442 end 1443 item 1444 Shift = [] 1445 ShiftMask = [ssCtrl] 1446 Button = mbLeft 1447 ClickCount = ccAny 1448 ClickDir = cdDown 1449 Command = 15 1450 MoveCaret = False 1451 Option = 1 1452 Priority = 0 1453 end> 1454 end 1455 end 1456 end 1457 object TreeView1: TTreeView 1458 Left = 566 1459 Height = 354 1460 Top = 72 1461 Width = 185 1462 DefaultItemHeight = 15 1463 TabOrder = 5 1464 end 1465 object Label4: TLabel 1466 Left = 567 1467 Height = 14 1468 Top = 55 1469 Width = 50 1470 Caption = 'Struktura:' 1471 ParentColor = False 1472 end 1473 object SynPasSyn1: TSynPasSyn 1474 CompilerMode = pcmDelphi 1475 NestedComments = False 1476 left = 376 1477 top = 56 1478 end 1479 object SynCppSyn1: TSynCppSyn 1480 DefaultFilter = 'C++ Files (*.c,*.cpp,*.h,*.hpp,*.hh)|*.c;*.cpp;*.h;*.hpp;*.hh' 1481 left = 376 1482 top = 112 1483 end 86 1484 end -
branches/Void/UMainForm.pas
r10 r15 7 7 uses 8 8 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 StdCtrls, UCompilator, UOutputGenerator; 9 StdCtrls, ComCtrls, SynHighlighterPas, SynEdit, SynHighlighterCpp, 10 UCompilator, UOutputGenerator, UModelViewer; 10 11 11 12 const … … 22 23 Label2: TLabel; 23 24 Label3: TLabel; 24 Memo1: TMemo; 25 Memo2: TMemo; 25 Label4: TLabel; 26 26 Memo3: TMemo; 27 SynCppSyn1: TSynCppSyn; 28 SynEdit1: TSynEdit; 29 SynEdit2: TSynEdit; 30 SynPasSyn1: TSynPasSyn; 31 TreeView1: TTreeView; 27 32 procedure ButtonCompileClick(Sender: TObject); 28 33 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); … … 32 37 private 33 38 SourceCode: TMemoryStream; 39 ModelViewer: TModelViewer; 34 40 procedure CompilatorError(Text: string; var Terminate: Boolean; 35 41 Position: TPoint); … … 47 53 procedure TMainForm.FormShow(Sender: TObject); 48 54 begin 49 Memo1.Lines.LoadFromFile(SourceFileName);55 SynEdit1.Lines.LoadFromFile(SourceFileName); 50 56 ButtonCompileClick(Self); 51 57 end; … … 53 59 procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); 54 60 begin 55 Memo1.Lines.SaveToFile(SourceFileName);61 SynEdit1.Lines.SaveToFile(SourceFileName); 56 62 end; 57 63 … … 60 66 Compilator := TCompilator.Create; 61 67 Compilator.OnError := CompilatorError; 68 ModelViewer := TModelViewer.Create; 62 69 end; 63 70 … … 65 72 begin 66 73 Compilator.Destroy; 74 ModelViewer.Destroy; 67 75 end; 68 76 … … 73 81 with Compilator do begin 74 82 Memo3.Lines.Clear; 75 Code := Memo1.Lines.Text;83 Code := SynEdit1.Lines.Text; 76 84 SourceCode.Size := 0; 77 85 SourceCode.Write(Code[1], Length(Code)); 78 86 if Assigned(Generator) then Generator.Destroy; 79 if ComboBox1.ItemIndex = 0 then 80 Generator := TPascalGenerator.Create 81 else Generator := TCGenerator.Create; 87 if ComboBox1.ItemIndex = 0 then begin 88 Generator := TPascalGenerator.Create; 89 SynEdit2.Highlighter := SynPasSyn1; 90 end else begin 91 Generator := TCGenerator.Create; 92 SynEdit2.Highlighter := SynCppSyn1; 93 end; 82 94 Compile; 83 Memo2.Lines.Assign(Generator.Output); 84 end; 95 SynEdit2.Lines.Assign(Generator.Output); 96 ModelViewer.Show(TreeView1); 97 end; 85 98 end; 86 99 -
branches/Void/project1.lpi
r14 r15 9 9 <Icon Value="0"/> 10 10 <UseXPManifest Value="True"/> 11 <ActiveEditorIndexAtStart Value=" 3"/>11 <ActiveEditorIndexAtStart Value="1"/> 12 12 </General> 13 13 <VersionInfo> … … 28 28 </local> 29 29 </RunParams> 30 <RequiredPackages Count=" 1">30 <RequiredPackages Count="2"> 31 31 <Item1> 32 <PackageName Value="SynEdit"/> 33 <MinVersion Major="1" Valid="True"/> 34 </Item1> 35 <Item2> 32 36 <PackageName Value="LCL"/> 33 </Item 1>37 </Item2> 34 38 </RequiredPackages> 35 <Units Count="1 5">39 <Units Count="16"> 36 40 <Unit0> 37 41 <Filename Value="project1.lpr"/> … … 40 44 <CursorPos X="37" Y="7"/> 41 45 <TopLine Value="1"/> 42 <EditorIndex Value=" 4"/>43 <UsageCount Value="4 2"/>46 <EditorIndex Value="5"/> 47 <UsageCount Value="44"/> 44 48 <Loaded Value="True"/> 45 49 </Unit0> … … 50 54 <ResourceBaseClass Value="Form"/> 51 55 <UnitName Value="UMainForm"/> 52 <CursorPos X=" 46" Y="28"/>53 <TopLine Value="2 8"/>56 <CursorPos X="22" Y="82"/> 57 <TopLine Value="20"/> 54 58 <EditorIndex Value="0"/> 55 <UsageCount Value="4 2"/>59 <UsageCount Value="44"/> 56 60 <Loaded Value="True"/> 57 61 </Unit1> … … 59 63 <Filename Value="UCompilator.pas"/> 60 64 <UnitName Value="UCompilator"/> 61 <CursorPos X=" 53" Y="168"/>62 <TopLine Value=" 149"/>63 <EditorIndex Value=" 1"/>64 <UsageCount Value="2 1"/>65 <CursorPos X="25" Y="228"/> 66 <TopLine Value="213"/> 67 <EditorIndex Value="2"/> 68 <UsageCount Value="22"/> 65 69 <Loaded Value="True"/> 66 70 </Unit2> … … 69 73 <IsPartOfProject Value="True"/> 70 74 <UnitName Value="UOutputGenerator"/> 71 <CursorPos X=" 7" Y="160"/>72 <TopLine Value=" 127"/>73 <EditorIndex Value=" 3"/>74 <UsageCount Value="4 2"/>75 <CursorPos X="18" Y="144"/> 76 <TopLine Value="93"/> 77 <EditorIndex Value="4"/> 78 <UsageCount Value="44"/> 75 79 <Loaded Value="True"/> 76 80 </Unit3> … … 80 84 <CursorPos X="4" Y="1"/> 81 85 <TopLine Value="1"/> 82 <UsageCount Value="4 2"/>86 <UsageCount Value="44"/> 83 87 <SyntaxHighlighter Value="None"/> 84 88 </Unit4> … … 90 94 <TopLine Value="215"/> 91 95 <EditorIndex Value="6"/> 92 <UsageCount Value="4 2"/>96 <UsageCount Value="44"/> 93 97 <Loaded Value="True"/> 94 98 </Unit5> … … 124 128 <CursorPos X="5" Y="51"/> 125 129 <TopLine Value="45"/> 126 <EditorIndex Value=" 2"/>127 <UsageCount Value="4 2"/>130 <EditorIndex Value="3"/> 131 <UsageCount Value="44"/> 128 132 <Loaded Value="True"/> 129 133 </Unit10> … … 146 150 <CursorPos X="1" Y="1"/> 147 151 <TopLine Value="1"/> 148 <EditorIndex Value="5"/> 149 <UsageCount Value="11"/> 150 <Loaded Value="True"/> 152 <UsageCount Value="12"/> 151 153 </Unit13> 152 154 <Unit14> … … 156 158 <UsageCount Value="10"/> 157 159 </Unit14> 160 <Unit15> 161 <Filename Value="UModelViewer.pas"/> 162 <IsPartOfProject Value="True"/> 163 <UnitName Value="UModelViewer"/> 164 <CursorPos X="45" Y="36"/> 165 <TopLine Value="15"/> 166 <EditorIndex Value="1"/> 167 <UsageCount Value="20"/> 168 <Loaded Value="True"/> 169 </Unit15> 158 170 </Units> 159 171 <JumpHistory Count="30" HistoryIndex="29"> 160 172 <Position1> 161 173 <Filename Value="UCompilator.pas"/> 162 <Caret Line="1 48" Column="1" TopLine="133"/>174 <Caret Line="166" Column="55" TopLine="149"/> 163 175 </Position1> 164 176 <Position2> 165 <Filename Value="U Compilator.pas"/>166 <Caret Line=" 149" Column="1" TopLine="134"/>177 <Filename Value="UMainForm.pas"/> 178 <Caret Line="28" Column="46" TopLine="28"/> 167 179 </Position2> 168 180 <Position3> 169 <Filename Value="U Compilator.pas"/>170 <Caret Line=" 183" Column="1" TopLine="168"/>181 <Filename Value="UMainForm.pas"/> 182 <Caret Line="29" Column="46" TopLine="28"/> 171 183 </Position3> 172 184 <Position4> 173 <Filename Value="U Compilator.pas"/>174 <Caret Line=" 184" Column="1" TopLine="169"/>185 <Filename Value="UMainForm.pas"/> 186 <Caret Line="30" Column="46" TopLine="28"/> 175 187 </Position4> 176 188 <Position5> 177 <Filename Value="U Compilator.pas"/>178 <Caret Line=" 185" Column="1" TopLine="170"/>189 <Filename Value="UMainForm.pas"/> 190 <Caret Line="29" Column="46" TopLine="28"/> 179 191 </Position5> 180 192 <Position6> 181 <Filename Value="U Compilator.pas"/>182 <Caret Line=" 186" Column="1" TopLine="171"/>193 <Filename Value="UMainForm.pas"/> 194 <Caret Line="28" Column="46" TopLine="28"/> 183 195 </Position6> 184 196 <Position7> 185 <Filename Value="U Compilator.pas"/>186 <Caret Line=" 187" Column="1" TopLine="172"/>197 <Filename Value="UMainForm.pas"/> 198 <Caret Line="29" Column="46" TopLine="28"/> 187 199 </Position7> 188 200 <Position8> 189 <Filename Value="U Compilator.pas"/>190 <Caret Line=" 188" Column="1" TopLine="173"/>201 <Filename Value="UMainForm.pas"/> 202 <Caret Line="50" Column="1" TopLine="35"/> 191 203 </Position8> 192 204 <Position9> 193 <Filename Value="U Compilator.pas"/>194 <Caret Line=" 190" Column="1" TopLine="175"/>205 <Filename Value="UMainForm.pas"/> 206 <Caret Line="56" Column="10" TopLine="41"/> 195 207 </Position9> 196 208 <Position10> 197 <Filename Value="U Compilator.pas"/>198 <Caret Line=" 191" Column="1" TopLine="176"/>209 <Filename Value="UMainForm.pas"/> 210 <Caret Line="74" Column="49" TopLine="61"/> 199 211 </Position10> 200 212 <Position11> 201 <Filename Value="U Compilator.pas"/>202 <Caret Line=" 192" Column="1" TopLine="177"/>213 <Filename Value="UMainForm.pas"/> 214 <Caret Line="73" Column="49" TopLine="61"/> 203 215 </Position11> 204 216 <Position12> 205 <Filename Value="U Compilator.pas"/>206 <Caret Line=" 193" Column="1" TopLine="178"/>217 <Filename Value="UMainForm.pas"/> 218 <Caret Line="74" Column="49" TopLine="61"/> 207 219 </Position12> 208 220 <Position13> 209 <Filename Value="U Compilator.pas"/>210 <Caret Line=" 194" Column="1" TopLine="179"/>221 <Filename Value="UMainForm.pas"/> 222 <Caret Line="84" Column="44" TopLine="69"/> 211 223 </Position13> 212 224 <Position14> 213 <Filename Value="U Compilator.pas"/>214 <Caret Line=" 212" Column="1" TopLine="197"/>225 <Filename Value="UMainForm.pas"/> 226 <Caret Line="92" Column="33" TopLine="60"/> 215 227 </Position14> 216 228 <Position15> 217 <Filename Value="U Compilator.pas"/>218 <Caret Line=" 213" Column="1" TopLine="198"/>229 <Filename Value="UMainForm.pas"/> 230 <Caret Line="93" Column="33" TopLine="63"/> 219 231 </Position15> 220 232 <Position16> 221 <Filename Value="U Compilator.pas"/>222 <Caret Line=" 214" Column="1" TopLine="199"/>233 <Filename Value="UMainForm.pas"/> 234 <Caret Line="92" Column="33" TopLine="63"/> 223 235 </Position16> 224 236 <Position17> 225 <Filename Value="U Compilator.pas"/>226 <Caret Line=" 215" Column="1" TopLine="200"/>237 <Filename Value="UMainForm.pas"/> 238 <Caret Line="93" Column="33" TopLine="63"/> 227 239 </Position17> 228 240 <Position18> 229 <Filename Value="U Compilator.pas"/>230 <Caret Line=" 216" Column="22" TopLine="187"/>241 <Filename Value="UMainForm.pas"/> 242 <Caret Line="41" Column="29" TopLine="16"/> 231 243 </Position18> 232 244 <Position19> 233 <Filename Value="U OutputGenerator.pas"/>234 <Caret Line="11 6" Column="26" TopLine="100"/>245 <Filename Value="UMainForm.pas"/> 246 <Caret Line="113" Column="1" TopLine="83"/> 235 247 </Position19> 236 248 <Position20> 237 <Filename Value="U OutputGenerator.pas"/>238 <Caret Line=" 74" Column="44" TopLine="59"/>249 <Filename Value="UMainForm.pas"/> 250 <Caret Line="110" Column="32" TopLine="90"/> 239 251 </Position20> 240 252 <Position21> 241 <Filename Value="U OutputGenerator.pas"/>242 <Caret Line="11 4" Column="52" TopLine="99"/>253 <Filename Value="UMainForm.pas"/> 254 <Caret Line="113" Column="49" TopLine="89"/> 243 255 </Position21> 244 256 <Position22> 245 <Filename Value="U OutputGenerator.pas"/>246 <Caret Line="1 50" Column="44" TopLine="135"/>257 <Filename Value="UModelViewer.pas"/> 258 <Caret Line="16" Column="17" TopLine="1"/> 247 259 </Position22> 248 260 <Position23> 249 <Filename Value="U Compilator.pas"/>250 <Caret Line=" 216" Column="22" TopLine="187"/>261 <Filename Value="UMainForm.pas"/> 262 <Caret Line="105" Column="1" TopLine="79"/> 251 263 </Position23> 252 264 <Position24> 253 <Filename Value="UM odel.pas"/>254 <Caret Line=" 230" Column="15" TopLine="211"/>265 <Filename Value="UMainForm.pas"/> 266 <Caret Line="41" Column="1" TopLine="26"/> 255 267 </Position24> 256 268 <Position25> 257 <Filename Value="UM odel.pas"/>258 <Caret Line=" 232" Column="22" TopLine="212"/>269 <Filename Value="UMainForm.pas"/> 270 <Caret Line="39" Column="31" TopLine="17"/> 259 271 </Position25> 260 272 <Position26> 261 <Filename Value="UModel .pas"/>262 <Caret Line=" 192" Column="96" TopLine="187"/>273 <Filename Value="UModelViewer.pas"/> 274 <Caret Line="23" Column="12" TopLine="1"/> 263 275 </Position26> 264 276 <Position27> 265 <Filename Value="UModel .pas"/>266 <Caret Line=" 11" Column="16" TopLine="1"/>277 <Filename Value="UModelViewer.pas"/> 278 <Caret Line="25" Column="25" TopLine="5"/> 267 279 </Position27> 268 280 <Position28> 269 <Filename Value="UModel .pas"/>270 <Caret Line=" 46" Column="8" TopLine="19"/>281 <Filename Value="UModelViewer.pas"/> 282 <Caret Line="17" Column="48" TopLine="4"/> 271 283 </Position28> 272 284 <Position29> 273 <Filename Value="UModel .pas"/>274 <Caret Line="2 29" Column="27" TopLine="215"/>285 <Filename Value="UModelViewer.pas"/> 286 <Caret Line="26" Column="3" TopLine="15"/> 275 287 </Position29> 276 288 <Position30> 277 <Filename Value="U Compilator.pas"/>278 <Caret Line="1 67" Column="107" TopLine="148"/>289 <Filename Value="UModelViewer.pas"/> 290 <Caret Line="17" Column="46" TopLine="2"/> 279 291 </Position30> 280 292 </JumpHistory> -
branches/Void/project1.lpr
r10 r15 8 8 {$ENDIF}{$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, UMainForm, UOutputGenerator, LResources, UModel, UVoidParser; 10 Forms, UMainForm, UOutputGenerator, LResources, UModel, UVoidParser, 11 UModelViewer; 11 12 12 13 {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
Note:
See TracChangeset
for help on using the changeset viewer.
