[МишаИнженер]

Почему функция CreatePen из библиотеки "gdi32.dll" создает сетку разных цветов?
Для запуска программы нажмите кнопку "Чертить нормально"

[Нубий-IV]

Потому что в функцию CreatePen надо передавать целочисленный цвет, а не дескриптор кисти.

Неправильно: hPen = CreatePen(PS_SOLID, 1, CreateSolidBrush(IЦветДопЛин))
Правильно: hPen = CreatePen(PS_SOLID, 1, IЦветДопЛин)

Когда создается новая кисть, она получает новый незанятый дескриптор. В результате у двух кистей одного цвета дескрипторы разные. При передаче в CreatePen они преобразуются в разные целые числа, что и дает разные цвета.

В WinApi специально создали пачку разных типов данных, чтобы компилятор ловил такие глюки. Не зря там все дескрипторы hBrush, hFont и т.п. - указатели. Есть даже режим компиляции, в котором дескрипторы разных видов объектов становятся разными типами, чтобы еще и кисти со шрифтами не путать. В бейсике тоже стоит как минимум объявлять дескрипторы как LongPtr, а не Long, чтобы потом не терять время на подобные ошибки.

Заодно тут утечка памяти, потому что созданные кисти и перья не освобождаются. И освобождать память надо всегда, даже при досрочных выходах из функций. Вот как развлекаются сишники в такой ситуации: О вреде GOTO-фобии (с примерами на C).

[МишаИнженер]

Спасибо Нубий-IV! Действительно в этом была проблема. Теперь все работает.
Код просто нашел подходящий, думал там все правильно, а оказалось с особенностями.
Теперь все нормально.
Там в коде функции активации формы есть отключенные строки кода:

Код:

[Выделить все]

'Настроим систему координат
'   retVal = SetMapMode(hdc, MM_ISOTROPIC)
'   retVal = SetWindowExtEx(hdc, CLng(mdWidth), CLng(mdHeight), OldSWd)
'   retVal = SetViewportExtEx(hdc, mdWidth, mdHeight, OldSVp)
'   retVal = SetViewportOrgEx(hdc, 0, mdHeight, OldP)

В этом коде задача настроить оси ситемы координат "как обычно": ось X слева направо, ось Y снизу вверх. Точка начала координат в левом нижнем углу. Но если включить эти строки, то форма вообще ничего не чертит.
Почему так происходит?

[Нубий-IV]

Сообщение от МишаИнженер Почему так происхо

Опять ошибки в объявлениях. Местами пропущены ByVal, местами вместо Long стоит Double. Это уже 1001 случай ошибок в объявлениях. Видимо, это будет универсальный ответ на все вопросы дальше .

[МишаИнженер]

Спасибо! Попробую исправить!
Методику настройки системы координат взял с этого сайта: https://frolov-lib.ru/books/bsp/v14/ch2_2.htm