unit1.dfm

著名的Handle

object Form1: TForm1
  Left = 241
  Top = 129
  Width = 665
  Height = 476
  Caption = 'Form1'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object mwCustomEdit1: TmwCustomEdit
    Left = 0
    Top = 0
    Width = 657
    Height = 408
    Cursor = crIBeam
    Align = alClient
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    OnEnter = mwCustomEdit1Enter
    OnKeyUp = mwCustomEdit1KeyUp
    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
      item
        ShortCut = 24654
        Command = ecNormalSelect
      end
      item
        ShortCut = 24643
        Command = ecColumnSelect
      end
      item
        ShortCut = 24652
        Command = ecLineSelect
      end>
    Lines.Strings = (
      ''
      'mwCustomEdit1')
    MaxUndo = 10
    ReadOnly = False
    WantTabs = False
    OnChange = mwCustomEdit1Change
  end
  object Panel1: TPanel
    Left = 0
    Top = 408
    Width = 657
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 14
      Width = 63
      Height = 13
      Caption = 'Use Settings:'
    end
    object lblLanguage: TLabel
      Left = 304
      Top = 14
      Width = 51
      Height = 13
      Caption = 'Language:'
    end
    object Label2: TLabel
      Left = 216
      Top = 16
      Width = 3
      Height = 13
    end
    object cmdOpen: TButton
      Left = 480
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Load'
      TabOrder = 0
      OnClick = cmdOpenClick
    end
    object cmdUndo: TButton
      Left = 568
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Undo'
      TabOrder = 1
      OnClick = cmdUndoClick
    end
    object cboHighlight: TComboBox
      Left = 74
      Top = 11
      Width = 127
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      OnChange = cboHighlightChange
    end
    object cboLanguage: TComboBox
      Left = 360
      Top = 10
      Width = 105
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'Pascal'
        'C++'
        'Perl')
      TabOrder = 3
      OnChange = cboLanguageChange
    end
  end
  object dlgOpen: TOpenDialog
    Filter = 
      'Pascal files (*.pas,*.inc)|*.pas;*.inc|C++ files (*.c,*.cpp,*.h,' +
      '*.hpp)|*.c;*.cpp;*.h;*.hpp|Perl files (*.pl,*.pm,*.cgi)|*.pl;*.p' +
      'm;*.cgi|All files (*.*)|*.*'
    Left = 152
    Top = 216
  end
  object mwPasSyn1: TmwPasSyn
    DefaultFilter = 'Pascal files (*.pas,*.dpr,*.dpk,*.inc)|*.pas;*.dpr;*.dpk;*.inc'
    AsmAttri.Background = clWindow
    AsmAttri.Foreground = clWindowText
    AsmAttri.Style = []
    CommentAttri.Background = clWindow
    CommentAttri.Foreground = clWindowText
    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 = clWindowText
    NumberAttri.Style = []
    SpaceAttri.Background = clWindow
    SpaceAttri.Foreground = clWindowText
    SpaceAttri.Style = []
    StringAttri.Background = clWindow
    StringAttri.Foreground = clWindowText
    StringAttri.Style = []
    SymbolAttri.Background = clWindow
    SymbolAttri.Foreground = clWindowText
    SymbolAttri.Style = []
    Left = 192
    Top = 216
  end
  object DcjCppSyn1: TDcjCppSyn
    DefaultFilter = 'C++ files (*.cpp,*.h,*.hpp)|*.cpp;*.h;*.hpp'
    AsmAttri.Background = clSilver
    AsmAttri.Foreground = clWindowText
    AsmAttri.Style = []
    CommentAttri.Background = clWindow
    CommentAttri.Foreground = clNavy
    CommentAttri.Style = [fsItalic]
    DirecAttri.Background = clWindow
    DirecAttri.Foreground = clGreen
    DirecAttri.Style = []
    IdentifierAttri.Background = clWindow
    IdentifierAttri.Foreground = clWindowText
    IdentifierAttri.Style = []
    InvalidAttri.Background = clWindow
    InvalidAttri.Foreground = clWindowText
    InvalidAttri.Style = []
    KeyAttri.Background = clWindow
    KeyAttri.Foreground = clWindowText
    KeyAttri.Style = [fsBold]
    NumberAttri.Background = clWindow
    NumberAttri.Foreground = clWindowText
    NumberAttri.Style = []
    SpaceAttri.Background = clWindow
    SpaceAttri.Foreground = clWindowText
    SpaceAttri.Style = []
    StringAttri.Background = clWindow
    StringAttri.Foreground = clFuchsia
    StringAttri.Style = []
    SymbolAttri.Background = clWindow
    SymbolAttri.Foreground = clWindowText
    SymbolAttri.Style = []
    Left = 232
    Top = 216
  end
  object DcjPerlSyn1: TDcjPerlSyn
    DefaultFilter = 'Perl files (*.pl,*.pm,*.cgi)|*.pl;*.pm;*.cgi'
    CommentAttri.Background = clWindow
    CommentAttri.Foreground = clNavy
    CommentAttri.Style = [fsItalic]
    IdentifierAttri.Background = clWindow
    IdentifierAttri.Foreground = clWindowText
    IdentifierAttri.Style = []
    InvalidAttri.Background = clWindow
    InvalidAttri.Foreground = clWindowText
    InvalidAttri.Style = []
    KeyAttri.Background = clWindow
    KeyAttri.Foreground = clWindowText
    KeyAttri.Style = [fsBold]
    NumberAttri.Background = clWindow
    NumberAttri.Foreground = clRed
    NumberAttri.Style = []
    OperatorAttri.Background = clWindow
    OperatorAttri.Foreground = clWindowText
    OperatorAttri.Style = []
    PragmaAttri.Background = clWindow
    PragmaAttri.Foreground = clGreen
    PragmaAttri.Style = [fsBold]
    SpaceAttri.Background = clWindow
    SpaceAttri.Foreground = clWindow
    SpaceAttri.Style = []
    StringAttri.Background = clWindow
    StringAttri.Foreground = clFuchsia
    StringAttri.Style = []
    SymbolAttri.Background = clWindow
    SymbolAttri.Foreground = clWindowText
    SymbolAttri.Style = []
    VariableAttri.Background = clWindow
    VariableAttri.Foreground = clWindowText
    VariableAttri.Style = [fsBold]
    Left = 272
    Top = 216
  end
end