Răsfoiți Sursa

* Load- and Save-unitconfig made public.

git-svn-id: trunk@22387 -
joost 13 ani în urmă
părinte
comite
e27586175f
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  1. 2 2
      packages/fpmkunit/src/fpmkunit.pp

+ 2 - 2
packages/fpmkunit/src/fpmkunit.pp

@@ -732,9 +732,7 @@ Type
     Procedure SetVersion(const V : string);
   Protected
     procedure SetName(const AValue: String);override;
-    procedure LoadUnitConfigFromFile(Const AFileName: String);
     procedure SaveUnitConfigToStringList(Const AStringList: TStrings;ACPU:TCPU;AOS:TOS); virtual;
-    procedure SaveUnitConfigToFile(Const AFileName: String;ACPU:TCPU;AOS:TOS);
     property Dictionary: TDictionary read GetDictionary;
   Public
     constructor Create(ACollection: TCollection); override;
@@ -757,6 +755,8 @@ Type
     function  AddPackageVariant(AName: string; AIsInheritable: boolean): TPackageVariants;
     procedure ApplyPackageVariantToCompilerOptions(ACompilerOptions: tstrings);
     procedure SetDefaultPackageVariant;
+    procedure LoadUnitConfigFromFile(Const AFileName: String);
+    procedure SaveUnitConfigToFile(Const AFileName: String;ACPU:TCPU;AOS:TOS);
     Property Version : String Read GetVersion Write SetVersion;
     Property FileName : String Read GetFileName Write FFileName;
     Property HomepageURL : String Read FHomepageURL Write FHomepageURL;