работа со шрифтом

[cupoma58]

Привет.
Работаю с masm32, все инки и либы - подключены. Решил увеличить шрифт (Consolas) на дисплее.
создаём шрифт: font.inc

      push offset fntname
      push DEFAULT_PITCH+FF_SWISS   
      push DEFAULT_QUALITY          
      push CLIP_DEFAULT_PRECIS      
      push OUT_DEFAULT_PRECIS       
      push ANSI_CHARSET             
      push 0
      push 0
      push 0
      push FW_NORMAL
      push 0
      push 0
      push 0
      push 35                        
      call CreateFontA@14
      mov  fnt,eax

выводим текст: old.asm

  ...
  settext  proc                   
      push  offset stroka
      push  hWndEdt
      include font.inc
      push  fnt
      call  SelectObjectA@2
      call  SetWindowTextA@8                             
      ret
  settext  endp
  ...

общий результат: undefined symbol CreateFontA@14 и SelectObjectA@2
Что посоветуете?
P.S. Программа рабочая.

[p51x]

Проверять подключение Gdi32.lib

[macomics]

Кстати, почему у вас в функцию с 2 параметрами (@8) передается только один?

      push  fnt
      call  SelectObjectA@8

В функцию SelectObject@8 надо передавать не только hFont, но еще и hDC
Сейчас в нее передается два параметра

      push  hWndEdt
      push  fnt
      call  SelectObjectA@8

Но они не соответствуют ожиданиям функции.

P.S. Я вот тоже давно не трогал синтаксис с этой фигней и не помню сколько там надо показывать. После символа @ записано значение, которое равно количеству байт выталкиваемому из стека при возврате из вызова.

[cupoma58]

p51x,

.586  
.model flat, stdcall 

include old.inc 
 
includelib e:\masm32\lib\user32.lib 
includelib e:\masm32\lib\kernel32.lib 
includelib e:\masm32\lib\gdi32.lib  

include e:\masm32\include\user32.inc 
include e:\masm32\include\kernel32.inc
include e:\masm32\include\gdi32.inc  

_data segment 
    include  data.inc   
_data ends

_text segment 
.....

[cupoma58]

Сообщение от macomics

Кстати, почему у вас в функцию с 2 параметрами (@2) передается только один?

hWndEdt = hDC ?

[macomics]

Сообщение от cupoma58

hWndEdt = hDC ?

Не равен. hDC получается через вызов GetDC@4

push hWndEdit
call GetDC@4
mov hDC, eax

В случае с SelectObject@8 надо сделать так

      push  offset stroka
      push  hWndEdt
      include font.inc
      push  fnt
      push  hWndEdit
      call  GetDC@4
      push  eax
      call  SelectObjectA@8
      call  SetWindowTextA@8

А функции не найдены потому, что вы используете не верные префиксы. SelectObject@8 (2 * 4 = 8) CreateFont@56 (14 * 4 = 56)

ADD: Но вообще то для установки шрифта в окне стандартного класса EDIT надо отправить ему сообщение WM_SETFONT, а не менять объект hFont у hDC, т.к. стандартное окно создано со стилем CS_PARENTDC и не использует собственный hDC, а пользуется родительским. Но EDIT сохраняет объекты hFont отдельно и устанавливает их при выводе информации на экран. Поэтому для изменения шрифта надо сказать окну EDIT сохранить новый hFont путем отправки сообщения.

      include font.inc
      push  1 ; TRUE - немедленная перерисовка
      push  eax
      push  WM_SETFONT ; = 0030h
      push  hWndEdit
      call  SendMessageA@16
      push  offset stroka
      push  hWndEdt
      call  SetWindowTextA@8

[cupoma58]

macomics,
Благодарю за подсказку - совсем другой вид у арифмометра.