Store last session name at disconnect time instead when when connecting. Fixes issue #2102.

This commit is contained in:
Ansgar Becker
2010-07-26 19:16:59 +00:00
parent b3526fa9d1
commit b13ce034be

View File

@ -1804,6 +1804,9 @@ begin
OpenRegistry(SessionName);
MainReg.WriteString( REGNAME_LASTUSEDDB, Connection.Database );
MainReg.WriteString( REGNAME_DATABASE_FILTER, comboDBFilter.Items.Text );
// Save last session name in root folder
OpenRegistry;
MainReg.WriteString(REGNAME_LASTSESSION, SessionName);
// Post pending UPDATE
Results := GridResult(DataGrid);
@ -2666,9 +2669,6 @@ begin
// Save "refused" counter
OpenRegistry(Session);
MainReg.WriteInteger(REGNAME_CONNECTCOUNT, GetRegValue(REGNAME_CONNECTCOUNT, 0, Session)+1);
// Save last session name in root folder
OpenRegistry;
MainReg.WriteString(REGNAME_LASTSESSION, Session);
end;
Result := True;