MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

quit if 'shell' dialog is closed at start

Browse Source
This commit is contained in:
Massimo Melina 2020-05-25 15:23:27 +02:00
parent fdef1fe319
commit f1f5446b0d
1 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
main.pas
View File

@ -5105,7 +5105,6 @@ var
FAILED = 'Login failed';
var
m: TStringDynArray;
fTemp: Tfile;
begin
result:=FALSE;
if assigned(forceFile) then f:=forceFile;
@ -7974,11 +7973,14 @@ var
if userIcsBuffer > 0 then
data.conn.sock.bufSize:=userIcsBuffer;
size:=minmax(8192, MEGA, round(data.averageSpeed));
if userSocketBuffer > 0 then
data.conn.sndBuf:=userSocketBuffer
else if highSpeedChk.checked and (safeDiv(0.0+size, data.conn.sndbuf, 2) > 2) then
else
begin
size:=minmax(8192, MEGA, round(data.averageSpeed));
if highSpeedChk.checked and (safeDiv(0.0+size, data.conn.sndbuf, 2) > 2) then
data.conn.sndBuf:=size;
end;
end;
// connection inactivity timeout
@ -10602,9 +10604,12 @@ begin VFSmodified:=TRUE end;
procedure TmainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
quitting:=TRUE;
runEventScript('quit');
timer.enabled:=FALSE;
if autosaveOptionsChk.checked then saveCFG();
if applicationFullyInitialized then
begin
runEventScript('quit');
timer.enabled:=FALSE;
if autosaveOptionsChk.checked then saveCFG();
end;
// we disconnectAll() before srv.free, so we can purgeConnections()
if assigned(srv) then srv.disconnectAll(TRUE);
purgeConnections();
@ -11945,9 +11950,17 @@ if not quitASAP then
if not isIntegratedInShell() then
with TshellExtFrm.create(mainfrm) do
try
if showModal() = mrYes then
if not integrateInShell() then
msgDlg(MSG_ERROR_REGISTRY, MB_ICONERROR);
case showModal() of
mrYes:
if not integrateInShell() then
msgDlg(MSG_ERROR_REGISTRY, MB_ICONERROR);
mrNo:;
else
begin
application.terminate();
exit;
end;
end;
finally free end;
end;