Subversion Repositories Kolibri OS

Rev

Rev 8236 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8236 Rev 9675
Line 18... Line 18...
18 
start:
 18 
start:
19 
	load_library lib0_name, library_path, system_path, import_buf2d_lib
 19 
	load_library lib0_name, library_path, system_path, import_buf2d_lib
20 
	cmp eax,-1
 20 
	cmp eax,-1
21 
	jz button.exit
 21 
	jz button.exit
Line 22... Line 22...
22 
 
 22 
 
23 
	mcall 40,0x27
 23 
	mcall SF_SET_EVENTS_MASK, 0x27
24 
	mcall 48,3,sc,sizeof.system_colors ;ïîëó÷àåì ñèñòåìíûå öâåòà
 24 
	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS,sc,sizeof.system_colors ;ïîëó÷àåì ñèñòåìíûå öâåòà
Line 25... Line 25...
25 
	stdcall [buf2d_create], buf_0 ;ñîçäàåì áóôåð
 25 
	stdcall [buf2d_create], buf_0 ;ñîçäàåì áóôåð
26 
 
 26 
 
27 
align 4
 27 
align 4
Line 28... Line 28...
28 
red_win:
 28 
red_win:
29 
	call draw_window
 29 
	call draw_window
30 
 
 30 
 
31 
align 4
 31 
align 4
32 
still:
 32 
still:
33 
	mcall 10
 33 
	mcall SF_WAIT_EVENT
34 
	cmp al,0x1 ;èçì. ïîëîæåíèå îêíà
 34 
	cmp al,1 ;èçì. ïîëîæåíèå îêíà
35 
	jz red_win
 35 
	jz red_win
36 
	cmp al,0x2
 36 
	cmp al,2
37 
	jz key
 37 
	jz key
38 
	cmp al,0x3
 38 
	cmp al,3
39 
	jz button
 39 
	jz button
Line 40... Line 40...
40 
	cmp al,0x6
 40 
	cmp al,6
41 
	jz mouse
 41 
	jz mouse
42 
	jmp still
 42 
	jmp still
43 
 
 43 
 
Line 44... Line 44...
44 
align 4
 44 
align 4
45 
draw_window:
 45 
draw_window:
46 
	pushad
 46 
	pushad
Line 47... Line 47...
47 
	mcall 12,1
 47 
	mcall SF_REDRAW, SSF_BEGIN_DRAW
Line 48... Line 48...
48 
 
 48 
 
49 
	mov edx,[sc.work]
 49 
	mov edx,[sc.work]
50 
	or  edx,0x33000000
 50 
	or  edx,0x33000000
Line 51... Line 51...
51 
	mcall 0,(50 shl 16)+500,(30 shl 16)+370,,,caption
 51 
	mcall SF_CREATE_WINDOW, (50 shl 16)+500,(30 shl 16)+370,,,caption
52 
 
 52 
 
53 
	stdcall [buf2d_draw], buf_0
 53 
	stdcall [buf2d_draw], buf_0
54 
 
 54 
 
55 
	mcall 12,2
 55 
	mcall SF_REDRAW, SSF_END_DRAW
56 
	popad
 56 
	popad
Line 57... Line 57...
57 
	ret
 57 
	ret
58 
 
 58 
 
59 
align 4
 59 
align 4
60 
key:
 60 
key:
61 
	mcall 2
 61 
	mcall SF_GET_KEY
62 
;       cmp ah,27 ;Esc
 62 
;       cmp ah,27 ;Esc
63 
;       je button.exit
 63 
;       je button.exit
64 
	jmp still
 64 
	jmp still
Line 65... Line 65...
65 
 
 65 
 
66 
align 4
 66 
align 4
67 
button:
 67 
button:
68 
	mcall 17 ;ïîëó÷èòü êîä íàæàòîé êíîïêè
 68 
	mcall SF_GET_BUTTON
69 
	cmp ah,1
 69 
	cmp ah,1
70 
	jne still
 70 
	jne still
71 
.exit:
 71 
.exit:
72 
	stdcall [buf2d_delete],buf_0 ;óäàëÿåì áóôåð
 72 
	stdcall [buf2d_delete],buf_0 ;óäàëÿåì áóôåð
73 
	mcall -1 ;âûõîä èç ïðîãðàììû
 73 
	mcall SF_TERMINATE_PROCESS
74 
 
 74 
 
75 
align 4
 75 
align 4
76 
mouse:
 76 
mouse:
Line 171... Line 171...
171 
;--------------------------------------------------
 171 
;--------------------------------------------------
Line 172... Line 172...
172 
 
 172 
 
173 
i_end: ;êîíåö êîäà
 173 
i_end: ;êîíåö êîäà
174 
	rb 2*4096
 174 
	rb 2*4096
175 
stacktop:
 175 
stacktop:
176 
	cur_dir_path:
 - 
 
177 
		rb 4096
 176 
	cur_dir_path rb 4096
178 
	library_path:
 - 
 
179 
		rb 4096
 177 
	library_path rb 4096
180 
mem:
 -