Masm winapi font

Сейчас на форуме: localhost1, vsv1, asfa (+5 невидимых)

Посл.ответ	Сообщение
yoda31 Ранг: 1.2 (гость), 1thx Активность: 0.01=0.01 Статус: Участник	Создано: 17 марта 2020 19:08 · Личное сообщение · #1 Ребят, подскажите пожалуйста, есть программка на asm под masm с winapi и одним окошком (CreateWindowEx), хотелось бы поменять стандартный шрифт на кнопках, лэйблах, эдитах. Есть ли какие нибудь функции на подобие CreateFont, или еще какие способы?

_MBK_ Ранг: 63.5 (постоянный), 35thx Активность: 0.29↗0.96 Статус: Участник	Создано: 17 марта 2020 19:23 · Личное сообщение · #2 Поменять на нестандартный шрифт, который программа сама будет в систему устанавливать?
f13nd Ранг: 271.2 (наставник), 331thx Активность: 0.32↗1.49 Статус: Участник	Создано: 17 марта 2020 19:33 · Поправил: f13nd · Личное сообщение · #3 А зачем наподобие? CreateFontIndirectA(), SendMessageA(,WM_SETFONT,,) ----- 2 оттенка серого
BlackCode Ранг: 71.5 (постоянный), 95thx Активность: 0.1↗0.38 Статус: Участник	Создано: 17 марта 2020 19:56 · Личное сообщение · #4 yoda31 Можно так... из ресурсов загружать Code: LoadResourceFont proc uses ebx ecx edx esi edi dwResID:dword local cFonts:dword mov ebx,FUNC(FindResource,NULL,dwResID,RT_FONT) .if ebx mov esi,FUNC(LockResource,FUNC(LoadResource,NULL,ebx)) mov ebx,FUNC(SizeofResource,NULL,ebx) mov edi,FUNC(AddFontMemResourceEx,esi,ebx,NULL,addr cFonts) .if edi return edi .endif .endif return FALSE LoadResourceFont endp А потом так... Code: mov hOkFont,FUNC(CreateFont,32,0,0,0,0,0,0,0,DEFAULT_CHARSET,OUT_TT_ONLY_PRECIS,0,ANTIALIASED_QUALITY,0,chr$("BauhausStd-Bold")) И полученный хендл использовать для SendMessageA (WM_SETFONT)
yoda31 Ранг: 1.2 (гость), 1thx Активность: 0.01=0.01 Статус: Участник	Создано: 17 марта 2020 22:54 · Личное сообщение · #5 Спасибо большое, очень помогли! Если кто-то попадет в такую же ситуацию (вариант рабочей программы): Code: .386 .model flat, stdcall option casemap: none ;include C:/masm32/include/windows.inc ;include C:/masm32/include/kernel32.inc ;include C:/masm32/include/user32.inc include lib.inc ;взял только самое необходимое из вышеперечисленных библиотек и сохранил в собственной include C:/masm32/include/gdi32.inc ;обязательно для CreateFont includelib C:/masm32/lib/gdi32.lib includelib C:/masm32/lib/user32.lib includelib C:/masm32/lib/kernel32.lib .data hInstance dd ? ClassMainName db 'test',0 WinMainName db 'test ',0 ; labelType db "static",0 btn db "button",0 labelText db "Test",0 btnText db "button",0 edit db "edit",0 hfont dd ? lf LOGFONT <12,7,0,0,0,0,0,0,0,0,0,0,0,'Arial'> .const labelId equ 1 editId equ 2 btnId equ 3 .code start: invoke GetModuleHandle, 0 mov hInstance, eax invoke WinMain, hInstance,0, 0, 1 invoke ExitProcess, 0 WinMain proc hInst:HINSTANCE, hPrevInst:HINSTANCE, CmdLine:LPSTR, CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hWnd:HWND mov wc.cbSize, SIZEOF WNDCLASSEX mov wc.style, CS_HREDRAW or CS_VREDRAW mov wc.lpfnWndProc, OFFSET WndProc mov wc.cbWndExtra, 0 mov wc.cbClsExtra,DLGWINDOWEXTRA mov wc.hbrBackground,COLOR_BTNFACE+1 mov wc.lpszMenuName, 0 mov wc.lpszClassName, OFFSET ClassMainName invoke LoadIcon, 0, IDI_APPLICATION mov wc.hIcon, eax mov wc.hIconSm, eax invoke LoadCursor, 0, IDC_ARROW mov wc.hCursor, eax invoke RegisterClassEx, addr wc INVOKE CreateWindowEx,0,addr ClassMainName,addr WinMainName,\ WS_OVERLAPPEDWINDOW-WS_SIZEBOX-WS_MAXIMIZEBOX,CW_USEDEFAULT,\ CW_USEDEFAULT,400,200,0,0,\ hInst,0 mov hWnd, eax invoke ShowWindow, hWnd,1 invoke UpdateWindow, hWnd .while TRUE invoke GetMessage, addr msg, 0, 0, 0 .break .if(!eax) invoke TranslateMessage, addr msg invoke DispatchMessage, addr msg .endw mov eax, msg.wParam ret WinMain endp WndProc proc hWnd:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD ;mov eax, uMsg push esi push edi push ebx .IF uMsg==WM_CREATE invoke CreateFontIndirectA,addr lf mov hfont,eax invoke CreateWindowEx, 0,addr labelType,addr labelText,WS_CHILD or WS_VISIBLE ,12, 5, 200, 15, hWnd, labelId,hInstance, 0 invoke SendMessageA,eax,WM_SETFONT,hfont,1 invoke CreateWindowEx,WS_EX_CLIENTEDGE, addr edit,0,WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or ES_AUTOHSCROLL,12,25,200,25,hWnd,editId,hInstance,0 invoke SendMessageA,eax,WM_SETFONT,hfont,1 invoke CreateWindowEx,WS_EX_LTRREADING,addr btn,addr btnText,WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON,12,55,80,25,hWnd,btnId,hInstance,0 invoke SendMessageA,eax,WM_SETFONT,hfont,1 .ELSEIF uMsg==WM_COMMAND .ELSEIF uMsg==WM_DESTROY invoke PostQuitMessage, 0 .ELSE invoke DefWindowProc, hWnd, uMsg, wParam, lParam .ENDIF pop ebx pop edi pop esi ret WndProc endp end start Также оставляю пару-тройку ссылочек (кому то могут показаться полезными): --> Link <-- --> Link <-- --> Link <-- \| Сообщение посчитали полезным: Gideon Vi
dosprog Ранг: 431.7 (мудрец), 390thx Активность: 0.73↘0.32 Статус: Участник	Создано: 26 марта 2020 10:55 · Поправил: dosprog · Личное сообщение · #6 yoda31 пишет: Code: invoke RegisterClassEx, addr wc Лучше так: Code: mov eax, hInst mov wc.hInstance, eax invoke RegisterClassEx, addr wc
f13nd Ранг: 271.2 (наставник), 331thx Активность: 0.32↗1.49 Статус: Участник	Создано: 26 марта 2020 11:05 · Личное сообщение · #7 dosprog пишет: Лучше так А зачем, если при создании экземпляра этого класса база модуля (для чего бы она там ни была нужна) указывается? ----- 2 оттенка серого
dosprog Ранг: 431.7 (мудрец), 390thx Активность: 0.73↘0.32 Статус: Участник	Создано: 26 марта 2020 12:50 · Поправил: dosprog · Личное сообщение · #8 f13nd пишет: А зачем, если при создании экземпляра этого класса база модуля (для чего бы она там ни была нужна) указывается? Ну, вот я её и указал, добавленными инструкциями. Недоинициализированная как положено структура класса приводит к тому, что далее CreateWindowEx() хотя и отрабатывает нормально в Win7x64, но завершается с ошибкой под WinXP. И поскольку в этом сэмпле нет проверки на успешность CreateWindowEx(), то программка дальше тупо висит в памяти, не выводя никакого окна. --Добавлено-- Кстати, это не впервые замечено, что неаккуратно написанные программки хотя и работают в Win7[+], но оказываются неработающими или бажными в WinXP[-].

Для печати