Subversion Repositories Kolibri OS

Rev

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

Rev 348 Rev 350
Line 69... Line 69...
69 
cl_curs_x	equ [edi+50]		;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
 69 
cl_curs_x	equ [edi+50]		;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
70 
cl_curs_y	equ [edi+54]		;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
 70 
cl_curs_y	equ [edi+54]		;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
71 
ed_shift_pos	equ [edi+58]
 71 
ed_shift_pos	equ [edi+58]
72 
ed_height=14 ; ¢ëá®â 
 72 
ed_height=14 ; ¢ëá®â 
73 
shift_color=0x6a9480
 73 
shift_color=0x6a9480
74 
ed_insert=10000b
 74 
ed_insert=100000b
75 
ed_insert_cl=1111111111101111b
 75 
ed_insert_cl=1111111111011111b
76 
;==========================================================
 76 
;==========================================================
77 
;=== ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ =================================
 77 
;=== ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ =================================
78 
;==========================================================
 78 
;==========================================================
79 
.draw:
 79 
.draw:
80 
pusha
 80 
pusha
Line 277... Line 277...
277 
;--- ¨§¬¥­ï¥¬ ᬥ饭¨¥ ------------------------------------
 277 
;--- ¨§¬¥­ï¥¬ ᬥ饭¨¥ ------------------------------------
278 
;--- eax = -1, ¥á«¨ ­¥ ¨§¬¥­¨«®áì ¨«¨ eax = 0, ¥á«¨
 278 
;--- eax = -1, ¥á«¨ ­¥ ¨§¬¥­¨«®áì ¨«¨ eax = 0, ¥á«¨
279 
; ¨§¬¥­¨«®áì
 279 
; ¨§¬¥­¨«®áì
280 
;----------------------------------------------------------
 280 
;----------------------------------------------------------
281 
.check_offset:
 281 
.check_offset:
282 
pushad
 282 
pusha
283 
	mov	ecx,ed_pos
 283 
	mov	ecx,ed_pos
284 
	mov	ebx,ed_offset
 284 
	mov	ebx,ed_offset
285 
	cmp	ebx,ecx
 285 
	cmp	ebx,ecx
286 
	ja	.sub_8
 286 
	ja	.sub_8
Line 342... Line 342...
342 
 
 342 
 
Line 343... Line 343...
343 
.chk_d:	mov	ed_offset,ebx
 343 
.chk_d:	mov	ed_offset,ebx
344 
 
 344 
 
345 
	call    .draw_bg
 345 
	call    .draw_bg
346 
	mov	dword [esp+28],-1
 346 
	mov	dword [esp+28],-1
Line 347... Line 347...
347 
popad
 347 
popa
348 
	ret
 348 
	ret
349 
 
 349 
 
350 
@@:
 350 
@@:
351 
	mov	dword [esp+28],0
 351 
	mov	dword [esp+28],0
352 
popad
 352 
popa
353 
	ret
 353 
	ret
354 
;==========================================================
 354 
;==========================================================
355 
;=== ®¡à ¡®âª  ª« ¢¨ âãàë =================================
 355 
;=== ®¡à ¡®âª  ª« ¢¨ âãàë =================================
356 
;==========================================================
 356 
;==========================================================
357 
.key:
 357 
.key:
Line 358... Line 358...
358 
pusha
 358 
pusha
359 
	test	word ed_flags,ed_focus ; ¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
 359 
	test	word ed_flags,ed_focus ; ¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
360 
	je     .no_figure ;@f
 360 
	je      @b
361 
 
 361 
 
Line 408... Line 408...
408 
 
 408 
 
409 
;¯à®¢¥àª  ­  shift
 409 
;¯à®¢¥àª  ­  shift
410 
@@:	test	word ed_flags,ed_shift_on
 410 
@@:	test	word ed_flags,ed_shift_on
411 
	je	@f
 411 
	je	@f
- 
 
 412 
	;‚室­ë¥ ¤ ­­ë¥ edx=ed_size;ecx=ed_pos
412 
	;‚室­ë¥ ¤ ­­ë¥ edx=ed_size;ecx=ed_pos
 413 
 
413 
	push	eax
 414 
	push	eax
414 
	mov	edx,ed_size
 415 
	mov	edx,ed_size
- 
 
 416 
	mov	ecx,ed_pos
- 
 
 417 
	pusha
415 
	mov	ecx,ed_pos
 418
- 
 
 419 
	cmp	edx,ecx
416 
        call	.del_char
 420 
	jne	.sh_cl
417 
;clear
 421 
;clear
418 
	mov	ebp,ed_color
 422 
	mov	ebp,ed_color
- 
 
 423 
        call	.sh_cl_
- 
 
 424 
        jmp	.sh_nxt
- 
 
 425 
.sh_cl: mov	ebp,edx ;ed_size
- 
 
 426 
        call	.clear_bg
- 
 
 427 
 
- 
 
 428 
.sh_nxt: popa
- 
 
 429 
	call	.del_char
419 
        call	.sh_cl_
 430
420 
;;;;
 431 
;;;;
421 
        mov	eax,ed_shift_pos
 432 
        mov	eax,ed_shift_pos
422 
        mov	ebx,ed_size
 433 
        mov	ebx,ed_size
423 
	sub	ebx,eax
 434 
	sub	ebx,eax