Главная страница
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.016 c
3-89689
Dimaz-z
2003-11-06 12:47
2003.11.27
Создание индекса!!!


14-90056
mastadont
2003-11-04 21:01
2003.11.27
Есть у кого-нибудь желаниt написать статью?


3-89686
bober
2003-11-07 16:52
2003.11.27
dbtext


4-90163
Юрий Ж.
2003-10-01 16:02
2003.11.27
Работа с ресурсами...


1-89890
Oleg Khvostenko
2003-11-15 13:46
2003.11.27
Real в Integer