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: Load next file then ListLoadNext not implemented

Browse source
This commit is contained in:
Alexander Koblov 2009-10-25 11:54:35 +00:00
commit 94a577bfd7
2 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/fviewer.pas
View file

@ -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);

5
src/uwlxmodule.pas
View file

@ -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;