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: Saving configuration in Zip plugin

Browse source
This commit is contained in:
Alexander Koblov 2008-07-22 09:16:35 +00:00
commit 83b43ca3eb
2 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
plugins/wcx/zip/ZipConfDlg.pas
View file

@ -33,6 +33,8 @@ uses
SysUtils, DialogAPI;
procedure CreateZipConfDlg;
procedure LoadConfig;
procedure SaveConfig;
implementation
@ -89,6 +91,7 @@ begin
3:
gDeflationOption:= doSuperFast;
end; // case
SaveConfig;
SendDlgMsg(pDlg, DlgItemName, DM_CLOSE, 0, 0);
end
else if DlgItemName = 'btnCancel' then
@ -108,5 +111,17 @@ begin
end;
end;
procedure LoadConfig;
begin
gCompressionMethodToUse:= TAbZipSupportedMethod(gIni.ReadInteger('Configuration', 'CompressionMethodToUse', 2));
gDeflationOption:= TAbZipDeflationOption(gIni.ReadInteger('Configuration', 'DeflationOption', 0));
end;
procedure SaveConfig;
begin
gIni.WriteInteger('Configuration', 'CompressionMethodToUse', Integer(gCompressionMethodToUse));
gIni.WriteInteger('Configuration', 'DeflationOption', Integer(gDeflationOption));
end;
end.

5
plugins/wcx/zip/ZipFunc.pas
View file

@ -327,8 +327,7 @@ begin
gSetDlgProcInfo:= SetDlgProcInfo;
// load configuration from ini file
gIni:= TIniFile.Create(gSetDlgProcInfo.PluginConfDir + 'zip.ini');
gCompressionMethodToUse:= TAbZipSupportedMethod(gIni.ReadInteger('Configuration', 'CompressionMethodToUse', 0));
gDeflationOption:= TAbZipDeflationOption(gIni.ReadInteger('Configuration', 'DeflationOption', 0));
LoadConfig;
end;
@ -357,7 +356,5 @@ begin
end;
finalization
gIni.WriteInteger('Configuration', 'CompressionMethodToUse', Integer(gCompressionMethodToUse));
gIni.WriteInteger('Configuration', 'DeflationOption', Integer(gDeflationOption));
gIni.Free;
end.