anchordocking: filter

git-svn-id: trunk@26189 -

examples/anchordocking/anchordockstr.pas

@@ -106,6 +106,8 @@ resourcestring
     +'file "%s"%s%s';
   adrsError = 'Error';
   adrsSaveWindowLayoutToFileXml = 'Save window layout to file (*.xml)';
+  adrsAllFiles = 'All files';
+  adrsAnchorDockingLayout = 'Anchor Docking Layout';
 
 implementation
 

examples/anchordocking/design/registeranchordocking.pas

@@ -364,6 +364,7 @@ begin
     InitIDEFileDialog(Dlg);
     Dlg.Title:=adrsLoadWindowLayoutFromFileXml;
     Dlg.Options:=Dlg.Options+[ofFileMustExist];
+    Dlg.Filter:=adrsAnchorDockingLayout+'|*.xml|'+adrsAllFiles+'|'+GetAllFilesMask;
     if Dlg.Execute then begin
       Filename:=CleanAndExpandFilename(Dlg.FileName);
       try
@@ -392,7 +393,7 @@ begin
     InitIDEFileDialog(Dlg);
     Dlg.Title:=adrsSaveWindowLayoutToFileXml;
     Dlg.Options:=Dlg.Options+[ofPathMustExist,ofNoReadOnlyReturn];
-    Dlg.Filter:='Anchor Docking Layout|*.xml|All files|'+GetAllFilesMask;
+    Dlg.Filter:=adrsAnchorDockingLayout+'|*.xml|'+adrsAllFiles+'|'+GetAllFilesMask;
     if Dlg.Execute then begin
       Filename:=CleanAndExpandFilename(Dlg.FileName);
       if ExtractFileExt(Filename)='' then

examples/anchordocking/languages/anchordockstr.po

@@ -5,10 +5,18 @@ msgstr "Content-Type: text/plain; charset=UTF-8"
 msgid "A free side of a splitter must not be anchored: Node=%s%s%s Type=%s Anchors[%s]=%s%s%s"
 msgstr ""
 
+#: anchordockstr.adrsallfiles
+msgid "All files"
+msgstr ""
+
 #: anchordockstr.adrsamountofpixelthemousehastodragbeforedragstarts
 msgid "Amount of pixel the mouse has to drag before drag starts"
 msgstr ""
 
+#: anchordockstr.adrsanchordockinglayout
+msgid "Anchor Docking Layout"
+msgstr ""
+
 #: anchordockstr.adrsanchorisnotsplitternodeanchors
 msgid "Anchor is not splitter: Node=%s%s%s Anchors[%s]=%s%s%s"
 msgstr ""