CreateCompatibleDC и иже с ним

[X-BOND]

Что-то под вечер совсем мысли кончились

Такая ситуация, имеем форму, на которой различными Апишками рисуем всякие разности. Потом результат необходимо запомнить, чтобы в последствии можно было это все сново воспроизвести.

Что я делаю после того как все нарисовалось:

hMemDC = CreateCompatibleDC(hdc)
Call BitBlt(hMemDC, 0, 0, 500, 500, hdc, 0, 0, SRCCOPY)

Потом пытаюсь это воспроизвести:
Call BitBlt(hdc, 0, 0, 500, 500, hMemDC, 0, 0, SRCCOPY)
Функция возвращает 1, но ничего не рисует

Прасветите, пажалуста

[Amed]

Надо ещё SelectObject для созданного устройства сделать...

Ищите в яиндексе примеры... Вот первый: http://www.vb.kiev.ua/ref/w32api/showdo ... mpatibledc

[X-BOND]

А что мне SelectObject(hMemDC, сюда) скармливать ?

[Amed]

Form.Picture? Form.Image?

[X-BOND]

Так ведь их нету

[Amed]

...Такая ситуация, имеем форму, на которой различными Апишками рисуем всякие разности...

Это как - нету? Поясните ещё разочек, что есть и как рисуем.

Может быть, сначала
Form1.Picture=Form1.Image
,а потом
SelectObject(hMemDC, Form1.Picture)
?

[X-BOND]

Попробовал Form1.Picture=Form1.Image
Теперь просто все закрашивает цветом фона

А рисую в основном этим:
TransparentBlt
SetPixel
Rectangle

То-есть .Picture и .Image у меня никак до этого не используются

[X-BOND]

Все, разобрался

Вот так заработало:

Dim hBmp As Long
hBmp = CreateCompatibleBitmap(hdc, 500, 500)
Call SelectObject(hMemDC, hBmp)
Call BitBlt(hMemDC, 0, 0, 500, 500, hdc, 0, 0, SRCCOPY)
...


Amed, спасибо за подсказку