HuKTO писал(а):
procedure THIIcon._work_doLoadSz;
var fn: string;
begin
if Icon = nil then Icon := NewIcon;
Icon.Size := ToInteger(_Data);
fn := ReadFileName(ReadString(_Data, _data_FileName,')); // ???
Icon.LoadFromFile(fn);
end;
Чушь это все. Icon.LoadFromFile -- читает заголовок файла с Bitmap образом иконки и маски после чего применяется CreateIconIndirect. Размер твоей иконки, который ты указал ему до барабана -- иконка загружается с тем размером, с каким создан битовый образ.
Поиск
Друзья
Администрация