| Class TPasConversion (unit mwPasToRtf) |
TMemoryStream
| Constructors |
constructor Create;| Functions |
function ColorToRTF(index:integer): String;
function ConvertReadStream: Integer;WriteToBuffer
function ConvertWriteStream(Stream: TStream; Buffer: PChar; BufSize: Integer):Integer;
destructor Destroy;
procedure Init;
procedure UseDelphiHighlighting(Ver: Integer);
procedure AllocStrBuff;
procedure HandleAnsiC;
procedure HandleBorC;
procedure HandleCRLF;
procedure HandleSlashesC;
procedure HandleString;
function IsDiffKey(aToken: String):Boolean;
function IsDirective(aToken: String):Boolean;
function IsKeyWord(aToken: String):Boolean;
procedure ScanForRtf;
procedure SetAssemblerFo(newValue: TFont);
procedure SetCommentFo(newValue: TFont);
procedure SetDirectiveFo(newValue: TFont);
procedure SetIdentifierFo(newValue: TFont);
procedure SetKeyWordFo(newValue: TFont);
procedure SetNumberFo(newValue: TFont);
procedure SetPreAndPosFix(aFont: TFont; aTokenState: TTokenState);
procedure SetRTF;
procedure SetSpaceFo(newValue: TFont);
procedure SetStringFo(newValue: TFont);
procedure SetSymbolFo(newValue: TFont);
procedure WriteToBuffer(aString: String);| 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;
fbackcolor : tcolor;
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;