Class TPasConversion (unit mwPasToHtml)

Inherits from

TMemoryStream

Constructors


constructor Create;

Destroy


Functions

function ConvertReadStream: Integer;

WriteToBuffer

destructor Destroy;


procedure Init;

ConvertReadStream

procedure AllocStrBuff;

Create

procedure HandleAnsiC;

SetPreAndPosFix

procedure HandleBorC;

HandleAnsiC

procedure HandleCRLF;

HandleBorC

procedure HandleSlashesC;

HandleCRLF

procedure HandleString;

HandleSlashesC

function HTMLColor(Color: TColor): String;

SetSymbolFo

function IsDiffKey(aToken: String): Boolean;

IsKeyWord

function IsDirective(aToken: String): Boolean;

IsDiffKey

function IsKeyWord(aToken: String): Boolean;

HandleString

procedure SetAssemblerFo(newValue: TFont);

AllocStrBuff

procedure SetCommentFo(newValue: TFont);

SetAssemblerFo

procedure SetDirectiveFo(newValue: TFont);

SetCommentFo

procedure SetHTML;

IsDirective

procedure SetIdentifierFo(newValue: TFont);

SetDirectiveFo

procedure SetKeyWordFo(newValue: TFont);

SetIdentifierFo

procedure SetNumberFo(newValue: TFont);

SetKeyWordFo

procedure SetPreAndPosFix(aFont: TFont; aTokenState: TTokenState);

If they don't then use D3 - If they don't have this it will use the Defaults //

procedure SetSpaceFo(newValue: TFont);

SetNumberFo

procedure SetStringFo(newValue: TFont);

SetSpaceFo

procedure SetSymbolFo(newValue: TFont);

SetStringFo

function StrToHTML(const AString: String): String;

HTMLColor

procedure UseDelphiHighlighting;

StrToHTML

procedure WriteToBuffer(aString: String);

SetHTML

Properties

property AssemblerFo : TFont


property BackGround : TColor


property CommentFo : TFont


property DirectiveFo : TFont


property Header : String


property IdentifierFo : TFont


property KeyWordFo : TFont


property NotDelphi : Boolean

Set to true to not highlight //

property NumberFo : TFont


property SpaceFo : TFont


property StringFo : TFont


property SymbolFo : TFont


property Title : String

New Header and Title Properties //

Events

Variables

FAssemblerFo : TFont;


FBackGround : TColor;


FBuffPos : Integer;


FComment : TCommentState;


FCommentFo : TFont;


FDiffer : Boolean;


FDirectiveFo : TFont;


FHeader : String;


FIdentifierFo : TFont;


FKeyWordFo : TFont;


FNotDelphi : Boolean;


FNumberFo : TFont;


FOutBuff : PChar;


FOutBuffSize : Integer;


FPlainText : TColor;


FPostFixList : array[tsAssembler..tsUnknown] of String;


FPreFixList : array[tsAssembler..tsUnknown] of String;


FReadBuff : PChar;


FSpaceFo : TFont;


FStrBuff : PChar;


FStrBuffEnd : PChar;


FStrBuffSize : Integer;


FStringFo : TFont;


FSymbolFo : TFont;


FTitle : String;


FTokenState : TTokenState;


Postfix : String;


Prefix : String;


Run : PChar;


RunStr : PChar;


TokenLen : Integer;


TokenPtr : PChar;


TokenStr : String;



Constructors


constructor Create;

Destroy


Functions


function ConvertReadStream: Integer;

WriteToBuffer


destructor Destroy;


procedure Init;

ConvertReadStream


procedure AllocStrBuff;

Create


procedure HandleAnsiC;

SetPreAndPosFix


procedure HandleBorC;

HandleAnsiC


procedure HandleCRLF;

HandleBorC


procedure HandleSlashesC;

HandleCRLF


procedure HandleString;

HandleSlashesC


function HTMLColor(Color: TColor): String;

SetSymbolFo


function IsDiffKey(aToken: String): Boolean;

IsKeyWord


function IsDirective(aToken: String): Boolean;

IsDiffKey


function IsKeyWord(aToken: String): Boolean;

HandleString


procedure SetAssemblerFo(newValue: TFont);

AllocStrBuff


procedure SetCommentFo(newValue: TFont);

SetAssemblerFo


procedure SetDirectiveFo(newValue: TFont);

SetCommentFo


procedure SetHTML;

IsDirective


procedure SetIdentifierFo(newValue: TFont);

SetDirectiveFo


procedure SetKeyWordFo(newValue: TFont);

SetIdentifierFo


procedure SetNumberFo(newValue: TFont);

SetKeyWordFo


procedure SetPreAndPosFix(aFont: TFont; aTokenState: TTokenState);

If they don't then use D3 - If they don't have this it will use the Defaults //


procedure SetSpaceFo(newValue: TFont);

SetNumberFo


procedure SetStringFo(newValue: TFont);

SetSpaceFo


procedure SetSymbolFo(newValue: TFont);

SetStringFo


function StrToHTML(const AString: String): String;

HTMLColor


procedure UseDelphiHighlighting;

StrToHTML


procedure WriteToBuffer(aString: String);

SetHTML


Properties


property AssemblerFo : TFont


property BackGround : TColor


property CommentFo : TFont


property DirectiveFo : TFont


property Header : String


property IdentifierFo : TFont


property KeyWordFo : TFont


property NotDelphi : Boolean

Set to true to not highlight //


property NumberFo : TFont


property SpaceFo : TFont


property StringFo : TFont


property SymbolFo : TFont


property Title : String

New Header and Title Properties //


Events


Variables


FAssemblerFo : TFont;


FBackGround : TColor;


FBuffPos : Integer;


FComment : TCommentState;


FCommentFo : TFont;


FDiffer : Boolean;


FDirectiveFo : TFont;


FHeader : String;


FIdentifierFo : TFont;


FKeyWordFo : TFont;


FNotDelphi : Boolean;


FNumberFo : TFont;


FOutBuff : PChar;


FOutBuffSize : Integer;


FPlainText : TColor;


FPostFixList : array[tsAssembler..tsUnknown] of String;


FPreFixList : array[tsAssembler..tsUnknown] of String;


FReadBuff : PChar;


FSpaceFo : TFont;


FStrBuff : PChar;


FStrBuffEnd : PChar;


FStrBuffSize : Integer;


FStringFo : TFont;


FSymbolFo : TFont;


FTitle : String;


FTokenState : TTokenState;


Postfix : String;


Prefix : String;


Run : PChar;


RunStr : PChar;


TokenLen : Integer;


TokenPtr : PChar;


TokenStr : String;