[JVCL-Checkins] SF.net SVN: jvcl:[13380] trunk/jvcl/run

[<jfu...@us...>]

Revision: 13380
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13380&view=rev
Author:   jfudickar
Date:     2012-07-08 21:01:24 +0000 (Sun, 08 Jul 2012)
Log Message:
-----------
Devart UniDac Integration

Modified Paths:
--------------
    trunk/jvcl/run/JvBaseDBLogonDialog.pas
    trunk/jvcl/run/JvDBLogonDialogUniDac.pas

Modified: trunk/jvcl/run/JvBaseDBLogonDialog.pas
===================================================================
--- trunk/jvcl/run/JvBaseDBLogonDialog.pas	2012-07-08 20:33:32 UTC (rev 13379)
+++ trunk/jvcl/run/JvBaseDBLogonDialog.pas	2012-07-08 21:01:24 UTC (rev 13380)
@@ -881,6 +881,11 @@
     IDynControlEdit.ControlSetPasswordChar('*');
 
   CreateAdditionalConnectDialogEditPanel(AForm, EditConnectionPanel, 'Database', RsDatabase, jctComboBox, DatabasePanel, DatabaseComboBox, IDatabaseComboBoxData, DefaultOnEditChange);
+  if Supports(DatabaseComboBox, IJvDynControl, IDynControl) then
+  begin
+    IDynControl.ControlSetOnClick(DefaultOnEditChange);
+    IDynControl.ControlSetOnExit(DefaultOnEditChange); // Fix for the VCL/JVCL Controls which did not react on OnChange and OnClick
+  end;
 
   CreateAdditionalConnectDialogEditPanel(AForm, EditConnectionPanel, 'Alias', RsAlias, jctEdit, AliasPanel, AliasEdit, IAliasEditData, DefaultOnEditChange);
 
@@ -902,6 +907,11 @@
 
   CreateAdditionalConnectDialogEditPanel(AForm, LeftBottomPanel, 'ConnectGroup', RsConnectGroup, jctComboBox, ConnectGroupPanel, ConnectGroupComboBox, IConnectGroupComboBoxData, DefaultOnEditChange);
   ConnectGroupPanel.Visible := Options.ShowConnectGroup;
+  if Supports(ConnectGroupComboBox, IJvDynControl, IDynControl) then
+  begin
+    IDynControl.ControlSetOnClick(DefaultOnEditChange);
+    IDynControl.ControlSetOnExit(DefaultOnEditChange); // Fix for the VCL/JVCL Controls which did not react on OnChange and OnClick
+  end;
 
   ColorBoxPanel := DynControlEngine.CreatePanelControl(AForm, LeftBottomPanel, 'ColorBoxPanel', '', alTop);
   AlignControlTop(ColorBoxPanel, ConnectGroupPanel);
@@ -2115,7 +2125,7 @@
 procedure TJvBaseDBOracleLogonDialog.SetEditPanelsTabOrder;
 begin
   inherited SetEditPanelsTabOrder;
-  ConnectAsPanel.TabOrder := 2;
+  ConnectAsPanel.TabOrder := 3;
 end;
 
 procedure TJvBaseDBOracleLogonDialog.SetEditPanelsVisibility;

Modified: trunk/jvcl/run/JvDBLogonDialogUniDac.pas
===================================================================
--- trunk/jvcl/run/JvDBLogonDialogUniDac.pas	2012-07-08 20:33:32 UTC (rev 13379)
+++ trunk/jvcl/run/JvDBLogonDialogUniDac.pas	2012-07-08 21:01:24 UTC (rev 13380)
@@ -299,6 +299,7 @@
 var
   DynControlComboBox:IJvDynControlComboBox;
   UniProviderNames: TStringList;
+  IDynControl: IJvDynControl;
 begin
   inherited CreateAdditionalConnectDialogControls (AOwner, AParentControl);
   CreateAdditionalConnectDialogEditPanel(AOwner, AParentControl, 'Provider', RsProvider, jctComboBox, ProviderPanel, ProviderEdit, IProviderEditData, ProviderOnEditChange);
@@ -318,8 +319,20 @@
 
   CreateAdditionalConnectDialogEditPanel(AOwner, AParentControl, 'Server', RsServer, jctComboBox, ServerPanel, ServerEdit, IServerEditData, DefaultOnEditChange);
   Supports(ServerEdit, IJvDynControlItems, IServerEditItems);
+  if Supports(ServerEdit, IJvDynControl, IDynControl) then
+  begin
+    IDynControl.ControlSetOnClick(DefaultOnEditChange);
+    IDynControl.ControlSetOnExit(DefaultOnEditChange); // Fix for the VCL/JVCL Controls which did not react on OnChange and OnClick
+  end;
+
   CreateAdditionalConnectDialogEditPanel(AOwner, AParentControl, 'OracleHome', RsOracleHome, jctComboBox, OracleHomePanel, OracleHomeEdit, IOracleHomeEditData, DefaultOnEditChange);
   Supports(OracleHomeEdit, IJvDynControlItems, IOracleHomeEditItems);
+  if Supports(OracleHomeEdit, IJvDynControl, IDynControl) then
+  begin
+    IDynControl.ControlSetOnClick(DefaultOnEditChange);
+    IDynControl.ControlSetOnExit(DefaultOnEditChange); // Fix for the VCL/JVCL Controls which did not react on OnChange and OnClick
+  end;
+
   CreateAdditionalConnectDialogEditPanel(AOwner, AParentControl, 'Port', RsPort, jctEdit, PortPanel, PortEdit, IPortEditData, DefaultOnEditChange);
 
   DirectCheckBox := DynControlEngine.CreateCheckboxControl(AOwner, AParentControl, 'DirectCheckBox', RsDirectConnect);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.