FIX: Load next file then ListLoadNext not implemented

src/fviewer.pas

@@ -397,9 +397,12 @@ begin
     I:= 0;
 
   if bPlugin then
-    WlxPlugins.GetWlxModule(ActivePlugin).CallListLoadNext(pnlLister.Handle, FileList[I], 0)
-  else
-    LoadFile(I);
+    begin
+      if WlxPlugins.GetWlxModule(ActivePlugin).CallListLoadNext(pnlLister.Handle, FileList[I], 0) <> LISTPLUGIN_ERROR then
+        Exit;
+    end;
+
+  LoadFile(I);
 end;
 
 procedure TfrmViewer.miPrevClick(Sender: TObject);
@@ -411,9 +414,12 @@ begin
     I:= FileList.Count - 1;
 
   if bPlugin then
-    WlxPlugins.GetWlxModule(ActivePlugin).CallListLoadNext(pnlLister.Handle, FileList[I], 0)
-  else
-    LoadFile(I);
+    begin
+      if WlxPlugins.GetWlxModule(ActivePlugin).CallListLoadNext(pnlLister.Handle, FileList[I], 0) <> LISTPLUGIN_ERROR then
+        Exit;
+    end;
+
+  LoadFile(I);
 end;
 
 procedure TfrmViewer.miSavePosClick(Sender: TObject);

src/uwlxmodule.pas

@@ -295,9 +295,8 @@ begin
   if Assigned(ListLoadNextW) then
     Result:= ListLoadNextW(ParentWin, FPluginWindow, PWideChar(UTF8Decode(FileToLoad)), ShowFlags)
   else if Assigned(ListLoadNext) then
-    Result:= ListLoadNext(ParentWin, FPluginWindow, PAnsiChar(UTF8ToSys(FileToLoad)), ShowFlags);
-
-  //else Result:=LISTPLUGIN_ERROR;
+    Result:= ListLoadNext(ParentWin, FPluginWindow, PAnsiChar(UTF8ToSys(FileToLoad)), ShowFlags)
+  else Result:= LISTPLUGIN_ERROR;
 end;
 
 procedure TWLXModule.CallListCloseWindow;