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