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: Range check error (LCL HWND is signed on 32-bit, unsigned on 64-bit; WLX THandle is always unsigned).

Browse source
This commit is contained in:
cobines 2010-02-13 09:24:52 +00:00
commit 3be720704a
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fviewer.pas
View file

@ -296,7 +296,9 @@ begin
begin
Result:= True;
DebugLn('I = '+IntToStr(I));
{$PUSH}{$R-}
if not WlxPrepareContainer(pnlLister.Handle) then {TODO: ERROR and exit;};
{$POP}
WlxPlugins.LoadModule(I);
DebugLn('WlxModule.Name = ', WlxPlugins.GetWLxModule(I).Name);
if WlxPlugins.GetWLxModule(I).CallListLoad(pnlLister.Handle, sFileName, {TODO: showFlags}0) = 0 then
@ -317,7 +319,9 @@ end;
procedure TfrmViewer.ExitPluginMode;
begin
{$PUSH}{$R-}
WlxPrepareContainer(pnlLister.Handle,true);
{$POP}
if (WlxPlugins.Count > 0) and (ActivePlugin >= 0) then
begin
WlxPlugins.GetWLxModule(ActivePlugin).CallListCloseWindow;
@ -848,4 +852,4 @@ end;
initialization
{$I fviewer.lrs}
end.
end.