TextOut, TextBox и шрифт

[Debugger]

При помощи отлавливания сообщений я хочу отрисовывать в текстбоксе текст разного шрифта. Для текста разного размера я использую CreateFontIndirect и SelectObject. Для получения hDC из hWnd (у текстбокса нет первого св-ва) я использую GetDC. Но по каким-то причинам шрифт не устанавливается, а текст рисуется.

[tyomitch]

Для текста разного размера я использую CreateFontIndirect и SelectObject.

А лучше бы WM_SETFONT

[Debugger]

Все таки, мне интересно, почему этот код не работает.
А WM_SETFONT - это SendMessage, да?

[Viper]

Все таки, мне интересно, почему этот код не работает.
А WM_SETFONT - это SendMessage, да?

Да.

[dr.MIG]

В прикреплённом примере не хватает модулей mdlFontIndirect и mdlFont, поэтому проверить работоспособность не представляется возможным.

[tyomitch]

Все таки, мне интересно, почему этот код не работает.

Потому что и не должен: GetDC/SelectObject положено вызывать непосредственно при отрисовке, а не для задания долгосрочных свойств.

[Debugger]

В прикреплённом примере не хватает модулей mdlFontIndirect и mdlFont, поэтому проверить работоспособность не представляется возможным.

Ой. Исправил

А WM_SETFONT - это SendMessage, да?

Да.

Так как используется сабклассинг (указано в первом посте), ты прав. Но не совсем. Наверно, достаточно вызвать CallWindowProc, указав WM_SETFONT. Так?
З.Ы. Отлавливая все события, которые отправляются к текстбоксу (вызывал txt.FontSize=20 и смотрел, что получится), я натолкнулся на события с кодом &H281 (WM_IME_SETCONTEXT) и с кодом &H100E (название его константы я не нашел). Можете объяснить, что делает первое и второе?

[Viper]

З.Ы. Отлавливая все события, которые отправляются к текстбоксу (вызывал txt.FontSize=20 и смотрел, что получится), я натолкнулся на события с кодом &H281 (WM_IME_SETCONTEXT) и с кодом &H100E (название его константы я не нашел). Можете объяснить, что делает первое и второе?

WM_IME_SETCONTEXT Sent to an application when a window is activated. A window receives this message through its WindowProc function.

То есть сообщение посылается приложению при активации окна.

[Debugger]

Потому что и не должен: GetDC/SelectObject положено вызывать непосредственно при отрисовке, а не для задания долгосрочных свойств.

Ну да. Я так и делаю:

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

SetIndirectFont FNT, GetDC(Form1.txt.hwnd)
TextOut GetDC(Form1.txt.hwnd), 0, 0, "123", 3

В итоге, мне кажется, или данные о шрифте поступают в текстбокс не через WindowProc, или с текстбоксом творится что-то страшное.
Сдаюсь
Added: даже через Font не хочет
Added-2: Через DrawTextEx тоже не идет. Злобный текстбокс.
Added-3: А кончилось тем, что VB завис

[tyomitch]

Потому что и не должен: GetDC/SelectObject положено вызывать непосредственно при отрисовке, а не для задания долгосрочных свойств.

Ну да. Я так и делаю:

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

SetIndirectFont FNT, GetDC(Form1.txt.hwnd)
TextOut GetDC(Form1.txt.hwnd), 0, 0, "123", 3

Вот так работает.

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

        Case WM_CHAR
            Dim hDC As Long
            hDC = GetWindowDC(Form1.pct.hwnd)
            SetIndirectFont FNT, hDC
            DrawText hDC, "123", 3, r, 0
            With Form1.txt
                .SelText = Chr(wParam)
            End With
            TextOut hDC, 0, 0, Form1.txt.Text, Len(Form1.txt.Text)


Но всё равно всё криво и неправильно. Как минимум, нехватает вызовов DeleteObject, ReleaseDC и проверки ошибок.
Очень надеюсь, что в реальном проекте всё это есть.

[Debugger]

Работает! Спасибо.
Реального проекта нет - я просто решил посмотреть, как работает сабклассинг.

.SelText = Chr(wParam)

Backspace тоже считается за WM_CHAR (да?), и его нужно обрабатывать отдельно.?