* Fixed compilation

git-svn-id: trunk@6328 -

utils/fppkg/fppkg.pp

@@ -228,7 +228,7 @@ begin
       Log(vDebug,SLogRunAction,[AAction,logargs]);
     end;
   pkghandlerclass:=GetPkgHandler(AAction);
-  With pkghandlerclass.Create(FDefaults) do
+  With pkghandlerclass.Create(Self,FDefaults) do
     try
       Execute(Args);
     finally

utils/fppkg/lnet/lftp.pp

@@ -234,7 +234,7 @@ const
                                                 'RenameTo', 'System', 'Features',
                                                 'PWD', 'HELP', 'LAST');
 
-procedure Writedbg(const ar: array of string);
+procedure Writedbg(const ar: array of const);
 {$ifdef debug}
 var
   i: Integer;

utils/fppkg/pkghandler.pp

@@ -48,7 +48,7 @@ Type
   Protected
     Procedure BackupFile(Const FileName : String);
   Public
-    Constructor Create(ADefaults:TPackagerOptions);
+    Constructor Create(AOwner: TComponent;ADefaults:TPackagerOptions); virtual;
     Function Execute(const Args:array of string):boolean; virtual; abstract;
     Property BackupFiles : Boolean Read FBackupFile Write FBackupFile;
     Property Defaults:TPackagerOptions Read FDefaults;
@@ -208,9 +208,9 @@ begin
     Error(SErrBackupFailed,[FileName,BFN]);
 end;
 
-constructor TPackageHandler.Create(ADefaults:TPackagerOptions);
+constructor TPackageHandler.Create(AOwner : TComponent; ADefaults:TPackagerOptions);
 begin
-  inherited Create(nil);
+  inherited Create(AOwner);
   FDefaults:=ADefaults;
 end;
 

utils/fppkg/pkglibcurl.pp

@@ -4,7 +4,7 @@ unit pkglibcurl;
 
 interface
 
-uses Classes,pkgdownload;
+uses Classes,pkgdownload,pkghandler;
 
 Type 
   TLibCurlDownloader = Class(TBasePackageDownloader)

utils/fppkg/pkglnet.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   SysUtils, Classes,
-  lnet, lftp, lhttp, pkgdownload;
+  lnet, lftp, lhttp, pkgdownload,pkgropts;
 
 Type
 
@@ -33,7 +33,7 @@ Type
     procedure FTPDownload(Const URL : String; Dest : TStream); override;
     procedure HTTPDownload(Const URL : String; Dest : TStream); override;
    public
-    constructor Create(AOwner : TComponent); override;
+    constructor Create(AOwner : TComponent;ADefaults:TPackagerOptions); override;
   end;
 
 implementation
@@ -151,9 +151,9 @@ begin
   end;
 end;
 
-constructor TLNetDownloader.Create(AOwner: TComponent);
+constructor TLNetDownloader.Create(AOwner: TComponent;ADefaults:TPackagerOptions);
 begin
-  inherited Create(AOwner);
+  inherited Create(AOwner,ADefaults);
 
   FFTP:=TLFTPClient.Create(Self);
   FFTP.Timeout:=1000;

utils/fppkg/pkgwget.pp

@@ -4,18 +4,18 @@ unit pkgwget;
 
 interface
 
-uses Classes,pkgdownload;
+uses Classes,pkgdownload,pkgropts;
 
 Type 
   TWGetDownloader = Class(TBasePackageDownloader)
   Private 
     FWGet : String;
   Protected
+    Constructor Create(AOwner: TComponent; ADefaults:TPackagerOptions); override;
     Procedure WGetDownload(Const URL : String; Dest : TStream); virtual;
     Procedure FTPDownload(Const URL : String; Dest : TStream); override;
     Procedure HTTPDownload(Const URL : String; Dest : TStream); override;
  Public
-    Constructor Create(AOWner : TComponent); override;
     Property WGet : String Read FWGet Write FWGet; 
  end;   
 
@@ -23,7 +23,7 @@ implementation
 
 uses process,pkghandler,pkgmessages;
 
-Constructor TWGetDownloader.Create(AOWner : TComponent); 
+Constructor TWGetDownloader.Create(AOwner: TComponent; ADefaults:TPackagerOptions); 
 
 begin
   Inherited;