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

anchordocking: miniide: init opensavedialog

Browse Source 
git-svn-id: trunk@34073 -
This commit is contained in:
mattias 2011-12-09 19:22:31 +00:00
parent 5a44369375
commit 1b9c627cc4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/anchordocking/minide/unit1.pas
View File

@ -146,6 +146,7 @@ var
begin begin
Dlg:=TOpenDialog.Create(nil); Dlg:=TOpenDialog.Create(nil);
try try
Dlg.InitialDir:=GetCurrentDirUTF8;
Dlg.Title:='Open layout file ...'; Dlg.Title:='Open layout file ...';
Dlg.Filter:='*.xml|*.xml'; Dlg.Filter:='*.xml|*.xml';
Dlg.Options:=Dlg.Options+[ofFileMustExist]; Dlg.Options:=Dlg.Options+[ofFileMustExist];
@ -173,6 +174,7 @@ var
begin begin
Dlg:=TSaveDialog.Create(nil); Dlg:=TSaveDialog.Create(nil);
try try
Dlg.InitialDir:=GetCurrentDirUTF8;
Dlg.Title:='Save layout as ...'; Dlg.Title:='Save layout as ...';
Dlg.Filter:='*.xml|*.xml'; Dlg.Filter:='*.xml|*.xml';
Dlg.Options:=Dlg.Options+[ofPathMustExist,ofHideReadOnly,ofOverwritePrompt]; Dlg.Options:=Dlg.Options+[ofPathMustExist,ofHideReadOnly,ofOverwritePrompt];