AutoRedraw на WinAPI

[XairOn]

Доброго времени суток, господа! Вопрос мой следующий: у формы создаваемой в VB есть такое свойство AutoRedraw. Если я создаю окно на WinAPI можно ли как-то это свойство реализовать? Конечно есть вариант перерисовывать окно вручную при каждом WM_PAINT, но может есть другой вариант? Например стиль какой-нибудь при создании окна указать или что-нибудь в этом роде.

[tyomitch]

Нет, никакого другого варианта нет.

Когда ты в VB устанавливаешь AutoRedraw, VB за твоей спиной создаёт битмап и все твои рисунки рисует туда, а по WM_PAINT отрисовывает этот битмап на форме.
Можешь сделать так же.

[XairOn]

2 tyomitch, а вот тут можно чуть-чуть подробнее. Я сделал вот так:

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

...
case WM_PAINT
        Call BackgroundDraw (hwnd)
'тут в сабклассинге формы получаем сообщение о том,
'что окно перерисовалось и вызываем соответствующую
'процедуру, которая будет перерисовывать содержимое
...
'а вот собственно и сама процедура перерисовки
Sub BackgroundDraw (hwnd As Long)
    Dim R As RECT, img As Long, mBrush As Long
   
    img = LoadImage (GetModuleHandle(0), "back.bmp", IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
    mBrush = CreatePatternBrush(img)
    Call SetRect (R, 0, 0, 400, 200)
    Call FillRect (GetDC(hwnd), R, mBrush)
    Call DeleteObject (mBrush)
    Call DeleteObject (img)
End Sub


Ты имел ввиду это?

[tyomitch]

Посмотри тут: http://bbs.vbstreets.ru/viewtopic.php?p=6622447#6622447
Там на Сях, но вряд ли тебя это напугает.

[Naked]

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

Case WM_PAINT
    Dim ps As PAINTSTRUCT,hHDC as long
    Dim R As RECT, img As Long, mBrush As Long
   
    hHDC = BeginPaint(hwnd, ps)

    img = LoadImage (GetModuleHandle(0), "back.bmp", IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
    mBrush = CreatePatternBrush(img)
    Call SetRect (R, 0, 0, 400, 200)
    Call FillRect (hHDC, R, mBrush)
    Call DeleteObject (mBrush)
    Call DeleteObject (img)

    Call EndPaint(hwnd, ps)

    WndProc = CallWindowProc(PrevWndProc, hwnd, message, wParam, lParam)
End Sub