-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathWM_Creat.inc
45 lines (34 loc) · 1.5 KB
/
WM_Creat.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
;--------------------------------------------
; Ñòðîêà ñîñòîÿíèÿ =
;--------------------------------------------
invoke CreateStatusWindow, WS_CHILD or WS_VISIBLE or SBS_SIZEGRIP, 0, [hwnd], 200
mov [hStatusBar], eax
invoke SendMessage, [hStatusBar], SB_SETPARTS, 3, StatusBarParts
invoke SendMessage, [hStatusBar], SB_SETTEXT, 0, E_mail
;---------------------------------------------------
; Èíèöèàëèçàöèÿ õîëñòà è âûäåëåíèå ïîä íåãî ïàìÿòè =
;---------------------------------------------------
invoke GetDC, [hwnd]
push eax
invoke CreateCompatibleDC, eax
mov [TmpDC], eax
pop eax
invoke CreateCompatibleBitmap, eax, 640, 460
mov [TmpBmp], eax
invoke SelectObject, [TmpDC], [TmpBmp]
;--------------------------------------------
; Ñîçäàíèå êèñòî÷åê è êàðàíäàøåé... =
;--------------------------------------------
invoke CreatePen, 0, 1, $FFFFFF
mov [WhitePen], eax
invoke CreatePen, 0, 1, $00FF00
mov [GreenPen], eax
invoke CreatePen, 0, 1, $0000FF
mov [RedPen], eax
invoke SetTextColor, [TmpDC], $AAAAAA ; Öâåò òåêñòà ïî óìîë÷àíèþ
invoke SetBkColor, [TmpDC], 0 ; ׸ðíûé öâåò ôîíà äëÿ õîëñòà
invoke GetStockObject, ANSI_VAR_FONT ; ANSI_FIXED_FONT ;SYSTEM_FONT ;
mov [hnewf], eax
invoke SelectObject, [TmpDC], [hnewf]
invoke SetTimer, [hwnd], 0, 200, 0 ;ñîçäà¸ì òàéìåð
ret ;jmp .finish