Subversion Repositories Kolibri OS

Rev

Rev 1652 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1652 Rev 1657
Line 50... Line 50...
50 
;------------
50 
;------------
51 
;---------------------------------------------------------------------
 51 
;---------------------------------------------------------------------
52 
;--- Start of program ----------------------------------------------
 52 
;--- Start of program ----------------------------------------------
53 
;---------------------------------------------------------------------
 53 
;---------------------------------------------------------------------
54 
START:
 54 
START:
- 
 
 55 
	mcall	40,0x27
- 
 
 56 
 
55 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
 57 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
56 
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
 58 
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
57 
       	test	eax,eax
 59 
       	test	eax,eax
58 
	jnz	exit
 60 
	jnz	exit
- 
 
 61 
;init checkboxes
- 
 
 62 
	push	dword check1
- 
 
 63 
	call	[init_checkbox]
- 
 
 64 
 
- 
 
 65 
	push	dword check2
- 
 
 66 
	call	[init_checkbox]
- 
 
 67 
 
- 
 
 68 
	push	dword check3
- 
 
 69 
	call	[init_checkbox]
- 
 
 70 
 
Line 59... Line 71...
59 
 
 71
60 
window:
 72 
window:
61 
	call draw_window		;ïåðâîíà÷àëüíî íåîáõîäèìî íàðèñîâàòü îêíî
 73 
	call draw_window		;ïåðâîíà÷àëüíî íåîáõîäèìî íàðèñîâàòü îêíî
62 
align 4
 74 
align 4
Line 73... Line 85...
73 
	call	[check_box_mouse]
 85 
	call	[check_box_mouse]
Line 74... Line 86...
74 
 
 86 
 
75 
	push	dword check2
 87 
	push	dword check2
Line -... Line 88...
- 
 
 88 
	call	[check_box_mouse]
- 
 
 89 
 
- 
 
 90 
	push	dword check3
- 
 
 91 
	call	[check_box_mouse]
76 
	call	[check_box_mouse]
 92 
 
77 
 
 93 
 
78 
	jmp still    ;åñëè íè÷åãî èç ïåðå÷èñëåííîãî òî ñíîâà â öèêë
 94 
	jmp still    ;åñëè íè÷åãî èç ïåðå÷èñëåííîãî òî ñíîâà â öèêë
79 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 95 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
80 
button:
 96 
button:
Line 97... Line 113...
97 
	call	[check_box_draw]
 113 
	call	[check_box_draw]
Line 98... Line 114...
98 
 
 114 
 
99 
	push	dword check2
 115 
	push	dword check2
Line -... Line 116...
- 
 
 116 
	call	[check_box_draw]
- 
 
 117 
 
- 
 
 118 
	push	dword check3
- 
 
 119 
	call	[check_box_draw]
100 
	call	[check_box_draw]
 120 
 
101 
 
 121 
 
102 
	mcall	12,2
 122 
	mcall	12,2
103 
	ret
 123 
	ret
104 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 124 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Line 117... Line 137...
117 
head_f_l		db 'System error',0
 137 
head_f_l		db 'System error',0
118 
err_message_import	db 'Error on load import library box_lib.obj',0
 138 
err_message_import	db 'Error on load import library box_lib.obj',0
Line 119... Line 139...
119 
 
 139 
 
Line -... Line 140...
- 
 
 140 
myimport:
120 
myimport:
141 
 
121 
 
 142 
init_checkbox	dd	aInit_checkbox
122 
check_box_draw	dd	aCheck_box_draw
 143 
check_box_draw	dd	aCheck_box_draw
123 
check_box_mouse dd	aCheck_box_mouse
 144 
check_box_mouse dd	aCheck_box_mouse
Line -... Line 145...
- 
 
 145 
version_ch	dd	aVersion_ch
124 
version_ch	dd	aVersion_ch
 146 
		dd	0,0
125 
		dd	0,0
 147 
 
126 
 
 148 
 
127 
 
 149 
aInit_checkbox	 db 'init_checkbox',0
128 
aCheck_box_draw  db 'check_box_draw',0
 150 
aCheck_box_draw  db 'check_box_draw',0
129 
aCheck_box_mouse db 'check_box_mouse',0
 151 
aCheck_box_mouse db 'check_box_mouse',0
- 
 
 152 
aVersion_ch	 db 'version_ch',0
130 
aVersion_ch	 db 'version_ch',0
 153 
;---------------------------------------------------------------------
131 
;---------------------------------------------------------------------
 154 
check1 check_box (20 shl 16 + 12),(45 shl 16 + 12),6,0xC0AABBCC,0,0x80000000,check_text,ch_flag_en
132 
check1 check_box (10 shr 16 + 12),(45 shr 16 + 12),6,0x80AABBCC,0,0,check_text,ch_flag_en
 155 
check2 check_box (20 shl 16 + 22),(60 shl 16 + 12),6,0xC0AABBCC,0,0x80000000,check_text2
133 
check2 check_box (10 shr 16 + 12),(60 shr 16 + 12),6,0x80AABBCC,0,0,check_text2
 156 
check3 check_box (20 shl 16 + 12),(75 shl 16 + 22),6,0xC0AABBCC,0,0x80000000,check_text3
134 
;---------------------------------------------------------------------
 157 
;---------------------------------------------------------------------
135 
hed		db 'CheckBox Exemples  date 03.10.2010',0
 158 
hed		db 'CheckBox Exemples  date 12.10.2010',0
- 
 
 159 
hed_end:
136 
hed_end:
 160 
;---------------------------------------------------------------------
137 
;---------------------------------------------------------------------
 161 
check_text	db 'First checkbox',0
138 
check_text	db 'First checkbox',0
 162 
check_text2	db 'Second checkbox',0
139 
check_text2	db 'Second checkbox',0
 163 
check_text3	db 'Number 3 checkbox',0
140 
;---------------------------------------------------------------------
 164 
;---------------------------------------------------------------------