Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6677 → Rev 6676

/programs/develop/libraries/box_lib/trunk/editbox.mac
228,7 → 228,7
add ebx,2
shl ebx,16
add ebx,ed_top
add ebx,3
add ebx,2
mov ecx,ed_text_color
test dword ed_flags,ed_pass
jnz .password
270,6 → 270,7
inc ecx
shl ecx,16
add ecx,ed_height
dec ecx
mcall 13
ret
 
309,7 → 310,7
shl ecx,16
add ecx,edx
add ecx,ed_height
sub ecx,3
sub ecx,4
mov cl_curs_x,ebx
mov cl_curs_y,ecx
mov edx,ed_text_color
321,36 → 322,41
;--- ¯à®æ¥¤ãà  à¨á®¢ ­¨ï à ¬ª¨ ----------------------------
;----------------------------------------------------------
edit_box.draw_border:
;--- 梥â à ¬ª¨ ---
test word ed_flags,ed_focus
mov edx,ed_focus_border_color
jne @f
mov edx,ed_blur_border_color
@@:
;--- ᢥàåã ---
mov eax,38
mov ebx,ed_left
mov ecx,ebx
shl ebx,16
add ebx,ecx
mov bx,cx
add ebx,ed_width
mov ecx,ed_top
mov esi,ecx
shl ecx,16
add ecx,esi
mcall 38 ; top
mov cx,si
mcall
;--- á­¨§ã ---
mov esi,ecx
inc ecx
add ecx,ed_height
mov ebp,ecx
shl ecx,16
mov cx,bp
mcall ; bottom
mcall
;--- á«¥¢  ---
mov cx,si
mov ebp,ebx
sub ebx,ed_width
mcall ; left
mcall
;--- á¯à ¢  ---
mov ebx,ebp
shl ebx,16
mov bx,bp
mcall ; right
mcall
ret
 
;----------------------------------------------------------