UPD: Use SHGetFileInfoW function instead of Ansi version.

src/platform/upixmapmanager.pas

@@ -1,1468 +1,1469 @@
-{
-   File name: uPixMapManager.pas
-   Date:      2004/04/xx
-   Author:    Radek Cervinka  <[email protected]>
-
-   Fast pixmap memory manager a loader
-
-   Copyright (C) 2004
-   
-   contributors:
-   
-   Copyright (C) 2006-2009  Koblov Alexander ([email protected])
-
-   This program is free software; you can redistribute it and/or
-   modify it under the terms of the GNU General Public License as
-   published by the Free Software Foundation; either version 2 of the
-   License, or (at your option) any later version.
-
-   This program is distributed in the hope that it will be useful, but
-   WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-   General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   in a file called COPYING along with this program; if not, write to
-   the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
-   02139, USA.
-}
-
-
-unit uPixMapManager;
-
-{$mode objfpc}{$H+}
-
-interface
-
-{
-  GTK2 is used directly in PixmapManager, because FPC/Lazarus draws bitmaps
-  without alpha channel under GTK2, so bitmaps looks ugly.
-  If this problem will be fixed then GTK2 specific code could be dropped.
-}
-
-uses
-  Classes, SysUtils, Graphics, syncobjs,
-  uOSUtils, uFileSorting, StringHashList, uFile
-  {$IF DEFINED(UNIX)}
-  , uClassesEx
-    {$IF NOT DEFINED(DARWIN)}
-    , contnrs
-      {$IFDEF LCLGTK2}
-      , gtk2
-      {$ELSE}
-      , uIconTheme, uMyIconTheme
-      {$ENDIF}
-    {$ENDIF}
-  {$ENDIF};
-
-type
-  TDriveIconList = class
-    bmMediaFloppy,
-    bmDriveHardDisk,
-    bmMediaFlash,
-    bmMediaOptical,
-    bmDriveNetwork: TBitmap;
-  end;
-
-  { TPixMapManager }
-
-  TPixMapManager = class
-  
-  private
-    {en
-       Maps file extension to index of bitmap (in FPixmapList) for this file extension.
-    }
-    FExtList : TStringHashList;
-    {en
-       Maps icon filename to index of bitmap (in FPixmapList) for this icon.
-       Uses absolute file names.
-    }
-    FPixmapsFileNames : TStringHashList;
-    {en
-       A list of loaded bitmaps.
-       Stores TBitmap objects (on GTK2 it stores PGdkPixbuf pointers).
-    }
-    FPixmapList : TFPList;
-    {en
-       Lock used to synchronize access to PixmapManager storage.
-    }
-    FPixmapsLock: TCriticalSection;
-
-    FDriveIconList : TStringList;
-    FiDirIconID : PtrInt;
-    FiDirLinkIconID : PtrInt;
-    FiLinkIconID : PtrInt;
-    FiEmblemLinkID: PtrInt;
-    FiUpDirIconID : PtrInt;
-    FiDefaultIconID : PtrInt;
-    FiExeIconID : PtrInt;
-    FiArcIconID : PtrInt;
-    FiSortAscID : PtrInt;
-    FiSortDescID : PtrInt;
-    FPixmapSize : String;
-    {$IF DEFINED(MSWINDOWS)}
-    FSysImgList : THandle;
-    {$ELSEIF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-    {en
-       Maps file extension to MIME icon name(s).
-    }
-    FExtToMimeIconName: TFPDataHashTable;
-    {en
-       Maps mime icon name to index of bitmap (in FPixmapList) for this icon.
-    }
-    FThemePixmapsFileNames: TStringHashList;
-    {$IFDEF LCLGTK2}
-    FIconTheme: PGtkIconTheme;
-    {$ELSE}
-    FIconTheme: TIconTheme;
-    {$ENDIF}
-    {$ENDIF}
-  protected
-    function LoadBitmap(AIconFileName: String; out ABitmap: TBitmap): Boolean;
-    function CheckLoadPixmap(const AIconName: String; bUsePixmapPath : Boolean = True) : TBitmap;
-    function CheckAddPixmap(AIconName: String; IconSize : Integer = 0; bUsePixmapPath : Boolean = True): PtrInt;
-  {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-    procedure CreateIconTheme;
-    procedure DestroyIconTheme;
-    {en
-       Loads MIME icons names and creates a mapping: file extension -> MIME icon name.
-       Doesn't need to be synchronized as long as it's only called from Load().
-    }
-    procedure LoadMimeIconNames;
-    {en
-       Loads a theme icon with a specific MIME icon name.
-       This function should only be called under FPixmapLock.
-    }
-    function LoadIconThemeIcon(AIconName: String; AIconSize: Integer): PtrInt;
-    {en
-       Retrieves index of a theme icon based on file extension.
-       Loads the icon if it is not yet loaded into PixmapManager.
-       This function should only be called under FPixmapLock.
-    }
-    function GetMimeIcon(AFileExt: String; AIconSize: Integer): PtrInt;
-    {en
-       It is synchronized in GetIconByName->CheckAddPixmap.
-    }
-    function GetIconByDesktopFile(sFileName: UTF8String; iDefaultIcon: PtrInt): PtrInt;
-  {$ENDIF}
-    function GetBuiltInDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
-  public
-    constructor Create;
-    destructor Destroy; override;
-    procedure Load(const sFileName : String);
-    function GetBitmap(iIndex : PtrInt; BkColor : TColor) : TBitmap; // Always returns new copy.
-    function DrawBitmap(iIndex: PtrInt; Canvas : TCanvas; X, Y: Integer) : Boolean;
-    {en
-       Draws bitmap stretching it if needed to Width x Height.
-       If Width is 0 then full bitmap width is used.
-       If Height is 0 then full bitmap height is used.
-       @param(iIndex
-              Index of pixmap manager's bitmap.)
-    }
-    function DrawBitmap(iIndex: PtrInt; Canvas : TCanvas; X, Y, Width, Height: Integer) : Boolean;
-    function DrawBitmap(iIndex: PtrInt; AFile: TFile; DirectAccess: Boolean; Canvas : TCanvas; X, Y: Integer) : Boolean;
-    function GetIconBySortingDirection(SortingDirection: TSortDirection): PtrInt;
-    function GetIconByFile(AFile: TFile; DirectAccess: Boolean): PtrInt;
-    function GetIconByName(const AIconName: UTF8String): PtrInt;
-    function GetDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
-    function GetDefaultDriveIcon(IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
-    function GetArchiveIcon(IconSize: Integer; clBackColor : TColor) : Graphics.TBitmap;
-  end;
-
-function StretchBitmap(var bmBitmap : Graphics.TBitmap; iIconSize : Integer;
-                       clBackColor : TColor; bFreeAtEnd : Boolean = False) : Graphics.TBitmap;
-function LoadBitmapFromFile(sFileName : String; iIconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
-
-var
-  PixMapManager:TPixMapManager = nil;
-
-procedure LoadPixMapManager;
-
-implementation
-
-uses
-  GraphType, LCLIntf, LCLType, LCLProc, Forms, FileUtil, uGlobsPaths, WcxPlugin,
-  uGlobs, uDCUtils, uFileSystemFile, uReSample
-  {$IFDEF LCLGTK2}
-    , uPixMapGtk, gtkdef, gdk2pixbuf, gdk2, glib2
-  {$ENDIF}
-  {$IFDEF MSWINDOWS}
-    , CommCtrl, ShellAPI, Windows, uIcoFiles, uGdiPlus, IntfGraphics, uShlObjAdditional
-  {$ELSE}
-    , StrUtils
-  {$ENDIF}
-  ;
-
-function StretchBitmap(var bmBitmap : Graphics.TBitmap; iIconSize : Integer;
-                       clBackColor : TColor; bFreeAtEnd : Boolean = False) : Graphics.TBitmap;
-var
-  memstream: TMemoryStream;
-begin
-  Result := Graphics.TBitMap.Create;
-  Result.SetSize(iIconSize, iIconSize);
-  if bmBitmap.RawImage.Description.AlphaPrec <> 0 then // if bitmap has alpha channel
-    Stretch(bmBitmap, Result, ResampleFilters[2].Filter, ResampleFilters[2].Width)
-  else
-    with Result do
-    begin
-      Canvas.Brush.Color := clBackColor;
-      Canvas.FillRect(Canvas.ClipRect);
-      Canvas.StretchDraw(Canvas.ClipRect, bmBitmap);
-      { For drawing color transparent bitmaps }
-      memstream := TMemoryStream.Create;
-      try
-        SaveToStream(memstream);
-        memstream.position := 0;
-        LoadFromStream(memstream);
-      finally
-        memstream.free;
-      end;
-      Transparent := True;
-      if bmBitmap.RawImage.Description.MaskBitsPerPixel = 0 then
-        TransparentColor := clBackColor;
-    end; //  with
-  if bFreeAtEnd then
-    FreeAndNil(bmBitmap);
-end;
-
-function LoadBitmapFromFile(sFileName : String; iIconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
-var
-{$IFDEF MSWINDOWS}
-  iPos,
-  iIconIndex,
-  iIconLarge,
-  iIconSmall: Integer;
-  phIcon: HICON = INVALID_HANDLE_VALUE;
-  phIconLarge,
-  phIconSmall : HICON;
-  Icon : TIcon = nil;
-{$ENDIF}
-  AFile: TFileSystemFile;
-  iIndex : PtrInt;
-  sExtFilter,
-  sGraphicFilter : String;
-  bFreeAtEnd : Boolean;
-  bmStandartBitmap : Graphics.TBitMap = nil;
-  {$IFDEF LCLGTK2}
-  pbPicture : PGdkPixbuf;
-  {$ENDIF}
-begin
-  Result := nil;
-
-  sFileName:= mbExpandFileName(sFileName);
-{$IFDEF MSWINDOWS}
-  iIconIndex := -1;
-  iPos :=Pos(',', sFileName);
-  if iPos <> 0 then
-    begin
-      iIconIndex := StrToIntDef(Copy(sFileName, iPos + 1, Length(sFileName) - iPos), 0);
-      sFileName := Copy(sFileName, 1, iPos - 1);
-    end;
-
-  if FileIsExeLib(sFileName) then
-    begin
-      if iIconIndex < 0 then iIconIndex := 0;
-      ExtractIconExW(PWChar(UTF8Decode(sFileName)), iIconIndex, phIconLarge, phIconSmall, 1);
-      // Get system metrics
-      iIconSmall:= GetSystemMetrics(SM_CXSMICON);
-      iIconLarge:= GetSystemMetrics(SM_CXICON);
-      if (iIconSize = 16) and (iIconSmall = 16) then
-        phIcon:= phIconSmall    // Use small icon
-      else if (iIconSize = 32) and (iIconLarge = 32) then
-        phIcon:= phIconLarge;   // Use large icon
-
-      if phIcon <> INVALID_HANDLE_VALUE then // standart icon size
-        try
-          Result:= Graphics.TBitMap.Create;
-          Icon:= CreateIconFromHandle(phIcon);
-          Result.Assign(Icon);
-        finally
-          FreeThenNil(Icon);
-        end
-      else // non standart icon size
-        try
-          bmStandartBitmap := Graphics.TBitMap.Create;
-          if iIconSize > iIconSmall then
-            phicon := phIconLarge // Use large icon
-          else
-            phicon := phIconSmall; // Use small icon
-          Icon:= CreateIconFromHandle(phIcon);
-          bmStandartBitmap.Assign(Icon);
-          Result:= StretchBitmap(bmStandartBitmap, iIconSize, clBackColor, True);
-        finally
-          FreeThenNil(Icon)
-        end;  // non standart size
-      DestroyIcon(phIconLarge);
-      DestroyIcon(phIconSmall);
-    end  // IsExecutable
-  else
-{$ENDIF}
-    begin
-      bFreeAtEnd := True;
-      sExtFilter := UTF8LowerCase(ExtractFileExt(sFileName)) + ';';
-      sGraphicFilter := GraphicFilter(TGraphic);
-      // if file is graphic
-      if (Pos(sExtFilter, sGraphicFilter) <> 0) and mbFileExists(sFileName) then
-      begin
-        {$IFDEF LCLGTK2}
-        pbPicture := gdk_pixbuf_new_from_file(PChar(sFileName), nil);
-        if pbPicture <> nil then
-        begin
-          bmStandartBitmap:= PixBufToBitmap(pbPicture);
-          gdk_pixmap_unref(pbPicture);
-        end
-        else // Try loading the standard way.
-        {$ELSE}
-        if not PixMapManager.LoadBitmap(sFileName, bmStandartBitmap) then
-          Exit;
-        {$ENDIF}
-      end
-      else // get file icon by ext
-        begin
-          if mbFileExists(sFileName) or mbDirectoryExists(sFileName) then
-            begin
-              AFile := TFileSystemFile.Create(sFileName);
-              iIndex := PixMapManager.GetIconByFile(AFile, True);
-              bmStandartBitmap := PixMapManager.GetBitmap(iIndex, clBackColor);
-              FreeAndNil(AFile);
-            end
-          else  // file not found
-            begin
-              Exit(nil);
-            end;
-        end;
-
-      // if need stretch icon
-      if  (iIconSize <> bmStandartBitmap.Height) or (iIconSize <> bmStandartBitmap.Width) then
-        Result := StretchBitmap(bmStandartBitmap, iIconSize, clBackColor, bFreeAtEnd)
-      else
-        Result := bmStandartBitmap;
-    end;  // IsExecutable else
-end;
-
-{ TPixMapManager }
-
-function TPixMapManager.LoadBitmap(AIconFileName: String; out ABitmap: Graphics.TBitmap): Boolean;
-var
-  Picture: TPicture;
-begin
-  Result:= False;
-  ABitmap:= nil;
-  try
-    Picture := TPicture.Create;
-    try
-      Picture.LoadFromFile(AIconFileName);
-      //Picture.Graphic.Transparent := True;
-
-      ABitmap := Graphics.TBitmap.Create;
-      ABitmap.Assign(Picture.Bitmap);
-
-      // if unsupported BitsPerPixel then exit
-      if ABitmap.RawImage.Description.BitsPerPixel > 32 then
-        raise EInvalidGraphic.Create('Unsupported bits per pixel');
-
-      Result:= True;
-    finally
-      FreeAndNil(Picture);
-    end;
-  except
-    on e: Exception do
-      begin
-        if Assigned(ABitmap) then
-          FreeAndNil(ABitmap);
-        DebugLn(Format('Error: Cannot load pixmap [%s] : %s',[AIconFileName, e.Message]));
-      end;
-  end;
-end;
-
-function TPixMapManager.CheckLoadPixmap(const AIconName: String; bUsePixmapPath : Boolean = True): Graphics.TBitmap;
-var
-  sFileName: String;
-begin
-  Result:= nil;
-
-  if bUsePixmapPath then
-    sFileName:= gpPixmapPath + FPixmapSize + AIconName
-  else
-    sFileName:= AIconName;
-    
-  if not mbFileExists(sFileName) then
-    begin
-      DebugLn(Format('Warning: pixmap [%s] not exists!',[sFileName]));
-      Exit;
-    end;
-  LoadBitmap(sFileName, Result);
-end;
-
-function TPixMapManager.CheckAddPixmap(AIconName: String; IconSize : Integer; bUsePixmapPath : Boolean): PtrInt;
-var
-  fileIndex: PtrInt;
-  {$IFDEF LCLGTK2}
-  pbPicture : PGdkPixbuf;
-  {$ELSE}
-  bmpBitmap: Graphics.TBitmap;
-  {$ENDIF}
-begin
-  Result:= -1;
-  if AIconName = EmptyStr then Exit;
-
-  if IconSize = 0 then IconSize:= gIconsSize;
-
-  FPixmapsLock.Acquire;
-  try
-    if bUsePixmapPath or (GetPathType(AIconName) = ptAbsolute) then
-      begin
-        if bUsePixmapPath then
-          AIconName := gpPixmapPath + FPixmapSize + AIconName;
-
-        // Determine if this file is already loaded.
-        fileIndex := FPixmapsFileNames.Find(AIconName);
-        if fileIndex < 0 then
-          begin
-            if not mbFileExists(AIconName) then
-              begin
-                DebugLn(Format('Warning: pixmap [%s] not exists!', [AIconName]));
-                Exit;
-              end;
-        {$IFDEF LCLGTK2}
-            pbPicture := gdk_pixbuf_new_from_file_at_size(PChar(AIconName), IconSize, IconSize, nil);
-            if Assigned(pbPicture) then
-              begin
-                Result := FPixmapList.Add(pbPicture);
-                FPixmapsFileNames.Add(AIconName, Pointer(Result));
-              end
-            else
-              DebugLn(Format('Error: pixmap [%s] not loaded!', [AIconName]));
-        {$ELSE}
-            if LoadBitmap(AIconName, bmpBitmap) then
-            begin
-              // Shrink big bitmaps before putting them into PixmapManager,
-              // to speed up later drawing.
-              //
-              // Note: Transparent bitmaps may lose transparency, because
-              // they must drawn onto a background, so we allow smaller bitmaps
-              // up to 48x48 (icons for example) to load in full size and they
-              // are resized upon drawing.
-              //
-              // TODO:
-              // This should resize any non-transparent,
-              // non-alpha channel bitmaps to gIconsSize
-              // (so if Width<>gIconsSize or Height<>gIconsSize then Resize).
-              if (bmpBitmap.Width > 48) or (bmpBitmap.Height > 48) then
-              begin
-                bmpBitmap := StretchBitmap(bmpBitmap, IconSize, clBlack, True);
-              end;
-              Result := FPixmapList.Add(bmpBitmap);
-              FPixmapsFileNames.Add(AIconName, Pointer(Result));
-            end;
-        {$ENDIF}
-          end
-        else
-          begin
-            Result:= PtrInt(FPixmapsFileNames.List[fileIndex]^.Data);
-          end;
-      end
-  {$IF DEFINED(UNIX) and NOT DEFINED(DARWIN)}
-    else  // Load theme icon
-      begin
-        Result := LoadIconThemeIcon(AIconName, IconSize);
-      end;
-  {$ENDIF}
-  finally
-    FPixmapsLock.Release;
-  end;
-end;
-
-{$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-
-procedure TPixMapManager.CreateIconTheme;
-{$IFDEF LCLGTK2}
-begin
-  // get current gtk theme
-  FIconTheme:= gtk_icon_theme_get_for_screen(gdk_screen_get_default);
-  { // load custom theme
-  FIconTheme:= gtk_icon_theme_new;
-  gtk_icon_theme_set_custom_theme(FIconTheme, 'oxygen');
-  }
-end;
-{$ELSE}
-begin
-  FIconTheme:= TIconTheme.Create(GetCurrentIconTheme);
-end;
-{$ENDIF}
-
-procedure TPixMapManager.DestroyIconTheme;
-{$IFDEF LCLGTK2}
-begin
-  FIconTheme:= nil;
-end;
-{$ELSE}
-begin
-  if Assigned(FIconTheme) then
-    FreeAndNil(FIconTheme);
-end;
-{$ENDIF}
-
-procedure TPixMapManager.LoadMimeIconNames;
-const
-  mime_globs = '/usr/share/mime/globs';
-  mime_generic_icons = '/usr/share/mime/generic-icons';
-  pixmaps_cache = 'pixmaps.cache';
-  cache_signature: DWord = $44435043; // 'DCPC'
-  cache_version: DWord = 1;
-var
-  I, J, K: Integer;
-  globs: TStringListEx = nil;
-  generic_icons: TStringListEx = nil;
-  cache: TFileStreamEx = nil;
-  mTime: LongInt;
-  sMimeType,
-  sMimeIconName,
-  sExtension: String;
-  node: THTDataNode = nil;
-  iconsList: TStringList;
-  EntriesCount, IconsCount: Cardinal;
-  nodeList: TFPObjectList;
-begin
-  try
-    // Try to load from cache.
-    mTime:= mbFileAge(mime_globs);
-    if (mbFileAge(gpIniDir + pixmaps_cache) = mTime) and
-       (mbFileAccess(gpIniDir + pixmaps_cache, fmOpenRead)) and
-       (mbFileSize(gpIniDir + pixmaps_cache) > SizeOf(DWord) * 2) then
-    begin
-      cache := TFileStreamEx.Create(gpIniDir + pixmaps_cache, fmOpenRead);
-      if (cache.ReadDWord <> NtoBE(cache_signature)) or
-         (cache.ReadDWord <> cache_version) then
-      begin
-        FreeAndNil(cache);
-      end;
-    end;
-
-    if Assigned(cache) then
-      begin
-        EntriesCount := cache.ReadDWord;
-        FExtToMimeIconName.HashTableSize := EntriesCount;
-
-        // Each entry is a file extension with a list of icon names.
-        for I := 0 to EntriesCount - 1 do
-        begin
-          sExtension := cache.ReadAnsiString;
-          IconsCount := cache.ReadDWord;
-          iconsList := TStringList.Create;
-          FExtToMimeIconName.Add(sExtension, iconsList);
-          iconsList.Capacity := IconsCount;
-          for J := 0 to IconsCount - 1 do
-            iconsList.Add(cache.ReadAnsiString);
-        end;
-      end
-    else if mbFileAccess(mime_globs, fmOpenRead) then
-      begin
-        // Load mapping: MIME type -> file extension.
-        globs:= TStringListEx.Create;
-        globs.NameValueSeparator:= ':';
-        globs.LoadFromFile(mime_globs);
-
-        // Try to load mapping: MIME type -> generic MIME icon name.
-        if mbFileExists(mime_generic_icons) then
-          begin
-            generic_icons:= TStringListEx.Create;
-            generic_icons.NameValueSeparator:= ':';
-            generic_icons.LoadFromFile(mime_generic_icons);
-          end;
-
-        EntriesCount := 0;
-        // Create mapping: file extension -> list of MIME icon names.
-        for I:= 0 to globs.Count - 1 do
-          if (globs.Strings[I]    <> '') and   // bypass empty lines
-             (globs.Strings[I][1] <> '#') then // and comments
-          begin
-            sMimeType := globs.Names[I];
-            sMimeIconName:= StringReplace(sMimeType, '/', '-', []);
-            sExtension:= ExtractFileExt(globs.ValueFromIndex[I]);
-
-            // Support only extensions, not full file name masks.
-            if (sExtension <> '') and (sExtension <> '.*') then
-            begin
-              Delete(sExtension, 1, 1);
-
-              node := THTDataNode(FExtToMimeIconName.Find(sExtension));
-              if not Assigned(node) then
-                begin
-                  iconsList := TStringList.Create;
-                  FExtToMimeIconName.Add(sExtension, iconsList);
-                  Inc(EntriesCount);
-                end
-              else
-                iconsList := TStringList(node.Data);
-
-              if iconsList.IndexOf(sMimeIconName) < 0 then
-                iconsList.Add(sMimeIconName);
-
-              // Shared-mime-info spec says:
-              // "If [generic-icon] is not specified then the mimetype is used to generate the
-              // generic icon by using the top-level media type (e.g. "video" in "video/ogg")
-              // and appending "-x-generic" (i.e. "video-x-generic" in the previous example)."
-              if Assigned(generic_icons) then
-                begin
-                  J := generic_icons.IndexOfName(sMimeType);
-                  if J <> -1 then
-                    sMimeIconName := generic_icons.ValueFromIndex[J] // found generic icon
-                  else
-                    sMimeIconName := Copy2Symb(sMimeIconName, '-') + '-x-generic';
-                end
-              else
-                sMimeIconName := Copy2Symb(sMimeIconName, '-') + '-x-generic';
-
-              if iconsList.IndexOf(sMimeIconName) < 0 then
-                iconsList.Add(sMimeIconName);
-            end;
-          end;
-
-        // save to cache
-        cache := TFileStreamEx.Create(gpIniDir + pixmaps_cache, fmCreate);
-        cache.WriteDWord(NtoBE(cache_signature));
-        cache.WriteDWord(cache_version);
-        cache.WriteDWord(EntriesCount);
-        for I := 0 to FExtToMimeIconName.HashTable.Count - 1 do
-          begin
-            nodeList := TFPObjectList(FExtToMimeIconName.HashTable.Items[I]);
-            if Assigned(nodeList) then
-              for J := 0 to nodeList.Count - 1 do
-                begin
-                  node := THtDataNode(nodeList.Items[J]);
-                  iconsList := TStringList(node.Data);
-                  cache.WriteAnsiString(node.Key);
-                  cache.WriteDWord(iconsList.Count);
-                  for K := 0 to iconsList.Count - 1 do
-                    cache.WriteAnsiString(iconsList.Strings[K]);
-                end;
-          end;
-        FreeAndNil(cache); // Close file
-        mbFileSetTime(gpIniDir + pixmaps_cache, mTime, 0, 0);
-      end;
-
-  finally
-    if Assigned(globs) then
-      FreeAndNil(globs);
-    if Assigned(generic_icons) then
-      FreeAndNil(generic_icons);
-    if Assigned(cache) then
-      FreeAndNil(cache);
-  end;
-end;
-
-function TPixMapManager.GetMimeIcon(AFileExt: String; AIconSize: Integer): PtrInt;
-var
-  I: Integer;
-  node: THTDataNode;
-  iconList: TStringList;
-begin
-  // This function is called under FPixmapsLock.
-
-  Result := -1;
-
-  // Search for an icon for this file extension.
-  node := THTDataNode(FExtToMimeIconName.Find(AFileExt));
-  if Assigned(node) then
-    begin
-      iconList := TStringList(node.Data);
-      // Try to load one of the icons in the list.
-      for I := 0 to iconList.Count - 1 do
-        begin
-          Result := LoadIconThemeIcon(iconList.Strings[I], AIconSize);
-          if Result <> -1 then break;
-        end;
-    end;
-end;
-
-function TPixMapManager.LoadIconThemeIcon(AIconName: String; AIconSize: Integer): PtrInt;
-var
-  fileIndex: PtrInt;
-{$IFDEF LCLGTK2}
-  pbPicture: PGdkPixbuf;
-  pgcIconName: Pgchar;
-{$ELSE}
-  sIconFileName: UTF8String;
-  bmpBitmap: Graphics.TBitmap;
-{$ENDIF}
-begin
-  // This function is called under FPixmapsLock.
-
-  fileIndex := FThemePixmapsFileNames.Find(AIconName);
-  if fileIndex < 0 then
-    begin
-{$IFDEF LCLGTK2}
-      pgcIconName:= Pgchar(AIconName);
-      pbPicture:= gtk_icon_theme_load_icon(FIconTheme, pgcIconName, AIconSize, GTK_ICON_LOOKUP_NO_SVG, nil);
-      if pbPicture <> nil then
-        begin
-          Result := FPixmapList.Add(pbPicture);
-          FThemePixmapsFileNames.Add(AIconName, Pointer(Result));
-        end
-      else
-        Result := -1;
-{$ELSE}
-      sIconFileName:= FIconTheme.FindIcon(AIconName, AIconSize);
-      if sIconFileName <> EmptyStr then
-        begin
-          bmpBitmap := CheckLoadPixmap(sIconFileName, False);
-          if Assigned(bmpBitmap) then
-            begin
-              Result := FPixmapList.Add(bmpBitmap); // add to list
-              FThemePixmapsFileNames.Add(AIconName, Pointer(Result));
-            end;
-        end
-      else
-        Result := -1;
-{$ENDIF}
-    end
-  else
-    Result := PtrInt(FThemePixmapsFileNames.List[fileIndex]^.Data);
-end;
-
-function TPixMapManager.GetIconByDesktopFile(sFileName: UTF8String; iDefaultIcon: PtrInt): PtrInt;
-var
-  I: PtrInt;
-  iniDesktop: TIniFileEx;
-  sIconName: UTF8String;
-begin
-  iniDesktop:= TIniFileEx.Create(sFileName, fmOpenRead);
-  try
-    sIconName:= iniDesktop.ReadString('Desktop Entry', 'Icon', EmptyStr);
-  finally
-    FreeThenNil(iniDesktop);
-  end;
-
-  I:= GetIconByName(sIconName);
-  if I < 0 then
-    Result:= iDefaultIcon
-  else
-    Result:= I;
-end;
-
-{$ENDIF} // Unix
-
-constructor TPixMapManager.Create;
-{$IFDEF MSWINDOWS}
-var
-  FileInfo : TSHFileInfoW;
-  iIconSize : Integer;
-{$ENDIF}
-begin
-  FExtList := TStringHashList.Create(True);
-  FPixmapsFileNames := TStringHashList.Create(True);
-  FPixmapList := TFPList.Create;
-  FDriveIconList := TStringList.Create;
-
-  {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-  FExtToMimeIconName := TFPDataHashTable.Create;
-  FThemePixmapsFileNames := TStringHashList.Create(True);
-  CreateIconTheme;
-  {$ENDIF}
-
-  {$IFDEF MSWINDOWS}
-  if gIconsSize = 16 then
-    iIconSize := SHGFI_SMALLICON
-  else
-    iIconSize := SHGFI_LARGEICON;
-
-  FSysImgList := SHGetFileInfoW(PWideChar(UTF8Decode(mbGetCurrentDir)),
-                                0,
-                                FileInfo,
-                                SizeOf(FileInfo),
-                                SHGFI_SYSICONINDEX or iIconSize);
-  {$ENDIF}
-
-  FPixmapsLock := syncobjs.TCriticalSection.Create;
-end;
-
-destructor TPixMapManager.Destroy;
-var
-  I : Integer;
-{$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-  J : Integer;
-  nodeList: TFPObjectList;
-{$ENDIF}
-begin
-  if Assigned(FPixmapList) then
-  begin
-    for I := 0 to FPixmapList.Count - 1 do
-      if Assigned(FPixmapList.Items[I]) then
-  {$IFDEF LCLGTK2}
-        g_object_unref(PGdkPixbuf(FPixmapList.Items[I]));
-  {$ELSE}
-        Graphics.TBitmap(FPixmapList.Items[I]).Free;
-  {$ENDIF}
-    FreeAndNil(FPixmapList);
-  end;
-
-  if Assigned(FExtList) then
-    FreeAndNil(FExtList);
-  if Assigned(FPixmapsFileNames) then
-    FreeAndNil(FPixmapsFileNames);
-
-  if Assigned(FDriveIconList) then
-  begin
-    for I := 0 to FDriveIconList.Count - 1 do
-      with FDriveIconList.Objects[I] as TDriveIconList do
-      begin
-        if Assigned(bmMediaFloppy) then FreeAndNil(bmMediaFloppy);
-        if Assigned(bmDriveHardDisk) then FreeAndNil(bmDriveHardDisk);
-        if Assigned(bmMediaFlash) then FreeAndNil(bmMediaFlash);
-        if Assigned(bmMediaOptical) then FreeAndNil(bmMediaOptical);
-        if Assigned(bmDriveNetwork) then FreeAndNil(bmDriveNetwork);
-        Free;
-      end;
-    FreeAndNil(FDriveIconList);
-  end;
-
-  {$IF DEFINED(MSWINDOWS)}
-  ImageList_Destroy(FSysImgList);
-  {$ELSEIF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-  DestroyIconTheme;
-
-  for I := 0 to FExtToMimeIconName.HashTable.Count - 1 do
-    begin
-      nodeList := TFPObjectList(FExtToMimeIconName.HashTable.Items[I]);
-      if Assigned(nodeList) then
-        for J := 0 to nodeList.Count - 1 do
-          TStringList(THtDataNode(nodeList.Items[J]).Data).Free;
-    end;
-
-  FreeThenNil(FExtToMimeIconName);
-  FreeThenNil(FThemePixmapsFileNames);
-  {$ENDIF}
-
-  FreeThenNil(FPixmapsLock);
-
-  inherited Destroy;
-end;
-
-procedure TPixMapManager.Load(const sFileName: String);
-var
-  slPixmapList: TStringList;
-  s:String;
-  sExt, sPixMap:String;
-  iekv:integer;
-  iPixMap:PtrInt;
-  sPixMapSize : String;
-  I : Integer;
-  Plugins : TStringList;
-  sCurrentPlugin : String;
-  iCurPlugCaps : Integer;
-begin
-  // This function doesn't need to be synchronized
-  // as long as it is called before creating the main form
-  // (via LoadPixMapManager in doublecmd.lpr).
-
-  //  load all drive icons
-  FDriveIconList.AddObject('16x16', TDriveIconList.Create);
-  FDriveIconList.AddObject('22x22', TDriveIconList.Create);
-  FDriveIconList.AddObject('32x32', TDriveIconList.Create);
-
-  sPixMapSize := FPixmapSize;  // save icon size path
-  for I:= 0 to FDriveIconList.Count - 1 do
-    with FDriveIconList.Objects[I] as TDriveIconList do
-    begin
-      FPixmapSize := FDriveIconList.Strings[I] + PathDelim;
-      bmMediaFloppy := CheckLoadPixmap('devices' + PathDelim + 'media-floppy.png');
-      bmDriveHardDisk := CheckLoadPixmap('devices' + PathDelim + 'drive-harddisk.png');
-      bmMediaFlash := CheckLoadPixmap('devices' + PathDelim + 'media-flash.png');
-      bmMediaOptical := CheckLoadPixmap('devices' + PathDelim + 'media-optical.png');
-      bmDriveNetwork:= CheckLoadPixmap('devices' + PathDelim + 'network-wired.png');
-    end;
-  // load emblems
-  if gIconsSize = 22 then
-    I:= 16
-  else
-    I:= gIconsSize div 2;
-  FPixmapSize := IntToStr(I) + 'x' + IntToStr(I) + PathDelim;
-  FiEmblemLinkID:= CheckAddPixmap('emblems' + PathDelim + 'emblem-symbolic-link.png', gIconsSize div 2);
-  FPixmapSize := sPixMapSize;  // restore icon size path
-
-  // add some standard icons
-  FiDefaultIconID:=CheckAddPixmap('mimetypes' + PathDelim + 'unknown.png');
-  FiDirIconID:=CheckAddPixmap('filesystems' + PathDelim + 'folder.png');
-  FiDirLinkIconID:=CheckAddPixmap('filesystems' + PathDelim + 'folder-link.png');
-  FiLinkIconID:=CheckAddPixmap('filesystems' + PathDelim + 'link.png');
-  FiUpDirIconID:=CheckAddPixmap('actions' + PathDelim + 'go-up.png');
-  FiArcIconID := CheckAddPixmap('mimetypes' + PathDelim + 'package-x-generic.png');
-  FiExeIconID:= CheckAddPixmap('mimetypes' + PathDelim + 'application-x-executable.png');
-  FiSortAscID := CheckAddPixmap('actions' + PathDelim + 'view-sort-ascending.png');
-  FiSortDescID := CheckAddPixmap('actions' + PathDelim + 'view-sort-descending.png');
-
-  { Load icons from doublecmd.ext }
-  for I := 0 to gExts.Count - 1 do
-    begin
-      gExts.Items[I].IconIndex:= FiDefaultIconID;
-      sPixMap := gExts.Items[I].Icon;
-      if mbFileExists(sPixMap) then
-        begin
-          iPixMap:= CheckAddPixmap(sPixMap, gIconsSize, False);
-          if iPixMap < 0 then Continue;
-          gExts.Items[I].IconIndex:= iPixMap;
-          //DebugLn('sPixMap = ',sPixMap, ' Index = ', IntToStr(iPixMap));
-
-          // set pixmap index for all extensions
-          for iekv := 0 to gExts.Items[I].Extensions.Count - 1 do
-            begin
-              sExt := gExts.Items[I].Extensions[iekv];
-              if FExtList.Find(sExt) < 0 then
-                FExtList.Add(sExt, TObject(iPixMap));
-            end;
-        end;
-    end;
-  {/ Load icons from doublecmd.ext }  
-  
-  if mbFileExists(sFileName) then
-  begin
-    slPixmapList:= TStringList.Create;
-    slPixmapList.LoadFromFile(sFileName);
-    try
-      for I:= 0 to slPixmapList.Count - 1 do
-      begin
-        s:= slPixmapList.Strings[I];
-        s:=Trim(lowercase(s));
-        iekv:=Pos('=',s);
-        if iekv=0 then
-          Continue;
-        sExt:=Copy(s,1, iekv-1);
-        sPixMap:=Copy(s, iekv+1, length(s)-iekv);
-        iPixMap:=CheckAddPixmap('mimetypes' + PathDelim + sPixMap);
-        if iPixMap<0 then
-          Continue;
-
-        if FExtList.Find(sExt)<0 then
-          FExtList.Add(sExt, TObject(iPixMap));
-      end;
-    finally
-      slPixmapList.Free;
-    end;
-  end;
-
-  (* Set archive icons *)
-  
-  Plugins := TStringList.Create;
-  gIni.ReadSectionRaw('PackerPlugins', Plugins);
-  
-  for I:=0 to Plugins.Count - 1 do
-        begin
-          sCurrentPlugin := Plugins.ValueFromIndex[I];
-          sExt := Plugins.Names[I];
-          if (Length(sExt) > 0) and (sExt[1] <> '#') then // if plugin not disabled
-            begin
-          iCurPlugCaps := StrToInt(Copy(sCurrentPlugin, 1, Pos(',',sCurrentPlugin) - 1));
-          if (iCurPlugCaps and PK_CAPS_HIDE) <> PK_CAPS_HIDE then
-            begin
-                if FExtList.Find(sExt) < 0 then
-                  FExtList.Add(sExt, TObject(FiArcIconID));
-            end;
-            end;
-        end; //for
-  Plugins.Free;
-  
-  (* /Set archive icons *)
-
-  {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-  if (gShowIcons <> sim_none) and (gShowIcons <> sim_standart) then
-    begin
-      LoadMimeIconNames;
-      {$IFNDEF LCLGTK2}
-      FIconTheme.Load;
-      {$ENDIF}
-    end;
-  {$ENDIF}
-end;
-
-function TPixMapManager.GetBitmap(iIndex: PtrInt; BkColor : TColor): Graphics.TBitmap;
-var
-  PPixmap: Pointer;
-  PixmapFromList: Boolean = False;
-{$IFDEF MSWINDOWS}
-  hicn: HICON;
-  Icon: TIcon = nil;
-{$ENDIF}
-begin
-  FPixmapsLock.Acquire;
-  try
-    if (iIndex >= 0) and (iIndex < FPixmapList.Count) then
-    begin
-      PPixmap := FPixmapList[iIndex];
-      PixmapFromList := True;
-    end;
-  finally
-    FPixmapsLock.Release;
-  end;
-
-  if PixmapFromList then
-  begin
-{$IFDEF LCLGTK2}
-    Result:= PixBufToBitmap(PGdkPixbuf(PPixmap));
-{$ELSE}
-    // Make a new copy.
-    Result := Graphics.TBitmap.Create;
-    Result.Assign(Graphics.TBitmap(PPixmap));
-{$ENDIF}
-  end
-  else
-{$IFDEF MSWINDOWS}
-  if iIndex >= $1000 then
-    begin
-      Result:= nil;
-      hicn:= ImageList_GetIcon(FSysImgList, iIndex - $1000, ILD_NORMAL);
-      if hicn <> 0 then
-        try
-          Icon := CreateIconFromHandle(hicn);
-          Result := Graphics.TBitmap.Create;
-          Result.Assign(Icon);
-        finally
-          FreeThenNil(Icon);
-          DestroyIcon(hicn);
-        end
-    end;
-{$ELSE}
-  Result:= nil;
-{$ENDIF}
-end;
-
-function TPixMapManager.DrawBitmap(iIndex: PtrInt; Canvas : TCanvas; X, Y: Integer) : Boolean;
-begin
-  Result := DrawBitmap(iIndex, Canvas, X, Y, gIconsSize, gIconsSize); // X, Y, 0, 0 - No bitmap stretching.
-end;
-
-function TPixMapManager.DrawBitmap(iIndex: PtrInt; Canvas: TCanvas; X, Y, Width, Height: Integer): Boolean;
-
-  procedure TrySetSize(aWidth, aHeight: Integer);
-  begin
-    if Width = 0 then
-      Width := aWidth;
-    if Height = 0 then
-      Height := aHeight;
-  end;
-
-var
-  PPixmap: Pointer;
-  PixmapFromList: Boolean = False;
-{$IFDEF MSWINDOWS}
-  hicn: HICON;
-  cx, cy: Integer;
-{$ENDIF}
-{$IFDEF LCLGTK2}
-  pbPicture : PGdkPixbuf;
-  iPixbufWidth : Integer;
-  iPixbufHeight : Integer;
-{$ELSE}
-  Bitmap: Graphics.TBitmap;
-  aRect: TRect;
-{$ENDIF}
-begin
-  Result := True;
-
-  FPixmapsLock.Acquire;
-  try
-    if (iIndex >= 0) and (iIndex < FPixmapList.Count) then
-    begin
-      PPixmap := FPixmapList[iIndex];
-      PixmapFromList := True;
-    end;
-  finally
-    FPixmapsLock.Release;
-  end;
-
-  if PixmapFromList then
-  begin
-  {$IFDEF LCLGTK2}
-    pbPicture := PGdkPixbuf(PPixmap);
-    iPixbufWidth :=  gdk_pixbuf_get_width(pbPicture);
-    iPixbufHeight :=  gdk_pixbuf_get_height(pbPicture);
-    TrySetSize(iPixbufWidth, iPixbufHeight);
-    DrawPixbufAtCanvas(Canvas, pbPicture, 0, 0, X, Y, Width, Height);
-  {$ELSE}
-    Bitmap := Graphics.TBitmap(PPixmap);
-    TrySetSize(Bitmap.Width, Bitmap.Height);
-    aRect := Classes.Bounds(X, Y, Width, Height);
-    Canvas.StretchDraw(aRect, Bitmap);
-  {$ENDIF}
-  end
-  else
-  {$IFDEF MSWINDOWS}
-  if iIndex >= $1000 then
-    try
-      if ImageList_GetIconSize(FSysImgList, @cx, @cy) then
-        TrySetSize(cx, cy)
-      else
-        TrySetSize(gIconsSize, gIconsSize);
-
-      if (Height in [16, 32]) and (cx = Width) and (cy = Height) then
-        // for transparent
-        ImageList_Draw(FSysImgList, iIndex - $1000, Canvas.Handle, X, Y, ILD_TRANSPARENT)
-      else
-      begin
-        hicn:= ImageList_GetIcon(FSysImgList, iIndex - $1000, ILD_NORMAL);
-        try
-          if IsGdiPlusLoaded then
-            Result:= GdiPlusStretchDraw(hicn, Canvas.Handle, X, Y, Width, Height)
-          else
-            Result:= DrawIconEx(Canvas.Handle, X, Y, hicn, Width, Height, 0, 0, DI_NORMAL);
-        finally
-          DestroyIcon(hicn);
-        end;
-      end;
-    except
-      Result:= False;
-    end;
-
-  {$ELSE}
-    Result:= False;
-  {$ENDIF}
-end;
-
-function TPixMapManager.DrawBitmap(iIndex: PtrInt; AFile: TFile; DirectAccess: Boolean; Canvas: TCanvas; X, Y: Integer): Boolean;
-var
-  I: Integer;
-begin
-  Result:= DrawBitmap(iIndex, Canvas, X, Y);
-
-  if gIconOverlays then
-    begin
-    {$IFDEF MSWINDOWS}
-      if DirectAccess then
-      begin
-        I:= SHGetOverlayIconIndex(AFile.Path, AFile.Name);
-        if I >= 0 then
-          Result:= DrawBitmap(I + $1000, Canvas, X, Y);
-      end;
-    {$ELSE}
-      if AFile.IsLink then
-        begin
-          I:= gIconsSize div 2;
-          Result:= DrawBitmap(FiEmblemLinkID, Canvas, X, Y + I, I, I);
-        end;
-    {$ENDIF}
-    end;
-end;
-
-function TPixMapManager.GetIconBySortingDirection(SortingDirection: TSortDirection): PtrInt;
-begin
-  case SortingDirection of
-    sdDescending:
-      begin
-        Result := FiSortDescID;
-      end;
-    sdAscending:
-      begin
-        Result := FiSortAscID;
-      end;
-    else
-      Result := -1;
-  end;
-end;
-
-function TPixMapManager.GetIconByFile(AFile: TFile; DirectAccess: Boolean): PtrInt;
-var
-  Ext: String;
-{$IFDEF MSWINDOWS}
-  sFileName: String;
-  FileInfo: TSHFileInfoW;
-  dwFileAttributes: DWORD;
-  uFlags: UINT;
-{$ENDIF}
-begin
-  Result := -1;
-  if not Assigned(AFile) then Exit;
-
-  with AFile do
-  begin
-    if Name = '..' then
-    begin
-      Result := FiUpDirIconID;
-      Exit;
-    end;
-
-    if IsLinkToDirectory then
-    begin
-    {$IFDEF UNIX}
-      if gIconOverlays then
-        Result:= FiDirIconID
-      else
-    {$ENDIF}
-      Result := FiDirLinkIconID;
-      Exit;
-    end;
-
-    if IsDirectory then
-    begin
-      {$IF DEFINED(MSWINDOWS)}
-      if (gShowIcons = sim_standart) or
-         (not (DirectAccess and mbFileExists(Path + Name + '\desktop.ini'))) or
-         (GetDeviceCaps(Application.MainForm.Canvas.Handle, BITSPIXEL) < 16) then
-      {$ELSEIF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-      if (gShowIcons = sim_all_and_exe) and
-         (DirectAccess and mbFileExists(Path + Name + '/.directory')) then
-        begin
-          Result:= GetIconByDesktopFile(Path + Name + '/.directory', FiDirIconID);
-          Exit;
-        end
-      else
-      {$ENDIF}
-        begin
-          Exit(FiDirIconID);
-        end;
-    end
-    else // not directory
-    begin
-      if IsLink and not gIconOverlays then
-        Exit(FiLinkIconID);
-
-      if (Extension = '') then
-        Exit(FiDefaultIconID);
-
-      Ext := UTF8LowerCase(Extension);
-
-      {$IF DEFINED(MSWINDOWS)}
-      if gShowIcons <> sim_all_and_exe then
-        begin
-          if Ext = 'exe' then
-            Exit(FiExeIconID)
-          else if Ext = 'lnk' then
-            Exit(FiLinkIconID)
-          else if Ext = 'ico' then
-            Exit(FiDefaultIconID)
-        end;
-      {$ELSEIF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-      if gShowIcons = sim_all_and_exe then
-        begin
-          if DirectAccess and (Ext = 'desktop') then
-            begin
-              Result:= GetIconByDesktopFile(Path + Name, FiDefaultIconID);
-              Exit;
-            end;
-        end;
-      {$ENDIF}
-
-      FPixmapsLock.Acquire;
-      try
-        Result := FExtList.Find(Ext);
-        if Result >= 0 then
-          Exit(PtrInt(FExtList.List[Result]^.Data));
-
-        if gShowIcons = sim_standart then
-          Exit(FiDefaultIconID);
-
-        {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
-
-        Result := GetMimeIcon(Ext, gIconsSize);
-        if Result < 0 then
-          Result := FiDefaultIconID;
-
-        // Default icon should also be associated with the extension
-        // because it will be faster to find next time.
-        FExtList.Add(Ext, Pointer(Result));
-
-        {$ENDIF}
-
-      finally
-        FPixmapsLock.Release;
-      end;
-    end;
-
-    {$IF DEFINED(MSWINDOWS)}
-
-    if DirectAccess then
-      begin
-        dwFileAttributes := 0;
-        uFlags := SHGFI_SYSICONINDEX;
-        sFileName := Path + Name;
-      end
-    else
-      begin
-        dwFileAttributes := FILE_ATTRIBUTE_NORMAL;
-        uFlags := SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES;
-        sFileName := Name;
-      end;
-
-    if gIconsSize = 16 then
-      uFlags := uFlags or SHGFI_SMALLICON
-    else
-      uFlags := uFlags or SHGFI_LARGEICON;
-
-    if (SHGetFileInfoW(PWideChar(UTF8Decode(sFileName)),
-                       dwFileAttributes,
-                       FileInfo,
-                       SizeOf(FileInfo),
-                       uFlags) = 0) then
-    begin
-      // Could not retrieve icon.
-      if IsDirectory then
-        Result := FiDirIconID
-      else
-        Result := FiDefaultIconID;
-    end
-    else
-    begin
-      Result := FileInfo.iIcon + $1000;
-
-      if (not IsDirectory) and
-         (Ext <> 'exe') and
-         (Ext <> 'ico') and
-         (Ext <> 'lnk') then
-      begin
-        FPixmapsLock.Acquire;
-        try
-          FExtList.Add(Ext, Pointer(Result));
-        finally
-          FPixmapsLock.Release;
-        end;
-      end;
-    end;
-
-    {$ENDIF}
-  end;
-end;
-
-function TPixMapManager.GetIconByName(const AIconName: UTF8String): PtrInt;
-begin
-  Result := CheckAddPixmap(AIconName, gIconsSize, False);
-end;
-
-function TPixMapManager.GetDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
-{$IFDEF MSWINDOWS}
-var
-  SFI: TSHFileInfo;
-  Icon: TIcon = nil;
-  uFlags: UINT;
-  iIconSmall,
-  iIconLarge: Integer;
-{$ENDIF}
-begin
-  Result := nil;
-{$IFDEF MSWINDOWS}
-  if GetDeviceCaps(Application.MainForm.Canvas.Handle, BITSPIXEL) < 15 then Exit;
-  if (not gCustomDriveIcons) and (GetDeviceCaps(Application.MainForm.Canvas.Handle, BITSPIXEL) > 16) then
-    begin
-      SFI.hIcon := 0;
-      Result := Graphics.TBitMap.Create;
-      iIconSmall:= GetSystemMetrics(SM_CXSMICON);
-      iIconLarge:= GetSystemMetrics(SM_CXICON);
-
-      if (IconSize = 16) and (iIconSmall = 16) then // standart small icon
-        uFlags := SHGFI_SMALLICON // Use small icon
-      else if (IconSize = 32) and (iIconLarge = 32) then // standart large icon
-        uFlags := SHGFI_LARGEICON // Use large icon
-      else if IconSize > iIconSmall then
-        uFlags := SHGFI_LARGEICON // Use large icon
-      else
-        uFlags := SHGFI_SMALLICON; // Use small icon
-
-      if (SHGetFileInfo(PChar(Drive^.Path), 0, SFI, SizeOf(SFI), uFlags or SHGFI_ICON) <> 0) and
-          (SFI.hIcon <> 0) then
-        begin
-          if (IconSize = iIconSmall) or (IconSize = iIconLarge) then // standart icon size
-            try
-              Icon := CreateIconFromHandle(SFI.hIcon);
-              Result.Assign(Icon);
-            finally
-              FreeThenNil(Icon);
-              DestroyIcon(SFI.hIcon);
-            end
-          else // non standart icon size
-            try
-              Icon := CreateIconFromHandle(SFI.hIcon);
-              Result.Assign(Icon);
-              Result := StretchBitmap(Result, IconSize, clBackColor, True);
-            finally
-              FreeThenNil(Icon);
-              DestroyIcon(SFI.hIcon);
-            end
-        end;
-    end // not gCustomDriveIcons
-  else
-{$ENDIF}
-    begin
-      Result := GetBuiltInDriveIcon(Drive, IconSize, clBackColor);
-    end;
-end;
-
-function TPixMapManager.GetBuiltInDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
-var
-  DriveIconListIndex: Integer;
-  Bitmap: Graphics.TBitmap;
-begin
-{$IFDEF MSWINDOWS}
-  if GetDeviceCaps(Application.MainForm.Canvas.Handle, BITSPIXEL) < 15 then Exit(nil);
-{$ENDIF}
-  case IconSize of
-  16: // Standart 16x16 icon size
-    DriveIconListIndex := 0;
-  22:  // Standart 22x22 icon size
-    DriveIconListIndex := 1;
-  32:  // Standart 32x32 icon size
-    DriveIconListIndex := 2;
-  else  // for non standart icon size use more large icon for stretch
-    DriveIconListIndex := 2;
-  end;
-  with FDriveIconList.Objects[DriveIconListIndex] as TDriveIconList do
-  case Drive^.DriveType of
-  dtFloppy:
-    Bitmap := bmMediaFloppy;
-  dtFixed:
-    Bitmap := bmDriveHardDisk;
-  dtFlash:
-    Bitmap := bmMediaFlash;
-  dtCDROM:
-    Bitmap := bmMediaOptical;
-  dtNetwork:
-    Bitmap := bmDriveNetwork;
-  else
-    Bitmap := bmDriveHardDisk;
-  end;
-  //  if need stretch icon
-  if (IconSize <> 16) and (IconSize <> 22) and (IconSize <> 32) then
-    begin
-      Result := StretchBitmap(Bitmap, IconSize, clBackColor, False);
-    end
-  else
-    begin
-      Result := Graphics.TBitmap.Create;
-      Result.Assign(Bitmap);
-    end;
-  // 'Bitmap' should not be freed, because it only points to DriveIconList.
-end;
-
-function TPixMapManager.GetDefaultDriveIcon(IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
-var
-  Drive: TDrive = (Name: ''; Path: ''; DriveLabel: ''; DriveType: dtFixed);
-begin
-  Result := GetBuiltInDriveIcon(@Drive, IconSize, clBackColor);
-end;
-
-function TPixMapManager.GetArchiveIcon(IconSize: Integer; clBackColor : TColor) : Graphics.TBitmap;
-begin
-  Result := GetBitmap(FiArcIconID, clBackColor);
-  if Assigned(Result) then
-  begin
-    //  if need stretch icon
-    if (IconSize <> gIconsSize) then
-      begin
-        Result := StretchBitmap(Result, IconSize, clBackColor, True);
-      end;
-  end;
-end;
-
-procedure LoadPixMapManager;
-begin
-  PixMapManager:=TPixMapManager.Create;
-  PixMapManager.FPixmapSize:= IntToStr(gIconsSize) + 'x' + IntToStr(gIconsSize) + PathDelim;
-  PixMapManager.Load(gpIniDir+'pixmaps.txt');
-end;
-
-initialization
-
-finalization
-
-  if Assigned(PixMapManager) then
-    FreeAndNil(PixMapManager);
-
-end.
-
+{
+   File name: uPixMapManager.pas
+   Date:      2004/04/xx
+   Author:    Radek Cervinka  <[email protected]>
+
+   Fast pixmap memory manager a loader
+
+   Copyright (C) 2004
+   
+   contributors:
+   
+   Copyright (C) 2006-2009  Koblov Alexander ([email protected])
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License as
+   published by the Free Software Foundation; either version 2 of the
+   License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful, but
+   WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   in a file called COPYING along with this program; if not, write to
+   the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
+   02139, USA.
+}
+
+
+unit uPixMapManager;
+
+{$mode objfpc}{$H+}
+
+interface
+
+{
+  GTK2 is used directly in PixmapManager, because FPC/Lazarus draws bitmaps
+  without alpha channel under GTK2, so bitmaps looks ugly.
+  If this problem will be fixed then GTK2 specific code could be dropped.
+}
+
+uses
+  Classes, SysUtils, Graphics, syncobjs,
+  uOSUtils, uFileSorting, StringHashList, uFile
+  {$IF DEFINED(UNIX)}
+  , uClassesEx
+    {$IF NOT DEFINED(DARWIN)}
+    , contnrs
+      {$IFDEF LCLGTK2}
+      , gtk2
+      {$ELSE}
+      , uIconTheme, uMyIconTheme
+      {$ENDIF}
+    {$ENDIF}
+  {$ENDIF};
+
+type
+  TDriveIconList = class
+    bmMediaFloppy,
+    bmDriveHardDisk,
+    bmMediaFlash,
+    bmMediaOptical,
+    bmDriveNetwork: TBitmap;
+  end;
+
+  { TPixMapManager }
+
+  TPixMapManager = class
+  
+  private
+    {en
+       Maps file extension to index of bitmap (in FPixmapList) for this file extension.
+    }
+    FExtList : TStringHashList;
+    {en
+       Maps icon filename to index of bitmap (in FPixmapList) for this icon.
+       Uses absolute file names.
+    }
+    FPixmapsFileNames : TStringHashList;
+    {en
+       A list of loaded bitmaps.
+       Stores TBitmap objects (on GTK2 it stores PGdkPixbuf pointers).
+    }
+    FPixmapList : TFPList;
+    {en
+       Lock used to synchronize access to PixmapManager storage.
+    }
+    FPixmapsLock: TCriticalSection;
+
+    FDriveIconList : TStringList;
+    FiDirIconID : PtrInt;
+    FiDirLinkIconID : PtrInt;
+    FiLinkIconID : PtrInt;
+    FiEmblemLinkID: PtrInt;
+    FiUpDirIconID : PtrInt;
+    FiDefaultIconID : PtrInt;
+    FiExeIconID : PtrInt;
+    FiArcIconID : PtrInt;
+    FiSortAscID : PtrInt;
+    FiSortDescID : PtrInt;
+    FPixmapSize : String;
+    {$IF DEFINED(MSWINDOWS)}
+    FSysImgList : THandle;
+    {$ELSEIF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+    {en
+       Maps file extension to MIME icon name(s).
+    }
+    FExtToMimeIconName: TFPDataHashTable;
+    {en
+       Maps mime icon name to index of bitmap (in FPixmapList) for this icon.
+    }
+    FThemePixmapsFileNames: TStringHashList;
+    {$IFDEF LCLGTK2}
+    FIconTheme: PGtkIconTheme;
+    {$ELSE}
+    FIconTheme: TIconTheme;
+    {$ENDIF}
+    {$ENDIF}
+  protected
+    function LoadBitmap(AIconFileName: String; out ABitmap: TBitmap): Boolean;
+    function CheckLoadPixmap(const AIconName: String; bUsePixmapPath : Boolean = True) : TBitmap;
+    function CheckAddPixmap(AIconName: String; IconSize : Integer = 0; bUsePixmapPath : Boolean = True): PtrInt;
+  {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+    procedure CreateIconTheme;
+    procedure DestroyIconTheme;
+    {en
+       Loads MIME icons names and creates a mapping: file extension -> MIME icon name.
+       Doesn't need to be synchronized as long as it's only called from Load().
+    }
+    procedure LoadMimeIconNames;
+    {en
+       Loads a theme icon with a specific MIME icon name.
+       This function should only be called under FPixmapLock.
+    }
+    function LoadIconThemeIcon(AIconName: String; AIconSize: Integer): PtrInt;
+    {en
+       Retrieves index of a theme icon based on file extension.
+       Loads the icon if it is not yet loaded into PixmapManager.
+       This function should only be called under FPixmapLock.
+    }
+    function GetMimeIcon(AFileExt: String; AIconSize: Integer): PtrInt;
+    {en
+       It is synchronized in GetIconByName->CheckAddPixmap.
+    }
+    function GetIconByDesktopFile(sFileName: UTF8String; iDefaultIcon: PtrInt): PtrInt;
+  {$ENDIF}
+    function GetBuiltInDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Load(const sFileName : String);
+    function GetBitmap(iIndex : PtrInt; BkColor : TColor) : TBitmap; // Always returns new copy.
+    function DrawBitmap(iIndex: PtrInt; Canvas : TCanvas; X, Y: Integer) : Boolean;
+    {en
+       Draws bitmap stretching it if needed to Width x Height.
+       If Width is 0 then full bitmap width is used.
+       If Height is 0 then full bitmap height is used.
+       @param(iIndex
+              Index of pixmap manager's bitmap.)
+    }
+    function DrawBitmap(iIndex: PtrInt; Canvas : TCanvas; X, Y, Width, Height: Integer) : Boolean;
+    function DrawBitmap(iIndex: PtrInt; AFile: TFile; DirectAccess: Boolean; Canvas : TCanvas; X, Y: Integer) : Boolean;
+    function GetIconBySortingDirection(SortingDirection: TSortDirection): PtrInt;
+    function GetIconByFile(AFile: TFile; DirectAccess: Boolean): PtrInt;
+    function GetIconByName(const AIconName: UTF8String): PtrInt;
+    function GetDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
+    function GetDefaultDriveIcon(IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
+    function GetArchiveIcon(IconSize: Integer; clBackColor : TColor) : Graphics.TBitmap;
+  end;
+
+function StretchBitmap(var bmBitmap : Graphics.TBitmap; iIconSize : Integer;
+                       clBackColor : TColor; bFreeAtEnd : Boolean = False) : Graphics.TBitmap;
+function LoadBitmapFromFile(sFileName : String; iIconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
+
+var
+  PixMapManager:TPixMapManager = nil;
+
+procedure LoadPixMapManager;
+
+implementation
+
+uses
+  GraphType, LCLIntf, LCLType, LCLProc, Forms, FileUtil, uGlobsPaths, WcxPlugin,
+  uGlobs, uDCUtils, uFileSystemFile, uReSample
+  {$IFDEF LCLGTK2}
+    , uPixMapGtk, gtkdef, gdk2pixbuf, gdk2, glib2
+  {$ENDIF}
+  {$IFDEF MSWINDOWS}
+    , CommCtrl, ShellAPI, Windows, uIcoFiles, uGdiPlus, IntfGraphics, uShlObjAdditional
+  {$ELSE}
+    , StrUtils
+  {$ENDIF}
+  ;
+
+function StretchBitmap(var bmBitmap : Graphics.TBitmap; iIconSize : Integer;
+                       clBackColor : TColor; bFreeAtEnd : Boolean = False) : Graphics.TBitmap;
+var
+  memstream: TMemoryStream;
+begin
+  Result := Graphics.TBitMap.Create;
+  Result.SetSize(iIconSize, iIconSize);
+  if bmBitmap.RawImage.Description.AlphaPrec <> 0 then // if bitmap has alpha channel
+    Stretch(bmBitmap, Result, ResampleFilters[2].Filter, ResampleFilters[2].Width)
+  else
+    with Result do
+    begin
+      Canvas.Brush.Color := clBackColor;
+      Canvas.FillRect(Canvas.ClipRect);
+      Canvas.StretchDraw(Canvas.ClipRect, bmBitmap);
+      { For drawing color transparent bitmaps }
+      memstream := TMemoryStream.Create;
+      try
+        SaveToStream(memstream);
+        memstream.position := 0;
+        LoadFromStream(memstream);
+      finally
+        memstream.free;
+      end;
+      Transparent := True;
+      if bmBitmap.RawImage.Description.MaskBitsPerPixel = 0 then
+        TransparentColor := clBackColor;
+    end; //  with
+  if bFreeAtEnd then
+    FreeAndNil(bmBitmap);
+end;
+
+function LoadBitmapFromFile(sFileName : String; iIconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
+var
+{$IFDEF MSWINDOWS}
+  iPos,
+  iIconIndex,
+  iIconLarge,
+  iIconSmall: Integer;
+  phIcon: HICON = INVALID_HANDLE_VALUE;
+  phIconLarge,
+  phIconSmall : HICON;
+  Icon : TIcon = nil;
+{$ENDIF}
+  AFile: TFileSystemFile;
+  iIndex : PtrInt;
+  sExtFilter,
+  sGraphicFilter : String;
+  bFreeAtEnd : Boolean;
+  bmStandartBitmap : Graphics.TBitMap = nil;
+  {$IFDEF LCLGTK2}
+  pbPicture : PGdkPixbuf;
+  {$ENDIF}
+begin
+  Result := nil;
+
+  sFileName:= mbExpandFileName(sFileName);
+{$IFDEF MSWINDOWS}
+  iIconIndex := -1;
+  iPos :=Pos(',', sFileName);
+  if iPos <> 0 then
+    begin
+      iIconIndex := StrToIntDef(Copy(sFileName, iPos + 1, Length(sFileName) - iPos), 0);
+      sFileName := Copy(sFileName, 1, iPos - 1);
+    end;
+
+  if FileIsExeLib(sFileName) then
+    begin
+      if iIconIndex < 0 then iIconIndex := 0;
+      ExtractIconExW(PWChar(UTF8Decode(sFileName)), iIconIndex, phIconLarge, phIconSmall, 1);
+      // Get system metrics
+      iIconSmall:= GetSystemMetrics(SM_CXSMICON);
+      iIconLarge:= GetSystemMetrics(SM_CXICON);
+      if (iIconSize = 16) and (iIconSmall = 16) then
+        phIcon:= phIconSmall    // Use small icon
+      else if (iIconSize = 32) and (iIconLarge = 32) then
+        phIcon:= phIconLarge;   // Use large icon
+
+      if phIcon <> INVALID_HANDLE_VALUE then // standart icon size
+        try
+          Result:= Graphics.TBitMap.Create;
+          Icon:= CreateIconFromHandle(phIcon);
+          Result.Assign(Icon);
+        finally
+          FreeThenNil(Icon);
+        end
+      else // non standart icon size
+        try
+          bmStandartBitmap := Graphics.TBitMap.Create;
+          if iIconSize > iIconSmall then
+            phicon := phIconLarge // Use large icon
+          else
+            phicon := phIconSmall; // Use small icon
+          Icon:= CreateIconFromHandle(phIcon);
+          bmStandartBitmap.Assign(Icon);
+          Result:= StretchBitmap(bmStandartBitmap, iIconSize, clBackColor, True);
+        finally
+          FreeThenNil(Icon)
+        end;  // non standart size
+      DestroyIcon(phIconLarge);
+      DestroyIcon(phIconSmall);
+    end  // IsExecutable
+  else
+{$ENDIF}
+    begin
+      bFreeAtEnd := True;
+      sExtFilter := UTF8LowerCase(ExtractFileExt(sFileName)) + ';';
+      sGraphicFilter := GraphicFilter(TGraphic);
+      // if file is graphic
+      if (Pos(sExtFilter, sGraphicFilter) <> 0) and mbFileExists(sFileName) then
+      begin
+        {$IFDEF LCLGTK2}
+        pbPicture := gdk_pixbuf_new_from_file(PChar(sFileName), nil);
+        if pbPicture <> nil then
+        begin
+          bmStandartBitmap:= PixBufToBitmap(pbPicture);
+          gdk_pixmap_unref(pbPicture);
+        end
+        else // Try loading the standard way.
+        {$ELSE}
+        if not PixMapManager.LoadBitmap(sFileName, bmStandartBitmap) then
+          Exit;
+        {$ENDIF}
+      end
+      else // get file icon by ext
+        begin
+          if mbFileExists(sFileName) or mbDirectoryExists(sFileName) then
+            begin
+              AFile := TFileSystemFile.Create(sFileName);
+              iIndex := PixMapManager.GetIconByFile(AFile, True);
+              bmStandartBitmap := PixMapManager.GetBitmap(iIndex, clBackColor);
+              FreeAndNil(AFile);
+            end
+          else  // file not found
+            begin
+              Exit(nil);
+            end;
+        end;
+
+      // if need stretch icon
+      if  (iIconSize <> bmStandartBitmap.Height) or (iIconSize <> bmStandartBitmap.Width) then
+        Result := StretchBitmap(bmStandartBitmap, iIconSize, clBackColor, bFreeAtEnd)
+      else
+        Result := bmStandartBitmap;
+    end;  // IsExecutable else
+end;
+
+{ TPixMapManager }
+
+function TPixMapManager.LoadBitmap(AIconFileName: String; out ABitmap: Graphics.TBitmap): Boolean;
+var
+  Picture: TPicture;
+begin
+  Result:= False;
+  ABitmap:= nil;
+  try
+    Picture := TPicture.Create;
+    try
+      Picture.LoadFromFile(AIconFileName);
+      //Picture.Graphic.Transparent := True;
+
+      ABitmap := Graphics.TBitmap.Create;
+      ABitmap.Assign(Picture.Bitmap);
+
+      // if unsupported BitsPerPixel then exit
+      if ABitmap.RawImage.Description.BitsPerPixel > 32 then
+        raise EInvalidGraphic.Create('Unsupported bits per pixel');
+
+      Result:= True;
+    finally
+      FreeAndNil(Picture);
+    end;
+  except
+    on e: Exception do
+      begin
+        if Assigned(ABitmap) then
+          FreeAndNil(ABitmap);
+        DebugLn(Format('Error: Cannot load pixmap [%s] : %s',[AIconFileName, e.Message]));
+      end;
+  end;
+end;
+
+function TPixMapManager.CheckLoadPixmap(const AIconName: String; bUsePixmapPath : Boolean = True): Graphics.TBitmap;
+var
+  sFileName: String;
+begin
+  Result:= nil;
+
+  if bUsePixmapPath then
+    sFileName:= gpPixmapPath + FPixmapSize + AIconName
+  else
+    sFileName:= AIconName;
+    
+  if not mbFileExists(sFileName) then
+    begin
+      DebugLn(Format('Warning: pixmap [%s] not exists!',[sFileName]));
+      Exit;
+    end;
+  LoadBitmap(sFileName, Result);
+end;
+
+function TPixMapManager.CheckAddPixmap(AIconName: String; IconSize : Integer; bUsePixmapPath : Boolean): PtrInt;
+var
+  fileIndex: PtrInt;
+  {$IFDEF LCLGTK2}
+  pbPicture : PGdkPixbuf;
+  {$ELSE}
+  bmpBitmap: Graphics.TBitmap;
+  {$ENDIF}
+begin
+  Result:= -1;
+  if AIconName = EmptyStr then Exit;
+
+  if IconSize = 0 then IconSize:= gIconsSize;
+
+  FPixmapsLock.Acquire;
+  try
+    if bUsePixmapPath or (GetPathType(AIconName) = ptAbsolute) then
+      begin
+        if bUsePixmapPath then
+          AIconName := gpPixmapPath + FPixmapSize + AIconName;
+
+        // Determine if this file is already loaded.
+        fileIndex := FPixmapsFileNames.Find(AIconName);
+        if fileIndex < 0 then
+          begin
+            if not mbFileExists(AIconName) then
+              begin
+                DebugLn(Format('Warning: pixmap [%s] not exists!', [AIconName]));
+                Exit;
+              end;
+        {$IFDEF LCLGTK2}
+            pbPicture := gdk_pixbuf_new_from_file_at_size(PChar(AIconName), IconSize, IconSize, nil);
+            if Assigned(pbPicture) then
+              begin
+                Result := FPixmapList.Add(pbPicture);
+                FPixmapsFileNames.Add(AIconName, Pointer(Result));
+              end
+            else
+              DebugLn(Format('Error: pixmap [%s] not loaded!', [AIconName]));
+        {$ELSE}
+            if LoadBitmap(AIconName, bmpBitmap) then
+            begin
+              // Shrink big bitmaps before putting them into PixmapManager,
+              // to speed up later drawing.
+              //
+              // Note: Transparent bitmaps may lose transparency, because
+              // they must drawn onto a background, so we allow smaller bitmaps
+              // up to 48x48 (icons for example) to load in full size and they
+              // are resized upon drawing.
+              //
+              // TODO:
+              // This should resize any non-transparent,
+              // non-alpha channel bitmaps to gIconsSize
+              // (so if Width<>gIconsSize or Height<>gIconsSize then Resize).
+              if (bmpBitmap.Width > 48) or (bmpBitmap.Height > 48) then
+              begin
+                bmpBitmap := StretchBitmap(bmpBitmap, IconSize, clBlack, True);
+              end;
+              Result := FPixmapList.Add(bmpBitmap);
+              FPixmapsFileNames.Add(AIconName, Pointer(Result));
+            end;
+        {$ENDIF}
+          end
+        else
+          begin
+            Result:= PtrInt(FPixmapsFileNames.List[fileIndex]^.Data);
+          end;
+      end
+  {$IF DEFINED(UNIX) and NOT DEFINED(DARWIN)}
+    else  // Load theme icon
+      begin
+        Result := LoadIconThemeIcon(AIconName, IconSize);
+      end;
+  {$ENDIF}
+  finally
+    FPixmapsLock.Release;
+  end;
+end;
+
+{$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+
+procedure TPixMapManager.CreateIconTheme;
+{$IFDEF LCLGTK2}
+begin
+  // get current gtk theme
+  FIconTheme:= gtk_icon_theme_get_for_screen(gdk_screen_get_default);
+  { // load custom theme
+  FIconTheme:= gtk_icon_theme_new;
+  gtk_icon_theme_set_custom_theme(FIconTheme, 'oxygen');
+  }
+end;
+{$ELSE}
+begin
+  FIconTheme:= TIconTheme.Create(GetCurrentIconTheme);
+end;
+{$ENDIF}
+
+procedure TPixMapManager.DestroyIconTheme;
+{$IFDEF LCLGTK2}
+begin
+  FIconTheme:= nil;
+end;
+{$ELSE}
+begin
+  if Assigned(FIconTheme) then
+    FreeAndNil(FIconTheme);
+end;
+{$ENDIF}
+
+procedure TPixMapManager.LoadMimeIconNames;
+const
+  mime_globs = '/usr/share/mime/globs';
+  mime_generic_icons = '/usr/share/mime/generic-icons';
+  pixmaps_cache = 'pixmaps.cache';
+  cache_signature: DWord = $44435043; // 'DCPC'
+  cache_version: DWord = 1;
+var
+  I, J, K: Integer;
+  globs: TStringListEx = nil;
+  generic_icons: TStringListEx = nil;
+  cache: TFileStreamEx = nil;
+  mTime: LongInt;
+  sMimeType,
+  sMimeIconName,
+  sExtension: String;
+  node: THTDataNode = nil;
+  iconsList: TStringList;
+  EntriesCount, IconsCount: Cardinal;
+  nodeList: TFPObjectList;
+begin
+  try
+    // Try to load from cache.
+    mTime:= mbFileAge(mime_globs);
+    if (mbFileAge(gpIniDir + pixmaps_cache) = mTime) and
+       (mbFileAccess(gpIniDir + pixmaps_cache, fmOpenRead)) and
+       (mbFileSize(gpIniDir + pixmaps_cache) > SizeOf(DWord) * 2) then
+    begin
+      cache := TFileStreamEx.Create(gpIniDir + pixmaps_cache, fmOpenRead);
+      if (cache.ReadDWord <> NtoBE(cache_signature)) or
+         (cache.ReadDWord <> cache_version) then
+      begin
+        FreeAndNil(cache);
+      end;
+    end;
+
+    if Assigned(cache) then
+      begin
+        EntriesCount := cache.ReadDWord;
+        FExtToMimeIconName.HashTableSize := EntriesCount;
+
+        // Each entry is a file extension with a list of icon names.
+        for I := 0 to EntriesCount - 1 do
+        begin
+          sExtension := cache.ReadAnsiString;
+          IconsCount := cache.ReadDWord;
+          iconsList := TStringList.Create;
+          FExtToMimeIconName.Add(sExtension, iconsList);
+          iconsList.Capacity := IconsCount;
+          for J := 0 to IconsCount - 1 do
+            iconsList.Add(cache.ReadAnsiString);
+        end;
+      end
+    else if mbFileAccess(mime_globs, fmOpenRead) then
+      begin
+        // Load mapping: MIME type -> file extension.
+        globs:= TStringListEx.Create;
+        globs.NameValueSeparator:= ':';
+        globs.LoadFromFile(mime_globs);
+
+        // Try to load mapping: MIME type -> generic MIME icon name.
+        if mbFileExists(mime_generic_icons) then
+          begin
+            generic_icons:= TStringListEx.Create;
+            generic_icons.NameValueSeparator:= ':';
+            generic_icons.LoadFromFile(mime_generic_icons);
+          end;
+
+        EntriesCount := 0;
+        // Create mapping: file extension -> list of MIME icon names.
+        for I:= 0 to globs.Count - 1 do
+          if (globs.Strings[I]    <> '') and   // bypass empty lines
+             (globs.Strings[I][1] <> '#') then // and comments
+          begin
+            sMimeType := globs.Names[I];
+            sMimeIconName:= StringReplace(sMimeType, '/', '-', []);
+            sExtension:= ExtractFileExt(globs.ValueFromIndex[I]);
+
+            // Support only extensions, not full file name masks.
+            if (sExtension <> '') and (sExtension <> '.*') then
+            begin
+              Delete(sExtension, 1, 1);
+
+              node := THTDataNode(FExtToMimeIconName.Find(sExtension));
+              if not Assigned(node) then
+                begin
+                  iconsList := TStringList.Create;
+                  FExtToMimeIconName.Add(sExtension, iconsList);
+                  Inc(EntriesCount);
+                end
+              else
+                iconsList := TStringList(node.Data);
+
+              if iconsList.IndexOf(sMimeIconName) < 0 then
+                iconsList.Add(sMimeIconName);
+
+              // Shared-mime-info spec says:
+              // "If [generic-icon] is not specified then the mimetype is used to generate the
+              // generic icon by using the top-level media type (e.g. "video" in "video/ogg")
+              // and appending "-x-generic" (i.e. "video-x-generic" in the previous example)."
+              if Assigned(generic_icons) then
+                begin
+                  J := generic_icons.IndexOfName(sMimeType);
+                  if J <> -1 then
+                    sMimeIconName := generic_icons.ValueFromIndex[J] // found generic icon
+                  else
+                    sMimeIconName := Copy2Symb(sMimeIconName, '-') + '-x-generic';
+                end
+              else
+                sMimeIconName := Copy2Symb(sMimeIconName, '-') + '-x-generic';
+
+              if iconsList.IndexOf(sMimeIconName) < 0 then
+                iconsList.Add(sMimeIconName);
+            end;
+          end;
+
+        // save to cache
+        cache := TFileStreamEx.Create(gpIniDir + pixmaps_cache, fmCreate);
+        cache.WriteDWord(NtoBE(cache_signature));
+        cache.WriteDWord(cache_version);
+        cache.WriteDWord(EntriesCount);
+        for I := 0 to FExtToMimeIconName.HashTable.Count - 1 do
+          begin
+            nodeList := TFPObjectList(FExtToMimeIconName.HashTable.Items[I]);
+            if Assigned(nodeList) then
+              for J := 0 to nodeList.Count - 1 do
+                begin
+                  node := THtDataNode(nodeList.Items[J]);
+                  iconsList := TStringList(node.Data);
+                  cache.WriteAnsiString(node.Key);
+                  cache.WriteDWord(iconsList.Count);
+                  for K := 0 to iconsList.Count - 1 do
+                    cache.WriteAnsiString(iconsList.Strings[K]);
+                end;
+          end;
+        FreeAndNil(cache); // Close file
+        mbFileSetTime(gpIniDir + pixmaps_cache, mTime, 0, 0);
+      end;
+
+  finally
+    if Assigned(globs) then
+      FreeAndNil(globs);
+    if Assigned(generic_icons) then
+      FreeAndNil(generic_icons);
+    if Assigned(cache) then
+      FreeAndNil(cache);
+  end;
+end;
+
+function TPixMapManager.GetMimeIcon(AFileExt: String; AIconSize: Integer): PtrInt;
+var
+  I: Integer;
+  node: THTDataNode;
+  iconList: TStringList;
+begin
+  // This function is called under FPixmapsLock.
+
+  Result := -1;
+
+  // Search for an icon for this file extension.
+  node := THTDataNode(FExtToMimeIconName.Find(AFileExt));
+  if Assigned(node) then
+    begin
+      iconList := TStringList(node.Data);
+      // Try to load one of the icons in the list.
+      for I := 0 to iconList.Count - 1 do
+        begin
+          Result := LoadIconThemeIcon(iconList.Strings[I], AIconSize);
+          if Result <> -1 then break;
+        end;
+    end;
+end;
+
+function TPixMapManager.LoadIconThemeIcon(AIconName: String; AIconSize: Integer): PtrInt;
+var
+  fileIndex: PtrInt;
+{$IFDEF LCLGTK2}
+  pbPicture: PGdkPixbuf;
+  pgcIconName: Pgchar;
+{$ELSE}
+  sIconFileName: UTF8String;
+  bmpBitmap: Graphics.TBitmap;
+{$ENDIF}
+begin
+  // This function is called under FPixmapsLock.
+
+  fileIndex := FThemePixmapsFileNames.Find(AIconName);
+  if fileIndex < 0 then
+    begin
+{$IFDEF LCLGTK2}
+      pgcIconName:= Pgchar(AIconName);
+      pbPicture:= gtk_icon_theme_load_icon(FIconTheme, pgcIconName, AIconSize, GTK_ICON_LOOKUP_NO_SVG, nil);
+      if pbPicture <> nil then
+        begin
+          Result := FPixmapList.Add(pbPicture);
+          FThemePixmapsFileNames.Add(AIconName, Pointer(Result));
+        end
+      else
+        Result := -1;
+{$ELSE}
+      sIconFileName:= FIconTheme.FindIcon(AIconName, AIconSize);
+      if sIconFileName <> EmptyStr then
+        begin
+          bmpBitmap := CheckLoadPixmap(sIconFileName, False);
+          if Assigned(bmpBitmap) then
+            begin
+              Result := FPixmapList.Add(bmpBitmap); // add to list
+              FThemePixmapsFileNames.Add(AIconName, Pointer(Result));
+            end;
+        end
+      else
+        Result := -1;
+{$ENDIF}
+    end
+  else
+    Result := PtrInt(FThemePixmapsFileNames.List[fileIndex]^.Data);
+end;
+
+function TPixMapManager.GetIconByDesktopFile(sFileName: UTF8String; iDefaultIcon: PtrInt): PtrInt;
+var
+  I: PtrInt;
+  iniDesktop: TIniFileEx;
+  sIconName: UTF8String;
+begin
+  iniDesktop:= TIniFileEx.Create(sFileName, fmOpenRead);
+  try
+    sIconName:= iniDesktop.ReadString('Desktop Entry', 'Icon', EmptyStr);
+  finally
+    FreeThenNil(iniDesktop);
+  end;
+
+  I:= GetIconByName(sIconName);
+  if I < 0 then
+    Result:= iDefaultIcon
+  else
+    Result:= I;
+end;
+
+{$ENDIF} // Unix
+
+constructor TPixMapManager.Create;
+{$IFDEF MSWINDOWS}
+var
+  FileInfo : TSHFileInfoW;
+  iIconSize : Integer;
+{$ENDIF}
+begin
+  FExtList := TStringHashList.Create(True);
+  FPixmapsFileNames := TStringHashList.Create(True);
+  FPixmapList := TFPList.Create;
+  FDriveIconList := TStringList.Create;
+
+  {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+  FExtToMimeIconName := TFPDataHashTable.Create;
+  FThemePixmapsFileNames := TStringHashList.Create(True);
+  CreateIconTheme;
+  {$ENDIF}
+
+  {$IFDEF MSWINDOWS}
+  if gIconsSize = 16 then
+    iIconSize := SHGFI_SMALLICON
+  else
+    iIconSize := SHGFI_LARGEICON;
+
+  FSysImgList := SHGetFileInfoW(PWideChar(UTF8Decode(mbGetCurrentDir)),
+                                0,
+                                FileInfo,
+                                SizeOf(FileInfo),
+                                SHGFI_SYSICONINDEX or iIconSize);
+  {$ENDIF}
+
+  FPixmapsLock := syncobjs.TCriticalSection.Create;
+end;
+
+destructor TPixMapManager.Destroy;
+var
+  I : Integer;
+{$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+  J : Integer;
+  nodeList: TFPObjectList;
+{$ENDIF}
+begin
+  if Assigned(FPixmapList) then
+  begin
+    for I := 0 to FPixmapList.Count - 1 do
+      if Assigned(FPixmapList.Items[I]) then
+  {$IFDEF LCLGTK2}
+        g_object_unref(PGdkPixbuf(FPixmapList.Items[I]));
+  {$ELSE}
+        Graphics.TBitmap(FPixmapList.Items[I]).Free;
+  {$ENDIF}
+    FreeAndNil(FPixmapList);
+  end;
+
+  if Assigned(FExtList) then
+    FreeAndNil(FExtList);
+  if Assigned(FPixmapsFileNames) then
+    FreeAndNil(FPixmapsFileNames);
+
+  if Assigned(FDriveIconList) then
+  begin
+    for I := 0 to FDriveIconList.Count - 1 do
+      with FDriveIconList.Objects[I] as TDriveIconList do
+      begin
+        if Assigned(bmMediaFloppy) then FreeAndNil(bmMediaFloppy);
+        if Assigned(bmDriveHardDisk) then FreeAndNil(bmDriveHardDisk);
+        if Assigned(bmMediaFlash) then FreeAndNil(bmMediaFlash);
+        if Assigned(bmMediaOptical) then FreeAndNil(bmMediaOptical);
+        if Assigned(bmDriveNetwork) then FreeAndNil(bmDriveNetwork);
+        Free;
+      end;
+    FreeAndNil(FDriveIconList);
+  end;
+
+  {$IF DEFINED(MSWINDOWS)}
+  ImageList_Destroy(FSysImgList);
+  {$ELSEIF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+  DestroyIconTheme;
+
+  for I := 0 to FExtToMimeIconName.HashTable.Count - 1 do
+    begin
+      nodeList := TFPObjectList(FExtToMimeIconName.HashTable.Items[I]);
+      if Assigned(nodeList) then
+        for J := 0 to nodeList.Count - 1 do
+          TStringList(THtDataNode(nodeList.Items[J]).Data).Free;
+    end;
+
+  FreeThenNil(FExtToMimeIconName);
+  FreeThenNil(FThemePixmapsFileNames);
+  {$ENDIF}
+
+  FreeThenNil(FPixmapsLock);
+
+  inherited Destroy;
+end;
+
+procedure TPixMapManager.Load(const sFileName: String);
+var
+  slPixmapList: TStringList;
+  s:String;
+  sExt, sPixMap:String;
+  iekv:integer;
+  iPixMap:PtrInt;
+  sPixMapSize : String;
+  I : Integer;
+  Plugins : TStringList;
+  sCurrentPlugin : String;
+  iCurPlugCaps : Integer;
+begin
+  // This function doesn't need to be synchronized
+  // as long as it is called before creating the main form
+  // (via LoadPixMapManager in doublecmd.lpr).
+
+  //  load all drive icons
+  FDriveIconList.AddObject('16x16', TDriveIconList.Create);
+  FDriveIconList.AddObject('22x22', TDriveIconList.Create);
+  FDriveIconList.AddObject('32x32', TDriveIconList.Create);
+
+  sPixMapSize := FPixmapSize;  // save icon size path
+  for I:= 0 to FDriveIconList.Count - 1 do
+    with FDriveIconList.Objects[I] as TDriveIconList do
+    begin
+      FPixmapSize := FDriveIconList.Strings[I] + PathDelim;
+      bmMediaFloppy := CheckLoadPixmap('devices' + PathDelim + 'media-floppy.png');
+      bmDriveHardDisk := CheckLoadPixmap('devices' + PathDelim + 'drive-harddisk.png');
+      bmMediaFlash := CheckLoadPixmap('devices' + PathDelim + 'media-flash.png');
+      bmMediaOptical := CheckLoadPixmap('devices' + PathDelim + 'media-optical.png');
+      bmDriveNetwork:= CheckLoadPixmap('devices' + PathDelim + 'network-wired.png');
+    end;
+  // load emblems
+  if gIconsSize = 22 then
+    I:= 16
+  else
+    I:= gIconsSize div 2;
+  FPixmapSize := IntToStr(I) + 'x' + IntToStr(I) + PathDelim;
+  FiEmblemLinkID:= CheckAddPixmap('emblems' + PathDelim + 'emblem-symbolic-link.png', gIconsSize div 2);
+  FPixmapSize := sPixMapSize;  // restore icon size path
+
+  // add some standard icons
+  FiDefaultIconID:=CheckAddPixmap('mimetypes' + PathDelim + 'unknown.png');
+  FiDirIconID:=CheckAddPixmap('filesystems' + PathDelim + 'folder.png');
+  FiDirLinkIconID:=CheckAddPixmap('filesystems' + PathDelim + 'folder-link.png');
+  FiLinkIconID:=CheckAddPixmap('filesystems' + PathDelim + 'link.png');
+  FiUpDirIconID:=CheckAddPixmap('actions' + PathDelim + 'go-up.png');
+  FiArcIconID := CheckAddPixmap('mimetypes' + PathDelim + 'package-x-generic.png');
+  FiExeIconID:= CheckAddPixmap('mimetypes' + PathDelim + 'application-x-executable.png');
+  FiSortAscID := CheckAddPixmap('actions' + PathDelim + 'view-sort-ascending.png');
+  FiSortDescID := CheckAddPixmap('actions' + PathDelim + 'view-sort-descending.png');
+
+  { Load icons from doublecmd.ext }
+  for I := 0 to gExts.Count - 1 do
+    begin
+      gExts.Items[I].IconIndex:= FiDefaultIconID;
+      sPixMap := gExts.Items[I].Icon;
+      if mbFileExists(sPixMap) then
+        begin
+          iPixMap:= CheckAddPixmap(sPixMap, gIconsSize, False);
+          if iPixMap < 0 then Continue;
+          gExts.Items[I].IconIndex:= iPixMap;
+          //DebugLn('sPixMap = ',sPixMap, ' Index = ', IntToStr(iPixMap));
+
+          // set pixmap index for all extensions
+          for iekv := 0 to gExts.Items[I].Extensions.Count - 1 do
+            begin
+              sExt := gExts.Items[I].Extensions[iekv];
+              if FExtList.Find(sExt) < 0 then
+                FExtList.Add(sExt, TObject(iPixMap));
+            end;
+        end;
+    end;
+  {/ Load icons from doublecmd.ext }  
+  
+  if mbFileExists(sFileName) then
+  begin
+    slPixmapList:= TStringList.Create;
+    slPixmapList.LoadFromFile(sFileName);
+    try
+      for I:= 0 to slPixmapList.Count - 1 do
+      begin
+        s:= slPixmapList.Strings[I];
+        s:=Trim(lowercase(s));
+        iekv:=Pos('=',s);
+        if iekv=0 then
+          Continue;
+        sExt:=Copy(s,1, iekv-1);
+        sPixMap:=Copy(s, iekv+1, length(s)-iekv);
+        iPixMap:=CheckAddPixmap('mimetypes' + PathDelim + sPixMap);
+        if iPixMap<0 then
+          Continue;
+
+        if FExtList.Find(sExt)<0 then
+          FExtList.Add(sExt, TObject(iPixMap));
+      end;
+    finally
+      slPixmapList.Free;
+    end;
+  end;
+
+  (* Set archive icons *)
+  
+  Plugins := TStringList.Create;
+  gIni.ReadSectionRaw('PackerPlugins', Plugins);
+  
+  for I:=0 to Plugins.Count - 1 do
+        begin
+          sCurrentPlugin := Plugins.ValueFromIndex[I];
+          sExt := Plugins.Names[I];
+          if (Length(sExt) > 0) and (sExt[1] <> '#') then // if plugin not disabled
+            begin
+          iCurPlugCaps := StrToInt(Copy(sCurrentPlugin, 1, Pos(',',sCurrentPlugin) - 1));
+          if (iCurPlugCaps and PK_CAPS_HIDE) <> PK_CAPS_HIDE then
+            begin
+                if FExtList.Find(sExt) < 0 then
+                  FExtList.Add(sExt, TObject(FiArcIconID));
+            end;
+            end;
+        end; //for
+  Plugins.Free;
+  
+  (* /Set archive icons *)
+
+  {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+  if (gShowIcons <> sim_none) and (gShowIcons <> sim_standart) then
+    begin
+      LoadMimeIconNames;
+      {$IFNDEF LCLGTK2}
+      FIconTheme.Load;
+      {$ENDIF}
+    end;
+  {$ENDIF}
+end;
+
+function TPixMapManager.GetBitmap(iIndex: PtrInt; BkColor : TColor): Graphics.TBitmap;
+var
+  PPixmap: Pointer;
+  PixmapFromList: Boolean = False;
+{$IFDEF MSWINDOWS}
+  hicn: HICON;
+  Icon: TIcon = nil;
+{$ENDIF}
+begin
+  FPixmapsLock.Acquire;
+  try
+    if (iIndex >= 0) and (iIndex < FPixmapList.Count) then
+    begin
+      PPixmap := FPixmapList[iIndex];
+      PixmapFromList := True;
+    end;
+  finally
+    FPixmapsLock.Release;
+  end;
+
+  if PixmapFromList then
+  begin
+{$IFDEF LCLGTK2}
+    Result:= PixBufToBitmap(PGdkPixbuf(PPixmap));
+{$ELSE}
+    // Make a new copy.
+    Result := Graphics.TBitmap.Create;
+    Result.Assign(Graphics.TBitmap(PPixmap));
+{$ENDIF}
+  end
+  else
+{$IFDEF MSWINDOWS}
+  if iIndex >= $1000 then
+    begin
+      Result:= nil;
+      hicn:= ImageList_GetIcon(FSysImgList, iIndex - $1000, ILD_NORMAL);
+      if hicn <> 0 then
+        try
+          Icon := CreateIconFromHandle(hicn);
+          Result := Graphics.TBitmap.Create;
+          Result.Assign(Icon);
+        finally
+          FreeThenNil(Icon);
+          DestroyIcon(hicn);
+        end
+    end;
+{$ELSE}
+  Result:= nil;
+{$ENDIF}
+end;
+
+function TPixMapManager.DrawBitmap(iIndex: PtrInt; Canvas : TCanvas; X, Y: Integer) : Boolean;
+begin
+  Result := DrawBitmap(iIndex, Canvas, X, Y, gIconsSize, gIconsSize); // X, Y, 0, 0 - No bitmap stretching.
+end;
+
+function TPixMapManager.DrawBitmap(iIndex: PtrInt; Canvas: TCanvas; X, Y, Width, Height: Integer): Boolean;
+
+  procedure TrySetSize(aWidth, aHeight: Integer);
+  begin
+    if Width = 0 then
+      Width := aWidth;
+    if Height = 0 then
+      Height := aHeight;
+  end;
+
+var
+  PPixmap: Pointer;
+  PixmapFromList: Boolean = False;
+{$IFDEF MSWINDOWS}
+  hicn: HICON;
+  cx, cy: Integer;
+{$ENDIF}
+{$IFDEF LCLGTK2}
+  pbPicture : PGdkPixbuf;
+  iPixbufWidth : Integer;
+  iPixbufHeight : Integer;
+{$ELSE}
+  Bitmap: Graphics.TBitmap;
+  aRect: TRect;
+{$ENDIF}
+begin
+  Result := True;
+
+  FPixmapsLock.Acquire;
+  try
+    if (iIndex >= 0) and (iIndex < FPixmapList.Count) then
+    begin
+      PPixmap := FPixmapList[iIndex];
+      PixmapFromList := True;
+    end;
+  finally
+    FPixmapsLock.Release;
+  end;
+
+  if PixmapFromList then
+  begin
+  {$IFDEF LCLGTK2}
+    pbPicture := PGdkPixbuf(PPixmap);
+    iPixbufWidth :=  gdk_pixbuf_get_width(pbPicture);
+    iPixbufHeight :=  gdk_pixbuf_get_height(pbPicture);
+    TrySetSize(iPixbufWidth, iPixbufHeight);
+    DrawPixbufAtCanvas(Canvas, pbPicture, 0, 0, X, Y, Width, Height);
+  {$ELSE}
+    Bitmap := Graphics.TBitmap(PPixmap);
+    TrySetSize(Bitmap.Width, Bitmap.Height);
+    aRect := Classes.Bounds(X, Y, Width, Height);
+    Canvas.StretchDraw(aRect, Bitmap);
+  {$ENDIF}
+  end
+  else
+  {$IFDEF MSWINDOWS}
+  if iIndex >= $1000 then
+    try
+      if ImageList_GetIconSize(FSysImgList, @cx, @cy) then
+        TrySetSize(cx, cy)
+      else
+        TrySetSize(gIconsSize, gIconsSize);
+
+      if (Height in [16, 32]) and (cx = Width) and (cy = Height) then
+        // for transparent
+        ImageList_Draw(FSysImgList, iIndex - $1000, Canvas.Handle, X, Y, ILD_TRANSPARENT)
+      else
+      begin
+        hicn:= ImageList_GetIcon(FSysImgList, iIndex - $1000, ILD_NORMAL);
+        try
+          if IsGdiPlusLoaded then
+            Result:= GdiPlusStretchDraw(hicn, Canvas.Handle, X, Y, Width, Height)
+          else
+            Result:= DrawIconEx(Canvas.Handle, X, Y, hicn, Width, Height, 0, 0, DI_NORMAL);
+        finally
+          DestroyIcon(hicn);
+        end;
+      end;
+    except
+      Result:= False;
+    end;
+
+  {$ELSE}
+    Result:= False;
+  {$ENDIF}
+end;
+
+function TPixMapManager.DrawBitmap(iIndex: PtrInt; AFile: TFile; DirectAccess: Boolean; Canvas: TCanvas; X, Y: Integer): Boolean;
+var
+  I: Integer;
+begin
+  Result:= DrawBitmap(iIndex, Canvas, X, Y);
+
+  if gIconOverlays then
+    begin
+    {$IFDEF MSWINDOWS}
+      if DirectAccess then
+      begin
+        I:= SHGetOverlayIconIndex(AFile.Path, AFile.Name);
+        if I >= 0 then
+          Result:= DrawBitmap(I + $1000, Canvas, X, Y);
+      end;
+    {$ELSE}
+      if AFile.IsLink then
+        begin
+          I:= gIconsSize div 2;
+          Result:= DrawBitmap(FiEmblemLinkID, Canvas, X, Y + I, I, I);
+        end;
+    {$ENDIF}
+    end;
+end;
+
+function TPixMapManager.GetIconBySortingDirection(SortingDirection: TSortDirection): PtrInt;
+begin
+  case SortingDirection of
+    sdDescending:
+      begin
+        Result := FiSortDescID;
+      end;
+    sdAscending:
+      begin
+        Result := FiSortAscID;
+      end;
+    else
+      Result := -1;
+  end;
+end;
+
+function TPixMapManager.GetIconByFile(AFile: TFile; DirectAccess: Boolean): PtrInt;
+var
+  Ext: String;
+{$IFDEF MSWINDOWS}
+  sFileName: String;
+  FileInfo: TSHFileInfoW;
+  dwFileAttributes: DWORD;
+  uFlags: UINT;
+{$ENDIF}
+begin
+  Result := -1;
+  if not Assigned(AFile) then Exit;
+
+  with AFile do
+  begin
+    if Name = '..' then
+    begin
+      Result := FiUpDirIconID;
+      Exit;
+    end;
+
+    if IsLinkToDirectory then
+    begin
+    {$IFDEF UNIX}
+      if gIconOverlays then
+        Result:= FiDirIconID
+      else
+    {$ENDIF}
+      Result := FiDirLinkIconID;
+      Exit;
+    end;
+
+    if IsDirectory then
+    begin
+      {$IF DEFINED(MSWINDOWS)}
+      if (gShowIcons = sim_standart) or
+         (not (DirectAccess and mbFileExists(Path + Name + '\desktop.ini'))) or
+         (GetDeviceCaps(Application.MainForm.Canvas.Handle, BITSPIXEL) < 16) then
+      {$ELSEIF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+      if (gShowIcons = sim_all_and_exe) and
+         (DirectAccess and mbFileExists(Path + Name + '/.directory')) then
+        begin
+          Result:= GetIconByDesktopFile(Path + Name + '/.directory', FiDirIconID);
+          Exit;
+        end
+      else
+      {$ENDIF}
+        begin
+          Exit(FiDirIconID);
+        end;
+    end
+    else // not directory
+    begin
+      if IsLink and not gIconOverlays then
+        Exit(FiLinkIconID);
+
+      if (Extension = '') then
+        Exit(FiDefaultIconID);
+
+      Ext := UTF8LowerCase(Extension);
+
+      {$IF DEFINED(MSWINDOWS)}
+      if gShowIcons <> sim_all_and_exe then
+        begin
+          if Ext = 'exe' then
+            Exit(FiExeIconID)
+          else if Ext = 'lnk' then
+            Exit(FiLinkIconID)
+          else if Ext = 'ico' then
+            Exit(FiDefaultIconID)
+        end;
+      {$ELSEIF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+      if gShowIcons = sim_all_and_exe then
+        begin
+          if DirectAccess and (Ext = 'desktop') then
+            begin
+              Result:= GetIconByDesktopFile(Path + Name, FiDefaultIconID);
+              Exit;
+            end;
+        end;
+      {$ENDIF}
+
+      FPixmapsLock.Acquire;
+      try
+        Result := FExtList.Find(Ext);
+        if Result >= 0 then
+          Exit(PtrInt(FExtList.List[Result]^.Data));
+
+        if gShowIcons = sim_standart then
+          Exit(FiDefaultIconID);
+
+        {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
+
+        Result := GetMimeIcon(Ext, gIconsSize);
+        if Result < 0 then
+          Result := FiDefaultIconID;
+
+        // Default icon should also be associated with the extension
+        // because it will be faster to find next time.
+        FExtList.Add(Ext, Pointer(Result));
+
+        {$ENDIF}
+
+      finally
+        FPixmapsLock.Release;
+      end;
+    end;
+
+    {$IF DEFINED(MSWINDOWS)}
+
+    if DirectAccess then
+      begin
+        dwFileAttributes := 0;
+        uFlags := SHGFI_SYSICONINDEX;
+        sFileName := Path + Name;
+      end
+    else
+      begin
+        dwFileAttributes := FILE_ATTRIBUTE_NORMAL;
+        uFlags := SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES;
+        sFileName := Name;
+      end;
+
+    if gIconsSize = 16 then
+      uFlags := uFlags or SHGFI_SMALLICON
+    else
+      uFlags := uFlags or SHGFI_LARGEICON;
+
+    if (SHGetFileInfoW(PWideChar(UTF8Decode(sFileName)),
+                       dwFileAttributes,
+                       FileInfo,
+                       SizeOf(FileInfo),
+                       uFlags) = 0) then
+    begin
+      // Could not retrieve icon.
+      if IsDirectory then
+        Result := FiDirIconID
+      else
+        Result := FiDefaultIconID;
+    end
+    else
+    begin
+      Result := FileInfo.iIcon + $1000;
+
+      if (not IsDirectory) and
+         (Ext <> 'exe') and
+         (Ext <> 'ico') and
+         (Ext <> 'lnk') then
+      begin
+        FPixmapsLock.Acquire;
+        try
+          FExtList.Add(Ext, Pointer(Result));
+        finally
+          FPixmapsLock.Release;
+        end;
+      end;
+    end;
+
+    {$ENDIF}
+  end;
+end;
+
+function TPixMapManager.GetIconByName(const AIconName: UTF8String): PtrInt;
+begin
+  Result := CheckAddPixmap(AIconName, gIconsSize, False);
+end;
+
+function TPixMapManager.GetDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
+{$IFDEF MSWINDOWS}
+var
+  SFI: TSHFileInfoW;
+  Icon: TIcon = nil;
+  uFlags: UINT;
+  iIconSmall,
+  iIconLarge: Integer;
+{$ENDIF}
+begin
+  Result := nil;
+{$IFDEF MSWINDOWS}
+  if GetDeviceCaps(Application.MainForm.Canvas.Handle, BITSPIXEL) < 15 then Exit;
+  if (not gCustomDriveIcons) and (GetDeviceCaps(Application.MainForm.Canvas.Handle, BITSPIXEL) > 16) then
+    begin
+      SFI.hIcon := 0;
+      Result := Graphics.TBitMap.Create;
+      iIconSmall:= GetSystemMetrics(SM_CXSMICON);
+      iIconLarge:= GetSystemMetrics(SM_CXICON);
+
+      if (IconSize = 16) and (iIconSmall = 16) then // standart small icon
+        uFlags := SHGFI_SMALLICON // Use small icon
+      else if (IconSize = 32) and (iIconLarge = 32) then // standart large icon
+        uFlags := SHGFI_LARGEICON // Use large icon
+      else if IconSize > iIconSmall then
+        uFlags := SHGFI_LARGEICON // Use large icon
+      else
+        uFlags := SHGFI_SMALLICON; // Use small icon
+
+      if (SHGetFileInfoW(PWideChar(UTF8Decode(Drive^.Path)), 0, SFI,
+                         SizeOf(SFI), uFlags or SHGFI_ICON) <> 0) and
+         (SFI.hIcon <> 0) then
+        begin
+          if (IconSize = iIconSmall) or (IconSize = iIconLarge) then // standart icon size
+            try
+              Icon := CreateIconFromHandle(SFI.hIcon);
+              Result.Assign(Icon);
+            finally
+              FreeThenNil(Icon);
+              DestroyIcon(SFI.hIcon);
+            end
+          else // non standart icon size
+            try
+              Icon := CreateIconFromHandle(SFI.hIcon);
+              Result.Assign(Icon);
+              Result := StretchBitmap(Result, IconSize, clBackColor, True);
+            finally
+              FreeThenNil(Icon);
+              DestroyIcon(SFI.hIcon);
+            end
+        end;
+    end // not gCustomDriveIcons
+  else
+{$ENDIF}
+    begin
+      Result := GetBuiltInDriveIcon(Drive, IconSize, clBackColor);
+    end;
+end;
+
+function TPixMapManager.GetBuiltInDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
+var
+  DriveIconListIndex: Integer;
+  Bitmap: Graphics.TBitmap;
+begin
+{$IFDEF MSWINDOWS}
+  if GetDeviceCaps(Application.MainForm.Canvas.Handle, BITSPIXEL) < 15 then Exit(nil);
+{$ENDIF}
+  case IconSize of
+  16: // Standart 16x16 icon size
+    DriveIconListIndex := 0;
+  22:  // Standart 22x22 icon size
+    DriveIconListIndex := 1;
+  32:  // Standart 32x32 icon size
+    DriveIconListIndex := 2;
+  else  // for non standart icon size use more large icon for stretch
+    DriveIconListIndex := 2;
+  end;
+  with FDriveIconList.Objects[DriveIconListIndex] as TDriveIconList do
+  case Drive^.DriveType of
+  dtFloppy:
+    Bitmap := bmMediaFloppy;
+  dtFixed:
+    Bitmap := bmDriveHardDisk;
+  dtFlash:
+    Bitmap := bmMediaFlash;
+  dtCDROM:
+    Bitmap := bmMediaOptical;
+  dtNetwork:
+    Bitmap := bmDriveNetwork;
+  else
+    Bitmap := bmDriveHardDisk;
+  end;
+  //  if need stretch icon
+  if (IconSize <> 16) and (IconSize <> 22) and (IconSize <> 32) then
+    begin
+      Result := StretchBitmap(Bitmap, IconSize, clBackColor, False);
+    end
+  else
+    begin
+      Result := Graphics.TBitmap.Create;
+      Result.Assign(Bitmap);
+    end;
+  // 'Bitmap' should not be freed, because it only points to DriveIconList.
+end;
+
+function TPixMapManager.GetDefaultDriveIcon(IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
+var
+  Drive: TDrive = (Name: ''; Path: ''; DriveLabel: ''; DriveType: dtFixed);
+begin
+  Result := GetBuiltInDriveIcon(@Drive, IconSize, clBackColor);
+end;
+
+function TPixMapManager.GetArchiveIcon(IconSize: Integer; clBackColor : TColor) : Graphics.TBitmap;
+begin
+  Result := GetBitmap(FiArcIconID, clBackColor);
+  if Assigned(Result) then
+  begin
+    //  if need stretch icon
+    if (IconSize <> gIconsSize) then
+      begin
+        Result := StretchBitmap(Result, IconSize, clBackColor, True);
+      end;
+  end;
+end;
+
+procedure LoadPixMapManager;
+begin
+  PixMapManager:=TPixMapManager.Create;
+  PixMapManager.FPixmapSize:= IntToStr(gIconsSize) + 'x' + IntToStr(gIconsSize) + PathDelim;
+  PixMapManager.Load(gpIniDir+'pixmaps.txt');
+end;
+
+initialization
+
+finalization
+
+  if Assigned(PixMapManager) then
+    FreeAndNil(PixMapManager);
+
+end.
+