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

Вниз

Проблемы с выводом битмапа (выводяться, а потом перестают)   Найти похожие ветки 

 
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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.005 c
4-1245776300
robotic
2009-06-23 20:58
2011.03.13
Сохранить файл из ресурса (своего). Как?


2-1292950473
zabidon
2010-12-21 19:54
2011.03.13
Error team


15-1291128732
engine
2010-11-30 17:52
2011.03.13
Сдвиг участка кода в редакторе Delphi


1-1248707578
Oleg
2009-07-27 19:12
2011.03.13
Docking


15-1291033829
12
2010-11-29 15:30
2011.03.13
О chess.com. Кто-нибудь пробовал пароль восстановить?