Class TPasConversion (unit mwPasToRtf)

Inherits from

TMemoryStream

Constructors


constructor Create;

Destroy


Functions

function ColorToRTF(index:integer): String;

SetSymbolFo

function ConvertReadStream: Integer;

+++ changed from TColor to integer (no longer color but index in colortable

WriteToBuffer


function ConvertWriteStream(Stream: TStream; Buffer: PChar; BufSize: Integer):Integer;

ConvertReadStream

destructor Destroy;


procedure Init;

ConvertWriteStream

procedure UseDelphiHighlighting(Ver: Integer);

ColorToRTF

procedure AllocStrBuff;

Create

procedure HandleAnsiC;

ScanForRtf

procedure HandleBorC;

HandleAnsiC

procedure HandleCRLF;

HandleBorC

procedure HandleSlashesC;

HandleCRLF

procedure HandleString;

HandleSlashesC

function IsDiffKey(aToken: String):Boolean;

IsKeyWord

function IsDirective(aToken: String):Boolean;

IsDiffKey

function IsKeyWord(aToken: String):Boolean;

HandleString

procedure ScanForRtf;

SetPreAndPosFix

procedure SetAssemblerFo(newValue: TFont);

AllocStrBuff

procedure SetCommentFo(newValue: TFont);

SetAssemblerFo

procedure SetDirectiveFo(newValue: TFont);

SetCommentFo

procedure SetIdentifierFo(newValue: TFont);

SetDirectiveFo

procedure SetKeyWordFo(newValue: TFont);

SetIdentifierFo

procedure SetNumberFo(newValue: TFont);

SetKeyWordFo

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

+++ add black (dummy) to color table

procedure SetRTF;

IsDirective

procedure SetSpaceFo(newValue: TFont);

SetNumberFo

procedure SetStringFo(newValue: TFont);

SetSpaceFo

procedure SetSymbolFo(newValue: TFont);

SetStringFo

procedure WriteToBuffer(aString: String);

SetRTF

Properties

property AssemblerFo : TFont


property BackColor : Tcolor


property CommentFo : TFont


property DirectiveFo : TFont


property IdentifierFo : TFont


property KeyWordFo : TFont


property NumberFo : TFont


property SpaceFo : TFont


property StringFo : TFont


property SymbolFo : TFont


Events

Variables

FAssemblerFo : TFont;

+++ placeholder for the delphi ide's default editor background color

fbackcolor : tcolor;

+++ the string to write as colortable

FBuffPos : Integer;


fcolortable : string;


FComment : TCommentState;


FCommentFo : TFont;


FDiffer : Boolean;


FDirectiveFo : TFont;


FIdentifierFo : TFont;


FKeyWordFo : TFont;


FNumberFo : TFont;


FOutBuff : PChar;


FOutBuffSize : Integer;


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;


FTokenState : TTokenState;


Postfix : String;


Prefix : String;


Run : PChar;


RunStr : PChar;


TokenLen : Integer;


TokenPtr : PChar;


TokenStr : String;



Constructors


constructor Create;

Destroy


Functions


function ColorToRTF(index:integer): String;

SetSymbolFo


function ConvertReadStream: Integer;

+++ changed from TColor to integer (no longer color but index in colortable

WriteToBuffer


function ConvertWriteStream(Stream: TStream; Buffer: PChar; BufSize: Integer):Integer;

ConvertReadStream


destructor Destroy;


procedure Init;

ConvertWriteStream


procedure UseDelphiHighlighting(Ver: Integer);

ColorToRTF


procedure AllocStrBuff;

Create


procedure HandleAnsiC;

ScanForRtf


procedure HandleBorC;

HandleAnsiC


procedure HandleCRLF;

HandleBorC


procedure HandleSlashesC;

HandleCRLF


procedure HandleString;

HandleSlashesC


function IsDiffKey(aToken: String):Boolean;

IsKeyWord


function IsDirective(aToken: String):Boolean;

IsDiffKey


function IsKeyWord(aToken: String):Boolean;

HandleString


procedure ScanForRtf;

SetPreAndPosFix


procedure SetAssemblerFo(newValue: TFont);

AllocStrBuff


procedure SetCommentFo(newValue: TFont);

SetAssemblerFo


procedure SetDirectiveFo(newValue: TFont);

SetCommentFo


procedure SetIdentifierFo(newValue: TFont);

SetDirectiveFo


procedure SetKeyWordFo(newValue: TFont);

SetIdentifierFo


procedure SetNumberFo(newValue: TFont);

SetKeyWordFo


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

+++ add black (dummy) to color table


procedure SetRTF;

IsDirective


procedure SetSpaceFo(newValue: TFont);

SetNumberFo


procedure SetStringFo(newValue: TFont);

SetSpaceFo


procedure SetSymbolFo(newValue: TFont);

SetStringFo


procedure WriteToBuffer(aString: String);

SetRTF


Properties


property AssemblerFo : TFont


property BackColor : Tcolor


property CommentFo : TFont


property DirectiveFo : TFont


property IdentifierFo : TFont


property KeyWordFo : TFont


property NumberFo : TFont


property SpaceFo : TFont


property StringFo : TFont


property SymbolFo : TFont


Events


Variables


FAssemblerFo : TFont;

+++ placeholder for the delphi ide's default editor background color


fbackcolor : tcolor;

+++ the string to write as colortable


FBuffPos : Integer;


fcolortable : string;


FComment : TCommentState;


FCommentFo : TFont;


FDiffer : Boolean;


FDirectiveFo : TFont;


FIdentifierFo : TFont;


FKeyWordFo : TFont;


FNumberFo : TFont;


FOutBuff : PChar;


FOutBuffSize : Integer;


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;


FTokenState : TTokenState;


Postfix : String;


Prefix : String;


Run : PChar;


RunStr : PChar;


TokenLen : Integer;


TokenPtr : PChar;


TokenStr : String;