paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-24 21:42:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* New methods made virtual

Browse Source 
git-svn-id: trunk@19890 -
This commit is contained in:
michael 2011-12-26 16:41:00 +00:00
parent 85a9b8208f
commit f98a2cbae6
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/winunits-base/src/typelib.pas
View File

@ -69,15 +69,8 @@ Type
FHeader : TStrings; FHeader : TStrings;
FInterface : TStrings; FInterface : TStrings;
FImplementation : TStrings; FImplementation : TStrings;
procedure CreateCoClasses(const TL: ITypeLib; TICount: Integer);
procedure CreateForwards(const TL: ITypeLib; TICount: Integer);
procedure CreateInterfaces(const TL: ITypeLib; TICount: Integer);
procedure CreateRecordsUnionsAliases(const TL: ITypeLib; TICount: Integer);
procedure CreateUnitHeader(const TL: ITypeLib; const LA: lpTLIBATTR);
function GetDependencies: TStrings; function GetDependencies: TStrings;
function GetUnitSource: TStrings; function GetUnitSource: TStrings;
procedure ImportEnums(const TL: ITypeLib; TICount: Integer);
procedure ImportGUIDs(const TL: ITypeLib; TICount: Integer);
procedure SetOutputFileName(AValue: String); procedure SetOutputFileName(AValue: String);
procedure SetUnitName(AValue: string); procedure SetUnitName(AValue: string);
Protected Protected
@ -98,7 +91,14 @@ Type
function VarTypeToStr(ParamType: integer): string; virtual; function VarTypeToStr(ParamType: integer): string; virtual;
function TypeToString(TI: ITypeInfo; TD: TYPEDESC): string; virtual; function TypeToString(TI: ITypeInfo; TD: TYPEDESC): string; virtual;
function ValidateID(id: string): boolean; virtual; function ValidateID(id: string): boolean; virtual;
// The actual routine that does the work. // The actual routines that do the work.
procedure CreateCoClasses(const TL: ITypeLib; TICount: Integer); virtual;
procedure CreateForwards(const TL: ITypeLib; TICount: Integer); virtual;
procedure CreateInterfaces(const TL: ITypeLib; TICount: Integer); virtual;
procedure CreateRecordsUnionsAliases(const TL: ITypeLib; TICount: Integer); virtual;
procedure CreateUnitHeader(const TL: ITypeLib; const LA: lpTLIBATTR); virtual;
procedure ImportEnums(const TL: ITypeLib; TICount: Integer); virtual;
procedure ImportGUIDs(const TL: ITypeLib; TICount: Integer); virtual;
Procedure DoImportTypelib;virtual; Procedure DoImportTypelib;virtual;
// For the benefit of descendents; // For the benefit of descendents;
Property UsesClause : TStrings read FUses; Property UsesClause : TStrings read FUses;