Changeset 60
- Timestamp:
- Oct 14, 2010, 1:50:39 PM (14 years ago)
- Location:
- branches/Transpascal
- Files:
-
- 15 added
- 4 deleted
- 7 edited
-
Analyze (deleted)
-
Compiler (added)
-
Compiler/Analyze (added)
-
Compiler/Analyze/UParser.pas (added)
-
Compiler/Produce (added)
-
Compiler/Produce/UProducer.pas (added)
-
Compiler/Produce/UProducerAsm8051.pas (added)
-
Compiler/Produce/UProducerC.pas (added)
-
Compiler/Produce/UProducerPascal.pas (added)
-
Compiler/Produce/UProducerTreeView.pas (added)
-
Compiler/TranspascalCompiler.lpk (added)
-
Compiler/TranspascalCompiler.pas (added)
-
Compiler/UCompiler.pas (added)
-
Compiler/USourceCode.pas (added)
-
Forms/UMainForm.lfm (modified) (3 diffs)
-
Forms/UMainForm.pas (modified) (6 diffs)
-
Forms/UProjecManager.lfm (added)
-
Forms/UProjecManager.pas (added)
-
Produce (deleted)
-
Project/Project.pas (modified) (1 diff)
-
Project/System.pas (modified) (1 diff)
-
Transpascal.lpi (modified) (7 diffs)
-
Transpascal.lpr (modified) (2 diffs)
-
UCompiler.pas (deleted)
-
UProject.pas (modified) (3 diffs)
-
USourceCode.pas (deleted)
Legend:
- Unmodified
- Added
- Removed
-
branches/Transpascal/Forms/UMainForm.lfm
r59 r60 1 1 object MainForm: TMainForm 2 Left = 1 483 Height = 4944 Top = 1 032 Left = 114 3 Height = 504 4 Top = 122 5 5 Width = 861 6 Caption = 'Transpascal '7 ClientHeight = 4 946 Caption = 'Transpascal IDE' 7 ClientHeight = 485 8 8 ClientWidth = 861 9 9 Font.Height = -11 10 10 Font.Name = 'Tahoma' 11 Menu = MainMenu1 11 12 OnClose = FormClose 12 13 OnCreate = FormCreate … … 15 16 Position = poDesktopCenter 16 17 LCLVersion = '0.9.29' 17 object ButtonCompile: TButton 18 Left = 713 19 Height = 22 20 Top = 397 21 Width = 144 22 Anchors = [akRight, akBottom] 23 Caption = 'Kompilovat' 24 Font.Height = -11 25 Font.Name = 'Tahoma' 26 OnClick = ButtonCompileClick 27 ParentFont = False 18 object Panel2: TPanel 19 Left = 0 20 Height = 320 21 Top = 0 22 Width = 861 23 Align = alClient 24 BevelOuter = bvNone 25 ClientHeight = 320 26 ClientWidth = 861 28 27 TabOrder = 0 28 object TreeViewProject: TTreeView 29 Left = 0 30 Height = 320 31 Top = 0 32 Width = 233 33 Align = alLeft 34 DefaultItemHeight = 15 35 ReadOnly = True 36 TabOrder = 0 37 OnChange = TreeViewProjectChange 38 Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] 39 end 40 object Splitter1: TSplitter 41 Left = 233 42 Height = 320 43 Top = 0 44 Width = 5 45 end 46 inline SynEditSource: TSynEdit 47 Left = 238 48 Height = 320 49 Top = 0 50 Width = 364 51 Align = alLeft 52 Font.Height = -13 53 Font.Name = 'Courier New' 54 Font.Pitch = fpFixed 55 Font.Quality = fqNonAntialiased 56 ParentColor = False 57 ParentFont = False 58 TabOrder = 2 59 Gutter.Width = 57 60 Gutter.MouseActions = < 61 item 62 Shift = [] 63 ShiftMask = [] 64 Button = mbLeft 65 ClickCount = ccAny 66 ClickDir = cdDown 67 Command = 13 68 MoveCaret = False 69 Option = 0 70 Priority = 0 71 end 72 item 73 Shift = [] 74 ShiftMask = [] 75 Button = mbRight 76 ClickCount = ccSingle 77 ClickDir = cdUp 78 Command = 12 79 MoveCaret = False 80 Option = 0 81 Priority = 0 82 end> 83 RightGutter.Width = 0 84 RightGutter.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 'SynEditSource' 654 ) 655 BracketHighlightStyle = sbhsBoth 656 inline SynGutterPartList1: TSynGutterPartList 657 object SynGutterMarks1: TSynGutterMarks 658 Width = 24 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 inline SynRightGutterPartList1: TSynRightGutterPartList 764 end 765 end 766 object Splitter2: TSplitter 767 Left = 602 768 Height = 320 769 Top = 0 770 Width = 5 771 OnCanResize = Splitter2CanResize 772 end 773 object Panel1: TPanel 774 Left = 607 775 Height = 320 776 Top = 0 777 Width = 254 778 Align = alClient 779 BevelOuter = bvNone 780 TabOrder = 4 781 end 29 782 end 30 inline SynEditSource: TSynEdit 31 Left = 248 32 Height = 384 33 Top = 6 34 Width = 392 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 783 object Panel3: TPanel 784 Left = 0 785 Height = 160 786 Top = 325 787 Width = 861 788 Align = alBottom 789 BevelOuter = bvSpace 790 ClientHeight = 160 791 ClientWidth = 861 42 792 TabOrder = 1 43 Gutter.Width = 57 44 Gutter.MouseActions = < 45 item 46 Shift = [] 47 ShiftMask = [] 48 Button = mbLeft 49 ClickCount = ccAny 50 ClickDir = cdDown 51 Command = 13 52 MoveCaret = False 53 Option = 0 54 Priority = 0 55 end 56 item 57 Shift = [] 58 ShiftMask = [] 59 Button = mbRight 60 ClickCount = ccSingle 61 ClickDir = cdUp 62 Command = 12 63 MoveCaret = False 64 Option = 0 65 Priority = 0 66 end> 67 RightGutter.Width = 0 68 RightGutter.MouseActions = < 69 item 70 Shift = [] 71 ShiftMask = [] 72 Button = mbLeft 73 ClickCount = ccAny 74 ClickDir = cdDown 75 Command = 13 76 MoveCaret = False 77 Option = 0 78 Priority = 0 79 end 80 item 81 Shift = [] 82 ShiftMask = [] 83 Button = mbRight 84 ClickCount = ccSingle 85 ClickDir = cdUp 86 Command = 12 87 MoveCaret = False 88 Option = 0 89 Priority = 0 90 end> 91 Highlighter = SynPasSyn1 92 Keystrokes = < 93 item 94 Command = ecUp 95 ShortCut = 38 96 end 97 item 98 Command = ecSelUp 99 ShortCut = 8230 100 end 101 item 102 Command = ecScrollUp 103 ShortCut = 16422 104 end 105 item 106 Command = ecDown 107 ShortCut = 40 108 end 109 item 110 Command = ecSelDown 111 ShortCut = 8232 112 end 113 item 114 Command = ecScrollDown 115 ShortCut = 16424 116 end 117 item 118 Command = ecLeft 119 ShortCut = 37 120 end 121 item 122 Command = ecSelLeft 123 ShortCut = 8229 124 end 125 item 126 Command = ecWordLeft 127 ShortCut = 16421 128 end 129 item 130 Command = ecSelWordLeft 131 ShortCut = 24613 132 end 133 item 134 Command = ecRight 135 ShortCut = 39 136 end 137 item 138 Command = ecSelRight 139 ShortCut = 8231 140 end 141 item 142 Command = ecWordRight 143 ShortCut = 16423 144 end 145 item 146 Command = ecSelWordRight 147 ShortCut = 24615 148 end 149 item 150 Command = ecPageDown 151 ShortCut = 34 152 end 153 item 154 Command = ecSelPageDown 155 ShortCut = 8226 156 end 157 item 158 Command = ecPageBottom 159 ShortCut = 16418 160 end 161 item 162 Command = ecSelPageBottom 163 ShortCut = 24610 164 end 165 item 166 Command = ecPageUp 167 ShortCut = 33 168 end 169 item 170 Command = ecSelPageUp 171 ShortCut = 8225 172 end 173 item 174 Command = ecPageTop 175 ShortCut = 16417 176 end 177 item 178 Command = ecSelPageTop 179 ShortCut = 24609 180 end 181 item 182 Command = ecLineStart 183 ShortCut = 36 184 end 185 item 186 Command = ecSelLineStart 187 ShortCut = 8228 188 end 189 item 190 Command = ecEditorTop 191 ShortCut = 16420 192 end 193 item 194 Command = ecSelEditorTop 195 ShortCut = 24612 196 end 197 item 198 Command = ecLineEnd 199 ShortCut = 35 200 end 201 item 202 Command = ecSelLineEnd 203 ShortCut = 8227 204 end 205 item 206 Command = ecEditorBottom 207 ShortCut = 16419 208 end 209 item 210 Command = ecSelEditorBottom 211 ShortCut = 24611 212 end 213 item 214 Command = ecToggleMode 215 ShortCut = 45 216 end 217 item 218 Command = ecCopy 219 ShortCut = 16429 220 end 221 item 222 Command = ecPaste 223 ShortCut = 8237 224 end 225 item 226 Command = ecDeleteChar 227 ShortCut = 46 228 end 229 item 230 Command = ecCut 231 ShortCut = 8238 232 end 233 item 234 Command = ecDeleteLastChar 235 ShortCut = 8 236 end 237 item 238 Command = ecDeleteLastChar 239 ShortCut = 8200 240 end 241 item 242 Command = ecDeleteLastWord 243 ShortCut = 16392 244 end 245 item 246 Command = ecUndo 247 ShortCut = 32776 248 end 249 item 250 Command = ecRedo 251 ShortCut = 40968 252 end 253 item 254 Command = ecLineBreak 255 ShortCut = 13 256 end 257 item 258 Command = ecSelectAll 259 ShortCut = 16449 260 end 261 item 262 Command = ecCopy 263 ShortCut = 16451 264 end 265 item 266 Command = ecBlockIndent 267 ShortCut = 24649 268 end 269 item 270 Command = ecLineBreak 271 ShortCut = 16461 272 end 273 item 274 Command = ecInsertLine 275 ShortCut = 16462 276 end 277 item 278 Command = ecDeleteWord 279 ShortCut = 16468 280 end 281 item 282 Command = ecBlockUnindent 283 ShortCut = 24661 284 end 285 item 286 Command = ecPaste 287 ShortCut = 16470 288 end 289 item 290 Command = ecCut 291 ShortCut = 16472 292 end 293 item 294 Command = ecDeleteLine 295 ShortCut = 16473 296 end 297 item 298 Command = ecDeleteEOL 299 ShortCut = 24665 300 end 301 item 302 Command = ecUndo 303 ShortCut = 16474 304 end 305 item 306 Command = ecRedo 307 ShortCut = 24666 308 end 309 item 310 Command = ecGotoMarker0 311 ShortCut = 16432 312 end 313 item 314 Command = ecGotoMarker1 315 ShortCut = 16433 316 end 317 item 318 Command = ecGotoMarker2 319 ShortCut = 16434 320 end 321 item 322 Command = ecGotoMarker3 323 ShortCut = 16435 324 end 325 item 326 Command = ecGotoMarker4 327 ShortCut = 16436 328 end 329 item 330 Command = ecGotoMarker5 331 ShortCut = 16437 332 end 333 item 334 Command = ecGotoMarker6 335 ShortCut = 16438 336 end 337 item 338 Command = ecGotoMarker7 339 ShortCut = 16439 340 end 341 item 342 Command = ecGotoMarker8 343 ShortCut = 16440 344 end 345 item 346 Command = ecGotoMarker9 347 ShortCut = 16441 348 end 349 item 350 Command = ecSetMarker0 351 ShortCut = 24624 352 end 353 item 354 Command = ecSetMarker1 355 ShortCut = 24625 356 end 357 item 358 Command = ecSetMarker2 359 ShortCut = 24626 360 end 361 item 362 Command = ecSetMarker3 363 ShortCut = 24627 364 end 365 item 366 Command = ecSetMarker4 367 ShortCut = 24628 368 end 369 item 370 Command = ecSetMarker5 371 ShortCut = 24629 372 end 373 item 374 Command = ecSetMarker6 375 ShortCut = 24630 376 end 377 item 378 Command = ecSetMarker7 379 ShortCut = 24631 380 end 381 item 382 Command = ecSetMarker8 383 ShortCut = 24632 384 end 385 item 386 Command = ecSetMarker9 387 ShortCut = 24633 388 end 389 item 390 Command = EcFoldLevel1 391 ShortCut = 41009 392 end 393 item 394 Command = EcFoldLevel2 395 ShortCut = 41010 396 end 397 item 398 Command = EcFoldLevel1 399 ShortCut = 41011 400 end 401 item 402 Command = EcFoldLevel1 403 ShortCut = 41012 404 end 405 item 406 Command = EcFoldLevel1 407 ShortCut = 41013 408 end 409 item 410 Command = EcFoldLevel6 411 ShortCut = 41014 412 end 413 item 414 Command = EcFoldLevel7 415 ShortCut = 41015 416 end 417 item 418 Command = EcFoldLevel8 419 ShortCut = 41016 420 end 421 item 422 Command = EcFoldLevel9 423 ShortCut = 41017 424 end 425 item 426 Command = EcFoldLevel0 427 ShortCut = 41008 428 end 429 item 430 Command = EcFoldCurrent 431 ShortCut = 41005 432 end 433 item 434 Command = EcUnFoldCurrent 435 ShortCut = 41003 436 end 437 item 438 Command = EcToggleMarkupWord 439 ShortCut = 32845 440 end 441 item 442 Command = ecNormalSelect 443 ShortCut = 24654 444 end 445 item 446 Command = ecColumnSelect 447 ShortCut = 24643 448 end 449 item 450 Command = ecLineSelect 451 ShortCut = 24652 452 end 453 item 454 Command = ecTab 455 ShortCut = 9 456 end 457 item 458 Command = ecShiftTab 459 ShortCut = 8201 460 end 461 item 462 Command = ecMatchBracket 463 ShortCut = 24642 464 end 465 item 466 Command = ecColSelUp 467 ShortCut = 40998 468 end 469 item 470 Command = ecColSelDown 471 ShortCut = 41000 472 end 473 item 474 Command = ecColSelLeft 475 ShortCut = 40997 476 end 477 item 478 Command = ecColSelRight 479 ShortCut = 40999 480 end 481 item 482 Command = ecColSelPageDown 483 ShortCut = 40994 484 end 485 item 486 Command = ecColSelPageBottom 487 ShortCut = 57378 488 end 489 item 490 Command = ecColSelPageUp 491 ShortCut = 40993 492 end 493 item 494 Command = ecColSelPageTop 495 ShortCut = 57377 496 end 497 item 498 Command = ecColSelLineStart 499 ShortCut = 40996 500 end 501 item 502 Command = ecColSelLineEnd 503 ShortCut = 40995 504 end 505 item 506 Command = ecColSelEditorTop 507 ShortCut = 57380 508 end 509 item 510 Command = ecColSelEditorBottom 511 ShortCut = 57379 512 end> 513 MouseActions = < 514 item 515 Shift = [] 516 ShiftMask = [ssShift, ssAlt] 517 Button = mbLeft 518 ClickCount = ccSingle 519 ClickDir = cdDown 520 Command = 1 521 MoveCaret = True 522 Option = 0 523 Priority = 0 524 end 525 item 526 Shift = [ssShift] 527 ShiftMask = [ssShift, ssAlt] 528 Button = mbLeft 529 ClickCount = ccSingle 530 ClickDir = cdDown 531 Command = 1 532 MoveCaret = True 533 Option = 1 534 Priority = 0 535 end 536 item 537 Shift = [ssAlt] 538 ShiftMask = [ssShift, ssAlt] 539 Button = mbLeft 540 ClickCount = ccSingle 541 ClickDir = cdDown 542 Command = 3 543 MoveCaret = True 544 Option = 0 545 Priority = 0 546 end 547 item 548 Shift = [ssShift, ssAlt] 549 ShiftMask = [ssShift, ssAlt] 550 Button = mbLeft 551 ClickCount = ccSingle 552 ClickDir = cdDown 553 Command = 3 554 MoveCaret = True 555 Option = 1 556 Priority = 0 557 end 558 item 559 Shift = [] 560 ShiftMask = [] 561 Button = mbRight 562 ClickCount = ccSingle 563 ClickDir = cdUp 564 Command = 12 565 MoveCaret = False 566 Option = 0 567 Priority = 0 568 end 569 item 570 Shift = [] 571 ShiftMask = [] 572 Button = mbLeft 573 ClickCount = ccDouble 574 ClickDir = cdDown 575 Command = 6 576 MoveCaret = True 577 Option = 0 578 Priority = 0 579 end 580 item 581 Shift = [] 582 ShiftMask = [] 583 Button = mbLeft 584 ClickCount = ccTriple 585 ClickDir = cdDown 586 Command = 7 587 MoveCaret = True 588 Option = 0 589 Priority = 0 590 end 591 item 592 Shift = [] 593 ShiftMask = [] 594 Button = mbLeft 595 ClickCount = ccQuad 596 ClickDir = cdDown 597 Command = 8 598 MoveCaret = True 599 Option = 0 600 Priority = 0 601 end 602 item 603 Shift = [] 604 ShiftMask = [] 605 Button = mbMiddle 606 ClickCount = ccSingle 607 ClickDir = cdDown 608 Command = 10 609 MoveCaret = True 610 Option = 0 611 Priority = 0 612 end 613 item 614 Shift = [ssCtrl] 615 ShiftMask = [ssShift, ssAlt, ssCtrl] 616 Button = mbLeft 617 ClickCount = ccSingle 618 ClickDir = cdUp 619 Command = 11 620 MoveCaret = False 621 Option = 0 622 Priority = 0 623 end> 624 MouseSelActions = < 625 item 626 Shift = [] 627 ShiftMask = [] 628 Button = mbLeft 629 ClickCount = ccSingle 630 ClickDir = cdDown 631 Command = 9 632 MoveCaret = False 633 Option = 0 634 Priority = 0 635 end> 636 Lines.Strings = ( 637 'SynEditSource' 638 ) 639 BracketHighlightStyle = sbhsBoth 640 inline SynGutterPartList1: TSynGutterPartList 641 object SynGutterMarks1: TSynGutterMarks 642 Width = 24 643 end 644 object SynGutterLineNumber1: TSynGutterLineNumber 645 Width = 17 646 MouseActions = <> 647 MarkupInfo.Background = clBtnFace 648 MarkupInfo.Foreground = clNone 649 DigitCount = 2 650 ShowOnlyLineNumbersMultiplesOf = 1 651 ZeroStart = False 652 LeadingZeros = False 653 end 654 object SynGutterChanges1: TSynGutterChanges 655 Width = 4 656 ModifiedColor = 59900 657 SavedColor = clGreen 658 end 659 object SynGutterSeparator1: TSynGutterSeparator 660 Width = 2 661 end 662 object SynGutterCodeFolding1: TSynGutterCodeFolding 663 MouseActions = < 664 item 665 Shift = [] 666 ShiftMask = [] 667 Button = mbRight 668 ClickCount = ccSingle 669 ClickDir = cdUp 670 Command = 16 671 MoveCaret = False 672 Option = 0 673 Priority = 0 674 end 675 item 676 Shift = [] 677 ShiftMask = [ssShift] 678 Button = mbMiddle 679 ClickCount = ccAny 680 ClickDir = cdDown 681 Command = 14 682 MoveCaret = False 683 Option = 0 684 Priority = 0 685 end 686 item 687 Shift = [ssShift] 688 ShiftMask = [ssShift] 689 Button = mbMiddle 690 ClickCount = ccAny 691 ClickDir = cdDown 692 Command = 14 693 MoveCaret = False 694 Option = 1 695 Priority = 0 696 end 697 item 698 Shift = [] 699 ShiftMask = [] 700 Button = mbLeft 701 ClickCount = ccAny 702 ClickDir = cdDown 703 Command = 0 704 MoveCaret = False 705 Option = 0 706 Priority = 0 707 end> 708 MarkupInfo.Background = clNone 709 MarkupInfo.Foreground = clGray 710 MouseActionsExpanded = < 711 item 712 Shift = [] 713 ShiftMask = [] 714 Button = mbLeft 715 ClickCount = ccAny 716 ClickDir = cdDown 717 Command = 14 718 MoveCaret = False 719 Option = 0 720 Priority = 0 721 end> 722 MouseActionsCollapsed = < 723 item 724 Shift = [ssCtrl] 725 ShiftMask = [ssCtrl] 726 Button = mbLeft 727 ClickCount = ccAny 728 ClickDir = cdDown 729 Command = 15 730 MoveCaret = False 731 Option = 0 732 Priority = 0 733 end 734 item 735 Shift = [] 736 ShiftMask = [ssCtrl] 737 Button = mbLeft 738 ClickCount = ccAny 739 ClickDir = cdDown 740 Command = 15 741 MoveCaret = False 742 Option = 1 743 Priority = 0 744 end> 745 end 746 end 747 inline SynRightGutterPartList1: TSynRightGutterPartList 793 object ListBoxMessages: TListBox 794 Left = 8 795 Height = 146 796 Top = 8 797 Width = 694 798 Anchors = [akTop, akLeft, akRight, akBottom] 799 ItemHeight = 0 800 OnClick = ListBoxMessagesClick 801 TabOrder = 0 802 end 803 object ButtonCompile: TButton 804 Left = 709 805 Height = 22 806 Top = 32 807 Width = 144 808 Anchors = [akTop, akRight] 809 Caption = 'Build' 810 Font.Height = -11 811 Font.Name = 'Tahoma' 812 OnClick = ButtonCompileClick 813 ParentFont = False 814 TabOrder = 1 815 end 816 object ComboBox1: TComboBox 817 Left = 709 818 Height = 21 819 Top = 8 820 Width = 144 821 Anchors = [akTop, akRight] 822 ItemHeight = 13 823 ItemIndex = 0 824 Items.Strings = ( 825 'Pascal' 826 'C' 827 'i8051' 828 'TreeView' 829 ) 830 OnChange = ComboBox1Change 831 Style = csDropDownList 832 TabOrder = 2 833 Text = 'Pascal' 748 834 end 749 835 end 750 object ComboBox1: TComboBox 751 Left = 712 752 Height = 21 753 Top = 424 754 Width = 144 755 Anchors = [akRight, akBottom] 756 ItemHeight = 13 757 ItemIndex = 0 758 Items.Strings = ( 759 'Pascal' 760 'C' 761 'i8051' 762 'TreeView' 763 ) 764 OnChange = ComboBox1Change 765 Style = csDropDownList 766 TabOrder = 2 767 Text = 'Pascal' 768 end 769 object ListBoxMessages: TListBox 770 Left = 8 771 Height = 91 772 Top = 398 773 Width = 697 774 Anchors = [akLeft, akRight, akBottom] 775 ItemHeight = 0 776 OnClick = ListBoxMessagesClick 777 TabOrder = 3 778 end 779 object Panel1: TPanel 780 Left = 648 781 Height = 382 782 Top = 8 783 Width = 208 784 Anchors = [akTop, akLeft, akRight, akBottom] 785 BevelOuter = bvNone 786 TabOrder = 4 787 end 788 object TreeViewProject: TTreeView 789 Left = 7 790 Height = 383 791 Top = 8 792 Width = 233 793 Anchors = [akTop, akLeft, akBottom] 794 DefaultItemHeight = 15 795 ReadOnly = True 796 TabOrder = 5 797 OnChange = TreeViewProjectChange 798 Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] 836 object Splitter3: TSplitter 837 Cursor = crVSplit 838 Left = 0 839 Height = 5 840 Top = 320 841 Width = 861 842 Align = alBottom 843 ResizeAnchor = akBottom 799 844 end 800 845 object SynPasSyn1: TSynPasSyn … … 805 850 top = 32 806 851 end 852 object MainMenu1: TMainMenu 853 left = 624 854 top = 8 855 object MenuItem1: TMenuItem 856 Caption = 'Project' 857 object MenuItem5: TMenuItem 858 Action = AProjectNew 859 end 860 object MenuItem2: TMenuItem 861 Action = AProjectOpen 862 end 863 object MenuItem4: TMenuItem 864 Action = AProjectSave 865 end 866 object MenuItem6: TMenuItem 867 Action = AProjectSaveAs 868 end 869 object MenuItem3: TMenuItem 870 Action = AProjectClose 871 end 872 end 873 end 874 object ActionList1: TActionList 875 left = 624 876 top = 64 877 object AProjectNew: TAction 878 Category = 'Project' 879 Caption = 'New' 880 Hint = 'Create new project' 881 end 882 object AProjectOpen: TAction 883 Category = 'Project' 884 Caption = 'Open...' 885 Hint = 'Open project' 886 end 887 object AProjectSave: TAction 888 Category = 'Project' 889 Caption = 'Save' 890 Hint = 'Save project to disk' 891 end 892 object AProjectSaveAs: TAction 893 Category = 'Project' 894 Caption = 'Save as...' 895 Hint = 'Save project with custom name' 896 end 897 object AProjectClose: TAction 898 Category = 'Project' 899 Caption = 'Close' 900 end 901 end 807 902 end -
branches/Transpascal/Forms/UMainForm.pas
r59 r60 9 9 Dialogs, StdCtrls, USourceCode, UCompiler, UProducerAsm8051, 10 10 UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView, 11 UProducerPascal, Contnrs, UProject ;11 UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList; 12 12 13 13 const … … 18 18 19 19 TMainForm = class(TForm) 20 AProjectNew: TAction; 21 AProjectOpen: TAction; 22 AProjectSave: TAction; 23 AProjectSaveAs: TAction; 24 AProjectClose: TAction; 25 ActionList1: TActionList; 20 26 ButtonCompile: TButton; 21 27 ComboBox1: TComboBox; 22 28 ListBoxMessages: TListBox; 29 MainMenu1: TMainMenu; 30 MenuItem1: TMenuItem; 31 MenuItem2: TMenuItem; 32 MenuItem3: TMenuItem; 33 MenuItem4: TMenuItem; 34 MenuItem5: TMenuItem; 35 MenuItem6: TMenuItem; 23 36 Panel1: TPanel; 37 Panel2: TPanel; 38 Panel3: TPanel; 39 Splitter1: TSplitter; 40 Splitter2: TSplitter; 41 Splitter3: TSplitter; 24 42 SynEditSource: TSynEdit; 25 43 SynPasSyn1: TSynPasSyn; … … 32 50 procedure FormDestroy(Sender: TObject); 33 51 procedure ListBoxMessagesClick(Sender: TObject); 52 procedure Panel2Click(Sender: TObject); 53 procedure Splitter2CanResize(Sender: TObject; var NewSize: Integer; 54 var Accept: Boolean); 34 55 procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode); 35 56 private … … 76 97 ProducerControl.Parent := Panel1; 77 98 ProducerControl.Align := alClient; 78 TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);79 end; 80 81 // Compile all project files99 // TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl); 100 end; 101 102 // Compile project file 82 103 Compiler.Init; 83 104 Compiler.Parser.OnGetSource := GetSource; 84 105 with TProjectFile(Project.Items[0]) do begin 85 Compiler.Compile(Parent.GetDir + Name, Source , ProducedCode);106 Compiler.Compile(Parent.GetDir + Name, Source); 86 107 end; 87 108 … … 127 148 end; 128 149 150 procedure TMainForm.Panel2Click(Sender: TObject); 151 begin 152 153 end; 154 155 procedure TMainForm.Splitter2CanResize(Sender: TObject; var NewSize: Integer; 156 var Accept: Boolean); 157 begin 158 159 end; 160 129 161 procedure TMainForm.LoadErrorMessages; 130 162 var … … 139 171 140 172 procedure TMainForm.TreeViewProjectChange(Sender: TObject; Node: TTreeNode); 173 var 174 FileName: string; 141 175 begin 142 176 if Assigned(Node) then begin 143 177 if TProjectNode(Node.Data) is TProjectFile then begin 144 178 SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source); 179 FileName := Compiler.CompiledFolder + DirectorySeparator + 180 Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension; 145 181 if ProducerControl is TMemo then 146 TMemo(ProducerControl).Lines.Assign(TProjectFile(Node.Data).ProducedCode); 182 if FileExists(FileName) then 183 TMemo(ProducerControl).Lines.LoadFromFile(FileName) else 184 TMemo(ProducerControl).Lines.Clear; 185 //if ProducerControl is TTreeView then 186 // TTreeView(ProducerControl).Assign(TProjectFile(Node.Data).ProducedCode); 147 187 end; 148 188 end; -
branches/Transpascal/Project/Project.pas
r54 r60 1 program Test;1 program Project; 2 2 3 3 uses System, Crt; -
branches/Transpascal/Project/System.pas
r58 r60 21 21 procedure Break; internal; 22 22 procedure Continue; internal; 23 procedure WriteLn; internal; 23 24 24 25 implementation -
branches/Transpascal/Transpascal.lpi
r59 r60 31 31 </local> 32 32 </RunParams> 33 <RequiredPackages Count=" 2">33 <RequiredPackages Count="4"> 34 34 <Item1> 35 <PackageName Value="TranspascalCompiler"/> 36 </Item1> 37 <Item2> 38 <PackageName Value="CoolDocking"/> 39 </Item2> 40 <Item3> 35 41 <PackageName Value="SynEdit"/> 36 42 <MinVersion Major="1" Valid="True"/> 37 </Item 1>38 <Item 2>43 </Item3> 44 <Item4> 39 45 <PackageName Value="LCL"/> 40 </Item 2>46 </Item4> 41 47 </RequiredPackages> 42 <Units Count="2 2">48 <Units Count="27"> 43 49 <Unit0> 44 50 <Filename Value="Transpascal.lpr"/> 45 51 <IsPartOfProject Value="True"/> 46 52 <UnitName Value="Transpascal"/> 47 <EditorIndex Value=" 9"/>48 <WindowIndex Value="0"/> 49 <TopLine Value=" 4"/>50 <CursorPos X=" 20" Y="26"/>51 <UsageCount Value="1 55"/>53 <EditorIndex Value="4"/> 54 <WindowIndex Value="0"/> 55 <TopLine Value="1"/> 56 <CursorPos X="35" Y="9"/> 57 <UsageCount Value="164"/> 52 58 <Loaded Value="True"/> 53 59 </Unit0> … … 59 65 <ResourceBaseClass Value="Form"/> 60 66 <UnitName Value="UMainForm"/> 61 <IsVisibleTab Value="True"/> 62 <EditorIndex Value="6"/> 63 <WindowIndex Value="0"/> 64 <TopLine Value="70"/> 65 <CursorPos X="1" Y="87"/> 66 <UsageCount Value="155"/> 67 <EditorIndex Value="0"/> 68 <WindowIndex Value="0"/> 69 <TopLine Value="1"/> 70 <CursorPos X="34" Y="9"/> 71 <UsageCount Value="164"/> 67 72 <Loaded Value="True"/> 68 73 <LoadedDesigner Value="True"/> … … 72 77 <IsPartOfProject Value="True"/> 73 78 <UnitName Value="UTextSource"/> 74 <WindowIndex Value="0"/> 75 <TopLine Value="1"/> 76 <CursorPos X="1" Y="1"/> 77 <UsageCount Value="155"/> 79 <EditorIndex Value="2"/> 80 <WindowIndex Value="0"/> 81 <TopLine Value="1"/> 82 <CursorPos X="1" Y="6"/> 83 <UsageCount Value="164"/> 84 <Loaded Value="True"/> 78 85 </Unit2> 79 86 <Unit3> 80 87 <Filename Value="USourceCode.pas"/> 81 <IsPartOfProject Value="True"/>82 88 <UnitName Value="USourceCode"/> 83 <EditorIndex Value="5"/> 84 <WindowIndex Value="0"/> 85 <TopLine Value="732"/> 86 <CursorPos X="35" Y="736"/> 87 <UsageCount Value="155"/> 88 <Loaded Value="True"/> 89 <WindowIndex Value="0"/> 90 <TopLine Value="745"/> 91 <CursorPos X="46" Y="759"/> 92 <UsageCount Value="164"/> 89 93 </Unit3> 90 94 <Unit4> 91 95 <Filename Value="UCompiler.pas"/> 92 <IsPartOfProject Value="True"/>93 96 <UnitName Value="UCompiler"/> 94 <EditorIndex Value="14"/> 95 <WindowIndex Value="0"/> 96 <TopLine Value="38"/> 97 <CursorPos X="1" Y="51"/> 98 <UsageCount Value="155"/> 99 <Loaded Value="True"/> 97 <WindowIndex Value="0"/> 98 <TopLine Value="1"/> 99 <CursorPos X="40" Y="11"/> 100 <UsageCount Value="164"/> 100 101 </Unit4> 101 102 <Unit5> 102 103 <Filename Value="Produce\UProducerAsm8051.pas"/> 103 <IsPartOfProject Value="True"/>104 104 <UnitName Value="UProducerAsm8051"/> 105 <EditorIndex Value="10"/> 106 <WindowIndex Value="0"/> 107 <TopLine Value="179"/> 108 <CursorPos X="3" Y="196"/> 109 <UsageCount Value="155"/> 110 <Loaded Value="True"/> 105 <WindowIndex Value="0"/> 106 <TopLine Value="187"/> 107 <CursorPos X="34" Y="201"/> 108 <UsageCount Value="164"/> 111 109 </Unit5> 112 110 <Unit6> 113 111 <Filename Value="Produce\UProducer.pas"/> 114 <IsPartOfProject Value="True"/>115 112 <UnitName Value="UProducer"/> 116 <EditorIndex Value="1"/> 117 <WindowIndex Value="0"/> 118 <TopLine Value="1"/> 119 <CursorPos X="38" Y="12"/> 120 <UsageCount Value="155"/> 121 <Loaded Value="True"/> 113 <WindowIndex Value="0"/> 114 <TopLine Value="1"/> 115 <CursorPos X="1" Y="14"/> 116 <UsageCount Value="164"/> 122 117 </Unit6> 123 118 <Unit7> 124 119 <Filename Value="Produce\UProducerC.pas"/> 125 <IsPartOfProject Value="True"/>126 120 <UnitName Value="UProducerC"/> 127 <EditorIndex Value="13"/> 128 <WindowIndex Value="0"/> 129 <TopLine Value="294"/> 130 <CursorPos X="1" Y="307"/> 131 <UsageCount Value="155"/> 132 <Loaded Value="True"/> 121 <WindowIndex Value="0"/> 122 <TopLine Value="124"/> 123 <CursorPos X="42" Y="136"/> 124 <UsageCount Value="164"/> 133 125 </Unit7> 134 126 <Unit8> 135 127 <Filename Value="Analyze\UParser.pas"/> 136 <IsPartOfProject Value="True"/>137 128 <UnitName Value="UParser"/> 138 <EditorIndex Value="0"/> 139 <WindowIndex Value="0"/> 140 <TopLine Value="665"/> 141 <CursorPos X="1" Y="678"/> 142 <UsageCount Value="155"/> 143 <Loaded Value="True"/> 129 <WindowIndex Value="0"/> 130 <TopLine Value="442"/> 131 <CursorPos X="47" Y="455"/> 132 <UsageCount Value="164"/> 144 133 </Unit8> 145 134 <Unit9> … … 147 136 <UnitName Value="contnrs"/> 148 137 <WindowIndex Value="0"/> 149 <TopLine Value=" 78"/>150 <CursorPos X=" 14" Y="91"/>151 <UsageCount Value="5 2"/>138 <TopLine Value="59"/> 139 <CursorPos X="3" Y="72"/> 140 <UsageCount Value="54"/> 152 141 </Unit9> 153 142 <Unit10> 154 143 <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/> 155 144 <UnitName Value="StdCtrls"/> 156 <EditorIndex Value="7"/>157 145 <WindowIndex Value="0"/> 158 146 <TopLine Value="936"/> 159 <CursorPos X="23" Y="949"/> 160 <UsageCount Value="13"/> 161 <Loaded Value="True"/> 147 <CursorPos X="35" Y="948"/> 148 <UsageCount Value="14"/> 162 149 </Unit10> 163 150 <Unit11> 164 151 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutilh.inc"/> 165 <EditorIndex Value="3"/>166 152 <WindowIndex Value="0"/> 167 153 <TopLine Value="61"/> 168 154 <CursorPos X="7" Y="68"/> 169 <UsageCount Value="60"/> 170 <Loaded Value="True"/> 155 <UsageCount Value="66"/> 171 156 </Unit11> 172 157 <Unit12> 173 158 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutils.inc"/> 174 <EditorIndex Value="4"/>175 159 <WindowIndex Value="0"/> 176 160 <TopLine Value="139"/> 177 161 <CursorPos X="16" Y="146"/> 178 <UsageCount Value="60"/> 179 <Loaded Value="True"/> 162 <UsageCount Value="66"/> 180 163 </Unit12> 181 164 <Unit13> … … 184 167 <TopLine Value="934"/> 185 168 <CursorPos X="10" Y="947"/> 186 <UsageCount Value=" 5"/>169 <UsageCount Value="4"/> 187 170 </Unit13> 188 171 <Unit14> 189 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\inc\ systemh.inc"/>190 <WindowIndex Value="0"/> 191 <TopLine Value=" 834"/>192 <CursorPos X=" 11" Y="847"/>193 <UsageCount Value=" 1"/>172 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\inc\objpash.inc"/> 173 <WindowIndex Value="0"/> 174 <TopLine Value="153"/> 175 <CursorPos X="8" Y="166"/> 176 <UsageCount Value="9"/> 194 177 </Unit14> 195 178 <Unit15> 196 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\inc\objpash.inc"/> 197 <WindowIndex Value="0"/> 198 <TopLine Value="153"/> 199 <CursorPos X="8" Y="166"/> 200 <UsageCount Value="10"/> 179 <Filename Value="Produce\UProducerTreeView.pas"/> 180 <UnitName Value="UProducerTreeView"/> 181 <WindowIndex Value="0"/> 182 <TopLine Value="69"/> 183 <CursorPos X="1" Y="82"/> 184 <UsageCount Value="126"/> 201 185 </Unit15> 202 186 <Unit16> 203 <Filename Value="Produce\UProducerTreeView.pas"/> 204 <IsPartOfProject Value="True"/> 205 <UnitName Value="UProducerTreeView"/> 206 <EditorIndex Value="2"/> 207 <WindowIndex Value="0"/> 208 <TopLine Value="4"/> 209 <CursorPos X="53" Y="33"/> 210 <UsageCount Value="117"/> 211 <Loaded Value="True"/> 187 <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/> 188 <UnitName Value="ComCtrls"/> 189 <WindowIndex Value="0"/> 190 <TopLine Value="2159"/> 191 <CursorPos X="14" Y="2178"/> 192 <UsageCount Value="12"/> 212 193 </Unit16> 213 194 <Unit17> 214 <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/> 215 <UnitName Value="ComCtrls"/> 216 <WindowIndex Value="0"/> 217 <TopLine Value="2656"/> 218 <CursorPos X="3" Y="2669"/> 219 <UsageCount Value="1"/> 195 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/> 196 <WindowIndex Value="0"/> 197 <TopLine Value="559"/> 198 <CursorPos X="57" Y="571"/> 199 <UsageCount Value="9"/> 220 200 </Unit17> 221 201 <Unit18> 222 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/> 223 <WindowIndex Value="0"/> 224 <TopLine Value="559"/> 225 <CursorPos X="57" Y="571"/> 226 <UsageCount Value="10"/> 202 <Filename Value="Produce\UProducerPascal.pas"/> 203 <UnitName Value="UProducerPascal"/> 204 <WindowIndex Value="0"/> 205 <TopLine Value="320"/> 206 <CursorPos X="1" Y="327"/> 207 <UsageCount Value="80"/> 227 208 </Unit18> 228 209 <Unit19> 229 <Filename Value="Produce\UProducerPascal.pas"/>230 <IsPartOfProject Value="True"/>231 <UnitName Value="UProducerPascal"/>232 <EditorIndex Value="8"/>233 <WindowIndex Value="0"/>234 <TopLine Value="141"/>235 <CursorPos X="1" Y="154"/>236 <UsageCount Value="71"/>237 <Loaded Value="True"/>238 </Unit19>239 <Unit20>240 210 <Filename Value="UProject.pas"/> 241 211 <IsPartOfProject Value="True"/> 242 212 <UnitName Value="UProject"/> 243 <EditorIndex Value="11"/> 244 <WindowIndex Value="0"/> 245 <TopLine Value="116"/> 246 <CursorPos X="41" Y="119"/> 247 <UsageCount Value="27"/> 248 <Loaded Value="True"/> 213 <EditorIndex Value="3"/> 214 <WindowIndex Value="0"/> 215 <TopLine Value="97"/> 216 <CursorPos X="1" Y="110"/> 217 <UsageCount Value="36"/> 218 <Loaded Value="True"/> 219 </Unit19> 220 <Unit20> 221 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\inc\wstringh.inc"/> 222 <WindowIndex Value="0"/> 223 <TopLine Value="17"/> 224 <CursorPos X="11" Y="30"/> 225 <UsageCount Value="19"/> 249 226 </Unit20> 250 227 <Unit21> 251 <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\inc\wstringh.inc"/> 252 <EditorIndex Value="12"/> 253 <WindowIndex Value="0"/> 254 <TopLine Value="17"/> 255 <CursorPos X="11" Y="30"/> 256 <UsageCount Value="13"/> 228 <Filename Value="Compiler\TranspascalCompiler.pas"/> 229 <UnitName Value="TranspascalCompiler"/> 230 <EditorIndex Value="5"/> 231 <WindowIndex Value="0"/> 232 <TopLine Value="1"/> 233 <CursorPos X="33" Y="1"/> 234 <UsageCount Value="10"/> 257 235 <Loaded Value="True"/> 258 236 </Unit21> 237 <Unit22> 238 <Filename Value="Compiler\UCompiler.pas"/> 239 <UnitName Value="UCompiler"/> 240 <WindowIndex Value="0"/> 241 <TopLine Value="1"/> 242 <CursorPos X="26" Y="14"/> 243 <UsageCount Value="10"/> 244 </Unit22> 245 <Unit23> 246 <Filename Value="Compiler\USourceCode.pas"/> 247 <UnitName Value="USourceCode"/> 248 <EditorIndex Value="6"/> 249 <WindowIndex Value="0"/> 250 <TopLine Value="307"/> 251 <CursorPos X="65" Y="308"/> 252 <UsageCount Value="10"/> 253 <Loaded Value="True"/> 254 </Unit23> 255 <Unit24> 256 <Filename Value="Compiler\Analyze\UParser.pas"/> 257 <UnitName Value="UParser"/> 258 <EditorIndex Value="7"/> 259 <WindowIndex Value="0"/> 260 <TopLine Value="1"/> 261 <CursorPos X="1" Y="1"/> 262 <UsageCount Value="10"/> 263 <Loaded Value="True"/> 264 </Unit24> 265 <Unit25> 266 <Filename Value="Compiler\Produce\UProducer.pas"/> 267 <UnitName Value="UProducer"/> 268 <EditorIndex Value="8"/> 269 <WindowIndex Value="0"/> 270 <TopLine Value="1"/> 271 <CursorPos X="35" Y="5"/> 272 <UsageCount Value="10"/> 273 <Loaded Value="True"/> 274 </Unit25> 275 <Unit26> 276 <Filename Value="Forms\UProjecManager.pas"/> 277 <IsPartOfProject Value="True"/> 278 <ComponentName Value="Form1"/> 279 <ResourceBaseClass Value="Form"/> 280 <UnitName Value="UProjecManager"/> 281 <EditorIndex Value="1"/> 282 <WindowIndex Value="0"/> 283 <TopLine Value="1"/> 284 <CursorPos X="1" Y="1"/> 285 <UsageCount Value="20"/> 286 <Loaded Value="True"/> 287 <LoadedDesigner Value="True"/> 288 </Unit26> 259 289 </Units> 260 <JumpHistory Count=" 30" HistoryIndex="29">290 <JumpHistory Count="16" HistoryIndex="15"> 261 291 <Position1> 262 <Filename Value=" Analyze\UParser.pas"/>263 <Caret Line=" 1170" Column="1" TopLine="1152"/>292 <Filename Value="Forms\UMainForm.pas"/> 293 <Caret Line="82" Column="41" TopLine="71"/> 264 294 </Position1> 265 295 <Position2> 266 <Filename Value=" Analyze\UParser.pas"/>267 <Caret Line=" 1171" Column="1" TopLine="1152"/>296 <Filename Value="Forms\UMainForm.pas"/> 297 <Caret Line="83" Column="41" TopLine="72"/> 268 298 </Position2> 269 299 <Position3> 270 <Filename Value=" Analyze\UParser.pas"/>271 <Caret Line=" 1172" Column="1" TopLine="1152"/>300 <Filename Value="Forms\UMainForm.pas"/> 301 <Caret Line="84" Column="41" TopLine="73"/> 272 302 </Position3> 273 303 <Position4> 274 <Filename Value=" Analyze\UParser.pas"/>275 <Caret Line=" 353" Column="1" TopLine="340"/>304 <Filename Value="Forms\UMainForm.pas"/> 305 <Caret Line="85" Column="41" TopLine="74"/> 276 306 </Position4> 277 307 <Position5> 278 <Filename Value=" Analyze\UParser.pas"/>279 <Caret Line=" 354" Column="1" TopLine="340"/>308 <Filename Value="Forms\UMainForm.pas"/> 309 <Caret Line="86" Column="41" TopLine="75"/> 280 310 </Position5> 281 311 <Position6> 282 <Filename Value=" Analyze\UParser.pas"/>283 <Caret Line=" 355" Column="1" TopLine="340"/>312 <Filename Value="Forms\UMainForm.pas"/> 313 <Caret Line="87" Column="41" TopLine="76"/> 284 314 </Position6> 285 315 <Position7> 286 <Filename Value=" Analyze\UParser.pas"/>287 <Caret Line=" 356" Column="1" TopLine="340"/>316 <Filename Value="Forms\UMainForm.pas"/> 317 <Caret Line="88" Column="41" TopLine="77"/> 288 318 </Position7> 289 319 <Position8> 290 <Filename Value=" Analyze\UParser.pas"/>291 <Caret Line=" 357" Column="1" TopLine="340"/>320 <Filename Value="Forms\UMainForm.pas"/> 321 <Caret Line="89" Column="41" TopLine="78"/> 292 322 </Position8> 293 323 <Position9> 294 <Filename Value=" Analyze\UParser.pas"/>295 <Caret Line=" 358" Column="1" TopLine="340"/>324 <Filename Value="Forms\UMainForm.pas"/> 325 <Caret Line="90" Column="41" TopLine="79"/> 296 326 </Position9> 297 327 <Position10> 298 <Filename Value=" Analyze\UParser.pas"/>299 <Caret Line=" 359" Column="1" TopLine="340"/>328 <Filename Value="Forms\UMainForm.pas"/> 329 <Caret Line="91" Column="41" TopLine="80"/> 300 330 </Position10> 301 331 <Position11> 302 <Filename Value=" Analyze\UParser.pas"/>303 <Caret Line=" 364" Column="1" TopLine="343"/>332 <Filename Value="Forms\UMainForm.pas"/> 333 <Caret Line="92" Column="41" TopLine="81"/> 304 334 </Position11> 305 335 <Position12> 306 <Filename Value=" Analyze\UParser.pas"/>307 <Caret Line=" 354" Column="1" TopLine="343"/>336 <Filename Value="Forms\UMainForm.pas"/> 337 <Caret Line="93" Column="41" TopLine="82"/> 308 338 </Position12> 309 339 <Position13> 310 <Filename Value=" Analyze\UParser.pas"/>311 <Caret Line=" 367" Column="1" TopLine="346"/>340 <Filename Value="Forms\UMainForm.pas"/> 341 <Caret Line="94" Column="41" TopLine="83"/> 312 342 </Position13> 313 343 <Position14> 314 <Filename Value=" Analyze\UParser.pas"/>315 <Caret Line=" 368" Column="1" TopLine="347"/>344 <Filename Value="Forms\UMainForm.pas"/> 345 <Caret Line="89" Column="88" TopLine="1"/> 316 346 </Position14> 317 347 <Position15> 318 <Filename Value=" Analyze\UParser.pas"/>319 <Caret Line=" 354" Column="1" TopLine="347"/>348 <Filename Value="Compiler\TranspascalCompiler.pas"/> 349 <Caret Line="12" Column="34" TopLine="1"/> 320 350 </Position15> 321 351 <Position16> 322 <Filename Value=" Analyze\UParser.pas"/>323 <Caret Line=" 353" Column="1" TopLine="347"/>352 <Filename Value="Compiler\TranspascalCompiler.pas"/> 353 <Caret Line="10" Column="24" TopLine="1"/> 324 354 </Position16> 325 <Position17>326 <Filename Value="Analyze\UParser.pas"/>327 <Caret Line="370" Column="1" TopLine="349"/>328 </Position17>329 <Position18>330 <Filename Value="Analyze\UParser.pas"/>331 <Caret Line="353" Column="1" TopLine="348"/>332 </Position18>333 <Position19>334 <Filename Value="Analyze\UParser.pas"/>335 <Caret Line="370" Column="1" TopLine="349"/>336 </Position19>337 <Position20>338 <Filename Value="Analyze\UParser.pas"/>339 <Caret Line="1165" Column="1" TopLine="1152"/>340 </Position20>341 <Position21>342 <Filename Value="Analyze\UParser.pas"/>343 <Caret Line="1176" Column="1" TopLine="1155"/>344 </Position21>345 <Position22>346 <Filename Value="Analyze\UParser.pas"/>347 <Caret Line="1155" Column="1" TopLine="1142"/>348 </Position22>349 <Position23>350 <Filename Value="Analyze\UParser.pas"/>351 <Caret Line="1177" Column="1" TopLine="1155"/>352 </Position23>353 <Position24>354 <Filename Value="Analyze\UParser.pas"/>355 <Caret Line="1155" Column="1" TopLine="1142"/>356 </Position24>357 <Position25>358 <Filename Value="Analyze\UParser.pas"/>359 <Caret Line="1177" Column="1" TopLine="1155"/>360 </Position25>361 <Position26>362 <Filename Value="Analyze\UParser.pas"/>363 <Caret Line="695" Column="1" TopLine="682"/>364 </Position26>365 <Position27>366 <Filename Value="Analyze\UParser.pas"/>367 <Caret Line="684" Column="1" TopLine="679"/>368 </Position27>369 <Position28>370 <Filename Value="Analyze\UParser.pas"/>371 <Caret Line="697" Column="1" TopLine="679"/>372 </Position28>373 <Position29>374 <Filename Value="Analyze\UParser.pas"/>375 <Caret Line="684" Column="1" TopLine="679"/>376 </Position29>377 <Position30>378 <Filename Value="Analyze\UParser.pas"/>379 <Caret Line="697" Column="1" TopLine="679"/>380 </Position30>381 355 </JumpHistory> 382 356 </ProjectOptions> … … 385 359 <PathDelim Value="\"/> 386 360 <SearchPaths> 387 <IncludeFiles Value="Analyze;Produce"/> 388 <OtherUnitFiles Value="Analyze;Produce;Visual;Forms"/> 361 <OtherUnitFiles Value="Forms"/> 389 362 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> 390 363 </SearchPaths> … … 418 391 </CompilerOptions> 419 392 <Debugging> 393 <BreakPoints Count="1"> 394 <Item1> 395 <Source Value="USourceCode.pas"/> 396 <Line Value="723"/> 397 </Item1> 398 </BreakPoints> 420 399 <Exceptions Count="3"> 421 400 <Item1> -
branches/Transpascal/Transpascal.lpr
r54 r60 7 7 cthreads, 8 8 {$ENDIF}{$ENDIF} 9 Forms, Interfaces, SysUtils,9 Forms, CoolDocking, Interfaces, SysUtils, 10 10 UMainForm in 'UMainForm.pas' {MainForm}, 11 UTextSource in 'UTextSource.pas', 12 USourceCode, 13 UCompiler, 14 UProducerAsm8051, 15 UProducer, 16 UProducerC, UProducerPascal, 17 UParser, UProducerTreeView, UProject; 11 UTextSource in 'UTextSource.pas', UProject, TranspascalCompiler, 12 UProjecManager; 18 13 19 14 {$R *.res} … … 26 21 Application.Initialize; 27 22 Application.CreateForm(TMainForm, MainForm); 23 Application.CreateForm(TForm1, Form1); 28 24 Application.Run; 29 25 end. -
branches/Transpascal/UProject.pas
r55 r60 24 24 TProjectFile = class(TProjectNode) 25 25 Source: TStringList; 26 ProducedCode: TStringList;27 26 constructor Create; 28 27 destructor Destroy; override; … … 104 103 begin 105 104 Source := TStringList.Create; 106 ProducedCode := TStringList.Create;107 105 end; 108 106 … … 110 108 begin 111 109 Source.Free; 112 ProducedCode.Free;113 110 inherited Destroy; 114 111 end;
Note:
See TracChangeset
for help on using the changeset viewer.
