BeginPaint, EndPaint

[13GHOST]

При перерисовке окно мерцает, почитал статьи и так понял, что в этом случае надо использовать BeginPaint и EndPaint. Решил их опробывать и ничего не получилось:(
вот код:

Код: Выделить всё

Select Case uMsg
Case WM_PAINT
    Dim pSct As PAINTSTRUCT
    Call BeginPaint(UserControl.hwnd, pSct)
    pSct.rcPaint.Right = lngPicScaleWidth
    pSct.rcPaint.Bottom = lngPicScaleHeight
    BitBlt UserControl.hdc, 0, 0, lngPicScaleWidth, lngPicScaleHeight, c_BufDC, 0, 0, vbSrcCopy
    Call EndPaint(hwnd, pSct)
...

в c_BufDC находится рисонок, который надо скопировать на компонент, в результате добавления BeginPaint, EndPaint вообще ничего не стало рисоваться.
После Call BeginPaint(UserControl.hwnd, pSct) в pSct.rcPaint одни нули
Может я что-то не так делаю?

[Хакер]

в c_BufDC находится рисонок

Фраза наводит на мысль, что ты, как и многие другие заблуждающиеся, считаешь, что DC --- это некий контейнер. Действительно?

По коду: я не понял, зачем (и почему?) ты меняешь поля paintstruct-а?


И вообще, хотелось бы видеть весь код.

[13GHOST]

да поля тут непричем), нет я не считаю что на DC находится рисок просто образно выразился)
вообще проблема решилась, оказывается когда добавлял сообщение WM_PAINT использовал MSG_AFTER. А это API можно использовать только при обраотке WM_PAINT или еще где?

[Хакер]

А это API можно использовать только при обраотке WM_PAINT или еще где?

Какое это? Сабжевые?

[13GHOST]

да)

[Хакер]

Ответ вычисляется чтением MSDN:

An application should not call BeginPaint except in response to a WM_PAINT message. Each call to BeginPaint must have a corresponding call to the EndPaint function.

[13GHOST]

спасибо теперь все ясно