codeexmain.dfm

来自「著名的Handle」· DFM 代码 · 共 725 行 · 第 1/2 页

        ShortCut2 = 0
        Command = ecUndo
      end
      item
        ShortCut = 24666
        ShortCut2 = 0
        Command = ecRedo
      end
      item
        ShortCut = 16432
        ShortCut2 = 0
        Command = ecGotoMarker0
      end
      item
        ShortCut = 16433
        ShortCut2 = 0
        Command = ecGotoMarker1
      end
      item
        ShortCut = 16434
        ShortCut2 = 0
        Command = ecGotoMarker2
      end
      item
        ShortCut = 16435
        ShortCut2 = 0
        Command = ecGotoMarker3
      end
      item
        ShortCut = 16436
        ShortCut2 = 0
        Command = ecGotoMarker4
      end
      item
        ShortCut = 16437
        ShortCut2 = 0
        Command = ecGotoMarker5
      end
      item
        ShortCut = 16438
        ShortCut2 = 0
        Command = ecGotoMarker6
      end
      item
        ShortCut = 16439
        ShortCut2 = 0
        Command = ecGotoMarker7
      end
      item
        ShortCut = 16440
        ShortCut2 = 0
        Command = ecGotoMarker8
      end
      item
        ShortCut = 16441
        ShortCut2 = 0
        Command = ecGotoMarker9
      end
      item
        ShortCut = 24624
        ShortCut2 = 0
        Command = ecSetMarker0
      end
      item
        ShortCut = 24625
        ShortCut2 = 0
        Command = ecSetMarker1
      end
      item
        ShortCut = 24626
        ShortCut2 = 0
        Command = ecSetMarker2
      end
      item
        ShortCut = 24627
        ShortCut2 = 0
        Command = ecSetMarker3
      end
      item
        ShortCut = 24628
        ShortCut2 = 0
        Command = ecSetMarker4
      end
      item
        ShortCut = 24629
        ShortCut2 = 0
        Command = ecSetMarker5
      end
      item
        ShortCut = 24630
        ShortCut2 = 0
        Command = ecSetMarker6
      end
      item
        ShortCut = 24631
        ShortCut2 = 0
        Command = ecSetMarker7
      end
      item
        ShortCut = 24632
        ShortCut2 = 0
        Command = ecSetMarker8
      end
      item
        ShortCut = 24633
        ShortCut2 = 0
        Command = ecSetMarker9
      end
      item
        ShortCut = 24654
        ShortCut2 = 0
        Command = ecNormalSelect
      end
      item
        ShortCut = 24643
        ShortCut2 = 0
        Command = ecColumnSelect
      end
      item
        ShortCut = 24652
        ShortCut2 = 0
        Command = ecLineSelect
      end
      item
        ShortCut = 9
        ShortCut2 = 0
        Command = ecTab
      end
      item
        ShortCut = 8201
        ShortCut2 = 0
        Command = ecShiftTab
      end>
    Lines.Strings = (
      
        '{***************************************************************' +
        '***************'
      ''
      
        ' This demonstration and the appropriate code to support it in mw' +
        'Editor were'
      
        ' written by Andy Jeffries of Kwik-Rite Development (www.kwikrite' +
        '.clara.net)'
      ''
      
        ' This really is a work in progress, but it could be very useful ' +
        'in implementing'
      ' your own full Code Explorer.'
      ''
      ' Last update: 1999-05-07'
      ' Version: 0.11 (for version history see version.rtf)'
      ''
      ' Additional changes implented by Jacobs Jan on 05/11/1999'
      ' [e-mail]:'
      ''
      
        '  - Changed Listbox to Treeview to accomodate future options -> ' +
        'need lots of work'
      '  - Added possibility to alphasort the treeview'
      ''
      ' For changes in code, see code commented with   "// *** JAN"'
      ''
      ' Needed :'
      ''
      
        '  Logic behind the tokens, need more information about them (how' +
        ' does the'
      
        '  ontoken event works, when is it triggered, what states and com' +
        'bination of'
      '  states mean what, etc ...)'
      
        '  How can I check if a procedure is still in the code.  Need thi' +
        's to update my'
      '  tree and remove deleted procedures'
      
        '  Need more logic !!!  There are much more better ways to solve ' +
        'my problems than'
      '  the solutions I came up with'
      ''
      
        ' ***************************************************************' +
        '***************}'
      ' ')
    MaxUndo = 10
    ReadOnly = True
    WantTabs = False
    OnSelectionChange = EditorSelectionChange
  end
  object PascalHighLighter: TmwPasSyn
    DefaultFilter = 'Pascal files (*.pas,*.inc)|*.PAS;*.INC'
    OnToken = PascalHighLighterToken
    CommentAttri.Foreground = clActiveCaption
    CommentAttri.Style = [fsItalic]
    KeyAttri.Style = [fsBold]
    Left = 40
    Top = 328
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'pas'
    Filter = 'Pascal Files (*.pas)|*.pas'
    Left = 40
    Top = 376
  end
  object ActionList: TActionList
    Images = ToolImages
    Left = 40
    Top = 272
    object Open: TAction
      Caption = 'Open file'
      ImageIndex = 0
      ShortCut = 16463
      OnExecute = OpenExecute
    end
    object SortAlpha: TAction
      Caption = 'Alphasort'
      ImageIndex = 1
      OnExecute = SortAlphaExecute
    end
    object RefreshTokens: TAction
      Caption = 'Refresh Explorer'
      ImageIndex = 2
      OnExecute = RefreshTokensExecute
    end
    object Exit: TAction
      Caption = 'Exit'
      OnExecute = ExitExecute
    end
  end
  object MainMenu: TMainMenu
    Images = ToolImages
    Left = 42
    Top = 220
    object File1: TMenuItem
      Caption = 'File'
      object Openfile1: TMenuItem
        Action = Open
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = Exit
      end
    end
    object Options1: TMenuItem
      Caption = 'Options'
      object Alphasort1: TMenuItem
        Action = SortAlpha
      end
      object RefreshExplorer1: TMenuItem
        Action = RefreshTokens
      end
    end
  end
  object ToolImages: TImageList
    Left = 24
    Top = 40
    Bitmap = {
      3606000003000000424D36060000000000003600000028000000300000001000
      0000010010000000000000060000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000FF7FFF7F000000000000007C003C007C000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      EF3D000000000000FF7FFF7F0000000000000000007C003C007C0000E03D0000
      0000E07FF75EE07FF75EE07FF75EE07FF75EE07F000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000EF3D
      0000FF7FFF7FFF7FFF7F00000000000000000000007C003C007CE03DE03D0000
      E07F0000E07FF75EE07FF75EE07FF75EE07FF75EE07F0000FF7FFF7F00000000
      0000000000000000000000000000000000000000000000000000000000000000
      FF7F00000000FF7FFF7F00000000000000000000007C003C007CE03DE03D0000
      FF7FE07F0000E07FF75EE07FF75EE07FF75EE07FF75EE07F0000FF7F00000000
      00000000000000000000EF3D0000000000000000000000000000000000000000
      0000000000000000FF7F00000000000000000000007C003C007CE03D00000000
      E07FFF7FE07F0000000000000000000000000000000000000000FF7F00000000
      0000000000000000EF3D000000000000000000000000EF3D0000000000000000
      EF3D000000000000FF7F0000000000000000007C007C007C007C007C00000000
      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000EF3D0000FF7F0000EF3D000000000000003C003C003C003C003C00000000
      E07FFF7FE07FFF7FE07F0000FF7F000000000000000000000000FF7F00000000
      000000000000000000000000EF3D000000000000000000000000000000000000
      0000000000000000EF3D000000000000E03DE03DE03D00000000000000000000
      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
      00000000000000000000EF3D0000000000000000EF3D00000000000000000000
      0000000000000000000000000000E03DE03DE03D000000000000000000000000
      0000FF7FE07FFF7FE07F0000FF7F000000000000000000000000FF7F00000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000E03DE03DE03D0000000000000000000000000000
      EF3D00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000E03DE03DE03D00000000000000000000000000000000
      000000000000000000000000FF7F00000000FF7FFF7F00000000000000000000
      000000000000000000000000EF3D00000000EF3D000000000000000000000000
      0000000000000000E03DE03DE03D000000000000000000000000000000000000
      000000000000000000000000FF7FFF7FFF7FFF7FFF7F0000FF7F000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000E03D0000000000000000EF3D0000EF3D000000000000
      000000000000000000000000FF7FFF7FFF7FFF7FFF7F00000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000EF3D0000EF3D000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000E03D0000000000000000EF3D000000000000EF3D0000EF3D000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000E03DE03D000000000000000000000000000000000000000000000000424D
      BE000000000000003E0000002800000030000000100000000100010000000000
      800000000000000000000000020000000000000000000000FFFFFF00FFFFFFFF
      F862BE81801FFFFF80E032020000F18301E09D020000FBC701E004000000F9C7
      31E195010000F80731C102000000FD8FC181EF020000FC8FC30700A00000FC8F
      FE17BF818000FE1FCC37EF028000FE1FA8773102FC00FE1F40F79D02FC01FF3F
      01E30400FC03FF7FC1E39D02FC07FFFFC0E30200FFFFFFFFC83FEF02}
  end
  object TreeImages: TImageList
    Left = 24
    Top = 88
    Bitmap = {
      3604000002000000424D36040000000000003600000028000000200000001000
      0000010010000000000000040000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000FF7F000000000000FF7F0000FF7F00000000FF7F00000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000FF7F00000000FF7F00000000FF7F00000000FF7F00000000
      00000000E07FF75EE07FF75EE07FF75EE07FF75EE07F00000000000000000000
      0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
      0000FF7F0000E07FF75EE07FF75EE07FF75EE07FF75EE07F0000000000000000
      00000000000000000000FF7FFF7FFF7FFF7F00000000FF7F0000FF7F00000000
      0000E07FFF7F0000E07FF75EE07FF75EE07FF75EE07FF75EE07F000000000000
      000000000000FF7FE07F00000000FF7F0000FF7F0000FF7FFF7FFF7F00000000
      0000FF7FE07FFF7F000000000000000000000000000000000000000000000000
      00000000FF7FE07F0000E07FFF7F0000FF7FE07F0000FF7F0000FF7F00000000
      0000E07FFF7FE07FFF7FE07FFF7FE07FFF7FE07F000000000000000000000000
      0000FF7FE07FFF7FE07FFF7F0000FF7FE07F0000FF7FFF7FFF7FFF7F00000000
      0000FF7FE07FFF7FE07FFF7FE07FFF7FE07FFF7F000000000000000000000000
      0000E07FFF7FE07FFF7F0000FF7FE07F0000FF7FFF7FFF7FFF7FFF7F00000000
      0000E07FFF7FE07FFF7FE07FFF7F000000000000000000000000000000000000
      0000FF7FE07FFF7FE07FFF7FE07F0000FF7FFF7FFF7F00000000000000000000
      00000000E07FFF7FE07FFF7F000000000000000000000000000000000000FF03
      0000E07FFF7FE07FFF7FE07F000000000000FF7FFF7F0000FF7FFF7F00000000
      0000EF3D0000000000000000EF3D00000000000000000000000000000000FF03
      FF030000E07FFF7FE07F0000E07FFF7FE07F0000FF7F0000FF7F000000000000
      000000000000000000000000000000000000000000000000000000000000FF03
      FF03FF030000E07FFF7FE07FFF7F00000000FF7FFF7F00000000000000000000
      000000000000000000000000000000000000000000000000000000000000FF03
      FF03FF03FF03000000000000000000000000000000000000000000000000424D
      7E000000000000003E0000002800000020000000100000000100010000000000
      400000000000000000000000020000000000000000000000FFFFFF00FFFFF000
      FFFFF000FFFFF000FFFFF000C00FF0008007F0008003F0008001E0008001C000
      800F8000800F8000801F0000C0FF0000C0FF0001FFFF0003FFFF0007}
  end
end