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

Не удается вывести изображение на форму Без VCL!   Найти похожие ветки 

← →
mreg   (2009-03-25 23:41) [0]

Не удается вывести изображение на форму. Без VCL!

function LoadTail(Name:PChar):HBITMAP;
var
 Bitmap :HBITMAP;
 WinDC,BitDC:HDC;
begin
 Bitmap := LoadBitmap(HInstance,"FLOOR");
 WinDC := GetDC(hWindow);
 BitDC := GetDC(Bitmap);
 bitBlt(WinDC,0,0,100,100,BitDC,0,0,SrcCopy);
end;

битмап грузит, но не выводит ((

---

← →
mreg   (2009-03-25 23:56) [1]

Разобрался. Токо хотел спросить тут ничего лишнего?

function LoadTail(Name:PChar):HBITMAP;
var
 Bitmap, OldBMP :HBITMAP;
 hWDC,hMemDC:HDC;
begin
 hWDC := GetDC(hWindow);
 hMemDc := CreateCompatibleDC(hWDC);
 Bitmap := LoadBitmap(HInstance,"FLOOR");
 OldBMP := SelectObject(hMemDc,Bitmap);
 BitBlt(hWDC,0,0,24,24,hMemDc,0,0,SRCCOPY);
 DeleteObject(SelectObject(hMemDc, OldBMP));
 DeleteDC(hMemDC);
 ReleaseDC(0,hWDC);
end;

---

← →
Eraser ©   (2009-03-26 03:33) [2]

> [0] mreg   (25.03.09 23:41)

изображение на окно/форму нужно выводить только в обработчике OnPaint/WM_PAINT.

---

← →
KilkennyCat ©   (2009-03-26 11:47) [3]

> тут ничего лишнего?

тут нехватает.
Bitmap - оставляем жить вечно?
LoadBitmap может вернуть 0
SelectObject может вернуть 0
BitBlt может вернуть 0

---

← →
KilkennyCat ©   (2009-03-26 11:49) [4]

ну и все Delete c Release  - это тоже функции.

---

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

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



Память: 0.45 MB
Время: 0.01 c