← All posts tagged winapi

mabu
winapi freebasic Чтобы рисовать «в памяти», нужен контекст устройства в памяти. Создать его можно через CreateCompatibleDC. Однако проблема в таком устройстве в том, что по умолчанию в нём выбран чёрно‐белый BITMAP размером 1 на 1 пиксель. Поэтому рисунок в контексте устройства в памяти будет чёрно‐белым. Чтобы рисунок был цветным, необходимо создать BITMAP на основе оконного или дисплейного контекста устройства и выбрать его в контекст устройства в памяти:

```FreeBASIC
Const MOVE_DX = 10
Const MOVE_DY = 10

' Переменные уровня модуля:
Dim Shared MemoryDC As HDC
Dim Shared MemoryBM As HBITMAP
Dim Shared OldMemoryBM As HGDIOBJ
Dim Shared ShapeRectangle As RECT

Function MainFormWndProc(ByVal hWin As HWND, ByVal wMsg As UINT, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT

Select Case wMsg

Case WM_CREATE
' Контекст устройства окна
Dim hDC As HDC = GetDC(hWin)

' Контекст устройства в памяти
MemoryDC = CreateCompatibleDC(hDC)
' Цветной рисунок на основе окна

Dim ClientRect As RECT = Any
GetClientRect(hWin, @ClientRect)
MemoryBM = CreateCompatibleBitmap(hDC, ClientRect.right, ClientRect.bottom)

' Освобождаем контекст устройства окна, он больше не нужен
ReleaseDC(hWin, hDC)

' Выбираем цветной рисунок, сохраняя старый
OldMemoryBM = SelectObject(MemoryDC, MemoryBM)

' Положение круглешка
SetRect( _
@ShapeRectangle, _
ClientRect.right \ 2 — 20, _
ClientRect.bottom \ 2 — 20, _
ClientRect.right \ 2 + 20, _
ClientRect.bottom \ 2 + 20 _
)
' Визуализация
Render(hWin)
```

Теперь можно рисовать при изменениях сцены прямо в MemoryDC:

```FreeBASIC
Sub Render(ByVal hWin As HWND)
' Прямоугольник обновления
Dim updRect As RECT = Any
SetRect( _
@updRect, _
ShapeRectangle.left — MOVE_DX — 1, _
ShapeRectangle.top — MOVE_DY — 1, _
ShapeRectangle.right + MOVE_DX + 1, _
ShapeRectangle.bottom + MOVE_DY + 1 _
)
' Стираем старое изображение
FillRect(MemoryDC, @updRect, Cast(HBRUSH, GetStockObject(BLACK_BRUSH)))
' Рисуем
Ellipse(MemoryDC, ShapeRectangle.left, ShapeRectangle.top, ShapeRectangle.right, ShapeRectangle.bottom)
' Выводим в окно
InvalidateRect(hWin, @updRect, FALSE)
End Sub
```

В обработчике WM_ERASEBKGND просто возвращаем TRUE, давая понять системе, что фон мы уже стёрли:

```FreeBASIC
Case WM_ERASEBKGND
Return TRUE
```

В обработчике WM_PAINT копируем изменённые участки из контекста памяти в окно:

```FreeBASIC
Case WM_PAINT
Dim ps As PAINTSTRUCT = Any
Dim hDC As HDC = BeginPaint(hWin, @ps)

BitBlt(hDC, ps.rcPaint.left, ps.rcPaint.top, ps.rcPaint.right, ps.rcPaint.bottom, _
MemoryDC, ps.rcPaint.left, ps.rcPaint.top, _
SRCCOPY _
)

EndPaint(hWin, @ps)
```

Очистка:

```FreeBASIC
Case WM_DESTROY
SelectObject(MemoryDC, OldMemoryBM)
DeleteObject(MemoryBM)
DeleteDC(MemoryDC)
PostQuitMessage(0)
```

Примечания.
1. Сохранять старый BITMAP и выбирать его обратно в процедуре очистки обязательно. Всё потому, что пока наш BITMAP выбран в контексте стройства, он не может быть удалён. Чтобы удалить наш BITMAP, надо «развыбрать» его обратно и выбрать предыдущий BITMAP. Это же относится к перьям, кистям и прочим GDI объектам, которые можно выбрать в контекст устройства.
2. Контекст устройства полученный через GetDC необходимо уничтожать через ReleaseDC. Контекст устройства полученный через CreateCompatibleDC необходимо удалять через DeleteDC. Контекст устройства, полученный через BeginPaint неявно удаляет система через EndPaint.
3. Некоторую сложность представляет изменение размера BITMAP при изменении размера окна. Когда окно меняет свой размер, то придётся уничтожать старый BITMAP и создавать новый по новому размеру клиентской области.
mabu
winapi Как рисовать в окне с двойной буферизацией:

Регистрируя класс окна, в структуре WNDCLASS устанавливаем hbrBackground = NULL.
В WM_CREATE создаём BITMAP.
В этом BITMAP рисуем при любых изменениях сцены и вызываем функцию InvalidateRect(hwnd, lpRect, FALSE) или InvalidateRgn(hwnd, lpRegion, FALSE).
В обработчике WM_PAINT копируем участки из BITMAP в hDC окна через BitBlt, не стирая содержимого окна.
В обработчике WM_ERASEBKGND просто возвращаем TRUE — это сигнал системе, что мы стёрли фон.
mabu
winapi Общее количество доступных объектов GDI варьируется от одной версии Windows к другой: Windows 95, 98 и Millennium имеют ограничение в 1200 объектов; Windows 2000 имеет ограничение в 16 384 объекта; а Windows XP, Vista и Windows 7 имеют настраиваемое ограничение через реестр, которое по умолчанию составляет 10000 объектов на процесс (но теоретический максимум 65 536 для всего сеанса).
mabu
Windows winapi freebasic Сделал программу. Она получает список доступных разрешений монитора, переключает разрешение и создаёт выскакивающее полноэкранное окно.
Для полноэкранного окна ведь достаточно стиля WS_POPUP? Или нужно что‐то ещё?
github.com
Добавить нескучную анимацию, что ли.