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

ADD: Display icon for symlink on directory

Browse source
This commit is contained in:
Alexander Koblov 2007-06-02 16:51:51 +00:00
commit d8d58b158e
3 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
doc/upixmapmanager.txt Normal file
View file

@ -0,0 +1,2 @@
$$$*** This is unit history file ***$$$ ###encoding="UTF-8"###
02.06.2007 Добавил отображение иконки для ссылки на каталог

BIN
pixmaps/fdir-link.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 634 B

7
upixmapmanager.pas
View file

@ -48,6 +48,7 @@ type
FPixmapName:TStringList;
FimgList: TObjectList;
FiDirIconID: Integer;
FiDirLinkIconID: Integer;
FiLinkIconID: Integer;
FiUpDirIconID: Integer;
FiDefaultIconID: Integer;
@ -174,6 +175,7 @@ begin
end;
// add some standard icons
FiDirIconID:=CheckAddPixmap('fdir.png');
FiDirLinkIconID:=CheckAddPixmap('fdir-link.png');
FiLinkIconID:=CheckAddPixmap('flink.png');
FiUpDirIconID:=CheckAddPixmap('fupdir.png');
FiDefaultIconID:=CheckAddPixmap('fblank.png');
@ -279,6 +281,11 @@ begin
Result:=FiUpDirIconID;
Exit;
end;
if bLinkIsDir then
begin
Result:=FiDirLinkIconID;
Exit;
end;
if FPS_ISDIR(iMode) then
begin
Result:=FiDirIconID;