mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0002241] WFX plugins Access violation

Browse source
This commit is contained in:
Alexander Koblov 2019-03-02 10:50:08 +00:00
commit 6f1d329aaa
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/filesources/wfxplugin/uwfxpluginfilesource.pas
View file

@ -618,15 +618,18 @@ var
AProp: TFilePropertyType;
AVariant: TFileVariantProperty;
begin
PropertiesToSet:= PropertiesToSet * fpVariantAll;
for AProp in PropertiesToSet do
if WfxModule.ContentPlugin then
begin
AIndex:= Ord(AProp) - Ord(fpVariant);
if (AIndex >= 0) and (AIndex <= High(AVariantProperties)) then
PropertiesToSet:= PropertiesToSet * fpVariantAll;
for AProp in PropertiesToSet do
begin
AVariant:= TFileVariantProperty.Create(AVariantProperties[AIndex]);
AVariant.Value:= GetVariantFileProperty(AVariantProperties[AIndex], AFile, Self);
AFile.Properties[AProp]:= AVariant;
AIndex:= Ord(AProp) - Ord(fpVariant);
if (AIndex >= 0) and (AIndex <= High(AVariantProperties)) then
begin
AVariant:= TFileVariantProperty.Create(AVariantProperties[AIndex]);
AVariant.Value:= GetVariantFileProperty(AVariantProperties[AIndex], AFile, Self);
AFile.Properties[AProp]:= AVariant;
end;
end;
end;
end;