Move database filter again from mainform to session manager, so people without privilege to run SHOW DATABASE are not stuck. Fixes issue #1485. Also, allow to see available databases when user does a dropdown. Also, simplify logic for refreshing database list in mainform.

This commit is contained in:
Ansgar Becker
2010-04-22 15:16:27 +00:00
parent 9b786c81e0
commit 97f01a175b
13 changed files with 205 additions and 309 deletions

View File

@ -3513,10 +3513,16 @@ begin
if not Assigned(VT) then
Exit;
VT.Tag := RefreshTag;
if ImmediateRepaint then
VT.Repaint
else
VT.Invalidate;
if VT = Mainform.DBtree then begin
VT.ResetNode(VT.GetFirst);
if ImmediateRepaint then
VT.ReinitNode(VT.GetFirst, False);
end else begin
if ImmediateRepaint then
VT.Repaint
else
VT.Invalidate;
end;
end;
@ -3670,6 +3676,7 @@ begin
Result.Username := GetRegValue(REGNAME_USER, '', Session);
Result.Password := decrypt(GetRegValue(REGNAME_PASSWORD, '', Session));
Result.Port := StrToIntDef(GetRegValue(REGNAME_PORT, '', Session), DEFAULT_PORT);
Result.AllDatabases := GetRegValue(REGNAME_DATABASES, '', Session);
Result.SSHHost := GetRegValue(REGNAME_SSHHOST, '', Session);
Result.SSHPort := GetRegValue(REGNAME_SSHPORT, DEFAULT_SSHPORT, Session);
Result.SSHUser := GetRegValue(REGNAME_SSHUSER, '', Session);