;运行效果
;RadASM环境，win32汇编入门教程之七
;在上一个教程里面，我们学习如何把数据显示出来。但是感觉太丑了，在这一教程里，我们来学习一下怎样让它们变漂亮点。
;主要的内容是如何创建字体，设置字体的大小，设置背景色及文本色等。
;下列就是上一节教程的代码中加一些内容，可以直接复制下来，然后编译运行看看效果
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386
.model flat,stdcall
option casemap:none
include windows.inc
include user32.inc
include kernel32.inc
include gdi32.inc
includelib user32.lib
includelib kernel32.lib
includelib gdi32.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.DATA
ClassName db "SimpleWinClass",0
AppName db "窗口程序的模版",0
sz_FontName01 db "方正姚体",0
sz_FontName02 db "隶书",0
sF db "%d",0
hA dd 168
hD db "世界，你好!",0
.DATA?
hInstance HINSTANCE ?
CommandLine LPSTR ?
hB dd ?
.const;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 等值定义
hC equ 16800
.CODE
start:
invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke ExitProcess, eax
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
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.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInstance
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW + 1
mov wc.lpszMenuName,NULL
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,NULL, ADDR ClassName,ADDR AppName,WS_OVERLAPPEDWINDOW,100,100,400,300, NULL,NULL,hInst, NULL
mov hwnd,eax
invoke ShowWindow, hwnd,CmdShow
invoke UpdateWindow, hwnd
.while TRUE
invoke GetMessage, ADDR msg,NULL,0,0
.break .if (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.endw
mov eax,msg.wParam
ret
WinMain endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
LOCAL @stPs:PAINTSTRUCT
LOCAL @szBuffer[256]:byte
LOCAL @hDc
LOCAL @hFont01,@hOldFont01 ;设置字体变量
LOCAL @hFont02,@hOldFont02
.if uMsg == WM_CREATE
.elseif uMsg == WM_PAINT
invoke BeginPaint,hWnd,addr @stPs
mov @hDc,eax
invoke CreateFont,23,12,0,0,FW_BLACK,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_CHARACTER_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH or FF_SWISS,addr sz_FontName01 ;创建新字体
mov @hFont01,eax
invoke SelectObject,@hDc,@hFont01
mov @hOldFont01,eax
;设置新字体及各种参数
invoke SetTextAlign,@hDc,TA_TOP or TA_LEFT ;左对齐或顶端对齐
invoke SetTextCharacterExtra,@hDc,1 ;设置字符间距
invoke SetTextColor,@hDc,663366H ;设置文本颜色
;下面显示168
invoke wsprintf,addr @szBuffer,addr sF,hA
invoke lstrlen,addr @szBuffer
invoke TextOut,@hDc,100,30,addr @szBuffer,eax ;显示函数
;下面显示1680
mov hB,1680
invoke wsprintf,addr @szBuffer,addr sF,hB
invoke lstrlen,addr @szBuffer
invoke TextOut,@hDc,100,80,addr @szBuffer,eax
invoke SelectObject,@hDc,@hOldFont01 ;恢复原来的字体
invoke DeleteObject,@hFont01 ;删除创建的字体
invoke CreateFont,28,14,0,0,FW_NORMAL,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_CHARACTER_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH or FF_SWISS,addr sz_FontName01 ;创建新字体
mov @hFont02,eax
invoke SelectObject,@hDc,@hFont02
mov @hOldFont02,eax
;设置新字体及各种参数
invoke SetTextAlign,@hDc,TA_TOP or TA_LEFT
invoke SetTextCharacterExtra,@hDc,1
invoke SetTextColor,@hDc,0000CDH
;下面显示16800
invoke wsprintf,addr @szBuffer,addr sF,hC
invoke lstrlen,addr @szBuffer
invoke TextOut,@hDc,100,130,addr @szBuffer,eax
;下面显示"世界，你好！"
invoke lstrlen,addr hD
invoke TextOut,@hDc,100,180,addr hD,eax
invoke SelectObject,@hDc,@hOldFont02
invoke DeleteObject,@hFont02
invoke EndPaint,hWnd,addr @stPs
.elseif uMsg == WM_DESTROY
invoke PostQuitMessage,NULL
.else
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.endif
xor eax,eax
ret
WndProc endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
end start
;在教程六里面，我们尝试着显示了4样东西，但看起来总是丑，显得很不专业
;在这个教程里，我们添加了一些代码，让它看起来没那么突兀。下面看添加的句子的意思
;sz_FontName db "方正姚体",0 这一句的意思是，定义一种字体的字符串名称，后面在创建新字体时使用。这种字体必须是电脑里面已经安装的。
;mov wc.hbrBackground,COLOR_WINDOW + 1 这一句的意思是，把窗口背景色加1，就可以和显示文本的背景色一样。
;当然，也可以另外设置文本的背景色。可以调用SetBkColor函数
;COLOR_WINDOW的值是5，像这种的是系统预定义的符号，它在一某些头文件里定义了，直接用就可以。
;所以，把COLOR_WINDOW + 1改成6，也是一样的意思
;如果编译运行后发现窗口不见了，再次编译运行又说无法删除，则可以在电脑最下面的那一栏，点右键。选启动任务管理器，在进程里找到这个程序，按右键，选结束进程。再重新编译运行。
;这里有个理论要知道。有一种叫显示设备上下文，就是窗口怎么显示，通过BeginPaint得到
;在这里，可以设置显示出来的东西，比如字符串的字体、大小或颜色等。
;如果设置了新的，就要把原来旧的设置保存下来，在离开的时候把旧的恢复回去
;如果不恢复回去，就会所系统的设置搞乱了。
;CreateFont的函数是创建新的字体，这个创建不是从零开始创建，只是使用电脑已经安装有的字体，从新设置字体的各项参数。
;SelectObject函数是把新创建的字体选入设备，就是在显示的时候使用这种字体。同时它的返回值，就是原来旧的字体，所以要保存起来。
;SetTextAlign、SetTextCharacterExtra、SetTextColor这三个函数我们看边上的解释就大概的明白它的意思。
;上面的例子创建了2种字体，产生了不同的效果。
;在新的设置使用完后，记得再次使用SelectObject函数，把原来旧的字体又设置回去。我们可以观察每次参数的不同，参数来自哪里。
;在恢复为原状后，要调用DeleteObject函数把原来创建的字体删除掉。
