2
0
Эх сурвалжийг харах

* Added ability to access package-variants in descendents of TPackage

git-svn-id: trunk@35925 -
joost 8 жил өмнө
parent
commit
2355e31276

+ 1 - 0
packages/fpmkunit/src/fpmkunit.pp

@@ -835,6 +835,7 @@ Type
     procedure SetName(const AValue: String);override;
     procedure SetName(const AValue: String);override;
     procedure SaveUnitConfigToStringList(Const AStringList: TStrings;ACPU:TCPU;AOS:TOS); virtual;
     procedure SaveUnitConfigToStringList(Const AStringList: TStrings;ACPU:TCPU;AOS:TOS); virtual;
     property Dictionary: TDictionary read GetDictionary;
     property Dictionary: TDictionary read GetDictionary;
+    property PackageVariantsList: TFPList read FPackageVariants;
   Public
   Public
     constructor Create(ACollection: TCollection); override;
     constructor Create(ACollection: TCollection); override;
     destructor destroy; override;
     destructor destroy; override;