Главная страница
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.023 c
4-69093
Сергей01
2002-09-02 07:29
2002.10.21
Есть дву формы Как сделать так, чтобы они минимзрвлись раздельно?


1-68798
KidMan
2002-10-09 22:22
2002.10.21
Загнать список директория в Combobox


3-68668
SunnyTm
2002-09-30 22:28
2002.10.21
Когда нужны DBEdit и EditMask?


14-68937
Бильврёст
2002-09-27 13:12
2002.10.21
Вопрос про установку компонент.


1-68711
Chlavik
2002-10-11 03:58
2002.10.21
Как перевести PHostEnt в String .......