From: <jfu...@us...> - 2008-03-11 22:21:26
|
Revision: 11761 http://jvcl.svn.sourceforge.net/jvcl/?rev=11761&view=rev Author: jfudickar Date: 2008-03-11 15:21:22 -0700 (Tue, 11 Mar 2008) Log Message: ----------- Changed Behaviour of the comboboxes in LogonDialog Modified Paths: -------------- trunk/jvcl/run/JvBaseDBLogonDialog.pas trunk/jvcl/run/JvDBLogonDialogOdac.pas Modified: trunk/jvcl/run/JvBaseDBLogonDialog.pas =================================================================== --- trunk/jvcl/run/JvBaseDBLogonDialog.pas 2008-03-11 22:20:52 UTC (rev 11760) +++ trunk/jvcl/run/JvBaseDBLogonDialog.pas 2008-03-11 22:21:22 UTC (rev 11761) @@ -588,6 +588,7 @@ IDynControlReadOnly: IJvDynControlReadOnly; IDynControlPageControl: IJvDynControlPageControl; IDynControlBevelBorder: IJvDynControlBevelBorder; + IDynControlComboBox: IJvDynControlComboBox; IDynControlEdit: IJvDynControlEdit; LabelControl: TControl; IDynControlLabel: IJvDynControlLabel; @@ -898,6 +899,9 @@ ShortCutComboBox := DynControlEngine.CreateComboBoxControl(AForm, ShortCutPanel, 'ShortCutComboBox', Items); Supports(ShortCutComboBox, IJvDynControlData, IShortCutComboBoxData); + if Supports(ShortCutComboBox, IJvDynControlComboBox, IDynControlComboBox) then + IDynControlComboBox.ControlSetNewEntriesAllowed(False); + AlignControlTop(ShortCutComboBox); finally Items.Free; @@ -1986,6 +1990,7 @@ Items: TStringList; LabelControl: TControl; IDynControlLabel: IJvDynControlLabel; + IDynControlComboBox: IJvDynControlComboBox; begin ConnectAsPanel := DynControlEngine.CreatePanelControl(AOwner, AParentControl, 'ConnectAsPanel', '', alTop); AlignControlTop(ConnectAsPanel); @@ -1998,6 +2003,8 @@ Items.Add('SYSOPER'); ConnectAsComboBox := DynControlEngine.CreateComboBoxControl(AOwner, ConnectAsPanel, 'ConnectAsComboBox', Items); Supports(ConnectAsComboBox, IJvDynControlData, IConnectAsComboBoxData); + if Supports(ConnectAsComboBox, IJvDynControlComboBox, IDynControlComboBox) then + IDynControlComboBox.ControlSetNewEntriesAllowed(False); AlignControlTop(ConnectAsComboBox); finally Items.Free; Modified: trunk/jvcl/run/JvDBLogonDialogOdac.pas =================================================================== --- trunk/jvcl/run/JvDBLogonDialogOdac.pas 2008-03-11 22:20:52 UTC (rev 11760) +++ trunk/jvcl/run/JvDBLogonDialogOdac.pas 2008-03-11 22:21:22 UTC (rev 11761) @@ -392,6 +392,7 @@ IDynControlLabel: IJvDynControlLabel; Items : TStringList; i: Integer; + IDynControlComboBox: IJvDynControlComboBox; begin inherited CreateAdditionalConnectDialogControls (AOwner, AParentControl); OracleHomePanel := DynControlEngine.CreatePanelControl(AOwner, AParentControl, 'OracleHomePanel', '', alTop); @@ -403,6 +404,8 @@ for i := 0 to OracleHomeCount - 1 do Items.Add(OracleHomeNames[i]); OracleHomeEdit := DynControlEngine.CreateComboBoxControl(AOwner, OracleHomePanel, 'OracleHomeEdit', Items); + if Supports(OracleHomeEdit, IJvDynControlComboBox, IDynControlComboBox) then + IDynControlComboBox.ControlSetNewEntriesAllowed(False); finally Items.Free; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |