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: Install wcx-plugins with several extensions

Browse source
This commit is contained in:
Alexander Koblov 2023-07-18 22:08:47 +03:00
commit abbdbcba27
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/filesources/uarchivefilesourceutil.pas
View file

@ -330,6 +330,7 @@ procedure InstallPlugin(const FileName: String);
var
AFile: TFile;
sExt: String;
Flags: PtrInt;
sType: String;
Sfile: String;
AFiles: TFiles;
@ -415,8 +416,12 @@ begin
WcxModule:= gWcxPlugins.LoadModule(sPlugin);
if Assigned(WcxModule) then
begin
Result:= gWcxPlugins.Add(sExt, WcxModule.GetPluginCapabilities, sPlugin);
gWcxPlugins.FileName[Result]:= GetPluginFilenameToSave(sPlugin);
Flags:= WcxModule.GetPluginCapabilities;
for sExt in SplitString(sExt, ',') do
begin
Result:= gWcxPlugins.Add(sExt, Flags, sPlugin);
gWcxPlugins.FileName[Result]:= GetPluginFilenameToSave(sPlugin);
end;
end;
end
else if (sType = 'wdx') then