參考網站:
http://winapi.freetechsecrets.com/win32/
http://masm32.com/board/index.php?topic=3584.0
https://www.plantation-productions.com/Webster/
https://www.plantation-productions.com/Webster/Win32Asm/win32API.html
使用TextOut()顯示文字時,只有X、Y參數可以用來設定顯示的位置,當文字長度超過顯示區域時,就需要拆解文字,包含置中顯示也是需要花費額外的計算,如果遇到這些問題,建議使用DrawText()顯示文字,DrawText()提供更多選項使用,包含多行顯示、置中顯示,使用者只需要傳入顯示範圍即可
main.hla
program main; #include("w.hhf") #include("args.hhf") #include("memory.hhf") #include("strings.hhf") static hWin: dword; hInstance: dword; CommandLine: string; defWndProc: dword; readonly szCaption: string:= "main"; szMsg: string:= "Test"; szFont: string:= "Arial"; OUT_OUTLINE_PRECIS: dword:= 8; CLIP_DEFAULT_PRECIS: dword:= 0; CLEARTYPE_QUALITY: dword:= 5; procedure WndProc(hWnd:dword; uMsg:uns32; wParam:dword; lParam:dword); @stdcall; var hdc: dword; font: dword; ps: w.PAINTSTRUCT; begin WndProc; if (uMsg == w.WM_PAINT) then w.BeginPaint(hWnd, ps); mov(eax, hdc); w.CreateFont(48, 0, 0, 0, w.FW_BOLD, 0, 0, 0, 0, OUT_OUTLINE_PRECIS, CLIP_DEFAULT_PRECIS, CLEARTYPE_QUALITY, w.DEFAULT_PITCH | w.FF_DONTCARE, szFont); mov(eax, font); w.SetTextColor(hdc, $ff0000); w.SetBkMode(hdc, w.TRANSPARENT); w.SelectObject(hdc, font); w.DrawText(hdc, szMsg, str.length(szMsg), ps.rcPaint, w.DT_SINGLELINE | w.DT_CENTER | w.DT_VCENTER); w.EndPaint(hWnd, ps); w.DeleteObject(font); xor(eax, eax); elseif (uMsg == w.WM_CLOSE) then w.DestroyWindow(hWnd); xor(eax, eax); elseif (uMsg == w.WM_DESTROY) then w.PostQuitMessage(0); xor(eax, eax); else w.CallWindowProc(defWndProc, hWnd, uMsg, wParam, lParam); endif; end WndProc; procedure WinMain(hInst:dword; hPrevInst:dword; CmdLine:string; CmdShow:dword); var msg: w.MSG; begin WinMain; w.CreateWindowEx(w.WS_EX_LEFT, w.WC_DIALOG, szCaption, w.WS_OVERLAPPEDWINDOW | w.WS_VISIBLE, 0, 0, 300, 300, 0, 0, NULL, NULL); mov(eax, hWin); w.SetWindowLong(hWin, w.GWL_WNDPROC, &WndProc); mov(eax, defWndProc); forever w.GetMessage(msg, NULL, 0, 0); breakif(!eax); w.DispatchMessage(msg); endfor; mov(msg.wParam, eax); end WinMain; begin main; w.GetModuleHandle(NULL); mov(eax, hInstance); mov(arg.cmdLn(), CommandLine); WinMain(hInstance, NULL, CommandLine, w.SW_SHOWNORMAL); w.ExitProcess(eax); end main;
Line 41:使用DrawText()顯示文字
完成