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: Zip - crash in the options dialog

Browse source 
(cherry picked from commit c9186d1e81)
This commit is contained in:
Alexander Koblov 2023-08-06 17:59:17 +03:00
commit b17255bc35
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
plugins/wcx/zip/src/ZipConfDlg.pas
View file

@ -41,13 +41,14 @@ uses
ZipFunc, ZipOpt, ZipLng, AbZipTyp;
function GetComboBox(pDlg: PtrUInt; DlgItemName: PAnsiChar): PtrInt;
var
Index: IntPtr;
begin
with gStartupInfo do
begin
Index:= SendDlgMsg(pDlg, DlgItemName, DM_LISTGETITEMINDEX, 0, 0);
Result:= SendDlgMsg(pDlg, DlgItemName, DM_LISTGETDATA, Index, 0);
Result:= SendDlgMsg(pDlg, DlgItemName, DM_LISTGETITEMINDEX, 0, 0);
if Result >= 0 then
begin
Result:= SendDlgMsg(pDlg, DlgItemName, DM_LISTGETDATA, Result, 0);
end;
end;
end;