Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 349 → Rev 350

/programs/develop/examples/editbox/trunk/EDITBOX.INC
71,8 → 71,8
ed_shift_pos equ [edi+58]
ed_height=14 ; ¢ëá®â 
shift_color=0x6a9480
ed_insert=10000b
ed_insert_cl=1111111111101111b
ed_insert=100000b
ed_insert_cl=1111111111011111b
;==========================================================
;=== ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ =================================
;==========================================================
279,7 → 279,7
; ¨§¬¥­¨«®áì
;----------------------------------------------------------
.check_offset:
pushad
pusha
mov ecx,ed_pos
mov ebx,ed_offset
cmp ebx,ecx
344,12 → 344,12
 
call .draw_bg
mov dword [esp+28],-1
popad
popa
ret
 
@@:
mov dword [esp+28],0
popad
popa
ret
;==========================================================
;=== ®¡à ¡®âª  ª« ¢¨ âãàë =================================
357,7 → 357,7
.key:
pusha
test word ed_flags,ed_focus ; ¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
je .no_figure ;@f
je @b
 
;à®¢¥àª  ­  ­ ¦ âë shift
xor ecx,ecx
410,13 → 410,24
@@: test word ed_flags,ed_shift_on
je @f
;‚室­ë¥ ¤ ­­ë¥ edx=ed_size;ecx=ed_pos
 
push eax
mov edx,ed_size
mov ecx,ed_pos
call .del_char
pusha
cmp edx,ecx
jne .sh_cl
;clear
mov ebp,ed_color
call .sh_cl_
jmp .sh_nxt
.sh_cl: mov ebp,edx ;ed_size
call .clear_bg
 
.sh_nxt: popa
call .del_char
;;;;
mov eax,ed_shift_pos
mov ebx,ed_size