Главная страница
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.02 c
8-90004
Schumofil
2003-07-30 20:12
2003.11.27
Как конвертировать GIF в BMP?


3-89736
jonni
2003-11-09 05:15
2003.11.27
Key collumn information is insuficient or incorrect...


1-89939
Мыш
2003-11-18 09:07
2003.11.27
Published property


4-90173
frost63
2003-10-02 07:21
2003.11.27
Планировшик заданий Windows.


3-89703
Dany
2003-11-10 14:21
2003.11.27
NUMERIC(32) to Integer