editscript.dfm

来自「Suite of components to add scripting cap」· DFM 代码 · 共 836 行 · 第 1/3 页

          'INITIALISE'
          'VAR'
          'BEGIN'
          'WITH'
          'END'
          'FOR'
          'TO'
          'DO'
          'NOT'
          'IF'
          'THEN'
          'ELSE'
          'CLASS'
          'TYPE'
          'WHILE'
          'REPEAT'
          'UNTIL'
          'BREAK'
          'CONTINUE'
          'VIRTUAL'
          'OVERRIDE'
          'DEFAULT'
          'CLASS'
          'STORED'
          'INHERITED'
          'PROCEDURE'
          'CONSTRUCTOR'
          'DESTRUCTOR'
          'TRY'
          'EXCEPT'
          'FINALLY'
          'RAISE'
          'NIL')
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        BGColor = clWhite
        StyleType = stKeyword
        BracketStart = #0
        BracketEnd = #0
        Info = 'Pascal Standard Default'
      end
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stBracket
        BracketStart = #0
        BracketEnd = #0
        Info = 'Simple Quote'
      end
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stBracket
        BracketStart = #0
        BracketEnd = #0
        Info = 'Double Quote'
      end
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stSymbol
        BracketStart = #0
        BracketEnd = #0
        Symbols = ' ,;:.(){}[]=-*/^%<>#'#13#10
        Info = 'Symbols Delimiters'
      end>
    AutoCompletion.Strings = (
      'ShowMessage'
      'MessageDlg')
    HintParameter.TextColor = clBlack
    HintParameter.BkColor = clInfoBk
    HintParameter.HintCharStart = '('
    HintParameter.HintCharEnd = ')'
    HintParameter.HintCharDelimiter = ';'
    HintParameter.HintCharWriteDelimiter = ','
    HintParameter.Parameters.Strings = (
      'ShowMessage(const Msg: string);'
      
        'MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMs' +
        'gDlgButtons; HelpCtx: Longint): Integer);')
    HexIdentifier = '$'
    Description = 'Pascal'
    Filter = 'Pascal Files (*.pas,*.dpr,*.dpk,*.inc)|*.pas;*.dpr;*.dpk;*.inc'
    DefaultExtension = '.pas'
    StylerName = 'Pascal'
    Extensions = 'pas;dpr;dpk;inc'
    Left = 376
    Top = 72
  end
  object AdvBasicMemoStyler1: TAdvBasicMemoStyler
    BlockStart = 'begin'
    BlockEnd = 'end'
    LineComment = #39
    MultiCommentLeft = '{'
    MultiCommentRight = '}'
    CommentStyle.TextColor = clNavy
    CommentStyle.BkColor = clWhite
    CommentStyle.Style = [fsItalic]
    NumberStyle.TextColor = clFuchsia
    NumberStyle.BkColor = clWhite
    NumberStyle.Style = [fsBold]
    AllStyles = <
      item
        KeyWords.Strings = (
          'ALIAS'
          'ALL'
          'AND'
          'AS'
          'ATTACH'
          'AUTO'
          'AUTOX'
          'CASE'
          'CFUNCTION'
          'CLEAR'
          'DCOMPLEX'
          'DEC'
          'DECLARE'
          'DEFAULT'
          'DIM'
          'DO'
          'DOUBLE'
          'EACH'
          'ELSE'
          'ELSEIF'
          'END'
          'ENDIF'
          'ERROR'
          'EXIT'
          'EXPLICIT'
          'EXPORT'
          'EXTERNAL'
          'FALSE'
          'FOR'
          'FOR NEXT'
          'FUNCADDR'
          'FUNCTION'
          'GIANT'
          'GOADDR'
          'GOSUB'
          'GOTO'
          'IF'
          'IFF'
          'IFT'
          'IFZ'
          'IMPORT'
          'IN'
          'INC'
          'INTERNAL'
          'IS'
          'LIBRARYS'
          'LOOP'
          'MOD'
          'MODULE'
          'NEXT'
          'NEW'
          'NOT'
          'NOTHING'
          'OFF'
          'ON'
          'OPTION'
          'OR'
          'PRINT'
          'PROGRAM'
          'PROTECTED'
          'PUBLIC'
          'QUIT'
          'READ'
          'REDIM'
          'RETURN'
          'SBYTE'
          'SCOMPLEX'
          'SELECT'
          'SHARED'
          'SFUNCTION'
          'SHARED'
          'SINGLE'
          'SLONG'
          'SSHORT'
          'STATIC'
          'STEP'
          'STOP'
          'STRING'
          'SUB'
          'SUBADDR'
          'SWAP'
          'THEN'
          'TO'
          'TRUE'
          'TYPE'
          'TYPEOF'
          'UBYTE'
          'ULONG'
          'UNION'
          'UNTIL'
          'USHORT'
          'VERSION'
          'VOID'
          'WHEN'
          'WHILE'
          'WRITE'
          'XLONG'
          'XOR')
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stKeyword
        BracketStart = #0
        BracketEnd = #0
        Info = 'Basic Standard Default'
      end
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stBracket
        BracketStart = #0
        BracketEnd = #0
        Info = 'Double Quote'
      end
      item
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        BGColor = clWhite
        StyleType = stSymbol
        BracketStart = #0
        BracketEnd = #0
        Symbols = ' ,;:.(){}[]=-*/^%<>#'#13#10
        Info = 'Symbols Delimiters'
      end>
    HexIdentifier = '0x'
    AutoCompletion.Strings = (
      'ShowMessage'
      'MessageDlg')
    HintParameter.TextColor = clBlack
    HintParameter.BkColor = clInfoBk
    HintParameter.HintCharStart = '('
    HintParameter.HintCharEnd = ')'
    HintParameter.HintCharDelimiter = ';'
    HintParameter.HintCharWriteDelimiter = ','
    HintParameter.Parameters.Strings = (
      'ShowMessage(string Msg)'
      
        'MessageDlg(string Msg; TMsgDlgType DlgType; TMsgDlgButtons Butto' +
        'ns; LongInt: HelpCtx)')
    Description = 'MS Visual Basic'
    Filter = 'Visual Basic Files (*.bas)|*.bas'
    DefaultExtension = '.bas'
    StylerName = 'MS Visual Basic'
    Extensions = 'bas'
    Left = 408
    Top = 72
  end
end