TPaxDfmConverter = class(TComponent) private fUsedUnits: TStrings; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Parse(const DfmFileName: String; Output: TStrings; AsUnit: Boolean = true); overload; procedure Parse(const DfmFileName: String; Output: TStrings; const PaxLanguage: String; AsUnit: Boolean = true); overload; procedure ParseText(const Text: String; Output: TStrings; const UnitName: String = ''; const PaxLanguage: String = 'paxPascal'); property UsedUnits: TStrings read fUsedUnits write fUsedUnits; // list of units which should be included into the uses clause of resulted script. end;
TCallStackRecord = class public ModuleName: String; // Name of module LineNumber: Integer; // Source code number ProcName: String; // Name of procedure Parameters: TStringList; // Actual parameter list constructor Create; destructor Destroy; override; end;
TCallStack = class private fScripter: TBaseScripter; fRecords: TList; function GetCount: Integer; function GetRecord(Index: Integer): TCallStackRecord; constructor Create(PaxScripter: TPaxScripter); destructor Destroy; override; procedure Clear; procedure Add(R: TCallStackRecord); public property Count: Integer read GetCount; // Number of records property Records[I: Integer]: TCallStackRecord read GetRecord; // Call stack records end;
TPaxScripterEvent = procedure (Sender: TPaxScripter) of object;
TPaxScripterPrintEvent = procedure (Sender: TPaxScripter; const S: String) of object;