TPascalSyntaxHighlighter

type TPascalSyntaxHighlighter = class(TSyntaxHighlighter)

protected

  procedure CheckCategories;

  procedure ProcessComment1();

  procedure ProcessComment2();

  function CheckForComment();

  procedure ProcessAsm();

  function CheckForKeyword();

  procedure ProcessSymbol();

  class function GetLanguages; override;

public

  constructor Create; override;

  CategoryPascal: Integer;

  CategoryIdentifier: Integer;

  function Execute(); override;

end;

TPascalSyntaxHighlighter

TSyntaxHighlighter

TObject