From 842ea9af5de01f4c7b85011a9b68501b06fc12a6 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 6 Aug 2011 11:09:31 +0000
Subject: [PATCH] =?UTF-8?q?AnchorDocking:=20create=20ResetLayout=20menu=20?=
 =?UTF-8?q?command.=20Issue=20#0019909,=20patch=20from=20=09Fl=C3=A1vio=20?=
 =?UTF-8?q?Etrusco?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: trunk@31886 -
---
 examples/anchordocking/anchordockstr.pas               |  1 +
 .../anchordocking/design/registeranchordocking.pas     | 10 ++++++++++
 examples/anchordocking/languages/anchordockstr.cs.po   |  4 ++++
 examples/anchordocking/languages/anchordockstr.de.po   |  4 ++++
 examples/anchordocking/languages/anchordockstr.it.po   |  4 ++++
 examples/anchordocking/languages/anchordockstr.po      |  4 ++++
 .../anchordocking/languages/anchordockstr.pt_BR.po     |  4 ++++
 examples/anchordocking/languages/anchordockstr.ru.po   |  4 ++++
 examples/anchordocking/languages/anchordockstr.uk.po   |  4 ++++
 9 files changed, 39 insertions(+)

diff --git a/examples/anchordocking/anchordockstr.pas b/examples/anchordocking/anchordockstr.pas
index 7e3bcf196f..7fd773a42a 100644
--- a/examples/anchordocking/anchordockstr.pas
+++ b/examples/anchordocking/anchordockstr.pas
@@ -110,6 +110,7 @@ resourcestring
   adrsSaveWindowLayoutAsDefault = 'Save window layout as default';
   adrsSaveWindowLayoutToFile = 'Save window layout to file ...';
   adrsLoadWindowLayoutFromFile = 'Load window layout from file ...';
+  adrsRestoreDefaultLayout = 'Restore default layout';
   adrsErrorLoadingWindowLayoutFromFile = 'Error loading window layout from '
     +'file "%s"%s%s';
   adrsError = 'Error';
diff --git a/examples/anchordocking/design/registeranchordocking.pas b/examples/anchordocking/design/registeranchordocking.pas
index ffeda5867a..53325cd891 100644
--- a/examples/anchordocking/design/registeranchordocking.pas
+++ b/examples/anchordocking/design/registeranchordocking.pas
@@ -56,6 +56,7 @@ var
     mnuADSaveLayoutAsDefault: TIDEMenuCommand;
     mnuADSaveLayoutToFile: TIDEMenuCommand;
     mnuADLoadLayoutFromFile: TIDEMenuCommand;
+    mnuADRestoreDefaultLayout: TIDEMenuCommand;
 
 type
 
@@ -90,6 +91,7 @@ type
     procedure CloseAll; override;
     procedure OnIDERestoreWindows(Sender: TObject);
     function OnProjectClose(Sender: TObject; AProject: TLazProject): TModalResult;
+    procedure RestoreDefaultLayoutClicked(Sender: TObject);
     procedure LoadLayoutFromFileClicked(Sender: TObject);
     procedure SaveLayoutToFileClicked(Sender: TObject);
     procedure SaveLayoutAsDefaultClicked(Sender: TObject);
@@ -142,6 +144,9 @@ begin
   mnuADLoadLayoutFromFile:=RegisterIDEMenuCommand(mnuAnchorDockSection,
     'ADLoadLayoutFromFile', adrsLoadWindowLayoutFromFile,
     @IDEAnchorDockMaster.LoadLayoutFromFileClicked);
+  mnuADRestoreDefaultLayout:=RegisterIDEMenuCommand(mnuAnchorDockSection,
+    'ADRestoreDefaultLayout', adrsRestoreDefaultLayout,
+    @IDEAnchorDockMaster.RestoreDefaultLayoutClicked);
 
   // add options frame
   {$R *.lfm}
@@ -466,6 +471,11 @@ begin
   //SaveUserLayout;
 end;
 
+procedure TIDEAnchorDockMaster.RestoreDefaultLayoutClicked(Sender: TObject);
+begin
+  LoadDefaultLayout;
+end;
+
 procedure TIDEAnchorDockMaster.OnIDERestoreWindows(Sender: TObject);
 begin
   LoadUserLayout;
diff --git a/examples/anchordocking/languages/anchordockstr.cs.po b/examples/anchordocking/languages/anchordockstr.cs.po
index 1e619fede0..c0c36f63c4 100644
--- a/examples/anchordocking/languages/anchordockstr.cs.po
+++ b/examples/anchordocking/languages/anchordockstr.cs.po
@@ -197,6 +197,10 @@ msgstr "Ukončit %s"
 msgid "%s requested, but %s created"
 msgstr ""
 
+#: anchordockstr.adrsrestoredefaultlayout
+msgid "Restore default layout"
+msgstr ""
+
 #: anchordockstr.adrsright
 msgid "right"
 msgstr "vpravo"
diff --git a/examples/anchordocking/languages/anchordockstr.de.po b/examples/anchordocking/languages/anchordockstr.de.po
index 0f43bfea60..973b85174c 100644
--- a/examples/anchordocking/languages/anchordockstr.de.po
+++ b/examples/anchordocking/languages/anchordockstr.de.po
@@ -197,6 +197,10 @@ msgstr ""
 msgid "%s requested, but %s created"
 msgstr ""
 
+#: anchordockstr.adrsrestoredefaultlayout
+msgid "Restore default layout"
+msgstr ""
+
 #: anchordockstr.adrsright
 msgid "right"
 msgstr ""
diff --git a/examples/anchordocking/languages/anchordockstr.it.po b/examples/anchordocking/languages/anchordockstr.it.po
index a0633fde32..20181def25 100644
--- a/examples/anchordocking/languages/anchordockstr.it.po
+++ b/examples/anchordocking/languages/anchordockstr.it.po
@@ -199,6 +199,10 @@ msgstr "Esci %s"
 msgid "%s requested, but %s created"
 msgstr "Era richiesto %s, invece è stato creato %s"
 
+#: anchordockstr.adrsrestoredefaultlayout
+msgid "Restore default layout"
+msgstr ""
+
 #: anchordockstr.adrsright
 msgid "right"
 msgstr "destra"
diff --git a/examples/anchordocking/languages/anchordockstr.po b/examples/anchordocking/languages/anchordockstr.po
index 58eeae4732..2f8bc36619 100644
--- a/examples/anchordocking/languages/anchordockstr.po
+++ b/examples/anchordocking/languages/anchordockstr.po
@@ -189,6 +189,10 @@ msgstr ""
 msgid "%s requested, but %s created"
 msgstr ""
 
+#: anchordockstr.adrsrestoredefaultlayout
+msgid "Restore default layout"
+msgstr ""
+
 #: anchordockstr.adrsright
 msgid "right"
 msgstr ""
diff --git a/examples/anchordocking/languages/anchordockstr.pt_BR.po b/examples/anchordocking/languages/anchordockstr.pt_BR.po
index 9b3205c52e..3ee46c88b4 100644
--- a/examples/anchordocking/languages/anchordockstr.pt_BR.po
+++ b/examples/anchordocking/languages/anchordockstr.pt_BR.po
@@ -198,6 +198,10 @@ msgstr "Sair %s"
 msgid "%s requested, but %s created"
 msgstr "%s requerido, mas %s criado"
 
+#: anchordockstr.adrsrestoredefaultlayout
+msgid "Restore default layout"
+msgstr ""
+
 #: anchordockstr.adrsright
 msgid "right"
 msgstr "direita"
diff --git a/examples/anchordocking/languages/anchordockstr.ru.po b/examples/anchordocking/languages/anchordockstr.ru.po
index e57780ab39..a99bc09eca 100644
--- a/examples/anchordocking/languages/anchordockstr.ru.po
+++ b/examples/anchordocking/languages/anchordockstr.ru.po
@@ -197,6 +197,10 @@ msgstr "Выход из %s"
 msgid "%s requested, but %s created"
 msgstr "Запрошен %s, но создан %s"
 
+#: anchordockstr.adrsrestoredefaultlayout
+msgid "Restore default layout"
+msgstr ""
+
 #: anchordockstr.adrsright
 msgid "right"
 msgstr "справа"
diff --git a/examples/anchordocking/languages/anchordockstr.uk.po b/examples/anchordocking/languages/anchordockstr.uk.po
index 37ce3887f7..9a16277220 100644
--- a/examples/anchordocking/languages/anchordockstr.uk.po
+++ b/examples/anchordocking/languages/anchordockstr.uk.po
@@ -197,6 +197,10 @@ msgstr "Вийти %s"
 msgid "%s requested, but %s created"
 msgstr "Даний запит на %s, але створений %s"
 
+#: anchordockstr.adrsrestoredefaultlayout
+msgid "Restore default layout"
+msgstr ""
+
 #: anchordockstr.adrsright
 msgid "right"
 msgstr "правий"