Subversion Repositories Kolibri OS

Rev

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

Rev 7001 Rev 7128
Line 779... Line 779...
779 
;----------------------------------------------------------
 779 
;----------------------------------------------------------
780 
;------------------ Draw Cursor Procedure -----------------
 780 
;------------------ Draw Cursor Procedure -----------------
781 
;----------------------------------------------------------
 781 
;----------------------------------------------------------
782 
; in: ebp = Color
 782 
; in: ebp = Color
783 
edit_box.clear_cursor:
 783 
edit_box.clear_cursor:
784 
        mov     edx, ebp
 - 
 
785 
        movzx   ebx, word cl_curs_x
 784 
        movzx   ebx, word cl_curs_x
- 
 
 785 
        cmp     ebx, ed_left ;¯®¯ ¤ ¥â «¨ ªãàá®à ⥪á⮢®¥ ¯®«¥?
- 
 
 786 
        jle     @f
- 
 
 787 
        mov     edx, ebp
786 
        movzx   ecx, word cl_curs_y
788 
        movzx   ecx, word cl_curs_y
- 
 
 789 
        cmp     ecx, ed_top
787 
        jmp     edit_box.draw_curs
 790 
        jg      edit_box.draw_curs
- 
 
 791 
@@:
- 
 
 792 
        ret
Line 788... Line 793...
788 
 
 793 
 
789 
edit_box.draw_cursor:
 794 
edit_box.draw_cursor:
790 
        mov     edx, ed_text_color
795 
        mov     edx, ed_text_color
791 
        mov     eax, ed_pos
 796 
        mov     eax, ed_pos