Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

Как загрузить иконку из ресурса?   Найти похожие ветки 

 
id_privin ©   (2002-10-11 12:05) [0]

Сабж у меня не получается. Делаю так

procedure TForm1.Button1Click(Sender: TObject);
var
Icon : TIcon;
ResStream : TResourceStream;
begin
Icon := TIcon.Create;
ResStream := TResourceStream.Create(HInstance,"MAINICON","RT_ICON");
Icon.LoadFromStream(ResStream);
ResStream.Free;
end;

MAINICON в ресурсе точно есть - это главная иконка приложения, но на TResourceStream.Create вылетает исключение "Не найден ресурс".

Как лечить?


 
id_privin ©   (2002-10-11 13:00) [1]

Очень надо!!!!!
Кто-нибудь ответьте. Пожалуйста!!!!!!!


 
REA ©   (2002-10-11 13:26) [2]

Да вроде должно работать. Те параметры входные, синтаксис и т.п.?
Проверь ресурс-вьювером.
CreateFromID() тоже можно использовать.
А что такое RT_GROUP_ICON? - встречный вопрос к профи


 
Pumpkin   (2002-10-11 13:31) [3]

А у TIcon разве нет LoadFromResource (хелп посмотреть у меня нет возможности).


 
id_privin ©   (2002-10-11 13:34) [4]

2Pumpkin
Нет


 
NailS ©   (2002-10-11 13:49) [5]

Попробуй заменить ResStream := TResourceStream.Create(HInstance,"MAINICON","RT_ICON");
на ResStream := TResourceStream.Create(HInstance,"MAINICON",RT_ICON);


 
id_privin ©   (2002-10-11 14:00) [6]

Не помогает.
Последние новости : Bitmap ресурсы по именам находятся а иконки нет. Поэтому вопрос : как по простому сконвертировать Bitmap в иконку


 
REA ©   (2002-10-11 14:17) [7]

Наверно без кавычек.

RT_ICON = MakeIntResource(3)

MakeIntResourceA = PAnsiChar;
MakeIntResourceW = PWideChar;
MakeIntResource = MakeIntResourceA;


 
Shrek ©   (2002-10-11 15:16) [8]

IconIndex : word;
h : hIcon;
Bit: TBitmap;

Bit := TBitmap.Create;
Bit.Width := WH;
Bit.Height := WH;
h := ExtractAssociatedIcon(hInstance, PChar(FileName), IconIndex);
DrawIcon(Bit.Canvas.Handle, 2, 2, h);
Bit.Free;


 
REA ©   (2002-10-11 15:50) [9]

А кстати - почему это PAnsiChar(3)? Разве число так можно к строке преобразовать? Получится ведь незавершенная 0 строка.
Или AnsiChar это такой специальный Char?


 
id_privin ©   (2002-10-11 16:32) [10]

2Shrek
Спасибо, сработало. Осталась проблемма в том что иконку хочеться грузить по имени, тк вся работа с ней осуществляется внутри пакета и я не могу заранее сказать сколько иконок будет в приложении.



Страницы: 1 вся ветка

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.018 c
1-68715
ultrasuper_asd
2002-10-10 23:44
2002.10.21
Как узнать абсолютный номер символа?


3-68662
Barmutik
2002-09-30 12:20
2002.10.21
Midas ... выгребание большого курсора


1-68797
INCOGNITO
2002-10-09 22:33
2002.10.21
Копирование файла


3-68657
Юра
2002-09-30 13:40
2002.10.21
Как сортировать по строковым полям c числовыми данными


7-69048
alexsandri
2002-08-11 12:18
2002.10.21
как программно запретить запуск компьютера