[Instantobjects-cvscommit] SF.net SVN: instantobjects:[834] trunk/Source/Core/ InstantConnectionManagerFormUnit.pas

[<dav...@us...>]

Revision: 834
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=834&view=rev
Author:   davidvtaylor
Date:     2009-08-17 05:52:54 +0000 (Mon, 17 Aug 2009)

Log Message:
-----------
Enhancement to Connection Manager form to deal with case where no broker packages are installed
- "New" context menu now displays "No Brokers Installed" message if no brokers are loaded

Modified Paths:
--------------
    trunk/Source/Core/InstantConnectionManagerFormUnit.pas

Modified: trunk/Source/Core/InstantConnectionManagerFormUnit.pas
===================================================================
--- trunk/Source/Core/InstantConnectionManagerFormUnit.pas	2009-08-17 05:47:44 UTC (rev 833)
+++ trunk/Source/Core/InstantConnectionManagerFormUnit.pas	2009-08-17 05:52:54 UTC (rev 834)
@@ -24,7 +24,7 @@
  * the Initial Developer. All Rights Reserved.
  *
  * Contributor(s):
- * Carlo Barazzetta, Nando Dessena
+ * Carlo Barazzetta, Nando Dessena, David Taylor
  *
  * ***** END LICENSE BLOCK ***** *)
 
@@ -183,6 +183,9 @@
   InstantImageUtils, InstantConsts, InstantDBEvolverFormUnit,
   InstantDBBuilderFormUnit;
 
+const
+  SNoConnectorsFound = '< No Brokers Installed >';
+
 procedure DefaultConnectionManagerExecutor(ConnectionManager: TInstantConnectionManager);
 var
   ConnectionManagerForm: TInstantConnectionManagerForm;
@@ -717,6 +720,13 @@
       Item.OnClick := NewMenuItemClick;
       NewMenu.Add(Item);
     end;
+
+    if (ConnectorClassList.Count < 1) then
+    begin
+      Item := TMenuItem.Create(NewMenu);
+      Item.Caption := SNoConnectorsFound;
+      NewMenu.Add(Item);
+    end;
   finally
     ConnectorClassList.Free;
   end;