Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2008, 13:45   #11
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Для D10

ICO := TIcon.Create;
ICO.LoadFromResourceID(hInstance, 135);

В 7-ке этого метода не было.
Вот его реализация:

ICO := TIcon.Create;
ICO.Handle := LoadIcon(hInstance, MakeIntResource(137));

------------------
Интересно, что в VCL TBitMap.LoadFromResourceID реализован через TResourceStream, а TIcon.LoadFromResourceID через LoadIcon.
И еще. TBitMap.LoadFromResourceID использует не LoadFromStream, а ReadDIB. По-моему LoadFromStream это загрузка компонента VCL из потока, поэтому разгрузка ресурсов и LoadFromStream никак не связаны.
------------------
И, кстати, зачем промежуточное конвертирование Icon -> BitMap. Не проще сразу сделать рисунки /Ж/Ч/К/ ресурсом BitMap а не Icon ?

Последний раз редактировалось alexBlack; 09.08.2008 в 14:04.
alexBlack вне форума Ответить с цитированием
Старый 09.08.2008, 19:29   #12
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Цитата:
И, кстати, зачем промежуточное конвертирование Icon -> BitMap. Не проще сразу сделать рисунки /Ж/Ч/К/ ресурсом BitMap а не Icon ?
Они у меня были иконками, вот и пришлось конвертировать.
А в принцире можно и битмапы хранить, только переделывать не охота, да и были б они битмапами, я просто загрузил их в bitbtn, но прикол то в том что обычными средствами не грузит... так и с другими типами так же...

Цитата:
ICO := TIcon.Create;
ICO.Handle := LoadIcon(hInstance, MakeIntResource(137));
А метод работает на D7, спасибо, упростили жизнь.
Всё гениальное - просто!

Последний раз редактировалось Air; 09.08.2008 в 19:32.
Air вне форума Ответить с цитированием
Старый 09.08.2008, 22:17   #13
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Короче у меня TResourceStream работает тока с "несистемными" типами ресурсов

API 4`ever ^) (FindResource - LoadResource - LockResource)
пыщь
JTG вне форума Ответить с цитированием
Старый 10.08.2008, 21:44   #14
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Цитата:
Короче у меня TResourceStream работает тока с "несистемными" типами ресурсов
Вот и у меня также...
Ладно хоть, по индексам стал грузить, только по именам ещё пока не хочет.
101 - Ок.
"myimage" - нет...
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В чем дло с USB не пойму? Ol'ga Компьютерное железо 3 26.06.2008 11:12
Не пойму чо так Cricket2007 Помощь студентам 5 15.05.2008 01:17
НЕ ПОЙМУ КАК ВЫВИСТИ ЧИСЛО Editor Общие вопросы Delphi 6 19.04.2008 18:50
мастер установки, не пойму что происходит! ronich Помощь студентам 0 27.11.2007 20:59
Ресурсы, зачем нужны ресурсы Hallo Обсуждение статей 0 12.12.2006 21:30