mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Load icons then file 'generic-icons' does not exists

Browse source
This commit is contained in:
Alexander Koblov 2009-05-17 12:04:58 +00:00
commit 84df61c3c2
1 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/platform/upixmapmanager.pas
View file

@ -469,6 +469,9 @@ begin
end;
function TPixMapManager.GetGenericIcons(const slGenericIcons: TStringListEx): Boolean;
const
mime_globs = '/usr/share/mime/globs';
mime_generic_icons = '/usr/share/mime/generic-icons';
var
globs,
generic_icons: TStringListEx;
@ -478,18 +481,23 @@ var
begin
try
Result:= False;
globs:= nil;
generic_icons:= nil;
// load mime types list
globs:= TStringListEx.Create;
globs.NameValueSeparator:= ':';
globs.LoadFromFile('/usr/share/mime/globs');
// load generic icons list
generic_icons:= TStringListEx.Create;
generic_icons.NameValueSeparator:= ':';
generic_icons.LoadFromFile('/usr/share/mime/generic-icons');
globs.LoadFromFile(mime_globs);
// try to load generic icons list
if mbFileExists(mime_generic_icons) then
begin
generic_icons:= TStringListEx.Create;
generic_icons.NameValueSeparator:= ':';
generic_icons.LoadFromFile(mime_generic_icons);
end;
// fill icons list (format "extension=mimeiconname:genericiconname")
for I:= 0 to globs.Count - 1 do
begin
sGenericIconName:= generic_icons.Values[globs.Names[I]];
sGenericIconName:= IfThen(Assigned(generic_icons), generic_icons.Values[globs.Names[I]]);
if sGenericIconName <> '' then // if mime has generic icon
begin
sMimeIconName:= StringReplace(globs.Names[I], '/', '-', []);