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

IDE: file filters: if buggy xml, use defaults, bug #20933

Browse Source 
git-svn-id: trunk@34288 -
This commit is contained in:
mattias 2011-12-19 17:36:39 +00:00
parent d0e7e290ce
commit 7bd5c4360f
1 changed files with 10 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/frames/env_file_filters.pas
View File

@ -77,24 +77,18 @@ begin
cfg := GetIDEConfigStorage(FileDialogFilterConfigFile, True);
try
cnt := cfg.GetValue(KeyFilterCount, 0);
if cnt = 0 then
// read values
for i := 1 to cnt do
begin
// create default values
Filter:=GetDefaultFileDialogFilter;
end
else
begin
// read values
for i := 1 to cnt do
begin
lName := cfg.GetValue(KeyFilter+IntToStr(i) + '/' + KeyFilterName, '');
lMask := cfg.GetValue(KeyFilter+IntToStr(i) + '/' + KeyFilterMask, '*');
if (lName='') or (lMask='') then continue;
if Filter<>'' then
Filter:=Filter+'|';
Filter:=Filter+lName+'|'+lMask;
end;
lName := cfg.GetValue(KeyFilter+IntToStr(i) + '/' + KeyFilterName, '');
lMask := cfg.GetValue(KeyFilter+IntToStr(i) + '/' + KeyFilterMask, '*');
if (lName='') or (lMask='') then continue;
if Filter<>'' then
Filter:=Filter+'|';
Filter:=Filter+lName+'|'+lMask;
end;
if Filter='' then
Filter:=GetDefaultFileDialogFilter;
finally
cfg.Free;
end;