С помощью поиска в Notepad++ вроде бы нашёл загрузку этой иконки, что скорее всего вызывает ошибку при отсутствии ресурса
Кусок из hiCommandCenter.pas :
procedure THICommandCenter.SetCommands;
var
i,ico: integer;
name,info:string;
def:HICON;
f:byte;
begin
def := LoadIcon(HInstance, 'ASMA');
for i := 0 to Value.Count - 1 do
begin
info := Value.items[i];
name := GetTok(info, '=');
if name = '' then name := info;
if name[1] = '^' then
begin
delete(name, 1, 1);
f := FLG_CHECK;
end
else F := 0;
if def = Value.Objects[i] then // вот такой оригинальный костыль...
ico := -1
else ico := IList.AddIcon(Value.Objects[i]);
addCmdInfo(name, info, ico, f);
end;
end;
Редактировалось 2 раз(а), последний 2019-05-08 17:34:05