TSynCobolSyn

type TSynCobolSyn = class(TSynCustomHighlighter)

protected

  function GetIdentChars; override;

  function GetSampleSource; override;

  function IsFilterStored; override;

  procedure SetCodeStartPos();

  procedure SetCodeMediumPos();

  procedure SetCodeEndPos();

public

  constructor Create(); override;

  class function GetLanguageName; override;

  function GetRange; override;

  procedure ResetRange; override;

  procedure SetRange(); override;

  function GetDefaultAttribute(); override;

  function GetEol; override;

  function GetTokenID;

  procedure SetLine(); override;

  function GetToken; override;

  procedure GetTokenEx(); override;

  function GetTokenAttribute; override;

  function GetTokenKind; override;

  function GetTokenPos; override;

  procedure Next; override;

published

  property CommentAttri: TSynHighlighterAttributes; [rw]

  property IdentifierAttri: TSynHighlighterAttributes; [rw]

  property AreaAIdentifierAttri: TSynHighlighterAttributes; [rw]

  property PreprocessorAttri: TSynHighlighterAttributes; [rw]

  property KeyAttri: TSynHighlighterAttributes; [rw]

  property NumberAttri: TSynHighlighterAttributes; [rw]

  property BooleanAttri: TSynHighlighterAttributes; [rw]

  property SpaceAttri: TSynHighlighterAttributes; [rw]

  property StringAttri: TSynHighlighterAttributes; [rw]

  property SequenceAttri: TSynHighlighterAttributes; [rw]

  property IndicatorAttri: TSynHighlighterAttributes; [rw]

  property TagAreaAttri: TSynHighlighterAttributes; [rw]

  property DebugLinesAttri: TSynHighlighterAttributes; [rw]

  property AreaAStartPos: LongInt; [rw]

  property AreaBStartPos: LongInt; [rw]

  property CodeEndPos: LongInt; [rw]

end;

TSynCobolSyn

TObject