Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизКак загрузить иконку из ресурса? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c