skyemain.dfm

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

    object actHelpAbout: TAction
      Category = 'Help'
      Caption = #20851#20110'...(&A)'
      Hint = #20851#20110' Sky Editor'
      ShortCut = 8304
      OnExecute = actHelpAboutExecute
    end
    object actSkyParser: TAction
      Category = 'Tool'
      Caption = #24425#33394#35821#27861#26174#31034'(&P)'
      ShortCut = 16452
      OnExecute = actSkyParserExecute
    end
    object actFontSet: TAction
      Category = 'Tool'
      Caption = #23383#20307'(&F)'
      OnExecute = actFontSetExecute
    end
    object actGotoALine: TAction
      Category = 'Edit'
      Caption = #36339#33267#26576#34892'(&G)'
      ShortCut = 32839
      SecondaryShortCuts.Strings = (
        'Ctrl+G')
      OnExecute = actGotoALineExecute
    end
    object actReadOnly: TAction
      Category = 'Edit'
      Caption = #21482#35835'(&N)'
      OnExecute = actReadOnlyExecute
    end
    object actLowerCase: TAction
      Category = 'Edit'
      Caption = #23567#20889#36716#25442'(&L)'
      ShortCut = 16500
      OnExecute = actLowerCaseExecute
    end
    object actUpperCase: TAction
      Category = 'Edit'
      Caption = #22823#20889#36716#25442'(&U)'
      ShortCut = 8308
      OnExecute = actUpperCaseExecute
    end
    object actFind: TAction
      Category = 'Search'
      Caption = #26597#25214'(&F)'
      ShortCut = 16454
      OnExecute = actFindExecute
    end
    object actFindNext: TAction
      Category = 'Search'
      Caption = #19979#19968#20010'(&N)'
      ShortCut = 114
      OnExecute = actFindNextExecute
    end
    object actFindPrev: TAction
      Category = 'Search'
      Caption = #19978#19968#20010'(&V)'
      ShortCut = 16498
      OnExecute = actFindPrevExecute
    end
    object actReplace: TAction
      Category = 'Search'
      Caption = #26367#25442'(&R)'
      ShortCut = 16466
      SecondaryShortCuts.Strings = (
        'Alt+R')
      OnExecute = actFindExecute
    end
    object actFindFirst: TAction
      Category = 'Search'
      Caption = 'actFindFirst'
      OnExecute = actFindFirstExecute
    end
    object actRepAll: TAction
      Category = 'Search'
      Caption = 'actRepAll'
      OnExecute = actRepAllExecute
    end
    object actCount: TAction
      Category = 'Search'
      Caption = 'actCount'
      OnExecute = actCountExecute
    end
    object actStatusBar: TAction
      Category = 'Tool'
      Caption = #29366#24577#26639'(&L)'
      Checked = True
      Hint = #26174#31034'/'#38544#34255#29366#24577#26639
      OnExecute = actStatusBarExecute
    end
    object actAskSaveOfExit: TAction
      Category = 'Tool'
      Caption = #36864#20986#26102#35810#38382#20445#23384#25991#26723'(&K)'
      Checked = True
      Hint = #31243#24207#36864#20986#26102#33509#24403#21069#25991#26723#24050#20462#25913#21017#35810#38382#26159#21542#20445#23384
      OnExecute = actAskSaveOfExitExecute
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'pas'
    Filter = 
      'Pascal Unit File(*.pas)|*.pas|C Unit File(*.c)|*.c|Borland C++ U' +
      'nit File(*.cpp)|*.cpp|C Head File(*.h)|*.h|Borland C++ Head File' +
      '(*.hpp)|*.hpp|SQL Script(*.sql)|*.sql|Text File(*.txt)|*.txt|HTM' +
      'L File(*.htm)|*.htm|All Files(*.*)|*.*'
    Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing]
    OnTypeChange = SaveDialog1TypeChange
    Left = 312
    Top = 248
  end
  object PascalSkyParser: TSkyParser
    CaseSensitive = False
    EscapeChar = '\'
    MacroWrapChar = '\'
    LineComments.Strings = (
      '//')
    BlockCommentOns.Strings = (
      '(*'
      '{')
    BlockCommentOffs.Strings = (
      '*)'
      '}')
    Delimiters = #9' !"%&'#39'()*+,-./:;<=>?@[\]^`{|}~'
    MacroSymbols = '`'
    StringChars = #39
    Characters = '"'
    Words_1.Strings = (
      'ABSTRACT'
      'ARRAY'
      'AS'
      'ASM'
      'ASSEMBLER'
      'BEGIN'
      'CASE'
      'CDECL'
      'CLASS'
      'CONST'
      'CONSTRUCTOR'
      'DEFAULT'
      'DESTRUCTOR'
      'DO'
      'DOWNTO'
      'DYNAMIC'
      'ELSE'
      'END'
      'EXCEPT'
      'EXPORTS'
      'EXTERNAL'
      'FILE'
      'FINALIZATION'
      'FINALLY'
      'FOR'
      'FORWARD'
      'FUNCTION'
      'GOTO'
      'IF'
      'IMPLEMENTATION'
      'IN'
      'INHERITED'
      'INITIALIZATION'
      'INLINE'
      'INTERFACE'
      'INVALIDATE'
      'IS'
      'LABEL'
      'LIBRARY'
      'MESSAGE'
      'OBJECT'
      'OF'
      'ON'
      'OUT'
      'OVERLOAD'
      'OVERRIDE'
      'PACKED'
      'PRIVATE'
      'PROCEDURE'
      'PROGRAM'
      'PROPERTY'
      'PROTECTED'
      'PUBLIC'
      'PUBLISHED'
      'RAISE'
      'READ'
      'RECORD'
      'REGISTER'
      'REPEAT'
      'SET'
      'STDCALL'
      'STORED'
      'STRING'
      'THEN'
      'TO'
      'TRY'
      'TYPE'
      'UNIT'
      'UNTIL'
      'USES'
      'VAR'
      'VIRTUAL'
      'WHILE'
      'WITH'
      'WRITE')
    Words_2.Strings = (
      'FALSE'
      'TRUE')
    Words_3.Strings = (
      '-'
      '!'
      '%'
      '&'
      '*'
      '/'
      ':'
      ':='
      '['
      ']'
      '^'
      '{'
      '|'
      '}'
      '+'
      '<'
      '='
      '>'
      'AND'
      'DIV'
      'MOD'
      'NOT'
      'OR'
      'SHL'
      'SHR'
      'XOR')
    Words_4.Strings = (
      'BOOLEAN'
      'BYTE'
      'CARDINAL'
      'CHAR'
      'DWORD'
      'EXTENDED'
      'INT64'
      'INTEGER'
      'LONGINT'
      'LONGWORD'
      'NIL'
      'PCHAR'
      'POINTER'
      'REAL'
      'UINT'
      'WORD')
    NormalTextAttr.UseDefBkgColor = False
    NormalTextAttr.UseDefFrgColor = False
    NormalTextAttr.BkgColor = clNavy
    NormalTextAttr.FrgColor = clYellow
    NormalTextAttr.Name = 'Normal Text'
    NormalTextAttr.Style = []
    CommentsAttr.UseDefBkgColor = False
    CommentsAttr.UseDefFrgColor = False
    CommentsAttr.BkgColor = clNavy
    CommentsAttr.FrgColor = clSilver
    CommentsAttr.Name = 'Comment'
    CommentsAttr.Style = [fsItalic]
    DelimitersAttr.UseDefBkgColor = False
    DelimitersAttr.UseDefFrgColor = False
    DelimitersAttr.BkgColor = clNavy
    DelimitersAttr.FrgColor = clRed
    DelimitersAttr.Name = 'Delimiter'
    DelimitersAttr.Style = []
    MacrosAttr.UseDefBkgColor = False
    MacrosAttr.UseDefFrgColor = False
    MacrosAttr.BkgColor = clNavy
    MacrosAttr.FrgColor = clTeal
    MacrosAttr.Name = 'Macro'
    MacrosAttr.Style = [fsStrikeOut]
    StringsAttr.UseDefBkgColor = False
    StringsAttr.UseDefFrgColor = False
    StringsAttr.BkgColor = clNavy
    StringsAttr.FrgColor = clFuchsia
    StringsAttr.Name = 'String'
    StringsAttr.Style = [fsUnderline]
    CharAttr.UseDefBkgColor = False
    CharAttr.UseDefFrgColor = False
    CharAttr.BkgColor = clNavy
    CharAttr.FrgColor = clAqua
    CharAttr.Name = 'Character'
    CharAttr.Style = [fsItalic]
    SpaceAttr.UseDefBkgColor = False
    SpaceAttr.UseDefFrgColor = False
    SpaceAttr.BkgColor = clWindow
    SpaceAttr.FrgColor = clWindowText
    SpaceAttr.Name = 'Space'
    SpaceAttr.Style = []
    HotLinkAttr.UseDefBkgColor = False
    HotLinkAttr.UseDefFrgColor = False
    HotLinkAttr.BkgColor = clWindow
    HotLinkAttr.FrgColor = clWindowText
    HotLinkAttr.Name = 'HotLink'
    HotLinkAttr.Style = []
    Int_1_Chars = '0123456789'
    Int_2_Chars = '0123456789'
    Int_3_Chars = '0123456789'
    Int_4_Chars = '0123456789abcdefABCDEF'
    Int_1_HeadChar = '#'
    Int_2_HeadChar = '$'
    Int_4_HeadChar = #0
    Float_HeadChar = #0
    Int_1_Attr.UseDefBkgColor = False
    Int_1_Attr.UseDefFrgColor = False
    Int_1_Attr.BkgColor = clNavy
    Int_1_Attr.FrgColor = clFuchsia
    Int_1_Attr.Name = 'Chars'
    Int_1_Attr.Style = []
    Int_2_Attr.UseDefBkgColor = False
    Int_2_Attr.UseDefFrgColor = False
    Int_2_Attr.BkgColor = clNavy
    Int_2_Attr.FrgColor = clAqua
    Int_2_Attr.Name = 'Hex Numbers'
    Int_2_Attr.Style = []
    Int_3_Attr.UseDefBkgColor = False
    Int_3_Attr.UseDefFrgColor = False
    Int_3_Attr.BkgColor = clNavy
    Int_3_Attr.FrgColor = clAqua
    Int_3_Attr.Name = 'Decimal Number'
    Int_3_Attr.Style = []
    Int_4_Attr.UseDefBkgColor = False
    Int_4_Attr.UseDefFrgColor = False
    Int_4_Attr.BkgColor = clWindow
    Int_4_Attr.FrgColor = clWindowText
    Int_4_Attr.Name = 'Hex Number'
    Int_4_Attr.Style = []
    FloatAttr.UseDefBkgColor = False
    FloatAttr.UseDefFrgColor = False
    FloatAttr.BkgColor = clWindow
    FloatAttr.FrgColor = clWindowText
    FloatAttr.Name = 'Float Number'
    FloatAttr.Style = []
    Words_1_Attr.UseDefBkgColor = False
    Words_1_Attr.UseDefFrgColor = False
    Words_1_Attr.BkgColor = clNavy
    Words_1_Attr.FrgColor = clBtnHighlight
    Words_1_Attr.Name = 'Key Words'
    Words_1_Attr.Style = [fsBold]
    Words_2_Attr.UseDefBkgColor = False
    Words_2_Attr.UseDefFrgColor = False
    Words_2_Attr.BkgColor = clNavy
    Words_2_Attr.FrgColor = clSkyBlue
    Words_2_Attr.Name = 'Boolean'
    Words_2_Attr.Style = []
    Words_3_Attr.UseDefBkgColor = False
    Words_3_Attr.UseDefFrgColor = False
    Words_3_Attr.BkgColor = clNavy
    Words_3_Attr.FrgColor = 16757683
    Words_3_Attr.Name = 'Operators'
    Words_3_Attr.Style = []
    Words_4_Attr.UseDefBkgColor = False
    Words_4_Attr.UseDefFrgColor = False
    Words_4_Attr.BkgColor = clNavy
    Words_4_Attr.FrgColor = clCream
    Words_4_Attr.Name = 'Data Types'
    Words_4_Attr.Style = []
    Words_5_Attr.UseDefBkgColor = False
    Words_5_Attr.UseDefFrgColor = False
    Words_5_Attr.BkgColor = clWindow
    Words_5_Attr.FrgColor = clWindowText
    Words_5_Attr.Name = 'Word List 5'
    Words_5_Attr.Style = []
    Words_6_Attr.UseDefBkgColor = False
    Words_6_Attr.UseDefFrgColor = False
    Words_6_Attr.BkgColor = clWindow
    Words_6_Attr.FrgColor = clWindowText
    Words_6_Attr.Name = 'Word List 6'
    Words_6_Attr.Style = []
    Words_7_Attr.UseDefBkgColor = False
    Words_7_Attr.UseDefFrgColor = False
    Words_7_Attr.BkgColor = clWindow
    Words_7_Attr.FrgColor = clWindowText
    Words_7_Attr.Name = 'Word List 7'
    Words_7_Attr.Style = []
    Words_8_Attr.UseDefBkgColor = False
    Words_8_Attr.UseDefFrgColor = False
    Words_8_Attr.BkgColor = clWindow
    Words_8_Attr.FrgColor = clWindowText
    Words_8_Attr.Name = 'Word List 8'
    Words_8_Attr.Style = []
    FileExtentions.Strings = (
      'dpr'
      'pas')
    LanguageName = 'Pascal'
    AlphabetChars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_'
    Left = 88
    Top = 104
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 368
    Top = 248
  end
end