Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Загрузить иконку зарегистрированного расширения в ImageList 


NLO   (2002-01-15 06:35) [0]

Icon.Handle:=ExtractAssociatedIcon(HInstance,Pchar(FileName), W);
а дальше, как загрузить в ImageList



Almaz   (2002-01-15 23:25) [1]

А дальше:
...
Icon.Handle:=ExtractAssociatedIcon(HInstance,Pchar(FileName), W);
ImageList.AddIcon(Icon);
...


Удачи.



Serghei   (2002-01-16 09:02) [2]

Посмотри в кладовке - там есть компонент TFileBox - и там мается функция GetImageList ili GetImages (не помню) - он вытаскивает из системы все зарегистрированные иконки в ТImagelist

Успехов!



Serghei   (2002-01-16 09:08) [3]

А точнее пожалуйста
************************************************************
function TFileBox.GetImageList(Option: integer): TImageList;
var
SHFileInfo: TSHFileInfo;
begin
Result := TImageList.Create(Self);
with Result do
begin
ShareImages := true;
Handle := ShGetFileInfo("*.*", 0, SHFileInfo, SizeOf(TSHFileInfo),
Option or SHGFI_ATTRIBUTES or SHGFI_SYSICONINDEX)
end
end;
************************************************************
иде Option может быть SHGFI_SMALLICON - для иконок 16х16 или SHGFI_LARGEICON для иконок 32х32 (см. в WIN32 help file)



Gennady   (2002-01-16 10:28) [4]

uses ....., commctrl;

****************
*************
procedure Test(FileName: string; IL: TImageList; Index: word);
var ico: HICON;
begin
ico:=ExtractAssociatedIcon(HInstance,Pchar(FileName), index);
if ico<>0 then
ImageList_AddIcon(IL.Handle, ico);
end;

2 Serghei
это у Вас функция доступа к системному ImageList-у



Serghei   (2002-01-16 14:32) [5]

Ghennady прав!
Просто я зациклился в свое время на данной проблеме (изложенной мной) и пихаю ее куда попало :о) Сори!
Удачи!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
1-8916            Лана Розанова         2002-01-17 15:39  2002.02.04  
Memo


3-8758            ancor                 2002-01-05 14:14  2002.02.04  
Можно ли программно создать алиас BD


3-8775            Georg                 2002-01-07 15:16  2002.02.04  
Заковырочка-запупырочка...


3-8745            sashak                2001-12-28 15:24  2002.02.04  
Можно ли выполнить скрипт через ADO ?


1-8892            szap                  2002-01-15 19:32  2002.02.04  
Какая дата была была 5 дней назад?