High Level Assembly (HLA) >> Win32 API (HLA v1.x) >> Painting

Draw Text

---

參考資訊：
1. win32
2. masm32

使用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()顯示文字

Makefile

export WINEPREFIX=/home/user/.wine_amd64

TARGET=main
MYWINE=box86 wine

all:
	${MYWINE} hlaparse.exe -WIN32 -level=high -v -test ${TARGET}.hla
	${MYWINE} polink.exe @${TARGET}.link hlalib.lib ${TARGET}.obj /OUT:${TARGET}.exe

run:
	${MYWINE} ${TARGET}.exe

clean:
	rm -rf ${TARGET}.exe ${TARGET}.obj ${TARGET}.link

編譯、執行

$ make
$ make run

返回上一頁