SysTabControl32
Добавлено: 22 сен 2005, 19:46
Нужно создать Таб контрол.
В WndProc делаю так:
В общем нефига не получается. Подскажите что-нибудь. Спасибо.
В WndProc делаю так:
Код: Выделить всё
.if Message == WM_CREATE
invoke CreateWindowEx, 0, offset szClassTabControl, 0, WS_CHILD or WS_VISIBLE or TCS_SINGLELINE or TCS_VERTICAL or TCS_TOOLTIPS or TCS_HOTTRACK, \
10, 10, 60, 60, hWnd, 0, hInstance, 0
mov hTabControl, eax
call SetFont
mov TC.imask, TCIF_TEXT
mov TC.pszText, offset szClassTabControl
invoke SendMessage, hTabControl, TCM_INSERTITEM, 0, offset TC
Код: Выделить всё
.data
szClassTabControl db "SysTabControl32", 0
.data?
TC TC_ITEM <?>
hInstance dd ?
hTabControl dd ?
hFont dd ?
.code
SetFont proc
invoke SendMessage, eax, WM_SETFONT, hFont, 0
ret
SetFont endp