1object fmMain: TfmMain 2 Left = 266 3 Height = 542 4 Top = 168 5 Width = 953 6 Caption = 'Demo' 7 ClientHeight = 521 8 ClientWidth = 953 9 Menu = MainMenu1 10 OnCreate = FormCreate 11 OnShow = FormShow 12 Position = poScreenCenter 13 LCLVersion = '2.1.0.0' 14 object PanelMain: TPanel 15 Left = 0 16 Height = 521 17 Top = 0 18 Width = 672 19 Align = alClient 20 BevelOuter = bvNone 21 ClientHeight = 521 22 ClientWidth = 672 23 TabOrder = 0 24 object Status: TStatusBar 25 Left = 0 26 Height = 20 27 Top = 501 28 Width = 672 29 Panels = <> 30 end 31 object StatusMsg: TStatusBar 32 Left = 0 33 Height = 20 34 Top = 481 35 Width = 672 36 Font.Color = clBlue 37 Panels = <> 38 ParentFont = False 39 end 40 object progress: TProgressBar 41 AnchorSideLeft.Control = PanelMain 42 AnchorSideLeft.Side = asrBottom 43 AnchorSideRight.Control = StatusMsg 44 AnchorSideRight.Side = asrBottom 45 AnchorSideBottom.Control = StatusMsg 46 AnchorSideBottom.Side = asrCenter 47 Left = 507 48 Height = 14 49 Top = 484 50 Width = 160 51 Anchors = [akRight, akBottom] 52 BorderSpacing.Right = 5 53 Smooth = True 54 Step = 1 55 TabOrder = 2 56 Visible = False 57 end 58 object btnStop: TButton 59 AnchorSideRight.Control = progress 60 AnchorSideBottom.Control = StatusMsg 61 AnchorSideBottom.Side = asrCenter 62 Left = 412 63 Height = 22 64 Top = 480 65 Width = 90 66 Anchors = [akRight, akBottom] 67 BorderSpacing.Right = 5 68 Caption = 'stop' 69 OnClick = btnStopClick 70 TabOrder = 3 71 Visible = False 72 end 73 end 74 object PanelRt: TPanel 75 Left = 672 76 Height = 521 77 Top = 0 78 Width = 281 79 Align = alRight 80 BevelOuter = bvNone 81 ClientHeight = 521 82 ClientWidth = 281 83 TabOrder = 1 84 object chkGutter: TCheckBox 85 Left = 8 86 Height = 21 87 Top = 8 88 Width = 57 89 Caption = 'gutter' 90 OnChange = chkGutterChange 91 TabOrder = 0 92 end 93 object chkRuler: TCheckBox 94 Left = 8 95 Height = 21 96 Top = 30 97 Width = 50 98 Caption = 'ruler' 99 OnChange = chkRulerChange 100 TabOrder = 1 101 end 102 object chkMinimap: TCheckBox 103 Left = 8 104 Height = 21 105 Top = 52 106 Width = 72 107 Caption = 'minimap' 108 OnChange = chkMinimapChange 109 TabOrder = 2 110 end 111 object Label2: TLabel 112 AnchorSideTop.Control = edMarginFixed 113 AnchorSideTop.Side = asrCenter 114 Left = 64 115 Height = 17 116 Top = 373 117 Width = 70 118 Caption = 'fixed margin' 119 ParentColor = False 120 end 121 object edMarginFixed: TSpinEdit 122 Left = 8 123 Height = 26 124 Top = 368 125 Width = 52 126 MaxValue = 200 127 MinValue = 20 128 OnChange = edMarginFixedChange 129 TabOrder = 14 130 Value = 20 131 end 132 object gWrap: TGroupBox 133 Left = 144 134 Height = 138 135 Top = 4 136 Width = 128 137 Caption = 'wrap' 138 ClientHeight = 119 139 ClientWidth = 124 140 TabOrder = 15 141 object chkWrapOff: TRadioButton 142 Left = 8 143 Height = 21 144 Top = 0 145 Width = 38 146 Caption = 'off' 147 Checked = True 148 OnChange = chkWrapOffChange 149 TabOrder = 0 150 TabStop = True 151 end 152 object chkWrapOn: TRadioButton 153 Left = 8 154 Height = 21 155 Top = 20 156 Width = 65 157 Caption = 'window' 158 OnChange = chkWrapOnChange 159 TabOrder = 1 160 end 161 object chkWrapMargin: TRadioButton 162 Left = 8 163 Height = 21 164 Top = 40 165 Width = 63 166 Caption = 'margin' 167 OnChange = chkWrapMarginChange 168 TabOrder = 2 169 end 170 object chkWrapIndent: TCheckBox 171 Left = 8 172 Height = 21 173 Top = 88 174 Width = 84 175 Caption = 'with indent' 176 OnChange = chkWrapIndentChange 177 TabOrder = 4 178 end 179 object chkWrapWndMargin: TRadioButton 180 Left = 8 181 Height = 21 182 Top = 62 183 Width = 97 184 Caption = 'min wnd/mrg' 185 OnChange = chkWrapWndMarginChange 186 TabOrder = 3 187 end 188 end 189 object edFontsize: TSpinEdit 190 Left = 8 191 Height = 26 192 Top = 272 193 Width = 52 194 MaxValue = 40 195 MinValue = 4 196 OnChange = edFontsizeChange 197 TabOrder = 11 198 Value = 10 199 end 200 object Label4: TLabel 201 AnchorSideTop.Control = edFontsize 202 AnchorSideTop.Side = asrCenter 203 Left = 64 204 Height = 17 205 Top = 277 206 Width = 47 207 Caption = 'font size' 208 ParentColor = False 209 end 210 object gUnpri: TGroupBox 211 Left = 144 212 Height = 104 213 Top = 144 214 Width = 128 215 Caption = 'unprintable' 216 ClientHeight = 85 217 ClientWidth = 124 218 TabOrder = 16 219 object chkUnprintVis: TCheckBox 220 Left = 8 221 Height = 21 222 Top = 1 223 Width = 52 224 Caption = 'show' 225 OnChange = chkUnprintVisChange 226 TabOrder = 0 227 end 228 object chkUnprintSp: TCheckBox 229 Left = 8 230 Height = 21 231 Top = 20 232 Width = 62 233 Caption = 'spaces' 234 OnChange = chkUnprintSpChange 235 TabOrder = 1 236 end 237 object chkUnprintEnd: TCheckBox 238 Left = 8 239 Height = 21 240 Top = 40 241 Width = 50 242 Caption = 'ends' 243 OnChange = chkUnprintEndChange 244 TabOrder = 2 245 end 246 object chkUnprintEndDet: TCheckBox 247 Left = 8 248 Height = 21 249 Top = 60 250 Width = 85 251 Caption = 'end-details' 252 OnChange = chkUnprintEndDetChange 253 TabOrder = 3 254 end 255 end 256 object edTabsize: TSpinEdit 257 Left = 8 258 Height = 26 259 Top = 304 260 Width = 52 261 MaxValue = 12 262 MinValue = 1 263 OnChange = edTabsizeChange 264 TabOrder = 12 265 Value = 8 266 end 267 object Label5: TLabel 268 AnchorSideTop.Control = edTabsize 269 AnchorSideTop.Side = asrCenter 270 Left = 64 271 Height = 17 272 Top = 309 273 Width = 43 274 Caption = 'tab size' 275 ParentColor = False 276 end 277 object bFont: TButton 278 Left = 144 279 Height = 25 280 Top = 256 281 Width = 96 282 Caption = 'font...' 283 OnClick = bFontClick 284 TabOrder = 17 285 end 286 object chkMicromap: TCheckBox 287 Left = 8 288 Height = 21 289 Top = 118 290 Width = 80 291 Caption = 'micromap' 292 OnChange = chkMicromapChange 293 TabOrder = 5 294 end 295 object edSpaceY: TSpinEdit 296 Left = 8 297 Height = 26 298 Top = 336 299 Width = 52 300 MaxValue = 10 301 MinValue = -5 302 OnChange = edSpaceYChange 303 TabOrder = 13 304 end 305 object Label6: TLabel 306 AnchorSideTop.Control = edSpaceY 307 AnchorSideTop.Side = asrCenter 308 Left = 64 309 Height = 17 310 Top = 341 311 Width = 53 312 Caption = 'spacing-y' 313 ParentColor = False 314 end 315 object bOpt: TButton 316 Left = 144 317 Height = 25 318 Top = 288 319 Width = 96 320 Caption = 'options...' 321 OnClick = bOptClick 322 TabOrder = 18 323 end 324 object chkMinimapLeft: TCheckBox 325 Left = 30 326 Height = 21 327 Top = 74 328 Width = 55 329 Caption = 'at left' 330 OnChange = chkMinimapLeftChange 331 TabOrder = 3 332 end 333 object chkNewScroll: TCheckBox 334 Left = 8 335 Height = 21 336 Top = 140 337 Width = 104 338 Caption = 'new scrollbars' 339 OnChange = chkNewScrollChange 340 TabOrder = 6 341 end 342 object chkTabSpaces: TCheckBox 343 Left = 8 344 Height = 21 345 Top = 162 346 Width = 99 347 Caption = 'tab as spaces' 348 OnChange = chkTabSpacesChange 349 TabOrder = 7 350 end 351 object ListboxLog: TListBox 352 AnchorSideRight.Control = PanelRt 353 AnchorSideRight.Side = asrBottom 354 AnchorSideBottom.Control = PanelRt 355 AnchorSideBottom.Side = asrBottom 356 Left = 8 357 Height = 111 358 Top = 408 359 Width = 271 360 Anchors = [akTop, akLeft, akRight, akBottom] 361 BorderSpacing.Around = 2 362 ItemHeight = 0 363 ScrollWidth = 269 364 TabOrder = 20 365 TopIndex = -1 366 end 367 object bClearLog: TButton 368 Left = 184 369 Height = 25 370 Top = 494 371 Width = 91 372 Caption = 'clear log' 373 OnClick = bClearLogClick 374 TabOrder = 19 375 end 376 object chkMouseEn: TCheckBox 377 Left = 8 378 Height = 21 379 Top = 184 380 Width = 128 381 Caption = 'mouse sel enabled' 382 Checked = True 383 OnChange = chkMouseEnChange 384 State = cbChecked 385 TabOrder = 8 386 end 387 object chkMinimapTooltip: TCheckBox 388 Left = 30 389 Height = 21 390 Top = 96 391 Width = 58 392 Caption = 'tooltip' 393 Checked = True 394 OnChange = chkMinimapTooltipChange 395 State = cbChecked 396 TabOrder = 4 397 end 398 object chkSmoothScroll: TCheckBox 399 Left = 8 400 Height = 21 401 Top = 232 402 Width = 98 403 Caption = 'smooth scroll' 404 Checked = True 405 OnChange = chkSmoothScrollChange 406 State = cbChecked 407 TabOrder = 10 408 end 409 object TrackbarScale: TTrackBar 410 AnchorSideLeft.Control = LabelScale 411 AnchorSideLeft.Side = asrBottom 412 AnchorSideTop.Control = LabelScale 413 AnchorSideTop.Side = asrCenter 414 Left = 179 415 Height = 46 416 Top = 312 417 Width = 88 418 Max = 300 419 Min = 100 420 OnChange = TrackbarScaleChange 421 Position = 100 422 ShowSelRange = False 423 TickStyle = tsNone 424 BorderSpacing.Left = 5 425 TabOrder = 21 426 end 427 object LabelScale: TLabel 428 Left = 144 429 Height = 17 430 Top = 327 431 Width = 30 432 Caption = 'Scale' 433 ParentColor = False 434 end 435 object chkMouseColSelect: TCheckBox 436 Left = 8 437 Height = 21 438 Top = 208 439 Width = 105 440 Caption = 'mouse vert sel' 441 OnChange = chkMouseColSelectChange 442 TabOrder = 9 443 end 444 end 445 object OpenDialog1: TOpenDialog 446 Options = [ofFileMustExist, ofEnableSizing] 447 Left = 472 448 Top = 20 449 end 450 object FontDialog1: TFontDialog 451 Title = 'Font' 452 MinFontSize = 0 453 MaxFontSize = 0 454 Left = 536 455 Top = 20 456 end 457 object SaveDialog1: TSaveDialog 458 Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail] 459 Left = 504 460 Top = 20 461 end 462 object MainMenu1: TMainMenu 463 Left = 432 464 Top = 80 465 object mnuFile: TMenuItem 466 Caption = 'File' 467 object mnuFileOpen: TMenuItem 468 Caption = 'open..' 469 ShortCut = 16463 470 OnClick = mnuFileOpenClick 471 end 472 object mnuFileSave: TMenuItem 473 Caption = 'save' 474 OnClick = mnuFileSaveClick 475 end 476 object mnuFileSaveAs: TMenuItem 477 Caption = 'save as..' 478 OnClick = mnuFileSaveAsClick 479 end 480 object MenuItem10: TMenuItem 481 Caption = '-' 482 end 483 object mnuFileEnd: TMenuItem 484 Caption = 'set line-ends' 485 object mnuEndWin: TMenuItem 486 Caption = 'win' 487 OnClick = mnuEndWinClick 488 end 489 object mnuEndUnix: TMenuItem 490 Caption = 'unix' 491 OnClick = mnuEndUnixClick 492 end 493 object mnuEndMac: TMenuItem 494 Caption = 'mac' 495 OnClick = mnuEndMacClick 496 end 497 end 498 object mnuFileHtml: TMenuItem 499 Caption = 'export HTML' 500 OnClick = mnuFileHtmlClick 501 end 502 object MenuItem12: TMenuItem 503 Caption = '-' 504 end 505 object mnuFileExit: TMenuItem 506 Caption = 'quit' 507 OnClick = mnuFileExitClick 508 end 509 end 510 object MenuItem9: TMenuItem 511 Caption = 'Search' 512 object mnuFind: TMenuItem 513 Caption = 'find...' 514 ShortCut = 16454 515 OnClick = mnuFindClick 516 end 517 object mnuFindNext: TMenuItem 518 Caption = 'find next' 519 ShortCut = 114 520 OnClick = mnuFindNextClick 521 end 522 object mnuGoto: TMenuItem 523 Caption = 'go to..' 524 ShortCut = 16455 525 OnClick = bGotoClick 526 end 527 end 528 object mnuEnc: TMenuItem 529 Caption = 'Encoding' 530 end 531 object mnuTst: TMenuItem 532 Caption = 'Tests' 533 object mnuTestCaret1: TMenuItem 534 Caption = 'set 100 carets' 535 OnClick = mnuTestCaret1Click 536 end 537 object mnuTestCaret2: TMenuItem 538 Caption = 'set 2000 carets' 539 OnClick = bAddCrtClick 540 end 541 object mnuTestMargins: TMenuItem 542 Caption = 'set margins..' 543 OnClick = mnuTestMarginsClick 544 end 545 object mnuTestBookmk: TMenuItem 546 Caption = 'toggle bookmks at all lines' 547 OnClick = mnuTestBookmkClick 548 end 549 object mnuTestMarker: TMenuItem 550 Caption = 'place marker at caret' 551 OnClick = btnMarkerClick 552 end 553 object mnuTestConvPos: TMenuItem 554 Caption = 'test CaretPosToClientPos' 555 OnClick = mnuTestConvPosClick 556 end 557 object MenuItem5: TMenuItem 558 Caption = '-' 559 end 560 object mnuTestSyntax: TMenuItem 561 Caption = 'hilite "fake" syntax' 562 OnClick = mnuTestSyntaxClick 563 end 564 object mnuTestHiliteWww: TMenuItem 565 Caption = 'underline str "www"' 566 OnClick = mnuTestHiliteWwwClick 567 end 568 object MenuItem1: TMenuItem 569 Caption = '-' 570 end 571 object mnuTestGapAdd: TMenuItem 572 Caption = 'add gap..' 573 ShortCut = 113 574 OnClick = mnuTestGapAddClick 575 end 576 object mnuTestGapClear: TMenuItem 577 Caption = 'clear gaps' 578 OnClick = mnuTestGapClearClick 579 end 580 object mnuTestGapPanels: TMenuItem 581 Caption = 'toggle inline editor, over 1st gap' 582 OnClick = mnuTestGapPanelsClick 583 end 584 object MenuItem13: TMenuItem 585 Caption = '-' 586 end 587 object mnuTestGutterDecor: TMenuItem 588 Caption = 'add gutter decor..' 589 OnClick = mnuTestGutterDecorClick 590 end 591 end 592 object mnuOpts: TMenuItem 593 Caption = 'Options' 594 object mnuOptDlg: TMenuItem 595 Caption = 'options..' 596 ShortCut = 120 597 OnClick = bOptClick 598 end 599 object MenuItem11: TMenuItem 600 Caption = '-' 601 end 602 object mnuShowPane: TMenuItem 603 Caption = 'show options panel' 604 Checked = True 605 OnClick = mnuShowPaneClick 606 end 607 end 608 object mnuHlp: TMenuItem 609 Caption = 'Help' 610 object mnuHelpKey: TMenuItem 611 Caption = 'commands..' 612 ShortCut = 112 613 OnClick = bKeymapClick 614 end 615 object MenuItem2: TMenuItem 616 Caption = '-' 617 end 618 object mnuHelpMous: TMenuItem 619 Caption = 'mouse help..' 620 OnClick = mnuHelpMousClick 621 end 622 end 623 end 624 object TimerHint: TTimer 625 Enabled = False 626 Interval = 5500 627 OnTimer = TimerHintTimer 628 Left = 560 629 Top = 303 630 end 631 object ApplicationProperties1: TApplicationProperties 632 ShowButtonGlyphs = sbgNever 633 ShowMenuGlyphs = sbgNever 634 Left = 548 635 Top = 366 636 end 637 object ImagesDecor: TImageList 638 Left = 609 639 Top = 24 640 Bitmap = { 641 4C7A030000001000000010000000A10600000000000078DAED947B504E691CC7 642 9F52ABB2C3AE8C666218C33018C358CC6A076BA9904BA275A92DA3745BB2AEA5 643 484A97F77DEB8D72696DD6B42806A5FBA6AC4B14D1FB9CB752BC4925B56EB5C5 644 B6D95DFCF6FB1C07317676FCB5FBC79E99CF9C737EE7F93DBFDBF7398CFDFB57 645 AEEA357951209AB11F71CF8D7E6DCFE9BA06F66CE57B177F23600E3F93C2C817 646 DFB1CE0CB65E796A669CA56146D8C302EF3DF254CCEC8296B1F3F158F73AC630 647 EC97089CE458516C109EBF05E7C04A3002EC0527C1F7604A4A3063994A3E785F 648 0C9E831F0A629909EE1B403BB8059A803FB8A9D87E0799C8A337E2B09C28668A 649 F73840E00AF613B9C4822A100252610BC4BD1C78286B756064EE8BD81F834BA0 650 1834027BB0103C02ADE020FC1D71BF0ECE836A50845E0F50FC3F010FC145F06B 651 DE8B983640032E8307201ED4287BDEC01AEF8C446694AF92FD457F3A946F4FC0 652 59704CE997885B09324005D8829A47E647B20F44ED596AB957A9E002F6FC1CF7 653 287057E42C7201F5E09E622F57EA62F9518A56D4CC12EF11F0F5CC8D90E7385A 654 99DB974AFC6239A68A8D157DC36C3F7BA91B593BD086D00DFC4D736264DD180B 655 9D646B9809EE6698D147F86692AD92F5639EA396ED5DFD5F6952EC9B13FD5AAF 656 398A4DB6BFA5E3FFAF775EFC1DBC976FCF9E3DF9B061C378B76EDDDED75F12EB 657 1D1D1DF9E9D3A779FFFEFD25C5760DE8155EDAC4BED74149D7F8E6E6E6BA7DFB 658 F6F1478F1E71777777B14EA7AC11BEBAEEDDBB4B5823ECCF40B9C2ABDCC78F1F 659 CFF7EEDD2BA5A7A7F3CCCC4C09B5C8718D8D8DF553A74E95341A8DFC7DC99225 660 DCC4C444D7A5BE522323A3E2A0A0203E67CE1C3E6BD62C5E5353C3A74F9F2EE7 661 D0BB77EFB2D2D252BE73E74EBE7BF76E5E5F5FCFFBF5EBA7EF528BE899949696 662 C6E7CF9FCF1D1C1C64FFF8F8781147B2B0B0D06DDFBE9DAF5DBB96C7C5C5F1A6 663 A6263E6AD4A897FD157954F8F8F8F0BCBC3C69F5EAD5DCDFDF5FEE616D6D2D1F 664 3C78B09849597474340F0808E0AEAEAEBCACAC8C8F193346F85E157B585959F1 665 ECEC6CBE68D12209B596830AF12CFA287C264F9ECCF57A3D9F387122B7B7B7E7 666 068381FBF9F9716B6B6BDEB76F5F5D646424BF75EB168F888890D0636E6A6ACA 667 8383837973733317D7E6CD9B79717131177D4D4E4EE68D8D8D726D969696F2CC 668 508B6EC28409E22EA15E3DB4230D1F3E5CCC43B60F1932840F1D3A5427F21838 669 70A0B04B7DFAF411F95F51EA7FD90BE92D8DFC13D7FE2B070FF363E8395BB76E 670 1D8346586C6C2C83CE7A7A7A7A0EC4FC8CD02FA656ABE575D017C33979E58775 671 B21F1189E71E98C308B0163E47A0D773D0ED4ECCDF0936ABD1A347774F494961 672 2B57AE64D019F3F0F0600B172E34876EC6252424B8C7C4C4A4858484D4060606 673 FE811864676747CB962DA3D0D0D0B6B0B030097BEE8E56A9E7FAF97D3D68E6CC 674 99C6A9A9A92C3C3CFC2B68EFE6FEFDFB9F68B55A5AB3660D2D5FBE9C5C5C5C68 675 C18205843884B340F3E63992B7D70AD2AAC21E1F399C9CEAEEBECC1A7E2C2A2A 676 2A00FA7906BD505D5D1D41BB049D10B44EC885A01F0A0EDA441BD77F43711101 677 94AB71A25369070A673B3A5B151414087F4F68EA495B5B1B55575753515191C8 678 17F1E691BB9B1B25252690E19A442D771BA8B3B581F8415F3ABA5F7B68ECA459 679 6667CE9C61D0EF5C9CA9C7555555847E136A249C11D2955DA5A29FF2A9FDC11D 680 6ABD5E4886939BE861553E55A46DA17D71A1BB889258616121DBB66D9B0DCEF4 681 C38E8E0E423D84F3474B97BA90363686EE35D5D3EDB30954A2FE94AA8EAEA2F6 682 BACB547E3C9876A9433419BBFC19CE3C438D232A2B2B6FB7B4B4C8FE228FB4F4 683 7472755942D72BAE52F3E58374BF3C8B3AEED7D093D646AA2B39F25C1B191496 684 77602B4B4A4A629855BF92921243434303CD9E3D5BEEFD9E3D7BC8C77B0555EB 685 4BE969673BDDD51D272969B1BCD71D7DFE535558C0A653291AD13BE6EDED6D89 686 FF9D1E3510664AE3C68D231B1B1B9A39C38E6E5496515D819A2E848FA2CAC35E 687 F44BED05BA762EF5B788D0208FACC3F10CFF24666B6B6B829EB96664645CDEB0 688 61C3B369D3A611CE28D9D94E2303FC6F9FDB45CD9792A9B3AD99AAF9C5F60389 689 B1DF6D0CDC34204E1B23FBBBB9B9C9DA852607611F2D72BA83FF14E2DBD30DD4 690 FFFCCF4E6A7DF0F3B38BE7CF5CD1A855CB1D9C5C3E8C898D83FA8D19E6CCA05D 691 869EB3AD5BB70AFD9BE15F3963C78E1D8511DBC33B0D9557E9A6A1BAE548CAA1 692 C455FEFEC3451CE4289F1FFCC3DE3883BEBEBECCCBCB8BE15F28F2B286FE369E 693 38712C43AD8A769EF285AD85D85F9C3DF4EB6FCFB1C8459C47B176D2A4C9DD9C 694 9C16588A98EB11B357AF5ECCD9D9F98DF57F01E29446E5 695 } 696 end 697end 698