Subversion Repositories Kolibri OS

Rev

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

Rev 6687 Rev 9568
Line 1... Line 1...
1 
window_h=85
 1 
window_h=85
2 
window_w=430
 2 
window_w=430
3 
;--- ¤à㣨¥ ¬ ªà®áë ---
 3 
;--- ¤à㣨¥ ¬ ªà®áë ---
- 
 
 4 
include '../../../KOSfuncs.inc'
4 
include '../../../develop/libraries/box_lib/load_lib.mac'
 5 
include '../../../load_lib.mac'
5 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 6 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
6 
include 'txtbut.inc'
 7 
include 'txtbut.inc'
7 
include '../../../macros.inc'
 8 
include '../../../macros.inc'
8 
include 'run.mac'
 9 
include 'run.mac'
9 
include 'lang.inc'
 10 
include 'lang.inc'
10 
use32
 11 
use32
11 
    org 0x0
 12 
    org 0
12 
    db 'MENUET01'
 13 
    db 'MENUET01'
13 
    dd 0x1
 14 
    dd 1
14 
    dd start
 15 
    dd start
15 
    dd i_end
 16 
    dd i_end
16 
    dd mem
 17 
    dd mem
17 
    dd mem
 18 
    dd mem
18 
    dd par
 19 
    dd par
Line 25... Line 26...
25 
	use_txt_button
 26 
	use_txt_button
26 
;        code
 27 
;        code
27 
;load system lib
 28 
;load system lib
28 
align 4
 29 
align 4
29 
start:
 30 
start:
30 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
 31 
sys_load_library  library_name, library_path, system_path, myimport
31 
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
 - 
 
32 
	cmp	eax,-1
 32 
	cmp	eax,-1
33 
	jz	close
 33 
	jz	close
Line 34... Line 34...
34 
 
 34 
 
35 
	cmp	[par],byte 0
 35 
	cmp	[par],byte 0
36 
	jne	read_par
 36 
	jne	read_par
37 
	mcall	40,EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW+EVM_MOUSE_FILTER
 37 
	mcall	SF_SET_EVENTS_MASK, EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW+EVM_MOUSE_FILTER
38 
red:
 38 
red:
39 
	mcall	48,3,sc,40
 39 
	mcall	SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,40
40 
	edit_boxes_set_sys_color input_fn,input_fn_end,sc
 40 
	edit_boxes_set_sys_color input_fn,input_fn_end,sc
41 
	set_sys_colors_txt_button run_but,sc
 41 
	set_sys_colors_txt_button run_but,sc
42 
	push	dword [sc.work_graph]
 42 
	push	dword [sc.work_graph]
43 
	pop	[input_fn.focus_border_color]
 43 
	pop	[input_fn.focus_border_color]
44 
	call	draw_window
 44 
	call	draw_window
45 
still:				;®á­®¢­®© ®¡à ¡®â稪
 45 
still:				;®á­®¢­®© ®¡à ¡®â稪
46 
	mcall	10		;Ž¦¨¤ âì ᮡëâ¨ï
 46 
	mcall	SF_WAIT_EVENT
47 
	dec  eax
 47 
	dec  eax
48 
	jz   red
 48 
	jz   red
49 
	dec  eax
 49 
	dec  eax
50 
	jz   key
 50 
	jz   key
Line 54... Line 54...
54 
	push	dword input_fn
 54 
	push	dword input_fn
55 
	call	[edit_box_mouse]
 55 
	call	[edit_box_mouse]
Line 56... Line 56...
56 
 
 56 
 
57 
	jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
 57 
	jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
58 
key:
 58 
key:
59 
	mcall	2
 59 
	mcall	SF_GET_KEY
60 
	cmp	ah,13
 60 
	cmp	ah,13
61 
	je	run
 61 
	je	run
62 
;        key_edit_box input_fn
 62 
;        key_edit_box input_fn
63 
	push	dword input_fn
 63 
	push	dword input_fn
Line 64... Line 64...
64 
	call	[edit_box_key]
 64 
	call	[edit_box_key]
65 
 
 65 
 
66 
	jmp	still
 66 
	jmp	still
67 
button:
 67 
button:
68 
	mcall	17
 68 
	mcall	SF_GET_BUTTON
69 
	dec	ah
 69 
	dec	ah
70 
	jz	close
 70 
	jz	close
71 
	dec	ah
 71 
	dec	ah
Line 131... Line 131...
131 
	mov	[edi],al
 131 
	mov	[edi],al
132 
	inc	esi
 132 
	inc	esi
133 
	inc	edi
 133 
	inc	edi
134 
	jmp	@b
 134 
	jmp	@b
135 
.stop:
 135 
.stop:
136 
	mcall	70,file_info
 136 
	mcall	SF_FILE,file_info
Line 137... Line 137...
137 
 
 137 
 
138 
	cmp	eax,0
 138 
	cmp	eax,0
139 
	jl	error
 139 
	jl	error
140 
	mov	[status],run_ok
 140 
	mov	[status],run_ok
141 
	call	draw_status
 141 
	call	draw_status
142 
	jmp	still
 142 
	jmp	still
143 
close:
 143 
close:
Line 144... Line 144...
144 
	mcall -1
 144 
	mcall SF_TERMINATE_PROCESS
145 
 
 145 
 
146 
error:
 146 
error:
147 
	neg	eax
 147 
	neg	eax
Line 156... Line 156...
156 
 
 156 
 
157 
	call	draw_status
 157 
	call	draw_status
Line 158... Line 158...
158 
	jmp	still
 158 
	jmp	still
159 
 
 159 
 
160 
draw_window:
 160 
draw_window:
Line 161... Line 161...
161 
	mcall	48,5
 161 
	mcall	SF_STYLE_SETTINGS,SSF_GET_SCREEN_AREA
162 
	mov	si,bx
 162 
	mov	si,bx
163 
 
 163 
 
164 
	mcall	12,1
 164 
	mcall	SF_REDRAW, SSF_BEGIN_DRAW
165 
	mcall	48,4
 165 
	mcall	SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT
166 
	mov	dx,ax
 166 
	mov	dx,ax
167 
	mcall	14
 167 
	mcall	SF_GET_SCREEN_SIZE
168 
	xor	ecx,ecx
 168 
	xor	ecx,ecx
169 
	sub	cx,window_h+40
 169 
	sub	cx,window_h+40
Line 179... Line 179...
179 
	mov	bx,window_w
 179 
	mov	bx,window_w
180 
	mov	edx,[sc.work]
 180 
	mov	edx,[sc.work]
181 
	or	edx,0x33000000
 181 
	or	edx,0x33000000
182 
	xor	esi,esi
 182 
	xor	esi,esi
183 
	mov	edi,grab_text
 183 
	mov	edi,grab_text
184 
	mcall	0
 184 
	mcall	SF_CREATE_WINDOW
Line 185... Line 185...
185 
 
 185 
 
Line 186... Line 186...
186 
	mcall	9,procinfo,-1
 186 
	mcall	SF_THREAD_INFO,procinfo,-1
187 
 
 187 
 
188 
	mov	eax,[procinfo.box.width]
 188 
	mov	eax,[procinfo.box.width]
189 
	sub	eax,20
 189 
	sub	eax,20
Line 198... Line 198...
198 
	; mov	cx,58
 198 
	; mov	cx,58
199 
	; push	cx
 199 
	; push	cx
200 
	; shl	ecx,16
 200 
	; shl	ecx,16
201 
	; pop	cx
 201 
	; pop	cx
202 
	; mov	edx,[sc.work_graph]
 202 
	; mov	edx,[sc.work_graph]
203 
	; mcall	38
 203 
	; mcall	SF_DRAW_LINE
Line 204... Line 204...
204 
 
 204 
 
205 
	; draw_edit_box input_fn
 205 
	; draw_edit_box input_fn
206 
	push	dword input_fn
 206 
	push	dword input_fn
Line 207... Line 207...
207 
	call	[edit_box_draw]
 207 
	call	[edit_box_draw]
Line 208... Line 208...
208 
 
 208 
 
Line 209... Line 209...
209 
	draw_txt_button run_but
 209 
	draw_txt_button run_but
210 
 
 210 
 
Line 211... Line 211...
211 
	call	draw_status_text
 211 
	call	draw_status_text
212 
 
 212 
 
213 
	mcall	12,2
 213 
	mcall	SF_REDRAW, SSF_END_DRAW
214 
ret
 214 
ret
215 
 
 215 
 
216 
draw_status:
 216 
draw_status:
217 
	mov	ebx,[procinfo.box.width]
 217 
	mov	ebx,[procinfo.box.width]
218 
	sub	bx,10
 218 
	sub	bx,10
219 
	mov	ecx,(60)*65536+15
 219 
	mov	ecx,(60)*65536+15
220 
	mov	edx,[sc.work]
 220 
	mov	edx,[sc.work]
221 
	mcall	13
 221 
	mcall	SF_DRAW_RECT
Line 228... Line 228...
228 
	inc	esi
 228 
	inc	esi
229 
	jmp	@b
 229 
	jmp	@b
230 
@@:
 230 
@@:
231 
	mov	ecx,[sc.work_text]
 231 
	mov	ecx,[sc.work_text]
232 
	or  ecx,0x90000000
 232 
	or  ecx,0x90000000
233 
	mcall	4,5*65536+(60)
 233 
	mcall	SF_DRAW_TEXT,5*65536+(60)
234 
ret
 234 
ret
Line 235... Line 235...
235 
 
 235 
 
236 
run_but txt_button 0,5,20,33,2,0,0x90000000,run_but_text,
 236 
run_but txt_button 0,5,20,33,2,0,0x90000000,run_but_text,
237 
input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0x90000000,511,fn,mouse_dd,ed_focus+ed_always_focus
 237 
input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0x90000000,511,fn,mouse_dd,ed_focus+ed_always_focus
Line 284... Line 284...
284 
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
 284 
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
285 
system_path	 db '/sys/lib/'
 285 
system_path	 db '/sys/lib/'
286 
library_name	 db 'box_lib.obj',0
 286 
library_name	 db 'box_lib.obj',0
287 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 287 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 288... Line -...
288 
 
 - 
 
289 
if lang eq ru
 - 
 
290 
err_message_found_lib	db 'Žè¨¡ª  ¯à¨ ¯®¨áª¥ box_lib.obj',0
 - 
 
291 
head_f_i:
 - 
 
292 
head_f_l	db '‘¨á⥬­ ï ®è¨¡ª ',0
 - 
 
293 
err_message_import	db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠box_lib.obj',0
 - 
 
294 
else
 - 
 
295 
err_message_found_lib	db 'Sorry I cannot load library box_lib.obj',0
 - 
 
296 
head_f_i:
 - 
 
297 
head_f_l	db 'System error',0
 - 
 
298 
err_message_import	db 'Error on load import library box_lib.obj',0
 - 
 
Line 299... Line 288...
299 
end if
 288 
 
Line 300... Line 289...
300 
 
 289 
 
301 
myimport:
 290 
myimport:
302 
 
 291 
 
303 
edit_box_draw	dd	aEdit_box_draw
 292 
edit_box_draw	dd	aEdit_box_draw
Line 304... Line -...
304 
edit_box_key	dd	aEdit_box_key
 - 
 
305 
edit_box_mouse	dd	aEdit_box_mouse
 293 
edit_box_key	dd	aEdit_box_key
Line 306... Line 294...
306 
version_ed	dd	aVersion_ed
 294 
edit_box_mouse	dd	aEdit_box_mouse
307 
 
 295 
version_ed	dd	aVersion_ed
308 
		dd	0
 296 
 
309 
		dd	0
 297 
		dd	0,0
Line 310... Line 298...
310 
 
 298 
 
311 
aEdit_box_draw	db 'edit_box',0
 299 
aEdit_box_draw	db 'edit_box_draw',0
312 
aEdit_box_key	db 'edit_box_key',0
 300 
aEdit_box_key	db 'edit_box_key',0
313 
aEdit_box_mouse db 'edit_box_mouse',0
 301 
aEdit_box_mouse db 'edit_box_mouse',0
314 
aVersion_ed	db 'version_ed',0
 302 
aVersion_ed	db 'version_ed',0
315 
 
 303