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

Вниз

из hicon в hbitmap   Найти похожие ветки 

 
stainer   (2003-10-05 01:45) [0]

Привет знатоки!

Не могу найти api функцию которая делает из hicon в hbitmap!

Спасибо


 
andre ©   (2003-10-05 02:35) [1]

По-моему такой функции нет, я делал так:
var
BM : BitMap;
ii : TIconInfo;
srcDC, destDC : HDC;
_BitMap : HBitMap;

begin
PictureBM := LoadImage (0, openfile, Image_Icon, 0, 0, LR_LOADFROMFILE or LR_CREATEDIBSECTION);
if PictureBM <> 0 then
begin
GetIconInfo (PictureBM, ii);

PicWidth := ii.xHotspot * 2;
PicHeight := ii.yHotspot * 2;
srcDC := CreateCompatibleDC (0);
destDC := CreateCompatibleDC (0);

_BitMap := SelectObject (destDC, ii.hbmColor);
_BitMap := SelectObject (srcDC, ii.hbmMask);

BitBlt (destDC, 0, 0, PicWidth, PicHeight, srcDC, 0, 0, SRCPAINT);
PictureBM := SelectObject (destDC, _BitMap);

DeleteDC (srcDC);
DeleteDC (destDC);

DeleteObject (_BitMap);
end



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

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

Наверх




Память: 0.46 MB
Время: 0.018 c
1-89866
Varelik
2003-11-13 14:01
2003.11.27
Рассыпается дизайн при смене крупного шрифта системы на мелкий.


14-90074
Stas
2003-11-05 12:12
2003.11.27
Структура EXE файла


14-90133
Сатир
2003-11-03 14:51
2003.11.27
Помогите расшифровать


3-89762
ST_
2003-11-07 01:51
2003.11.27
Связь один ко многим


14-90121
Agent[007]
2003-11-02 12:53
2003.11.27
Точка и треугольник. (В ПРОСтРАНСТВЕ)