mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [ 1934290 ] Нельзя переназначить иконки для некоторых типов.

Browse source
This commit is contained in:
Alexander Koblov 2008-04-04 11:57:57 +00:00
commit d12d13e6d4
2 changed files with 24 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

3
doc/changelog.txt
View file

@ -1,4 +1,5 @@
23.03.2008 FIX: Bug [ 1870551 ] F3 на каталоге.
04.04.2008 FIX: Bug [ 1934290 ] Нельзя переназначить иконки для некоторых типов.
23.03.2008 FIX: Bug [ 1870551 ] F3 на каталоге.
23.03.2008 FIX: Bug [ 1921004 ] отображенее "писок диска"
12.03.2008 FIX: Bug [ 1888653 ] панель файлов и копирование/перемещение
06.03.2008 FIX: Bug [ 1860836 ] "Show" does not refresh

44
upixmapmanager.pas
View file

@ -409,6 +409,28 @@ begin
FiUpDirIconID:=CheckAddPixmap('actions' + PathDelim + 'go-up.png');
FiArcIconID := CheckAddPixmap('filesystems' + PathDelim + 'archive.png');
{ Load icons from doublecmd.ext }
for I := 0 to gExts.Count - 1 do
begin
sPixMap := gExts.Items[I].Icon;
if FileExists(sPixMap) then
begin
iPixMap:= CheckAddPixmap(sPixMap, 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.IndexOf(sExt) < 0 then
FExtList.AddObject(sExt, TObject(iPixMap));
end;
end;
end;
{/ Load icons from doublecmd.ext }
if FileExists(sFileName) then
begin
assignFile(f,sFileName);
@ -435,28 +457,6 @@ begin
end;
end;
{ Load icons from doublecmd.ext }
for I := 0 to gExts.Count - 1 do
begin
sPixMap := gExts.Items[I].Icon;
if FileExists(sPixMap) then
begin
iPixMap:= CheckAddPixmap(sPixMap, 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.IndexOf(sExt) < 0 then
FExtList.AddObject(sExt, TObject(iPixMap));
end;
end;
end;
{/ Load icons from doublecmd.ext }
(* Set archive icons *)
Plugins := TStringList.Create;