Class TPasConversion (unit mwPasToRtf) |
Inherits from
TMemoryStream
constructor Create;
- Destroy
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
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
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;
constructor Create;
Destroy
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
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
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;