FIX: Quick View - load next file with plugins

(cherry picked from commit fc91f7c954)
This commit is contained in:
Alexander Koblov 2023-11-28 19:53:35 +03:00
commit 05dce82be8

View file

@ -825,18 +825,14 @@ end;
procedure TfrmViewer.LoadNextFile(const aFileName: String);
begin
if bPlugin then
with FWlxModule do
if bPlugin and FWlxModule.FileParamVSDetectStr(aFileName, False) then
begin
if FWlxModule.CallListLoadNext(Self.Handle, aFileName, PluginShowFlags) <> LISTPLUGIN_ERROR then
begin
if FileParamVSDetectStr(aFileName, False) then
begin
if CallListLoadNext(Self.Handle, aFileName, PluginShowFlags) <> LISTPLUGIN_ERROR then
begin
FileName:= aFileName;
Exit;
end;
end;
Self.FileName:= aFileName;
Exit;
end;
end;
ExitPluginMode;
ViewerControl.ResetEncoding;
LoadFile(aFileName);