mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Parameter type in WCX.

Browse source
This commit is contained in:
cobines 2010-12-26 04:56:20 +00:00
commit 941bd3dcdf
4 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
plugins/wcx/zip/src/ZipFunc.pas
View file

@ -69,7 +69,7 @@ function PackFilesW(PackedFile: PWideChar; SubPath: PWideChar; SrcPath: PWideC
function DeleteFiles(PackedFile, DeleteList : PChar) : Integer;stdcall;
function DeleteFilesW(PackedFile, DeleteList : PWideChar) : Integer;stdcall;
function GetPackerCaps : Integer;stdcall;
procedure ConfigurePacker (Parent: THandle; DllInstance: THandle);stdcall;
procedure ConfigurePacker (Parent: HWND; DllInstance: THandle);stdcall;
function CanYouHandleThisFile(FileName: PAnsiChar): Boolean; stdcall;
function CanYouHandleThisFileW(FileName: PWideChar): Boolean; stdcall;
{Dialog API function}
@ -786,7 +786,7 @@ begin
// or PK_CAPS_MEMPACK
end;
procedure ConfigurePacker(Parent: THandle; DllInstance: THandle);stdcall;
procedure ConfigurePacker(Parent: HWND; DllInstance: THandle);stdcall;
begin
CreateZipConfDlg;
end;

5
sdk/wcxplugin.pas
View file

@ -79,6 +79,9 @@ const {Error codes returned to calling application}
type
{ Unsigned integer with pointer size }
TArcHandle = {$IFDEF CPU64}QWord{$ELSE}LongWord{$ENDIF};
{$IFNDEF LCL}
HWND = type PtrUInt; // Defined as in LCL
{$ENDIF}
const
wcxInvalidHandle = TArcHandle(-1);
@ -198,4 +201,4 @@ implementation
end.

8
src/uwcxmodule.pas
View file

@ -28,8 +28,8 @@ unit uWCXmodule;
interface
uses
uWCXprototypes, WcxPlugin, dynlibs, Classes, Dialogs, DialogAPI, uClassesEx,
uTypes, uXmlConfig;
LCLType, Classes, Dialogs, dynlibs,
uWCXprototypes, WcxPlugin, DialogAPI, uClassesEx, uTypes, uXmlConfig;
Type
TWCXOperation = (OP_EXTRACT, OP_PACK, OP_DELETE);
@ -124,7 +124,7 @@ Type
function LoadModule(const sName:String):Boolean; {Load WCX plugin}
procedure UnloadModule; {UnLoad WCX plugin}
procedure VFSConfigure(Parent: THandle);
procedure VFSConfigure(Parent: HWND);
function GetPluginCapabilities: Integer;
function IsLoaded: Boolean;
@ -467,7 +467,7 @@ begin
end;
end;
procedure TWCXModule.VFSConfigure(Parent: THandle);
procedure TWCXModule.VFSConfigure(Parent: HWND);
begin
if Assigned(ConfigurePacker) then
ConfigurePacker(Parent, FModuleHandle);

4
src/uwcxprototypes.pas
View file

@ -16,7 +16,7 @@ type
TPackFiles = function (PackedFile: pchar; SubPath: pchar; SrcPath: pchar; AddList: pchar; Flags: integer): integer;stdcall;
TDeleteFiles = function (PackedFile: pchar; DeleteList: pchar): integer;stdcall;
TGetPackerCaps = function () : integer;stdcall;
TConfigurePacker = procedure (Parent: THandle; DllInstance: THandle);stdcall;
TConfigurePacker = procedure (Parent: HWND; DllInstance: THandle);stdcall;
TSetChangeVolProc = procedure (hArcData: TArcHandle; ChangeVolProc: tChangeVolProc);stdcall;
TSetProcessDataProc = procedure (hArcData: TArcHandle; ProcessDataProc: TProcessDataProc);stdcall;
TStartMemPack = function (Options: integer; FileName: pchar): integer;stdcall;
@ -41,4 +41,4 @@ type
implementation
end.