KolibriOS/kolibrios
12
4
Fork 12
Code Issues 78 Pull Requests 5 Projects Releases Activity

upgrade

Browse Source 
git-svn-id: svn://kolibrios.org@350 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Alexey Teplov ( 2007-02-15 13:54:30 +00:00
parent d8eaebacbf
commit de2dc3ecef
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
programs/develop/examples/editbox/trunk/EDITBOX.INC
View File

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