skyemain.dfm

SkyEdit是一个可用彩色语法来显示及编辑各种开发语言源代码的编辑器控件。

object SkyForm: TSkyForm
  Left = 105
  Top = 82
  AutoScroll = False
  Caption = 'Sky Editor'
  ClientHeight = 490
  ClientWidth = 653
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 2
    Top = 144
    Width = 42
    Height = 12
    Caption = '&G .....'
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 471
    Width = 653
    Height = 19
    AutoHint = True
    Panels = <
      item
        Width = 260
      end
      item
        Alignment = taCenter
        Width = 88
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 32
      end
      item
        Width = 144
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object SkyEdit2: TSkyEdit
    Left = 0
    Top = 0
    Width = 653
    Height = 471
    Cursor = crIBeam
    GutterColor = clBtnFace
    GutterWidth = 34
    Align = alClient
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    Font.Style = []
    HideSelection = False
    LineNumFont.Charset = DEFAULT_CHARSET
    LineNumFont.Color = clWindowText
    LineNumFont.Height = -13
    LineNumFont.Name = 'Times New Roman'
    LineNumFont.Style = []
    PopupMenu = PopupMenu1
    SelBkgColor = clSilver
    SelFrgColor = clNavy
    OnChange = SkyEdit2Change
    OnKeyDown = SkyEdit2KeyDown
    OnKeyPress = SkyEdit2KeyPress
    OnKeyUp = SkyEdit2KeyUp
    OnMouseDown = SkyEdit2MouseDown
    OnSelectionChanged = SkyEdit2SelectionChanged
  end
  object OpenDialog1: TOpenDialog
    Filter = 
      'Pascal File(*.pas;*.dpr)|*.pas;*.dpr|C/C++ File(*.c;*.cpp;*.cc;*' +
      '.cxx;*.h;*.hpp;*.awk)|*.c;*.cpp;*.cc;*.cxx;*.h;*.hpp;*.awk|SQL S' +
      'cript(*.sql)|*.sql|Batch File(*.bat;*.cmd)|*.bat;*.cmd|Text File' +
      '(*.txt)|*.txt|HTML File(*.htm;*.html)|*.htm;*.html|All Files(*.*' +
      ')|*.*'
    Left = 272
    Top = 248
  end
  object PopupMenu1: TPopupMenu
    Left = 272
    Top = 144
    object test11: TMenuItem
      Action = actEditUndo
    end
    object R2: TMenuItem
      Action = actEditRedo
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object test21: TMenuItem
      Action = actEditCut
    end
    object test31: TMenuItem
      Action = actEditCopy
    end
    object D1: TMenuItem
      Action = actEditPaste
    end
    object D2: TMenuItem
      Action = actEditDel
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object A1: TMenuItem
      Action = actEditSelectAll
    end
  end
  object MainMenu1: TMainMenu
    Left = 272
    Top = 104
    object mnuFile: TMenuItem
      Caption = #25991#20214'(&F)'
      object mnuFileNew: TMenuItem
        Action = actFileNew
      end
      object mnuFileOpen: TMenuItem
        Action = actFileOpen
      end
      object mnuFileClose: TMenuItem
        Action = actFileClose
        Visible = False
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuFileSave: TMenuItem
        Action = actFileSave
      end
      object mnuFileSaveAs: TMenuItem
        Action = actFileSaveAs
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnuFileExit: TMenuItem
        Action = actFileExit
      end
    end
    object mnuEdit: TMenuItem
      Caption = #32534#36753'(&E)'
      object mnuEditUndo: TMenuItem
        Action = actEditUndo
      end
      object mnuEditRedo: TMenuItem
        Action = actEditRedo
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mnuEditCut: TMenuItem
        Action = actEditCut
      end
      object mnuEditCopy: TMenuItem
        Action = actEditCopy
      end
      object mnuEditPaste: TMenuItem
        Action = actEditPaste
      end
      object mnuEditDel: TMenuItem
        Action = actEditDel
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object mnuEditSelectAll: TMenuItem
        Action = actEditSelectAll
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object L1: TMenuItem
        Action = actLowerCase
      end
      object U1: TMenuItem
        Action = actUpperCase
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object mnuReadOnly: TMenuItem
        Action = actReadOnly
      end
    end
    object mnuSearch: TMenuItem
      Caption = #25628#32034'(&S)'
      object mnuSearchFindFirst: TMenuItem
        Action = actFind
      end
      object N15: TMenuItem
        Action = actFindNext
      end
      object V1: TMenuItem
        Action = actFindPrev
      end
      object R3: TMenuItem
        Action = actReplace
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object mnuGotoALine: TMenuItem
        Action = actGotoALine
      end
    end
    object mnuTool: TMenuItem
      Caption = #24037#20855'(&T)'
      object mnuHighLightFileType: TMenuItem
        Caption = #24425#33394#35821#27861#26174#31034'(&C)'
        object mnuNoHighlighting: TMenuItem
          Caption = #26080#24425#33394#35821#27861#26174#31034
          Checked = True
          RadioItem = True
        end
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object mnuToolShowLineNum: TMenuItem
        Action = actToolShowLineNum
      end
      object mnuPascalSkyParser: TMenuItem
        Action = actSkyParser
      end
      object mnuToolStatusBar: TMenuItem
        Action = actStatusBar
      end
      object mnuToolAskSaveOfExit: TMenuItem
        Action = actAskSaveOfExit
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object mnuToolReloadParserFile: TMenuItem
        Caption = #37325#26032#36733#20837#35821#27861#25991#20214'(&R)'
        OnClick = mnuToolReloadParserFileClick
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object mnuUseSpaceReplaceTab: TMenuItem
        Caption = 'Tab'#38190#29992#31354#26684#26367#25442'(&S)'
        OnClick = mnuUseSpaceReplaceTabClick
      end
      object ab1: TMenuItem
        Caption = 'Ta&b'#38190#23485#24230#22686'2'
        OnClick = ab1Click
      end
      object ab21: TMenuItem
        Caption = '&Tab'#38190#23485#24230#20943'2'
        OnClick = ab21Click
      end
      object mnuIncGutterWidth: TMenuItem
        Caption = #24038#35013#35746#32447#23485#24230#22686'10 (&I)'
        OnClick = mnuIncGutterWidthClick
      end
      object mnuDecGutterWidth: TMenuItem
        Caption = #24038#35013#35746#32447#23485#24230#20943'10 (&D)'
        OnClick = mnuDecGutterWidthClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnuFontSet: TMenuItem
        Action = actFontSet
      end
    end
    object mnuHelp: TMenuItem
      Caption = #24110#21161'(&H)'
      object mnuHelpTopic: TMenuItem
        Caption = #24110#21161#20027#39064'(&T)'
        ShortCut = 112
        OnClick = mnuHelpTopicClick
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object mnuHelpAbout: TMenuItem
        Action = actHelpAbout
      end
    end
  end
  object ActionList1: TActionList
    Left = 416
    Top = 104
    object actEditUndo: TAction
      Category = 'Edit'
      Caption = #25764#28040'(&U)'
      Hint = #25764#28040'|'#25764#28040#19978#19968#27493#25805#20316
      ShortCut = 16469
      OnExecute = actEditUndoExecute
    end
    object actEditRedo: TAction
      Category = 'Edit'
      Caption = #37325#20570'(&R)'
      Hint = #37325#20570'|'#37325#20570#19978#19968#27493#25764#28040#30340#25805#20316
      ShortCut = 16473
      OnExecute = actEditRedoExecute
    end
    object actFileNew: TAction
      Category = 'File'
      Caption = #26032#24314'(&N)'
      Hint = #26032#24314'|'#26032#24314#19968#20010#25991#26723
      ShortCut = 16462
      OnExecute = actFileNewExecute
    end
    object actEditCut: TAction
      Category = 'Edit'
      Caption = #21098#20999'(&X)'
      Hint = #21098#20999'|'#23558#36873#20013#21098#20999#21040#21098#36148#26495
      ShortCut = 16472
      OnExecute = actEditCutExecute
    end
    object actFileOpen: TAction
      Category = 'File'
      Caption = #25171#24320'(&O)'
      Hint = #25171#24320'|'#25171#24320#19968#20010#25991#26723
      ShortCut = 16463
      OnExecute = actFileOpenExecute
    end
    object actFileClose: TAction
      Category = 'File'
      Caption = #20851#38381'(&C)'
      Hint = #20851#38381'|'#20851#38381#24403#21069#25991#26723
      ShortCut = 16471
      OnExecute = actFileCloseExecute
    end
    object actFileSave: TAction
      Category = 'File'
      Caption = #20445#23384'(&S)'
      Enabled = False
      Hint = #20445#23384'|'#20445#23384#24403#21069#25991#26723
      ShortCut = 16467
      OnExecute = actFileSaveExecute
    end
    object actFileSaveAs: TAction
      Category = 'File'
      Caption = #21478#23384#20026'...(&A)'
      Hint = #21478#23384#20026'|'#23558#24403#21069#25991#26723#25442#21517#20445#23384
      OnExecute = actFileSaveAsExecute
    end
    object actFileExit: TAction
      Category = 'File'
      Caption = #36864#20986'(&X)'
      Hint = #36864#20986'|'#36864#20986#24403#21069#31243#24207
      ShortCut = 32883
      OnExecute = actFileExitExecute
    end
    object actEditCopy: TAction
      Category = 'Edit'
      Caption = #22797#21046'(&C)'
      Hint = #22797#21046'|'#22797#21046#36873#20013#25991#26412#21040#21098#36148#26495
      ShortCut = 16451
      OnExecute = actEditCopyExecute
    end
    object actEditPaste: TAction
      Category = 'Edit'
      Caption = #31896#36148'(&P)'
      Hint = #31896#36148'|'#20174#21098#36148#26495#22797#21046#25991#26412#21040#24403#21069#20809#26631#22788
      ShortCut = 16470
      OnExecute = actEditPasteExecute
    end
    object actEditDel: TAction
      Category = 'Edit'
      Caption = #21024#38500'(&D)'
      Hint = #21024#38500'|'#21024#38500#36873#20013#25991#26412
      ShortCut = 8238
      OnExecute = actEditDelExecute
    end
    object actEditSelectAll: TAction
      Category = 'Edit'
      Caption = #20840#36873'(&A)'
      Hint = #20840#36873'|'#36873#20013#20840#37096#25991#26412
      ShortCut = 16449
      OnExecute = actEditSelectAllExecute
    end
    object actToolShowLineNum: TAction
      Category = 'Tool'
      Caption = #26174#31034#34892#21495'(&N)'
      Checked = True
      Hint = #26174#31034#34892#21495
      OnExecute = actToolShowLineNumExecute
    end