AnchorDocking: create ResetLayout menu command. Issue #0019909, patch from Flávio Etrusco

git-svn-id: trunk@31886 -

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';

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;

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"

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 ""

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"

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 ""

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"

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 "справа"

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 "правий"