From: <jfu...@us...> - 2007-03-13 22:57:48
|
Revision: 11209 http://svn.sourceforge.net/jvcl/?rev=11209&view=rev Author: jfudickar Date: 2007-03-13 15:57:45 -0700 (Tue, 13 Mar 2007) Log Message: ----------- Small Fix Again Modified Paths: -------------- trunk/jvcl/run/JvBaseDBLogonDialog.pas Modified: trunk/jvcl/run/JvBaseDBLogonDialog.pas =================================================================== --- trunk/jvcl/run/JvBaseDBLogonDialog.pas 2007-03-13 11:14:40 UTC (rev 11208) +++ trunk/jvcl/run/JvBaseDBLogonDialog.pas 2007-03-13 22:57:45 UTC (rev 11209) @@ -1435,13 +1435,15 @@ procedure TJvBaseDBLogonDialog.GroupByDatabaseCheckBoxClick(Sender: TObject); begin if Assigned(IGroupByDatabaseCheckBox) then - GroupByDatabase := not GroupByDatabase; //IGroupByDatabaseCheckBox.ControlState = cbChecked; + //GroupByDatabase := not GroupByDatabase; + GroupByDatabase := IGroupByDatabaseCheckBox.ControlState = cbChecked; end; procedure TJvBaseDBLogonDialog.GroupByUserCheckBoxClick(Sender: TObject); begin if Assigned(IGroupByUserCheckBox) then - GroupByUser := not GroupByUser; //IGroupByUserCheckBox.ControlState = cbChecked; + //GroupByUser := not GroupByUser; + GroupByUser := IGroupByUserCheckBox.ControlState = cbChecked; end; procedure TJvBaseDBLogonDialog.LoadSettings; @@ -1754,9 +1756,10 @@ if Assigned(IGroupByUserCheckBox) then if Value and GroupByUser then IGroupByUserCheckBox.ControlSetState(cbUnChecked); - FillGroupTreeView; end; FGroupByDatabase := Value; + if Change then + FillGroupTreeView; end; procedure TJvBaseDBLogonDialog.SetGroupByUser(Value: Boolean); @@ -1774,9 +1777,10 @@ if Assigned(IGroupByDatabaseCheckBox) then if Value and GroupByDatabase then IGroupByDatabaseCheckBox.ControlSetState(cbUnChecked); - FillGroupTreeView; end; fGroupByUser := Value; + if Change then + FillGroupTreeView; end; procedure TJvBaseDBLogonDialog.SetOptions(const Value: TJvBaseDBLogonDialogOptions); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2008-01-09 21:16:52
|
Revision: 11686 http://jvcl.svn.sourceforge.net/jvcl/?rev=11686&view=rev Author: jfudickar Date: 2008-01-09 13:16:51 -0800 (Wed, 09 Jan 2008) Log Message: ----------- Password of last connect will no longer be stored via AppStorage Modified Paths: -------------- trunk/jvcl/run/JvBaseDBLogonDialog.pas Modified: trunk/jvcl/run/JvBaseDBLogonDialog.pas =================================================================== --- trunk/jvcl/run/JvBaseDBLogonDialog.pas 2008-01-09 21:15:49 UTC (rev 11685) +++ trunk/jvcl/run/JvBaseDBLogonDialog.pas 2008-01-09 21:16:51 UTC (rev 11686) @@ -2097,6 +2097,7 @@ begin inherited Create(AOwner); FLastConnect := TJvBaseConnectionInfo(CreateObject); + FLastConnect.SavePassword := False; ItemName := RsConnectionListItemName; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |