Форум: "WinAPI";
Текущий архив: 2011.03.13;
Скачать: [xml.tar.bz2];
ВнизПроблемы с выводом битмапа (выводяться, а потом перестают) Найти похожие ветки
← →
deplomat (2009-06-30 22:08) [0]
procedure DrawSprite(index:SmallInt);
var
dc:hdc;
hdcMem: HDC;
bmp:HBITMAP;
begin
dc := GetDC(handle);
bmp := LoadBitmap(HInstance,PChar("spr"+ Inttostr(index)));
hdcMem := CreateCompatibleDC(dc);
//BitBlt(dc,0,0,SWidth,SHeight, hdcMem, 0, 0, WHITENESS);
SelectObject(hdcMem, Sprites[index]);
BitBlt(dc,0,0,SWidth,SHeight, hdcMem, 0, 0, SRCCOPY);
DeleteDC(dc);
ReleaseDC(handle,dc);
end;
Повешен на таймер, выводяться картинки: 1, 2, 3, на последней (после которой должно все повторяться) анимация прекращается, в чем может быть проблема?
← →
deplomat (2009-06-30 22:20) [1]Все! Пардон, синтаксическая ошибка, Sprites[index] оставил. Но всеравно есть один вопрос: старый HBITMAP освобождается после вызова нового SelectObject?
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2011.03.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c