object TPersHolder
  P.Name = 'VHDL'
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      FIIntNum = 1
      FIFloatNum = 1
      FIHexNum = 1
      UseComments = True
      UseSingleLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UseKeywords = True
      BlockDelimiters = <>
      SingleLineCommentDelimiters = <
        item
          FontID = 4
          LeftDelimiter = '--'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 5
          LeftDelimiter = '"'
          RightDelimiter = '"'
        end>
      KeywordSets = <
        item
          FontID = 6
          Name = 'reserved'
          Keywords = 
            'ABS,ACCESS,AFTER,ALIAS,ALL,AND,ARCHITECTURE,ARRAY,ASSERT,ATTRIBU' +
            'TE,BEGIN,BLOCK,BODY,BUFFER,BUS,CASE,COMPONENT,CONFIGURATION,CONS' +
            'TANT,DISCONNECT,DOWNTO,ELSE,ELSIF,END,ENTITY,EXIT,FILE,FOR,FUNCT' +
            'ION,GENERATE,GENERIC,GUARDED,IF,IN,INOUT,IS,LABEL,LIBRARY,LINKAG' +
            'E,LOOP,MAP,MOD,NAND,NEW,NEXT,NOR,NOT,NULL,OF,ON,OPEN,OR,OTHERS,O' +
            'UT,PACKAGE,PORT,PROCEDURE,PROCESS,RANGE,RECORD,REGISTER,REM,REPO' +
            'RT,RETURN,SELECT,SEVERITY,SIGNAL,SUBTYPE,THEN,TO,TRANSPORT,TYPE,' +
            'UNITS,UNTIL,USE,VARIABLE'
        end>
    end>
  P.FontTable = <
    item
      FontID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 4
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 6
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end>
end
