Geka писал(а):
установив в твою схемуСхема - это про прозрачность, поэтому на квадраты там внимания обращать не стоит
Geka писал(а):
она вообще по моему выше 16х16 никак!Очень даже как: 32x32 размер загружаемой иконки по умолчанию. Надо просто добавить возможность изменения этого "размера по умолчанию"
[size=-2]------ Добавлено в 12:35
Вот чего у меня получилось: code_1530.txt
В hiIcon.pas добавить:
procedure _work_doLoadSz(var _Data:TData; Index:word);
и
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;
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.ini:
doLoadSz=Загружает иконку указанного размера (или наиболее близкого к нему) из файла|1|
Поиск
Друзья
Администрация