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 15... Line 15...
15
start:
15
start:
16
	load_library lib0_name, library_path, system_path, import_buf2d_lib
16
	load_library lib0_name, library_path, system_path, import_buf2d_lib
17
	cmp eax,-1
17
	cmp eax,-1
18
	jz button.exit
18
	jz button.exit
Line 19... Line 19...
19
 
19
 
20
	mcall 40,0x27
20
	mcall SF_SET_EVENTS_MASK, 0x27
21
	stdcall [buf2d_create], buf_0 ;ᮧ¤ ¥¬ ¡ãä¥à
21
	stdcall [buf2d_create], buf_0 ;ᮧ¤ ¥¬ ¡ãä¥à
22
	stdcall [buf2d_line], buf_0, 110, 20, 125, 90, 0xffff00 ;à¨á㥬 «¨­¨î
22
	stdcall [buf2d_line], buf_0, 110, 20, 125, 90, 0xffff00 ;à¨á㥬 «¨­¨î
23
	stdcall [buf2d_line], buf_0, 60, 120, 110, 20, 0xd000 ;à¨á㥬 «¨­¨î
23
	stdcall [buf2d_line], buf_0, 60, 120, 110, 20, 0xd000 ;à¨á㥬 «¨­¨î
24
	stdcall [buf2d_curve_bezier], buf_0, (10 shl 16)+20,(110 shl 16)+10,(50 shl 16)+90, dword 0xff
24
	stdcall [buf2d_curve_bezier], buf_0, (10 shl 16)+20,(110 shl 16)+10,(50 shl 16)+90, dword 0xff
Line 29... Line 29...
29
red_win:
29
red_win:
30
	call draw_window
30
	call draw_window
Line 31... Line 31...
31
 
31
 
32
align 4
32
align 4
33
still:
33
still:
34
	mcall 10
34
	mcall SF_WAIT_EVENT
35
	cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
35
	cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
36
	jz red_win
36
	jz red_win
37
	cmp al,2
37
	cmp al,2
38
	jz key
38
	jz key
Line 41... Line 41...
41
	jmp still
41
	jmp still
Line 42... Line 42...
42
 
42
 
43
align 4
43
align 4
44
draw_window:
44
draw_window:
45
	pushad
45
	pushad
Line 46... Line 46...
46
	mcall 12,1
46
	mcall SF_REDRAW, SSF_BEGIN_DRAW
47
 
47
 
48
	;mov edx,0x32000000
48
	;mov edx,0x32000000
Line 49... Line 49...
49
	mov edx,0x33000000
49
	mov edx,0x33000000
Line 50... Line 50...
50
	mcall 0,(50 shl 16)+330,(30 shl 16)+275,,,caption
50
	mcall SF_CREATE_WINDOW, (50 shl 16)+330,(30 shl 16)+275,,,caption
51
 
51
 
52
	stdcall [buf2d_draw], buf_0
52
	stdcall [buf2d_draw], buf_0
Line 53... Line 53...
53
 
53
 
54
	mcall 12,2
54
	mcall SF_REDRAW, SSF_END_DRAW
55
	popad
55
	popad
Line 56... Line 56...
56
	ret
56
	ret
57
 
57
 
Line 58... Line 58...
58
align 4
58
align 4
Line 59... Line 59...
59
key:
59
key:
60
	mcall 2
60
	mcall SF_GET_KEY
61
 
61
 
62
	cmp ah,27 ;Esc
62
	cmp ah,27 ;Esc
63
	je button.exit
63
	je button.exit
64
 
64
 
65
	jmp still
65
	jmp still
66
 
66
 
Line 67... Line 67...
67
align 4
67
align 4
Line 68... Line 68...
68
button:
68
button:
69
	mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨
69
	mcall SF_GET_BUTTON
Line 132... Line 132...
132
;--------------------------------------------------
132
;--------------------------------------------------
Line 133... Line 133...
133
 
133
 
134
i_end: ;ª®­¥æ ª®¤ 
134
i_end: ;ª®­¥æ ª®¤ 
135
	rb 1024
135
	rb 1024
136
stacktop:
136
stacktop:
137
cur_dir_path:
-
 
138
	rb 4096
137
cur_dir_path rb 4096
139
library_path:
-
 
140
	rb 4096
138
library_path rb 4096
141
mem:
-