paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: filter

Browse Source 
git-svn-id: trunk@26189 -
This commit is contained in:
mattias 2010-06-19 13:37:34 +00:00
parent 48e9743c3e
commit 3a5bfcb0cd
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/anchordocking/anchordockstr.pas
View File

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

3
examples/anchordocking/design/registeranchordocking.pas
View File

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

8
examples/anchordocking/languages/anchordockstr.po
View File

@ -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" msgid "A free side of a splitter must not be anchored: Node=%s%s%s Type=%s Anchors[%s]=%s%s%s"
msgstr "" msgstr ""
#: anchordockstr.adrsallfiles
msgid "All files"
msgstr ""
#: anchordockstr.adrsamountofpixelthemousehastodragbeforedragstarts #: anchordockstr.adrsamountofpixelthemousehastodragbeforedragstarts
msgid "Amount of pixel the mouse has to drag before drag starts" msgid "Amount of pixel the mouse has to drag before drag starts"
msgstr "" msgstr ""
#: anchordockstr.adrsanchordockinglayout
msgid "Anchor Docking Layout"
msgstr ""
#: anchordockstr.adrsanchorisnotsplitternodeanchors #: anchordockstr.adrsanchorisnotsplitternodeanchors
msgid "Anchor is not splitter: Node=%s%s%s Anchors[%s]=%s%s%s" msgid "Anchor is not splitter: Node=%s%s%s Anchors[%s]=%s%s%s"
msgstr "" msgstr ""