LazDataDesktop: fixed 'New connection' main menu item i18n, also made sure that 'New connection' dialog is accesible with Ctrl+Alt+N shortcut, bug #28337

git-svn-id: trunk@49413 -

tools/lazdatadesktop/frmmain.lfm

@@ -155,13 +155,13 @@ object MainForm: TMainForm
     end
     object TSConnections: TTabSheet
       Caption = 'Connections'
-      ClientHeight = 384
+      ClientHeight = 388
       ClientWidth = 658
       object LVConnections: TListView
         Left = 0
-        Height = 374
+        Height = 388
         Top = 0
-        Width = 662
+        Width = 658
         Align = alClient
         Columns = <        
           item
@@ -782,7 +782,6 @@ object MainForm: TMainForm
       Caption = 'Connections'
       object MINewConnection: TMenuItem
         Caption = '&New connection'
-        ShortCut = 49230
       end
       object MIOpenRecentConnection: TMenuItem
         Action = AOpenConnection
@@ -1500,7 +1499,6 @@ object MainForm: TMainForm
     end
     object PMINewConnection: TMenuItem
       Action = ANewConnection
-      OnClick = ANewConnectionExecute
     end
     object PMIDeleteConnection: TMenuItem
       Action = ADeleteConnection

tools/lazdatadesktop/frmmain.pp

@@ -315,6 +315,7 @@ begin
   MIDDSep.Caption:= sld_Separator;
   MIDDSep2.Caption:= sld_Separator;
   MIDDSep3.Caption:= sld_Separator;
+  MINewConnection.Caption:= sld_Actionnewconnection;
   //
   ASave.Caption:= sld_Actionsave;
   ASave.Hint:= sld_ActionsaveH;

tools/lazdatadesktop/lazdatadesktop.lpi

@@ -115,6 +115,7 @@
         <Filename Value="frmselectconnectiontype.pp"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="SelectConnectionTypeForm"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit11>
       <Unit12>