*winapi

mabu

winapi Windows freebasic программирование Выпускаю релиз программы «Калькулятор сложного процента».
Копировать данные в буфер пока не умеет.

mabu

4 years ago

winapi Windows freebasic программирование Делаю программу «Калькулятор сложного процента»
github.com

mabu

4 years ago

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

4 years ago

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

4 years ago

winapi Общее количество доступных объектов GDI варьируется от одной версии Windows к другой: Windows 95, 98 и Millennium имеют ограничение в 1200 объектов; Windows 2000 имеет ограничение в 16 384 объекта; а Windows XP, Vista и Windows 7 имеют настраиваемое ограничение через реестр, которое по умолчанию составляет 10000 объектов на процесс (но теоретический максимум 65 536 для всего сеанса).

mabu

4 years ago

winapi Windows freebasic Сделал программу. Она получает список доступных разрешений монитора, переключает разрешение и создаёт выскакивающее полноэкранное окно.
Для полноэкранного окна ведь достаточно стиля WS_POPUP? Или нужно что‐то ещё?
github.com
Добавить нескучную анимацию, что ли.

OCTAGRAM

8 years ago

com winapi работа Автозавершение в текстовых элементах Windows
Так и не нашёл нормальный способ вручную пинать это автозавершение, чтоб оно список перечитывало и чтоб возможные варианты принудительно показывало. Возможные варианты, пока текст не набран, отсутствуют, а даже после того, как набран, нужно получить ответ по HTTP, и только тогда есть, что показать. Объект автозавершения читает пустой список и запоминает, а когда можно что-то показать, список для автозаполнения всё равно пустой. Пока остановился на варианте с RecreateWnd + SendMessage(WM_KEYDOWN, VK_DOWN).

Изолентой там всё скручено. Тут оконные ручки и оконные функции, а тут COM-интерфейсы, а как что-то надо, так и пнуть нечего. Ни сообщение нормальное послать, ни метод интерфейса вызвать.

zxc-by