pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

More improvements to handling of Open/SaveDialog.FilterIndex

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2320 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2012-02-29 10:50:50 +00:00
parent 1d4fd99f98
commit fc6cac6a8f
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
applications/lazedit/lazedit_constants.pp
View File

@ -91,6 +91,7 @@ const
//FilterIndexes all start with FilterAllSupported, then all individually supported filetypes followed by .txt, templates and * //FilterIndexes all start with FilterAllSupported, then all individually supported filetypes followed by .txt, templates and *
//Filter indexes //Filter indexes
fiAllSupported = 1; //FilterIndexes are 1-based! fiAllSupported = 1; //FilterIndexes are 1-based!
fiTemplates = 1; //for use with Open/SaveAsTemplate dialog only!
fiEftFirst = Ord(Low(TEditorFileType)) + 2; //skip eftNone, add 1 for fiAllSupported fiEftFirst = Ord(Low(TEditorFileType)) + 2; //skip eftNone, add 1 for fiAllSupported
fiEftLast = Ord(High(TEditorFileType)) + 1; //Add 1 for fiAllSupported fiEftLast = Ord(High(TEditorFileType)) + 1; //Add 1 for fiAllSupported

6
applications/lazedit/main.pp
View File

@ -1937,7 +1937,7 @@ end;
function TLazEditMainForm.AskFileNameOpen: String; function TLazEditMainForm.AskFileNameOpen: String;
begin begin
OpenDialog.Filter := OpenSaveFilter; OpenDialog.Filter := OpenSaveFilter;
OpenDialog.FilterIndex := 0; OpenDialog.FilterIndex := fiAllSupported;
if OpenDialog.Execute then if OpenDialog.Execute then
begin begin
Result := OpenDialog.FileName; Result := OpenDialog.FileName;
@ -1949,7 +1949,7 @@ end;
function TLazEditMainForm.AskFileNameOpenTemplate: String; function TLazEditMainForm.AskFileNameOpenTemplate: String;
begin begin
OpenDialog.Filter := TemplateFilter; OpenDialog.Filter := TemplateFilter;
OpenDialog.FilterIndex := 0; OpenDialog.FilterIndex := fiTemplates;
if OpenDialog.Execute then if OpenDialog.Execute then
begin begin
Result := OpenDialog.FileName; Result := OpenDialog.FileName;
@ -1991,7 +1991,7 @@ end;
function TLazEditMainForm.AskFileNameSaveTemplate: String; function TLazEditMainForm.AskFileNameSaveTemplate: String;
begin begin
SaveDialog.Filter := TemplateFilter; SaveDialog.Filter := TemplateFilter;
SaveDialog.FilterIndex := 0; SaveDialog.FilterIndex := fiTemplates;
if SaveDialog.Execute then if SaveDialog.Execute then
begin begin
Result := SaveDialog.FileName; Result := SaveDialog.FileName;