Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c