From 9b43183ae928dc77d03298c3e9a6cc26e7d30f69 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Sat, 2 Jan 2016 17:02:31 +0000
Subject: [PATCH] * Start with dialog if no recent items were found

git-svn-id: trunk@51132 -
---
 tools/lazdatadesktop/frmmain.pp         | 17 +++++++++++++++++
 tools/lazdatadesktop/lazdatadeskstr.pas |  7 +++++++
 2 files changed, 24 insertions(+)

diff --git a/tools/lazdatadesktop/frmmain.pp b/tools/lazdatadesktop/frmmain.pp
index c15f327aa7..b1c501d867 100644
--- a/tools/lazdatadesktop/frmmain.pp
+++ b/tools/lazdatadesktop/frmmain.pp
@@ -18,6 +18,14 @@
  *                                                                         *
  ***************************************************************************
 }
+
+{
+  Adding support for new connection types requires implementing a Data Dictionary for your connection type
+  see fcl-db/src/datadict for many implementations.
+  When done so, add the unit to the uses clause in the implementation, and register it in RegisterDDEngines
+}
+
+{ MS-SQL server connectop}
 {$IFDEF VER3_1_1}
 {$DEFINE HAVEMSSQLCONN}
 {$ENDIF}
@@ -501,6 +509,15 @@ end;
 procedure TMainForm.FormShow(Sender: TObject);
 begin
   CheckParams;
+  if (FRecentConnections.Count=0) and (FRecentDicts.Count=0) then
+    case QuestionDlg(sld_FirstStart,sql_NoConnectionsFound,mtInformation,[
+         mrOK,sld_startnewdict,
+         mrYes,sld_startnewconnection,
+         mrCancel,sld_startempty
+       ],0) of
+       mrYes : NewConnection;
+       mrOK  : NewDataDict;
+    end
 end;
 
 procedure TMainForm.CheckParams;
diff --git a/tools/lazdatadesktop/lazdatadeskstr.pas b/tools/lazdatadesktop/lazdatadeskstr.pas
index 425e5b7d44..464c6f9f8e 100644
--- a/tools/lazdatadesktop/lazdatadeskstr.pas
+++ b/tools/lazdatadesktop/lazdatadeskstr.pas
@@ -113,6 +113,13 @@ resourcestring
   sld_TestConnection = 'Test connection';
   sld_SuccesConnecting = 'Connection established successfully!';
 
+  sld_FirstStart = 'First start of database desktop';
+  sql_NoConnectionsFound = 'No connections or data dictionaries were found.'#13#10+
+                           ' Start by creating a new connection or data dictionary';
+  sld_startnewdict = 'Start new dictionary';
+  sld_startnewconnection = 'Create new connection';
+  sld_startempty = 'Thanks, I know what to do';
+
   // Query panel
   SSQLFilters = 'SQL files|*.sql|All files|*.*';
   SRowsAffected = 'Query executed successfully: %d rows affected.';