main.dfm

著名的Handle

object Form1: TForm1
  Left = 192
  Top = 108
  Width = 690
  Height = 480
  Caption = 'Code Explorer'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000007777777777777777777777777770000F88
    88888888888888888888888887000F88FFFFFFFFFFFFFFFFFFFFFFF887000F87
    00000000000000000000000F87000F8700200200200200200200200F87000F87
    02222222222222222222220F87000F8700200200200200200200200F87000F87
    00200200200200200200200F87000F8702222222222222222222220F87000F87
    0FFF020020020FFF0200200F87000F870020F2002002F020F200200F87000F87
    02222F22222F22222F22220F87000F8700200F00200F00200F00200F87000F87
    002002F020F2002002F0200F87000F870222222FFF222222222FFF0F87000F87
    00200200200200200200200F87000F8700200200200200200200200F87000F87
    02222222222222222222220F87000F8700200200200200200200200F87000F87
    00200200200200200200200F87000F8700000000000000000000000F87000F88
    77777777777777777777777887000F88888888888888888888888888870000FF
    FFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFC00000078000
    0003000000010000000100000001000000010000000100000001000000010000
    0001000000010000000100000001000000010000000100000001000000010000
    000100000001000000010000000100000001000000010000000180000003C000
    0007FFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    00000000000000888888888888000F000000000000800F020020020020800F02
    2222222220800F0F00200FFF20800F02F020F200F0800F02F222F22220800F02
    0FFF020020800F020020020020800F022222222220800F000000000000800FFF
    FFFFFFFFFF0000000000000000000000000000000000FFFF0000800100000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000080010000FFFF0000}
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 682
    Height = 49
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object lblCaption: TLabel
      Left = 104
      Top = 8
      Width = 569
      Height = 26
      Caption = 
        'This program is a basic Object Pascal code explorer. Upon loadin' +
        'g a document, the listbox will display all of the functions in t' +
        'he loaded file. Please read the license at the top of the main.c' +
        'pp file.'
      WordWrap = True
    end
  end
  object mwCustomEdit1: TmwCustomEdit
    Left = 185
    Top = 49
    Width = 497
    Height = 404
    Cursor = crIBeam
    Align = alClient
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    HighLighter = mwPasSyn1
    Keystrokes = <
      item
        ShortCut = 38
        Command = ecUp
      end
      item
        ShortCut = 8230
        Command = ecSelUp
      end
      item
        ShortCut = 16422
        Command = ecScrollUp
      end
      item
        ShortCut = 40
        Command = ecDown
      end
      item
        ShortCut = 8232
        Command = ecSelDown
      end
      item
        ShortCut = 16424
        Command = ecScrollDown
      end
      item
        ShortCut = 37
        Command = ecLeft
      end
      item
        ShortCut = 8229
        Command = ecSelLeft
      end
      item
        ShortCut = 16421
        Command = ecWordLeft
      end
      item
        ShortCut = 24613
        Command = ecSelWordLeft
      end
      item
        ShortCut = 39
        Command = ecRight
      end
      item
        ShortCut = 8231
        Command = ecSelRight
      end
      item
        ShortCut = 16423
        Command = ecWordRight
      end
      item
        ShortCut = 24615
        Command = ecSelWordRight
      end
      item
        ShortCut = 34
        Command = ecPageDown
      end
      item
        ShortCut = 8226
        Command = ecSelPageDown
      end
      item
        ShortCut = 16418
        Command = ecPageBottom
      end
      item
        ShortCut = 24610
        Command = ecSelPageBottom
      end
      item
        ShortCut = 33
        Command = ecPageUp
      end
      item
        ShortCut = 8225
        Command = ecSelPageUp
      end
      item
        ShortCut = 16417
        Command = ecPageTop
      end
      item
        ShortCut = 24609
        Command = ecSelPageTop
      end
      item
        ShortCut = 36
        Command = ecLineStart
      end
      item
        ShortCut = 8228
        Command = ecSelLineStart
      end
      item
        ShortCut = 16420
        Command = ecEditorTop
      end
      item
        ShortCut = 24612
        Command = ecSelEditorTop
      end
      item
        ShortCut = 35
        Command = ecLineEnd
      end
      item
        ShortCut = 8227
        Command = ecSelLineEnd
      end
      item
        ShortCut = 16419
        Command = ecEditorBottom
      end
      item
        ShortCut = 24611
        Command = ecSelEditorBottom
      end
      item
        ShortCut = 45
        Command = ecToggleMode
      end
      item
        ShortCut = 16429
        Command = ecCopy
      end
      item
        ShortCut = 8237
        Command = ecPaste
      end
      item
        ShortCut = 46
        Command = ecDeleteChar
      end
      item
        ShortCut = 8238
        Command = ecCut
      end
      item
        ShortCut = 8
        Command = ecDeleteLastChar
      end
      item
        ShortCut = 16392
        Command = ecDeleteLastWord
      end
      item
        ShortCut = 32776
        Command = ecUndo
      end
      item
        ShortCut = 40968
        Command = ecRedo
      end
      item
        ShortCut = 13
        Command = ecLineBreak
      end
      item
        ShortCut = 16449
        Command = ecSelectAll
      end
      item
        ShortCut = 16451
        Command = ecCopy
      end
      item
        ShortCut = 24649
        Command = ecBlockIndent
      end
      item
        ShortCut = 16461
        Command = ecLineBreak
      end
      item
        ShortCut = 16462
        Command = ecInsertLine
      end
      item
        ShortCut = 16468
        Command = ecDeleteWord
      end
      item
        ShortCut = 24661
        Command = ecBlockUnindent
      end
      item
        ShortCut = 16470
        Command = ecPaste
      end
      item
        ShortCut = 16472
        Command = ecCut
      end
      item
        ShortCut = 16473
        Command = ecDeleteLine
      end
      item
        ShortCut = 24665
        Command = ecDeleteEOL
      end
      item
        ShortCut = 16474
        Command = ecUndo
      end
      item
        ShortCut = 24666
        Command = ecRedo
      end
      item
        ShortCut = 16432
        Command = ecGotoMarker0
      end
      item
        ShortCut = 16433
        Command = ecGotoMarker1
      end
      item
        ShortCut = 16434
        Command = ecGotoMarker2
      end
      item
        ShortCut = 16435
        Command = ecGotoMarker3
      end
      item
        ShortCut = 16436
        Command = ecGotoMarker4
      end
      item
        ShortCut = 16437
        Command = ecGotoMarker5
      end
      item
        ShortCut = 16438
        Command = ecGotoMarker6
      end
      item
        ShortCut = 16439
        Command = ecGotoMarker7
      end
      item
        ShortCut = 16440
        Command = ecGotoMarker8
      end
      item
        ShortCut = 16441
        Command = ecGotoMarker9
      end
      item
        ShortCut = 24624
        Command = ecSetMarker0
      end
      item
        ShortCut = 24625
        Command = ecSetMarker1
      end
      item
        ShortCut = 24626
        Command = ecSetMarker2
      end
      item
        ShortCut = 24627
        Command = ecSetMarker3
      end
      item
        ShortCut = 24628
        Command = ecSetMarker4
      end
      item
        ShortCut = 24629
        Command = ecSetMarker5
      end
      item
        ShortCut = 24630
        Command = ecSetMarker6
      end
      item
        ShortCut = 24631
        Command = ecSetMarker7
      end
      item
        ShortCut = 24632
        Command = ecSetMarker8
      end
      item
        ShortCut = 24633
        Command = ecSetMarker9
      end>
    Lines.Strings = (
      ''
      ''
      ''
      '')
    MaxUndo = 10
    ReadOnly = False
    WantTabs = False
  end
  object ListBox1: TListBox
    Left = 0
    Top = 49
    Width = 185
    Height = 404
    Align = alLeft
    ItemHeight = 13
    TabOrder = 1
    OnDblClick = ListBox1DblClick
  end
  object Open: TBitBtn
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Open'
    TabOrder = 3
    OnClick = OpenClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77777777777777777777000000000007777700333333333077770B0333333333
      07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
      77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
      7007777777770777070777777777700077777777777777777777}
  end
  object mwPasSyn1: TmwPasSyn
    DefaultFilter = 'Pascal files (*.pas,*.dpr,*.inc)|*.PAS;*.DPR;*.INC'
    OnToken = mwPasSyn1Token
    AsmAttri.Background = clWindow
    AsmAttri.Foreground = clWindowText
    AsmAttri.Style = []
    CommentAttri.Background = clWindow
    CommentAttri.Foreground = clGreen
    CommentAttri.Style = [fsItalic]
    IdentifierAttri.Background = clWindow
    IdentifierAttri.Foreground = clWindowText
    IdentifierAttri.Style = []
    KeyAttri.Background = clWindow
    KeyAttri.Foreground = clWindowText
    KeyAttri.Style = [fsBold]
    NumberAttri.Background = clWindow
    NumberAttri.Foreground = clBlue
    NumberAttri.Style = []
    SpaceAttri.Background = clWindow
    SpaceAttri.Foreground = clWindowText
    SpaceAttri.Style = []
    StringAttri.Background = clWindow
    StringAttri.Foreground = clBlue
    StringAttri.Style = []
    SymbolAttri.Background = clWindow
    SymbolAttri.Foreground = clWindowText
    SymbolAttri.Style = []
    Left = 232
    Top = 88
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Pascal files (*.pas,*.dpr,*.inc)|*.PAS;*.DPR;*.INC'
    Left = 200
    Top = 88
  end
end