paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:49:22 +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

10
ide/frames/env_file_filters.pas
View File

@ -77,13 +77,6 @@ begin
cfg := GetIDEConfigStorage(FileDialogFilterConfigFile, True);
try
cnt := cfg.GetValue(KeyFilterCount, 0);
if cnt = 0 then
begin
// create default values
Filter:=GetDefaultFileDialogFilter;
end
else
begin
// read values
for i := 1 to cnt do
begin
@ -94,7 +87,8 @@ begin
Filter:=Filter+'|';
Filter:=Filter+lName+'|'+lMask;
end;
end;
if Filter='' then
Filter:=GetDefaultFileDialogFilter;
finally
cfg.Free;
end;