WebSVN – Kolibri OS – Diff – /programs/develop/examples/editbox/trunk/editbox.mac


; ªà®á ¤«ï ¢ë¢®¤  ®á­®¢­ëå äã­ªæ¨© ª®â®àë¥ ¨á¯«ì§ãîâáï ¡®ªá®¬
macro use_general_func
{
;debug_func
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ ¢ë¤¥«¥­®© ç áâ¨ -----------------
;----------------------------------------------------------
.draw_shift:
        test    word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        jz      @f
        mov     ebp,shift_color
        mov     ebx,dword       ed_shift_pos
        call    .sh_cl_
@@:     ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ â¥ªáâ  --------------------------
;----------------------------------------------------------
.draw_text:
;--- ¢ëç¨á«ï¥¬, áª®«ìª® ¯®¬¥é ¥âáï á¨¬¢®«®¢ ---
;--- çâ®¡ë ¬ãá®à ­¥ à¨á®¢ âì ---
        call    .get_n
        mov     esi,ed_size
        mov     ebx,ed_offset
        sub     esi,ebx
        cmp     eax,esi
        jae     @F
        mov     esi,eax         ;çâ®¡ë ­¥ ¢ëå®¤¨âì §  ¯à¥¤¥«ë íªà ­ 
;--- à¨áã¥¬ â¥ªáâ ---                                            
@@:     mov     eax,4
        mov     ebx,ed_left
        mov     edx,ed_offset
        add     ebx,2
        shl     ebx,16
        add     ebx,ed_top
        mov     ecx,ed_text_color
        add     ebx,4
        add     edx,ed_text
        mcall
ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ ä®­  ----------------------------
;¢å®¤­ë¥ ¤ ­­ë¥
;eax
;edx - color
;----------------------------------------------------------
;¢å®¤ â®«ìª® æ¢¥â edx
.draw_bg:
        mov     ebx,ed_left
        add     ebx,1
        mov     edx,ed_color
        shl     ebx,16
        add     ebx,ed_width
        sub     ebx,1
.draw_bg_eax:
        mov     ecx,ed_top
        mov     eax,13
        add     ecx,1
        shl     ecx,16
        add     ecx,ed_height
        dec     ecx
        mcall   
ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯®«ãç¥­¨ï ª®«¨ç¥áâ¢  á¨¬¢®«®¢ ¢ â¥ªãé¥© é¨à¨­¥ ª®¬¯®­¥­â 
;----------------------------------------------------------
.get_n:
        mov     eax,ed_width    ;¯®«ãç¥¬ è¨à¨­ã ª®¬¯®­¥­â 
        xor     edx,edx   ;à¥§ã«ìâ â à á¯®«®£ ¥âáï ¢ ¯ à¥ edx:eax ¢ eax - ®áâ â®ª
        sub     eax,4           ;¢ëçâ¨¬ 4
        mov     ebx,6           ;§ £àã§¬¨ ¤¥«¨â¥«ì
        div     ebx             ;à §¬¤¥«¨¬ ­  6
ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  à¨á®¢ ­¨ï ªãàá®à  --------------------------
;----------------------------------------------------------
;¢å®¤­ë¥ ebp- æ¢¥â
.clear_cursor:
        mov     edx,ebp
        mov     ebx,cl_curs_x
        mov     ecx,cl_curs_y
        jmp     .draw_curs
.draw_cursor:
        mov     edx,ed_text_color
        mov     ebx,ed_pos
        mov     ecx,ed_offset
        sub     ebx,ecx
 
        lea     ebx,[ebx*2+ebx]
        shl     ebx,1
        ;imul   ebx,6
        add     ebx,ed_left
        mov     ecx,ed_top
        inc     ebx
        add     ecx,2
        mov     ebp,ebx
        shl     ebx,16
        mov     bx,bp
        mov     ebp,ecx
        
        shl     ecx,16
        mov     cx,bp
        add     ecx,ed_height-4
        
        mov     cl_curs_x,ebx
        mov     cl_curs_y,ecx
.draw_curs:              
        mcall   38
ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  à¨á®¢ ­¨ï à ¬ª¨ ----------------------------
;----------------------------------------------------------
.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
        mov     bx,cx
        add     ebx,ed_width
        mov     ecx,ed_top
        mov     esi,ecx
        shl     ecx,16
        mov     cx,si
        mcall
;--- á­¨§ã ---
        mov     esi,ecx
        add     ecx,ed_height
        mov     ebp,ecx
        shl     ecx,16
        mov     cx,bp
        mcall
;--- á«¥¢  ---
        mov     cx,si
        mov     ebp,ebx
        sub     ebx,ed_width
        mcall
;--- á¯à ¢  ---
        mov     ebx,ebp
        shl     ebx,16
        mov     bx,bp
        mcall
ret
;----------------------------------------------------------
;--- ¯à®¢¥àª , § è¥« «¨ ªãàá®à §  £à ­¨æë ¨, ¥á«¨ ­ ¤®, ---
;--- ¨§¬¥­ï¥¬ á¬¥é¥­¨¥ ------------------------------------
;--- ¥á«¨ á¬¥é¥­¨¥ ¡ë«® ãáâ ­®¢ª  ä« £  ed_offset_cl ¨­ ç¥
; ¥á«¨ ­¨ç¥£® ­¥ ¨§¬¥­¨«®áì â® ¢ëáâ ¢«¥­¨¥ ed_offset_fl
; ¢ ®¡é¥© ¡¨â®¢®© ¬ àà¨æ¥ á®áâ®ï­¨ï ª®¬¯®­¥­â®¢ word ed_flags
;----------------------------------------------------------
.check_offset:
pusha
        mov     ecx,ed_pos
        mov     ebx,ed_offset
        cmp     ebx,ecx
        ja      .sub_8
 
        push    ebx
        call    .get_n                  ;¯®«ãç¨¬ ª®«-¢® á¨¬¢®«®¢ ¢ ¯ à¥ à¥£¨áâà®¢ edx:eax 
        pop     ebx
        mov     edx,ebx
        add     edx,eax         ;ed_offset+width editbox
        inc     edx             ;­¥®¡å®¤¨¬® ¤«ï ­®¬ «ì­®£® ¯®«®¦¥­¨ï ªãàá®à  ¢ ªà ©­¥© «¥¢®© ¯®§¨æ¨¨
        cmp     edx,ecx
        ja      @f
 
        mov     edx,ed_size
        cmp     edx,ecx
        je      .add_end
 
        sub     edx,ecx
        cmp     edx,8
        jbe     .add_8
        add     ebx,8
        jmp     .chk_d
 
.sub_8: cmp     ecx,0
        je      .sub_min
        cmp     ebx,8
        jbe     .sub_min
        sub     ebx,8   ;ebx=ed_offset
        jmp     .chk_d
.sub_min:
        xor     ebx,ebx
        jmp     .chk_d
 
.add_end:sub    edx,eax
        mov     ebx,edx
        jmp     .chk_d
.add_8: add     ebx,edx
.chk_d: mov     ed_offset,ebx
        call    .draw_bg
        and     word ed_flags,ed_offset_cl
edit_ex
@@:
        or      word ed_flags,ed_offset_fl
edit_ex
}
 
macro use_key_func
{
;¡à ¡®âª  Shift ¤«ï á­ïâ¨ï ¢ë¤¥«¥­¨ï ­¥¨§¢¥áâ­®© ®¡« áâ¨
.shift: ;;;;;;;SHIFT
        test    word ed_flags,ed_shift
        je      .f_exit
 
@@:     mov     ebp,shift_color
        or      word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        mov     ebx,dword       ed_shift_pos
        call    .sh_cl_
        jmp     .draw_cursor_text
;;;;;;;;;;;;;;;;;;;;;
.f_exit:call    .check_offset
        and     word ed_flags,ed_shift_cl
        call    .enable_null
        jmp     .draw_cursor_text
.sh_cl_:
;;;;;;SHIFT end
;®¡à ¡®âª  ®ç¨áâª¨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥­¨¨ ¢ë¤¥«¥­¨ï
;¤«ï ®¡à ¡®âª¨ á­ïâ¨ï ¢ë¤¥«¥­¨ï
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        mov     eax,dword       ed_pos
        cmp     eax,ebx
 
        jae     .sh_n
        push    eax  ;¬¥­ìè¥¥ ¢ eax
        push    ebx  ;¡®«ìè¥¥
        jmp     .sh_n1
                     ;¥á«¨ ¨­ ç¥
.sh_n:  push    ebx  
        push    eax
.sh_n1: 
        call    .check_offset
        call    .get_n
        mov     edx,eax ;size of ed_box
        mov     ecx,ed_offset
        add     eax,ecx ;eax = w_off= ed_offset+width
        mov     edx,eax ;save
        pop     ebx     ;¡®«ìè¥¥
        pop     eax     ;¬¥­ìè¥¥
 
        cmp     eax,ecx         ;áà ¢­¥­¨¥ á ¬¥­ìè¥£® á offset.
        jae     .f_f            ;¥á«¨ ¡®«ìè¥
        xor     eax,eax
        cmp     edx,ebx         ;cà ¢­¨¬ à §¬¥à w_off á ¡®«ìè¨¬
        jb      @f
        sub     ebx,ecx
        jmp     .nxt_f
@@:     mov     ebx,edx
        sub     ebx,ecx 
        jmp     .nxt_f
.f_f:   
        sub     eax,ecx
        cmp     edx,ebx         ;cà ¢­¨¬ à §¬¥à w_off á ¡®«ìè¨¬
        jle     @f
        sub     ebx,ecx
        sub     ebx,eax
        jmp     .nxt_f
@@:
        mov     ebx,edx 
        sub     ebx,ecx
        sub     ebx,eax
.nxt_f:
        mov     edx,ebx
        lea     ebx,[eax*2+eax]
        shl     ebx,1
        add     ebx,ed_left
        inc     ebx
        shl     ebx,16
        lea     ecx,[edx*2+edx]
        shl     ecx,1   
        mov     bx,cx
        inc     ebx
        mov     edx,ebp;shift_color
 
        call    .draw_bg_eax
@@:     call    .enable_null
        ret
;;;;;;;;;;;;;;;;;;;;;
;áâ ­®¢ª - á­ïâ¨¥ ¢ë¤¥«¥­¨ï ¢ ®¤¨­ á¨¬¢®«
;;;;;;;;;;;;;;;;;;;;;
.drw_sim:
        mov     eax,dword       ed_pos
        call    .draw_rectangle   ;­ à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª á § ¤ ­­ë¬ æ¢¥â®¬
        jmp     @b
;;;;;;;;;;;;;;;;;;;;;
;ãªæ¨ï ãáâ ­®¢ª¨ ¢ë¤¥«¥­¨ï ¯à¨ ¤¢¨¦¥­¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ­ ¦ â¨¨ shift
;®£¨ª : 
;;;;;;;;;;
.draw_wigwag:
;äã­ªæ¨ï ãáâ ­®¢ª¨ ¯¥à¥¬¥­­ëå
        mov     ebp,shift_color
        call    .clear_cursor
 
        or      word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        mov     ebp,shift_color
        mov     eax,dword       ed_pos
        test    word ed_flags,ed_left_fl
        jz      .low
        jmp     @f
;;;;;;;;;;
;ãªæ¨ï ã¤ «¥­¨ï ¢ë¤¥«¥­¨ï ¯à¨ ¤¢¨¦¥­¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ­ ¦ â¨¨ shift
;®£¨ª : 
;;;;;;;;;;
.draw_wigwag_cl:
;äã­ªæ¨ï ãáâ ­®¢ª¨ ¯¥à¥¬¥­­ëå
        mov     ebp,ed_color
        call    .clear_cursor
 
        mov     ebp,ed_color
        mov     eax,dword       ed_pos
        test    word ed_flags,ed_left_fl
        jz      .low
@@:     call    .draw_rectangle  ;­ à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª § ªà è¨¢ ¥¬®© ®¡« áâ¨
        ret
.low:   dec     eax
        jmp     @b
;¢å®¤­®© ¯ à ¬¥âà ebx - ed_pos
.sh_first_sh:
        test    word ed_flags,ed_shift
        je      @f
        mov     dword ed_shift_pos_old,ebx
        test    word ed_flags,ed_shift_on
        jne     @f
        mov     dword ed_shift_pos,ebx
        or      word ed_flags,ed_shift_on
@@:     ret
;¡à ¡®âª  ªà ©­¨å ¯®«®¦¥­¨© ¢ editbox ¯à¨ ­ ¦ â®¬ shift
;¯à®¨§¢®¤¨â á­ïâ¨¥ ¢ë¤¥«¥­¨¥, ¥á«¨ ­¥â shift
;¨­ ç¥ ¢®®¡é¥ ¢ëå®¤¨â
.sh_st_of:
        test    word ed_flags,ed_shift
        jne     @f
        test    word ed_flags,ed_shift_bac
        je      @f
        mov     ebp,ed_color
        mov     ebx,dword       ed_shift_pos
        call    .sh_cl_  ;®ç¨áâª  ¢ë¤¥«¥­®£® äà £¬¥­â 
        and     word ed_flags,ed_shift_cl ; ®ç¨áâª  ®â â®£® çâ® ã¡à «¨ ¢ë¤¥«¥­¨¥ 
        jmp     .draw_cursor_text
@@:
        and     word ed_flags,ed_shift_off
edit_ex
;¯à®¢¥àª  á®áâ®ï­¨ï shift ¡ë« «¨ ®­ ­ ¦ â à ­ìè¥?
.sh_enable:
        test    word ed_flags,ed_shift
        jne     .sh_ext_en ;­ à¨á®¢ âì § ªà è¥­ë© ¯àï¬®ã£®«ì­¨ª
 
        test    word ed_flags,ed_shift_bac
        je      @f
        call    .check_offset
 
        mov     ebp,ed_color
        mov     ebx,dword       ed_shift_pos
        call    .sh_cl_  ;®ç¨áâª  ¢ë¤¥«¥­®£® äà £¬¥­â 
        call    .draw_wigwag_cl 
        and     word ed_flags,ed_shift_cl ; 1¢ à ­¥ ­ã¦­® 
        ret
 
@@:     mov     ebp,ed_color
        call    .clear_cursor
        call    .check_offset
        ret
.sh_ext_en:     
        call    .check_offset
        test    word ed_flags,ed_offset_fl
        je      @f
;¨á®¢ ­¨¥ § ªà è¥­ëå ¯àï¬®ã£®«ì­¨ª®¢ ¨ ®ç¨áâª  ¨å
        mov     eax,dword       ed_shift_pos
        mov     ebx,dword       ed_pos
        mov     ecx,dword       ed_shift_pos_old
;¯à®¢¥àª  ¨ à¨á®¢ ­¨¥ § ªà è¥­ëå ®¡« áâ¥©
        cmp     eax,ecx
        je      .1_shem
        jb      .smaller
        cmp     ecx,ebx
        ja      .1_shem
        call    .draw_wigwag_cl ;clear
        jmp     .sh_e_end
.smaller:
        cmp     ecx,ebx
        jb      .1_shem
        call    .draw_wigwag_cl ;clear
        jmp     .sh_e_end
;alike  =
.1_shem: call   .draw_wigwag
.sh_e_end:      and     word ed_flags,ed_shift_off
        ret
@@:     mov     ebp,shift_color
        mov     ebx,dword       ed_shift_pos
        call    .sh_cl_
        jmp     .sh_e_end
;äã­ªæ¨ï ¤«ï ®¡à ¡®âª¨ shift ¯à¨ ­ ¦ â¨¨ home and end
.sh_home_end:
        mov     ebp,ed_color
        call    .clear_cursor
        test    word ed_flags,ed_shift_bac
        je      @f
        mov     ebp,ed_color
        mov     ebx,dword       ed_shift_pos_old
        call    .sh_cl_
 
@@:     test    word ed_flags,ed_shift
        je      .sh_exit_ ;¢ë©â¨
        mov     ebp,shift_color
        mov     ebx,dword       ed_shift_pos
        call    .sh_cl_
        or      word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        jmp     .sh_e_end
.sh_exit_:      call    .check_offset
        ret
;äã­ªæ¨ï ¢­¥á¥­¨ï 0 ¯®  ¤à¥áã ed_size+1
.enable_null:
        pusha
        mov     eax,ed_size
        mov     ebx,ed_text
        test    eax,eax
        add     eax,ebx
        jne     @f
        inc     eax
@@:     xor     ebx,ebx
        mov     [eax],bl
edit_ex
;- ã¤ «¥­¨¥ á¨¬¢®« 
;å®¤­ë¥ ¤ ­­ë¥ edx=ed_size;ecx=ed_pos
.del_char:
        mov     esi,ed_text
        test    word ed_flags,ed_shift_on
        je      @f
        mov     eax,dword ed_shift_pos
        mov     ebx,esi
        cmp     eax,ecx
        jae     .dh_n
 
        mov     ed_pos,eax      ;çâ® ¡ë ­¥ ¡ë«® ã¡¥£ ­¨ï ªãàá®à 
        mov     ebp,ecx
        sub     ebp,eax
        add     ebx,eax  ;eax ¬¥­ìè¥ 
        sub     edx,ecx
        add     esi,ecx
 
        mov     dword ed_shift_pos,ebp
        jmp     .del_ch_sh
                     ;¥á«¨ ¨­ ç¥
.dh_n:  
        mov     ebp,eax
        sub     ebp,ecx
        add     ebx,ecx
        sub     edx,eax
        add     esi,eax
        mov     dword ed_shift_pos,ebp
        jmp     .del_ch_sh
 
@@:     add     esi,ecx ;ãª § â¥«ì + á¬¥é¥­¨¥ ª à¥ «ì­®¬ã ¡ãää¥àã
        mov     ebx,esi
        inc     esi
        cld
 
        sub     edx,ecx
.del_ch_sh:
 
        push    edi
        mov     edi,ebx
@@:
        lodsb
        stosb
        dec edx
        jns @b
        
        pop edi
        ret
;¢ëç¨á«¨âì § ªà è¨¢ ¥¬ãî ®¡« áâì
;á®£« è¥­¨¥ ¢ ebp - ¯¥à¥¤ ¥âáï ed_size
.clear_bg:
        call    .get_n  ;¯®«ãç¨âì à §¬¥à ¢ á¨¬¢®« å è¨à¨­ë ª®¬¯®­¥­â 
        push    eax
        mov     ebx,ed_offset
        add     eax,ebx ;eax = w_off= ed_offset+width
        mov     ebx,ebp ;ed_size
        
        cmp     eax,ebx
        jb      @f
        mov     eax,ed_pos
        sub     ebx,eax
        mov     ecx,ed_offset
        sub     eax,ecx
        jmp     .nxt
@@:     mov     ebx,ed_pos
        push    ebx
        sub     eax,ebx
        mov     ebx,eax ;It is don't optimal
        
        pop     eax     ;ed_pos
        mov     ecx,ed_offset
        sub     eax,ecx
.nxt:
        mov     ebp,eax  ;¯à®¢¥àª  ­  ¢ëå®¤ § ªà è¨¢ ¥¬®© ®¡« áâ¨ §  ¯à¥¤¥«ë ¤«¨­ë
        add     ebp,ebx
        pop     edx
        cmp     ebp,edx
        je      @f
        inc     ebx
 
@@:     mov     edx,ebx
        lea     ebx,[eax*2+eax]
        shl     ebx,1
        add     ebx,ed_left
        inc     ebx
        shl     ebx,16
        lea     ecx,[edx*2+edx]
        shl     ecx,1   
        mov     bx,cx
        mov     edx,ed_color
        call    .draw_bg_eax
        ret
;;;;;;;;;;;;;;;;;;;
;;; ¡à ¡®âª  ¯à¨¬¨â¨¢®¢
;;;;;;;;;;;;;;;;;;;;
; à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª, æ¢¥â ¯¥à¥¤ ¥âáï ¢ ebp
;¢å®¤­ë¥ ¯ à ¬¥âàë:
;eax=dword ed_pos
;ebp=-æ¢¥â ed_color or shift_color 
.draw_rectangle:
        mov     ecx,dword ed_offset
        sub     eax,ecx
        lea     ebx,[eax*2+eax]
        shl     ebx,1
        inc     ebx
        add     ebx,ed_left
        shl     ebx,16
        add     ebx,6
        mov     edx,ebp
        call    .draw_bg_eax
        ret
;;;;;;;;;;;;;;;;;;
;;à®¢¥àª  ­ ¦ â «¨ shift
;;;;;;;;;;;;;;;;;;
.check_shift:
pusha   ;á®åà ­¨¬ ¢á¥ à¥£¨áâàë
        mcall   66,3,1
        test    al,0x03
        je      @f
        or      word ed_flags,ed_shift   ;ãáâ ­®¢¨¬ ä« £
@@:edit_ex
}
;¬ ªà®á ª« ¢¨è ­  ª®â®àë¥ ¯à®¨áå®¤¨â à¥ ªæ¨ï 
macro use_key_process backspase,delete,left,right,home,end,insert
{
if backspase eq 
else
        cmp     ah,8
        jz      .backspace
end if
if delete eq 
else
        cmp     ah,0xb6
        jz      .delete
end if
if left eq 
else
        cmp     ah,176
        jz      .left
end if
if right eq 
else
        cmp     ah,179
        jz      .right
end if
if home eq 
else
        cmp     ah,180
        jz      .home
end if
if home eq 
else
        cmp     ah,181
        jz      .end
end if
if insert eq 
else
        cmp     ah,185  ;insert
        jz      .insert
end if
}
macro use_key_no_process  up,down,esc,enter,tab,numl,capsl,scrolll
{
if up eq 
else
        cmp     ah,177
        jz      edit_box.editbox_exit
end if
if down eq 
else
        cmp     ah,178
        jz      edit_box.editbox_exit
end if
if esc eq 
else
        cmp     ah,27   ;ESC - ª« ¢¨è  ))
        jz      edit_box.editbox_exit
end if
if enter eq 
else
        cmp     ah,13   ;ENTER - ª« ¢¨è  ))
        jz      edit_box.editbox_exit
end if
if tab eq 
else
        cmp     ah,9   ;TAB - ª« ¢¨è  ))
        jz      edit_box.editbox_exit
end if
 
if numl eq 
else
        cmp     ah,4   ;Num Lock - ª« ¢¨è  ))
        jz      edit_box.editbox_exit
end if
 
if capsl eq 
else
        cmp     ah,2   ;Caps Lock - ª« ¢¨è  ))
        jz      edit_box.editbox_exit
end if
 
if scrolll eq 
else
        cmp     ah,1   ;Scroll Lock - ª« ¢¨è  ))
        jz      edit_box.editbox_exit
end if
 
}
 
macro use_key_figures_only
{
        test    word ed_flags,ed_figure_only  ; â®«ìª® æ¨äàë ?
        jz      @f
        cmp     ah,'0'
        jb      .editbox_exit
        cmp     ah,'9'
        ja      .editbox_exit
@@:
}
macro are_key_shift_press
{
        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
        pusha
;;;;;;;;;;;;;;;;;;;;;
;clear input arrea
        mov     ebp,ed_color
        mov     ebx,dword       ed_shift_pos
        call    .sh_cl_
        mov     ebp,ed_size
        call    .clear_bg
;;;;;;;;;;;;;;;;;;;;;
        popa 
        call    .del_char
;;;;
        mov     eax,dword ed_shift_pos
        mov     ebx,ed_size
        sub     ebx,eax
        mov     ed_size,ebx
        pop     eax
@@:
}
macro are_key_cur_end
{
        mov     ecx,ed_size
        mov     edx, ed_max
        test    word ed_flags,ed_insert
        jne     @f
        cmp     ecx,edx
        jae     .editbox_exit
@@:     mov     ebx, ed_pos
        cmp     ebx,edx
        jl      @f ; ¥á«¨ ¬¥­ìè¥ ¨«¨ à ¢­®
        jmp     .editbox_exit
 
@@:     ; á¤¢¨£ ¥¬ á¨¬¢®«ë ¯®á«¥ ªãàá®à  ¢¯à ¢®
        mov     ecx,ed_size
        push    edi eax
        mov     ebp,edi
        mov     esi,ed_text     ; ª § â¥«ì ­  ¡ãä¥à
                                ;ã¤¥¬ à ¡®â âì á® áâà®ª®©
        add     esi,ecx         ;add ed_size ¤®¡ ¢¨¬ max size
        mov     edi,esi
 
        cmp     ecx,ebx         ;á«¨ ã ­ á ¯®§¨æ¨ï ªãàá®à  = â¥ªãé¥¬ã à §¬¥àã ­ ¯¥ç â ­­ëå á¨¬¢®«®¢ â.¥. ªãàá®à áâ®¨â ¢ ª®­æ¥
        je      .In_k
 
        test    word [ebp+40],ed_insert ;IF insert is enable  â.ª. edi ¨§¬¥­¥­  ¤à¥áã¥¬ ç¥à¥§ ebp
        jne     .ins_v
;clear
pusha
        mov     edi,ebp
        mov     ebp,ed_size
        call    .clear_bg
popa
        sub     ecx,ebx         ; ©¤¥¬ ª®«-¢® á¨¬¢®«®¢ ¤«ï ¯¥à¥¤¢¨¦¥­¨ï.
        inc     edi             ;¬¥áâ¨¬ ­ è¨ á¨¬¢®«ë ¢ ¯à ¢®
        std
        inc     ecx
   @@:  
        ;--------
        lodsb
        stosb
        ;--------
        loop    @b
.In_k:  cld
        pop eax
        mov al,ah
        stosb
        pop edi
; ¢áâ ¢«ï¥¬ ª®¤ ª« ¢¨è¨ âã¤ , £¤¥ ªãàá®à
        ; ã¢¥«¨ç¨¢ ¥¬ §­ ç¥­¨¥ à §¬¥à  ¨ ¯®§¨æ¨¨
        inc      dword ed_size
        inc      dword ed_pos
        call    .draw_all2
        jmp     .shift
}
macro use_work_key
{
.insert: test   word ed_flags,ed_insert ;not    word ed_insert
         je     @f
         and    word ed_flags,ed_insert_cl
        jmp     .editbox_exit
@@:
        or      word ed_flags,ed_insert
        jmp     .editbox_exit
.ins_v:
        dec     dword [ebp+42];ed_size    ;processing is insert
        sub     esi,ecx
        add     esi,ebx
        mov     edi,esi
;clear
pusha
        mov     edi,ebp
        mov     ebp,ed_pos
        call    .clear_bg
popa
        jmp     .In_k
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.delete:        
        mov     edx,ed_size
        mov     ecx,ed_pos
        cmp     edx,ecx
        jg      .bac_del
        test    word ed_flags,ed_shift_on
        jne     .del_bac
edit_ex
.bac_del:       
        call    .del_char
        jmp     .draw_all
;;;;;;;;;;;;;;;;;;;;;;;;;;;;        
;--- ­ ¦ â  ª« ¢¨è  backspace ---
.backspace:
        ; ¯à®¢¥àï¥¬, ªãàá®à ã «¥¢®£® ªà ï ?
        mov     ecx,ed_pos
        test    ecx,ecx
        jnz     .del_bac
        test    word ed_flags,ed_shift_on
        jne     .bac_del
 
edit_ex
.del_bac:
        mov     edx,ed_size
        cmp     edx,ecx ;if ed_pos=ed_size
        je      @f
        dec     ecx
        call    .del_char
@@:     test    word ed_flags,ed_shift_on
        jne     .bac_del
        dec      dword ed_pos
.draw_all:
        push    .shift;.draw_cursor_text;eax
 
        test    word ed_flags,ed_shift_on
        je      @f
        mov     eax,dword ed_shift_pos
        mov     ebx,ed_size
        sub     ebx,eax
        mov     ed_size,ebx
 
        mov     ebp,ed_color
        call    .clear_cursor
        call    .check_offset
        call    .draw_bg
        ret
@@:     dec      dword ed_size
 
.draw_all2:
        and    word ed_flags,ed_shift_cl
        mov     ebp,ed_color
        call    .clear_cursor
        call    .check_offset
        mov     ebp,ed_size
        call    .clear_bg
        ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;--- ­ ¦ â  ª« ¢¨è  left ---
.left:  mov     ebx,ed_pos
        test    ebx,ebx
        jz      .sh_st_of
        or      word ed_flags,ed_left_fl
        call    .sh_first_sh
        dec      dword ed_pos
        call    .sh_enable
        jmp     .draw_cursor_text
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;--- ­ ¦ â  ª« ¢¨è  right ---
.right: mov     ebx,ed_pos
        cmp     ebx,ed_size
        je      .sh_st_of
        and     word ed_flags,ed_right_fl
        call    .sh_first_sh
        inc     dword  ed_pos
        call    .sh_enable
        jmp     .draw_cursor_text
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.home:  
        mov     ebx,ed_pos
        test    ebx,ebx
        jz      .sh_st_of
        call    .sh_first_sh
        xor     eax,eax
        mov     ed_pos,eax
        call    .sh_home_end
        jmp     .draw_cursor_text
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.end:   
        mov     ebx,ed_pos
        cmp     ebx,dword ed_size
        je      .sh_st_of
        call    .sh_first_sh
        mov     eax,ed_size
        mov     ed_pos,eax
        call    .sh_home_end
        jmp     .draw_cursor_text
}
 
macro use_mouse_func
{
;----------------------------------------------------------
;--- ¡à ¡®âª  .mouse_wigwag
;----------------------------------------------------------
.mouse_wigwag:
        shr     eax,16
        or      word ed_flags,ed_shift_bac+ed_shift_on+ed_shift
;;;;;;;;;;;;;;;;;;
;;¯à®æ¥¤ãà  ®¡à ¡®âª¨ ¯®«®¦¥­¨ï ¢ë¤¥«¥­­®£® â¥ªáâ , ª®£¤  ¯à®¨áå®¤¨â ¢ëå®¤ §  ¯à¥¤¥«ë editbox
;;;;;;;;;;;;;;;;;;
        test    ax,0x8000
        jnz     .mleft
 
        mov     ebx,ed_left
        cmp     eax,ebx
        jb      .mleft
 
        add     ebx,ed_width
        cmp     eax,ebx
        ja      .mright 
 
        sub     ebx,ed_width
 
        xor     edx,edx
        sub     eax,ebx ; ¢ëçâ¨¬ ¨§ ª®®à¤¨­ â ¬ëèª¨ ¯® ®á¨ å ª®®à¤¨­ âë ¤® editbox ¯® ®á¨ å
        mov     ebx,6
        div     ebx
;;;;;;;;;;;;;;;;;;
;;¯à®æ¥¤ãà  ®¡à ¡®âª¨ ¯®«®¦¥­¨ï ¢ë¤¥«¥­­®£® â¥ªáâ , ¢ ¯à¥¤¥« å ®¡« áâ¨ editbox
;;;;;;;;;;;;;;;;;;
;®«ãç¨«¨ ª®®à¤¨­ âë ¢ eax ¬ëèª¨, â.¥. ªã¤  ®­  ¯¥à¥¬¥áâ¨« áì
;¨á®¢ ­¨¥ § ªà è¥­ëå ¯àï¬®ã£®«ì­¨ª®¢ ¨ ®ç¨áâª  ¨å
        add     eax,ed_offset   ;¤®¡ ¢¨¬ á¬¥é¥­¨¥
        cmp     eax,dword ed_size       ;¥á«¨ ¢ëè«¨ §  ¯à¥¤¥«ë, â® ­¨ç¥£® ­¥ ¤¥« âì
        ja      .mwigvag
.mdraw: 
        mov     dword   ed_pos,eax ;á®åà ­¨¬ ­®¢®¥ §­ ç¥­¨¥
;¨á®¢ ­¨¥ § ªà è¥­ëå ¯àï¬®ã£®«ì­¨ª®¢ ¨ ®ç¨áâª  ¨å
        mov     ecx,dword       ed_shift_pos
        mov     ebx,dword       ed_shift_pos_old
        mov     dword   ed_shift_pos_old,eax    ;¢­¥á¥¬ ­®¢®¥ §­ ç¥­¨¥ áâ à®© ¯®§¨æ¨¨ ªãàá®à 
;¯à®¢¥àª  ¨ à¨á®¢ ­¨¥ § ªà è¥­ëå ®¡« áâ¥©
        cmp     ecx,ebx         ;¢ëïá­ï¥¬ ªã¤  ¡ë«® ¤¢¨¦¥­¨¥ ­  ®¤¨­ è £ ­ § ¤
        je      .m1_shem        ;¤¢¨¦¥­¨ï ­¥ ¡ë«® à ­¥¥ 
        jb      .msmaller       ;¤¢¨¦¥­¨¥ ¡ë«® ->
        cmp     ebx,eax         ;¤¢¨¦¥­¨¥ ¡ë«® ¤® íâ®£® <- ¨ âãâ ¬ë ¯à®¢¥àï¥¬ á¥©ç á ªã¤  ¤¢¨¦¥­¨¥ ¯à®¨áå®¤¨â
        ja      .m1_shem        ;¥á«¨ ¡ë«® ¤¢¨¦¥­¨¥ <- â® ­ã¦­® § ªà á¨âì ®¡« áâì
        je      .mwigvag        ;¥á«¨ ¨§¬¥­¥­¨ï ­¥ ¡ë«®, â® ­¨ç¥£® ­¥ ¤¥« âì
        mov     ebp,ed_color    ;âãâ ­ã¦­® ®ç¨áâ¨âì ®¡« áâì c ed_pos ed_shift_pos_old
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        call    .sh_cl_
        jmp     .mwigvag
.msmaller:
        cmp     ebx,eax
        jb      .m1_shem
        mov     ebp,ed_color
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        call    .sh_cl_
        jmp     .mwigvag
;alike  =
.m1_shem: 
        mov     ebp,shift_color
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        mov     ebx,ecx
        call    .sh_cl_
        jmp     .mwigvag
.mwigvag:
        and     word ed_flags,ed_shift_mcl
        jmp     .draw_cursor_text
;       popa
;       ret
.mleft:
 
        mov     eax,ed_pos
        cmp     eax,0                                        
        jbe      .mwigvag
        dec     eax
        call    .check_offset
        push    eax
        mov     ebx,ed_shift_pos
        mov     ebp,shift_color
        call    .sh_cl_
        pop     eax
        jmp     .mdraw
.mright:
        mov     eax,ed_pos
        mov     ebx,ed_size
        cmp     eax,ebx
        jae     .mwigvag
        inc     eax
        call    .check_offset
        mov     ebx,ed_shift_pos
        mov     ebp,shift_color
        push    eax
        call    .sh_cl_
        pop     eax
        jmp     .mdraw  
}
 
macro use_work_mouse
;----------------------------------------------------------
;---  ­¥ ã¤¥à¦¨¢ ¥¬ «¨ ¬ë ª« ¢¨èã ¬ëèª¨, ¯¥à¥¬¥é ï ªãàá®à, ¢® ¢á¥ à §­ë¥ áâ®à®­ë?
;----------------------------------------------------------
{
        test    word ed_flags,ed_mouse_on
        jne     .mouse_wigwag
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬, ¯®¯ ¤ ¥â «¨ ªãàá®à ¢ edit box -------------
;----------------------------------------------------------
 
        mov     ebx,ed_top
        cmp     ax,bx
        jl      ._blur;.mouse_end_no_focus
        
        add     ebx,ed_height
        cmp     ax,bx
        jg      ._blur;.mouse_end_no_focus
 
        shr     eax,16
 
        mov     ebx,ed_left
        cmp     ax,bx
        jl      ._blur;.mouse_end_no_focus
 
        add     ebx,ed_width
 
        cmp     ax,bx
        jg      ._blur;.mouse_end_no_focus        
 
;--- ¨§¬¥­ï¥¬ ¯®§¨æ¨î ªãàá®à  ---
        push    eax
        mov     ebp,ed_color
        call    .clear_cursor
        pop     eax
._mvpos:
      
        xor     edx,edx
        sub     eax,ed_left
 
        mov     ebx,6
        div     bx
        add     eax,ed_offset
        cmp     eax,ed_size
        jna     ._mshift
        mov     eax,ed_size
._mshift:
;;;;;;;
;;¥ªæ¨ï ®¡à ¡®âª¨ shift ¨ ¢ë¤¥«¥­¨ï ¯® shift
;;;;;;;
        test    word ed_flags,ed_shift_bac
        je      @f
        mov     ebp,dword       ed_color
        mov     ebx,dword ed_shift_pos
        push    eax
        call    .sh_cl_
        and     word ed_flags,ed_shift_bac_cl
        pop     eax
@@:     
        test    word ed_flags,ed_mouse_on
        jne     @f
        
        mov     dword ed_shift_pos,eax
        or      word  ed_flags,ed_mouse_on
        mov     dword ed_pos,eax
        mov     dword [mouse_flag],edi          ;ãáâ ­®¢¨¬ ¨¤¥­â¨ä¨ª â®à
        bts     word ed_flags,1                 ;ãáâ ­®¢ª  ä®ªãá 
        jmp     .m_sh
@@:             
        cmp     eax,dword ed_shift_pos  ;¥á«¨ ¯®§¨æ¨¨ ­¥ ¨§¬¥­¨«¨áì
        je      .editbox_exit
        mov     ed_pos,eax
        mov     ebp,dword shift_color
        mov     ebx,dword ed_shift_pos
        call    .sh_cl_
        or      word ed_flags,ed_mous_adn_b     ;ãáâ ­®¢¨¬ ¡¨â çâ® ¬ë ¢ë¤¥«¨«¨ +shift_on +
.m_sh:  call    .draw_text
        call    .draw_cursor
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ãáâ ­®¢ª¨ ä®ªãá  ---------------------------
;----------------------------------------------------------
        jmp     .drc
._blur:
        test    word ed_flags,ed_always_focus
        jne     .editbox_exit
        btr     word ed_flags,1 ; ¥á«¨ ­¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
        jnc     .editbox_exit
 
        mov     ebp,ed_color
        call    .clear_cursor
.drc:   call    .draw_border
        jmp     .editbox_exit
}
 
 
;  ªà®á ¢ëå®¤ 
macro edit_ex
{
popad          
ret
}
macro debug
{
        ;-----------  ®â« ¤ª 
        pushad
;        mov     dword [ed_buffer.2],0
;        mov     eax,edi
        mov eax,dword [ed_buffer.2]
        mov edi,ed_buffer.3
        call .str
        ;à¨á®¢ ­¨¥ ä®­ 
        mov eax,13
        mov ebx,178*65536+70
        mov ecx,28*65536+10
        xor edx,edx
        int 0x40
        ;¢ë¢®¤ §­ ç¥­¨ï ­  íªà ­
        mov eax,4
        mov ebx,180*65536+30
        mov ecx,0x10DDBBCC
        mov edx,ed_buffer.3
        mov esi,8
        int 0x40
        popad
        ;----------- ®â« ¤ª 
}
macro   debug_func
{
.str:
        mov ecx,0x0a ;§ ¤ ¥âáï á¨áâ¥¬  áç¨á«¥­¨ï ¨§¬¥­ïîâáï à¥£¨áâàë ebx,eax,ecx,edx ¢å®¤­ë¥ ¯ à ¬¥âàë eax - ç¨á«®
         ;¯à¥à¥¢®¤ ç¨á«  ¢ ASCII áâà®ªã ¢§®¤­ë¥ ¤ ­­ë¥ ecx=á¨áâ¥¬  áç¨á«¥­ï edi  ¤à¥á ªã¤  § ¯¨áë¢ âì, ¡ã¤¥¬ áâà®ªã, ¯à¨ç¥¬ ª®­¥æ ¯¥à¥¬¥­­®© 
        cmp eax,ecx  ;áà ¢­¨âì ¥á«¨ ¢ eax ¬¥­ìè¥ ç¥¬ ¢ ecx â® ¯¥à¥©â¨ ­  @@-1 â.¥. ­  pop eax
        jb @f
        xor edx,edx  ;®ç¨áâ¨âì edx
        div ecx      ;à §¤¥«¨âì - ®áâ â®ª ¢ edx
        push edx     ;¯®«®¦¨âì ¢ áâ¥ª
        ;dec edi             ;á¬¥é¥­¨¥ ­¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®­æ  áâà®ª¨
        call .str;¯¥à¥©â¨ ­  á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥­â  ¯®ª  ¢ eax ­¥ áâ ­¥â ¬¥­ìè¥ ç¥¬ ¢ ecx
        pop eax
        @@: ;cmp al,10 ;¯à®¢¥à¨âì ­¥ ¬¥­ìè¥ «¨ §­ ç¥­¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥­ï 10 ¤ ­­ ï ª®¬ ­¤  - «¨è­ ï))
        ;sbb al,$69  ;- ç¥áâ­® ¤ ­­ ï ¨­áâàãªæ¨ï ¬¥­ï § áâ ¢«ï¥â § ¤ã¬ âìáï â.¥. ï ­¥ §­ î ª ª íâ® à ¡®â ¥â
        ;das        ;¯®á«¥ ¤ ­­®© ª®¬ ­¤ë ª ª ¡ë ¯à®¨áå®¤¨â ã¬¥­ìè¥­¨¥ al ­  66h  (¢ ª­¨£¥ ­ ¯¨á ­® ¤àã£®¥)
        or al,0x30  ;¤ ­­ ï ª®¬ ­¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥ 
        stosb       ;§ ¯¨á âì í«¥¬¥­â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
 
        ret         ;¢¥à­ãâìáï ç¥­ì ¨­â¥à¥á­ë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
}
 
;;;;;;;;;;;;;;;
;For LibGui
;;;;;;;;;;;;;;;
macro srt_ed_libgui
{
ed_width        equ [EditBox.ed_width]            ;è¨à¨­  ª®¬¯®­¥­â 
ed_left         equ [EditBox.ed_left]             ;¯®«®¦¥­¨¥ ¯® ®á¨ å
ed_top          equ [EditBox.ed_top]              ;¯®«®¦¥­¨¥ ¯® ®á¨ ã
ed_color        equ [EditBox.ed_color]            ;æ¢¥â ä®­  ª®¬¯®­¥­â 
shift_color     equ [EditBox.shift_color]         ;=0x6a9480
ed_focus_border_color   equ [EditBox.ed_focus_border_color]   ;æ¢¥â à ¬ª¨ ª®¬¯®­¥­â 
ed_blur_border_color    equ [EditBox.ed_blur_border_color]    ;æ¢¥â ­¥  ªâ¨¢­®£® ª®¬¯®­¥­â 
ed_text_color   equ [EditBox.ed_text_color]       ;æ¢¥â â¥ªáâ 
ed_max          equ [EditBox.ed_max]              ;ª®«-¢® á¨¬¢®«®¢ ª®â®àë¥ ¬®¦­® ¬ ªá¨¬ «ì­® ¢¢¥áâ¨
ed_text         equ [EditBox.ed_text]             ;ãª § â¥«ì ­  ¡ãä¥à
ed_flags        equ [EditBox.ed_flags]            ;ä« £¨
ed_size equ [EditBox.ed_size]                     ;ª®«-¢® á¨¬¢®«®¢
ed_pos  equ [EditBox.ed_poz]                      ;¯®§¨æ¨ï ªãàá®à 
ed_offset       equ [EditBox.ed_offset]           ;á¬¥é¥­¨¥
cl_curs_x       equ [EditBox.cl_curs_x]           ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨­ â  ªãàá®à  ¯® å
cl_curs_y       equ [EditBox.cl_curs_y]           ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨­ â  ªãàá®à  ¯® ã
ed_shift_pos    equ [EditBox.ed_shift_pos]        ;¯®«®¦¥­¨¥ ªãàá®à 
ed_shift_pos_old equ [EditBox.ed_shift_pos_old]   ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Bit mask from editbox 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ed_figure_only= 1000000000000000b   ;®¤­¨ á¨¬¢®«ë 
ed_always_focus= 100000000000000b
ed_focus=                     10b   ;ä®ªãá ¯à¨«®¦¥­¨ï
ed_shift_on=                1000b   ;¥á«¨ ­¥ ãáâ ­®¢«¥­ -§­ ç¨â ¢¯¥à¢ë¥ ­ ¦ â shift,¥á«¨ ¡ë« ãáâ ­®¢«¥­, §­ ç¨â ¬ë ã¦¥ çâ® - â® ¤¥« «¨ ã¤¥à¦¨¢ ï shift
ed_shift_on_off=1111111111110111b
ed_shift=                    100b   ;¢ª«îç ¥âáï ¯à¨ ­ ¦ â¨¨ ­  shift â.¥. ¥á«¨ ­ ¦¨¬ î
ed_shift_off=   1111111111111011b
ed_shift_bac=              10000b   ;¡¨â ¤«ï ®ç¨áâª¨ ¢ë¤¥«¥­®£® shift â.¥. ¯à¨ ãáâ ­®¢ª¥ £®¢®à¨â çâ® ¥áâì ¢ë¤¥«¥­¨¥
ed_shift_bac_cl=1111111111101111b   ;®ç¨áâª  ¯à¨ ã¤ «¥­¨¨ ¢ë¤¥«¥­¨ï
ed_shift_cl=    1111111111100011b
ed_shift_mcl=   1111111111111011b
ed_left_fl=               100000b
ed_right_fl=    1111111111011111b
ed_offset_fl=            1000000b
ed_offset_cl=   1111111110111111b
ed_insert=              10000000b
ed_insert_cl=   1111111101111111b
ed_mouse_on =          100000000b
ed_mous_adn_b=         100011000b
ed_mouse_on_off=1111111011111111b
ed_height=14 ; ¢ëá®â 
}

Rev 830	Rev 1031
1	; ªà®á ¤«ï ¢ë¢®¤ ®á®¢ëå äãªæ¨© ª®â®àë¥ ¨á¯«ì§ãîâáï ¡®ªá®¬	1	; ªà®á ¤«ï ¢ë¢®¤ ®á®¢ëå äãªæ¨© ª®â®àë¥ ¨á¯«ì§ãîâáï ¡®ªá®¬
2	macro use_general_func	2	macro use_general_func
3	{	3	{
4	;debug_func	4	;debug_func
5	;----------------------------------------------------------	5	;----------------------------------------------------------
6	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ¢ë¤¥«¥®© ç áâ¨ -----------------	6	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ¢ë¤¥«¥®© ç áâ¨ -----------------
7	;----------------------------------------------------------	7	;----------------------------------------------------------
8	.draw_shift:	8	.draw_shift:
9	test word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨	9	test word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨
10	jz @f	10	jz @f
11	mov ebp,shift_color	11	mov ebp,shift_color
12	mov ebx,dword ed_shift_pos	12	mov ebx,dword ed_shift_pos
13	call .sh_cl_	13	call .sh_cl_
14	@@: ret	14	@@: ret
15	;----------------------------------------------------------	15	;----------------------------------------------------------
16	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ â¥ªáâ --------------------------	16	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ â¥ªáâ --------------------------
17	;----------------------------------------------------------	17	;----------------------------------------------------------
18	.draw_text:	18	.draw_text:
19	;--- ¢ëç¨á«ï¥¬, áª®«ìª® ¯®¬¥é ¥âáï á¨¬¢®«®¢ ---	19	;--- ¢ëç¨á«ï¥¬, áª®«ìª® ¯®¬¥é ¥âáï á¨¬¢®«®¢ ---
20	;--- çâ®¡ë ¬ãá®à ¥ à¨á®¢ âì ---	20	;--- çâ®¡ë ¬ãá®à ¥ à¨á®¢ âì ---
21	call .get_n	21	call .get_n
22	mov esi,ed_size	22	mov esi,ed_size
23	mov ebx,ed_offset	23	mov ebx,ed_offset
24	sub esi,ebx	24	sub esi,ebx
25	cmp eax,esi	25	cmp eax,esi
26	jae @F	26	jae @F
27	mov esi,eax ;çâ®¡ë ¥ ¢ëå®¤¨âì § ¯à¥¤¥«ë íªà	27	mov esi,eax ;çâ®¡ë ¥ ¢ëå®¤¨âì § ¯à¥¤¥«ë íªà
28	;--- à¨áã¥¬ â¥ªáâ ---	28	;--- à¨áã¥¬ â¥ªáâ ---
29	@@: mov eax,4	29	@@: mov eax,4
30	mov ebx,ed_left	30	mov ebx,ed_left
31	mov edx,ed_offset	31	mov edx,ed_offset
32	add ebx,2	32	add ebx,2
33	shl ebx,16	33	shl ebx,16
34	add ebx,ed_top	34	add ebx,ed_top
35	mov ecx,ed_text_color	35	mov ecx,ed_text_color
36	add ebx,4	36	add ebx,4
37	add edx,ed_text	37	add edx,ed_text
38	mcall	38	mcall
39	ret	39	ret
40	;----------------------------------------------------------	40	;----------------------------------------------------------
41	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ä® ----------------------------	41	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ä® ----------------------------
42	;¢å®¤ë¥ ¤ ë¥	42	;¢å®¤ë¥ ¤ ë¥
43	;eax	43	;eax
44	;edx - color	44	;edx - color
45	;----------------------------------------------------------	45	;----------------------------------------------------------
46	;¢å®¤ â®«ìª® æ¢¥â edx	46	;¢å®¤ â®«ìª® æ¢¥â edx
47	.draw_bg:	47	.draw_bg:
48	mov ebx,ed_left	48	mov ebx,ed_left
49	add ebx,1	49	add ebx,1
50	mov edx,ed_color	50	mov edx,ed_color
51	shl ebx,16	51	shl ebx,16
52	add ebx,ed_width	52	add ebx,ed_width
53	sub ebx,1	53	sub ebx,1
54	.draw_bg_eax:	54	.draw_bg_eax:
55	mov ecx,ed_top	55	mov ecx,ed_top
56	mov eax,13	56	mov eax,13
57	add ecx,1	57	add ecx,1
58	shl ecx,16	58	shl ecx,16
59	add ecx,ed_height	59	add ecx,ed_height
60	dec ecx	60	dec ecx
61	mcall	61	mcall
62	ret	62	ret
63	;----------------------------------------------------------	63	;----------------------------------------------------------
64	;--- ¯à®æ¥¤ãà ¯®«ãç¥¨ï ª®«¨ç¥áâ¢ á¨¬¢®«®¢ ¢ â¥ªãé¥© é¨à¨¥ ª®¬¯®¥â	64	;--- ¯à®æ¥¤ãà ¯®«ãç¥¨ï ª®«¨ç¥áâ¢ á¨¬¢®«®¢ ¢ â¥ªãé¥© é¨à¨¥ ª®¬¯®¥â
65	;----------------------------------------------------------	65	;----------------------------------------------------------
66	.get_n:	66	.get_n:
67	mov eax,ed_width ;¯®«ãç¥¬ è¨à¨ã ª®¬¯®¥â	67	mov eax,ed_width ;¯®«ãç¥¬ è¨à¨ã ª®¬¯®¥â
68	xor edx,edx ;à¥§ã«ìâ â à á¯®«®£ ¥âáï ¢ ¯ à¥ edx:eax ¢ eax - ®áâ â®ª	68	xor edx,edx ;à¥§ã«ìâ â à á¯®«®£ ¥âáï ¢ ¯ à¥ edx:eax ¢ eax - ®áâ â®ª
69	sub eax,4 ;¢ëçâ¨¬ 4	69	sub eax,4 ;¢ëçâ¨¬ 4
70	mov ebx,6 ;§ £àã§¬¨ ¤¥«¨â¥«ì	70	mov ebx,6 ;§ £àã§¬¨ ¤¥«¨â¥«ì
71	div ebx ;à §¬¤¥«¨¬ 6	71	div ebx ;à §¬¤¥«¨¬ 6
72	ret	72	ret
73	;----------------------------------------------------------	73	;----------------------------------------------------------
74	;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à --------------------------	74	;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à --------------------------
75	;----------------------------------------------------------	75	;----------------------------------------------------------
76	;¢å®¤ë¥ ebp- æ¢¥â	76	;¢å®¤ë¥ ebp- æ¢¥â
77	.clear_cursor:	77	.clear_cursor:
78	mov edx,ebp	78	mov edx,ebp
79	mov ebx,cl_curs_x	79	mov ebx,cl_curs_x
80	mov ecx,cl_curs_y	80	mov ecx,cl_curs_y
81	jmp .draw_curs	81	jmp .draw_curs
82	.draw_cursor:	82	.draw_cursor:
83	mov edx,ed_text_color	83	mov edx,ed_text_color
84	mov ebx,ed_pos	84	mov ebx,ed_pos
85	mov ecx,ed_offset	85	mov ecx,ed_offset
86	sub ebx,ecx	86	sub ebx,ecx
87		87
88	lea ebx,[ebx*2+ebx]	88	lea ebx,[ebx*2+ebx]
89	shl ebx,1	89	shl ebx,1
90	;imul ebx,6	90	;imul ebx,6
91	add ebx,ed_left	91	add ebx,ed_left
92	mov ecx,ed_top	92	mov ecx,ed_top
93	inc ebx	93	inc ebx
94	add ecx,2	94	add ecx,2
95	mov ebp,ebx	95	mov ebp,ebx
96	shl ebx,16	96	shl ebx,16
97	mov bx,bp	97	mov bx,bp
98	mov ebp,ecx	98	mov ebp,ecx
99		99
100	shl ecx,16	100	shl ecx,16
101	mov cx,bp	101	mov cx,bp
102	add ecx,ed_height-4	102	add ecx,ed_height-4
103		103
104	mov cl_curs_x,ebx	104	mov cl_curs_x,ebx
105	mov cl_curs_y,ecx	105	mov cl_curs_y,ecx
106	.draw_curs:	106	.draw_curs:
107	mcall 38	107	mcall 38
108	ret	108	ret
109	;----------------------------------------------------------	109	;----------------------------------------------------------
110	;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï à ¬ª¨ ----------------------------	110	;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï à ¬ª¨ ----------------------------
111	;----------------------------------------------------------	111	;----------------------------------------------------------
112	.draw_border:	112	.draw_border:
113	;--- æ¢¥â à ¬ª¨ ---	113	;--- æ¢¥â à ¬ª¨ ---
114	test word ed_flags,ed_focus	114	test word ed_flags,ed_focus
115	mov edx,ed_focus_border_color	115	mov edx,ed_focus_border_color
116	jne @f	116	jne @f
117	mov edx,ed_blur_border_color	117	mov edx,ed_blur_border_color
118	@@:	118	@@:
119	;--- á¢¥àåã ---	119	;--- á¢¥àåã ---
120	mov eax,38	120	mov eax,38
121	mov ebx,ed_left	121	mov ebx,ed_left
122	mov ecx,ebx	122	mov ecx,ebx
123	shl ebx,16	123	shl ebx,16
124	mov bx,cx	124	mov bx,cx
125	add ebx,ed_width	125	add ebx,ed_width
126	mov ecx,ed_top	126	mov ecx,ed_top
127	mov esi,ecx	127	mov esi,ecx
128	shl ecx,16	128	shl ecx,16
129	mov cx,si	129	mov cx,si
130	mcall	130	mcall
131	;--- á¨§ã ---	131	;--- á¨§ã ---
132	mov esi,ecx	132	mov esi,ecx
133	add ecx,ed_height	133	add ecx,ed_height
134	mov ebp,ecx	134	mov ebp,ecx
135	shl ecx,16	135	shl ecx,16
136	mov cx,bp	136	mov cx,bp
137	mcall	137	mcall
138	;--- á«¥¢ ---	138	;--- á«¥¢ ---
139	mov cx,si	139	mov cx,si
140	mov ebp,ebx	140	mov ebp,ebx
141	sub ebx,ed_width	141	sub ebx,ed_width
142	mcall	142	mcall
143	;--- á¯à ¢ ---	143	;--- á¯à ¢ ---
144	mov ebx,ebp	144	mov ebx,ebp
145	shl ebx,16	145	shl ebx,16
146	mov bx,bp	146	mov bx,bp
147	mcall	147	mcall
148	ret	148	ret
149	;----------------------------------------------------------	149	;----------------------------------------------------------
150	;--- ¯à®¢¥àª , § è¥« «¨ ªãàá®à § £à ¨æë ¨, ¥á«¨ ¤®, ---	150	;--- ¯à®¢¥àª , § è¥« «¨ ªãàá®à § £à ¨æë ¨, ¥á«¨ ¤®, ---
151	;--- ¨§¬¥ï¥¬ á¬¥é¥¨¥ ------------------------------------	151	;--- ¨§¬¥ï¥¬ á¬¥é¥¨¥ ------------------------------------
152	;--- ¥á«¨ á¬¥é¥¨¥ ¡ë«® ãáâ ®¢ª ä« £ ed_offset_cl ¨ ç¥	152	;--- ¥á«¨ á¬¥é¥¨¥ ¡ë«® ãáâ ®¢ª ä« £ ed_offset_cl ¨ ç¥
153	; ¥á«¨ ¨ç¥£® ¥ ¨§¬¥¨«®áì â® ¢ëáâ ¢«¥¨¥ ed_offset_fl	153	; ¥á«¨ ¨ç¥£® ¥ ¨§¬¥¨«®áì â® ¢ëáâ ¢«¥¨¥ ed_offset_fl
154	; ¢ ®¡é¥© ¡¨â®¢®© ¬ àà¨æ¥ á®áâ®ï¨ï ª®¬¯®¥â®¢ word ed_flags	154	; ¢ ®¡é¥© ¡¨â®¢®© ¬ àà¨æ¥ á®áâ®ï¨ï ª®¬¯®¥â®¢ word ed_flags
155	;----------------------------------------------------------	155	;----------------------------------------------------------
156	.check_offset:	156	.check_offset:
157	pusha	157	pusha
158	mov ecx,ed_pos	158	mov ecx,ed_pos
159	mov ebx,ed_offset	159	mov ebx,ed_offset
160	cmp ebx,ecx	160	cmp ebx,ecx
161	ja .sub_8	161	ja .sub_8
162		162
163	push ebx	163	push ebx
164	call .get_n ;¯®«ãç¨¬ ª®«-¢® á¨¬¢®«®¢ ¢ ¯ à¥ à¥£¨áâà®¢ edx:eax	164	call .get_n ;¯®«ãç¨¬ ª®«-¢® á¨¬¢®«®¢ ¢ ¯ à¥ à¥£¨áâà®¢ edx:eax
165	pop ebx	165	pop ebx
166	mov edx,ebx	166	mov edx,ebx
167	add edx,eax ;ed_offset+width editbox	167	add edx,eax ;ed_offset+width editbox
168	inc edx ;¥®¡å®¤¨¬® ¤«ï ®¬ «ì®£® ¯®«®¦¥¨ï ªãàá®à ¢ ªà ©¥© «¥¢®© ¯®§¨æ¨¨	168	inc edx ;¥®¡å®¤¨¬® ¤«ï ®¬ «ì®£® ¯®«®¦¥¨ï ªãàá®à ¢ ªà ©¥© «¥¢®© ¯®§¨æ¨¨
169	cmp edx,ecx	169	cmp edx,ecx
170	ja @f	170	ja @f
171		171
172	mov edx,ed_size	172	mov edx,ed_size
173	cmp edx,ecx	173	cmp edx,ecx
174	je .add_end	174	je .add_end
175		175
176	sub edx,ecx	176	sub edx,ecx
177	cmp edx,8	177	cmp edx,8
178	jbe .add_8	178	jbe .add_8
179	add ebx,8	179	add ebx,8
180	jmp .chk_d	180	jmp .chk_d
181		181
182	.sub_8: cmp ecx,0	182	.sub_8: cmp ecx,0
183	je .sub_min	183	je .sub_min
184	cmp ebx,8	184	cmp ebx,8
185	jbe .sub_min	185	jbe .sub_min
186	sub ebx,8 ;ebx=ed_offset	186	sub ebx,8 ;ebx=ed_offset
187	jmp .chk_d	187	jmp .chk_d
188	.sub_min:	188	.sub_min:
189	xor ebx,ebx	189	xor ebx,ebx
190	jmp .chk_d	190	jmp .chk_d
191		191
192	.add_end:sub edx,eax	192	.add_end:sub edx,eax
193	mov ebx,edx	193	mov ebx,edx
194	jmp .chk_d	194	jmp .chk_d
195	.add_8: add ebx,edx	195	.add_8: add ebx,edx
196	.chk_d: mov ed_offset,ebx	196	.chk_d: mov ed_offset,ebx
197	call .draw_bg	197	call .draw_bg
198	and word ed_flags,ed_offset_cl	198	and word ed_flags,ed_offset_cl
199	edit_ex	199	edit_ex
200	@@:	200	@@:
201	or word ed_flags,ed_offset_fl	201	or word ed_flags,ed_offset_fl
202	edit_ex	202	edit_ex
203	}	203	}
204		204
205	macro use_key_func	205	macro use_key_func
206	{	206	{
207	;¡à ¡®âª Shift ¤«ï áïâ¨ï ¢ë¤¥«¥¨ï ¥¨§¢¥áâ®© ®¡« áâ¨	207	;¡à ¡®âª Shift ¤«ï áïâ¨ï ¢ë¤¥«¥¨ï ¥¨§¢¥áâ®© ®¡« áâ¨
208	.shift: ;;;;;;;SHIFT	208	.shift: ;;;;;;;SHIFT
209	test word ed_flags,ed_shift	209	test word ed_flags,ed_shift
210	je .f_exit	210	je .f_exit
211		211
212	@@: mov ebp,shift_color	212	@@: mov ebp,shift_color
213	or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨	213	or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨
214	mov ebx,dword ed_shift_pos	214	mov ebx,dword ed_shift_pos
215	call .sh_cl_	215	call .sh_cl_
216	jmp .draw_cursor_text	216	jmp .draw_cursor_text
217	;;;;;;;;;;;;;;;;;;;;;	217	;;;;;;;;;;;;;;;;;;;;;
218	.f_exit:call .check_offset	218	.f_exit:call .check_offset
219	and word ed_flags,ed_shift_cl	219	and word ed_flags,ed_shift_cl
220	call .enable_null	220	call .enable_null
221	jmp .draw_cursor_text	221	jmp .draw_cursor_text
222	.sh_cl_:	222	.sh_cl_:
223	;;;;;;SHIFT end	223	;;;;;;SHIFT end
224	;®¡à ¡®âª ®ç¨áâª¨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥¨¨ ¢ë¤¥«¥¨ï	224	;®¡à ¡®âª ®ç¨áâª¨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥¨¨ ¢ë¤¥«¥¨ï
225	;¤«ï ®¡à ¡®âª¨ áïâ¨ï ¢ë¤¥«¥¨ï	225	;¤«ï ®¡à ¡®âª¨ áïâ¨ï ¢ë¤¥«¥¨ï
226	;¢å®¤ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos	226	;¢å®¤ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
227	mov eax,dword ed_pos	227	mov eax,dword ed_pos
228	cmp eax,ebx	228	cmp eax,ebx
229		229
230	jae .sh_n	230	jae .sh_n
231	push eax ;¬¥ìè¥¥ ¢ eax	231	push eax ;¬¥ìè¥¥ ¢ eax
232	push ebx ;¡®«ìè¥¥	232	push ebx ;¡®«ìè¥¥
233	jmp .sh_n1	233	jmp .sh_n1
234	;¥á«¨ ¨ ç¥	234	;¥á«¨ ¨ ç¥
235	.sh_n: push ebx	235	.sh_n: push ebx
236	push eax	236	push eax
237	.sh_n1:	237	.sh_n1:
238	call .check_offset	238	call .check_offset
239	call .get_n	239	call .get_n
240	mov edx,eax ;size of ed_box	240	mov edx,eax ;size of ed_box
241	mov ecx,ed_offset	241	mov ecx,ed_offset
242	add eax,ecx ;eax = w_off= ed_offset+width	242	add eax,ecx ;eax = w_off= ed_offset+width
243	mov edx,eax ;save	243	mov edx,eax ;save
244	pop ebx ;¡®«ìè¥¥	244	pop ebx ;¡®«ìè¥¥
245	pop eax ;¬¥ìè¥¥	245	pop eax ;¬¥ìè¥¥
246		246
247	cmp eax,ecx ;áà ¢¥¨¥ á ¬¥ìè¥£® á offset.	247	cmp eax,ecx ;áà ¢¥¨¥ á ¬¥ìè¥£® á offset.
248	jae .f_f ;¥á«¨ ¡®«ìè¥	248	jae .f_f ;¥á«¨ ¡®«ìè¥
249	xor eax,eax	249	xor eax,eax
250	cmp edx,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ìè¨¬	250	cmp edx,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ìè¨¬
251	jb @f	251	jb @f
252	sub ebx,ecx	252	sub ebx,ecx
253	jmp .nxt_f	253	jmp .nxt_f
254	@@: mov ebx,edx	254	@@: mov ebx,edx
255	sub ebx,ecx	255	sub ebx,ecx
256	jmp .nxt_f	256	jmp .nxt_f
257	.f_f:	257	.f_f:
258	sub eax,ecx	258	sub eax,ecx
259	cmp edx,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ìè¨¬	259	cmp edx,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ìè¨¬
260	jle @f	260	jle @f
261	sub ebx,ecx	261	sub ebx,ecx
262	sub ebx,eax	262	sub ebx,eax
263	jmp .nxt_f	263	jmp .nxt_f
264	@@:	264	@@:
265	mov ebx,edx	265	mov ebx,edx
266	sub ebx,ecx	266	sub ebx,ecx
267	sub ebx,eax	267	sub ebx,eax
268	.nxt_f:	268	.nxt_f:
269	mov edx,ebx	269	mov edx,ebx
270	lea ebx,[eax*2+eax]	270	lea ebx,[eax*2+eax]
271	shl ebx,1	271	shl ebx,1
272	add ebx,ed_left	272	add ebx,ed_left
273	inc ebx	273	inc ebx
274	shl ebx,16	274	shl ebx,16
275	lea ecx,[edx*2+edx]	275	lea ecx,[edx*2+edx]
276	shl ecx,1	276	shl ecx,1
277	mov bx,cx	277	mov bx,cx
278	inc ebx	278	inc ebx
279	mov edx,ebp;shift_color	279	mov edx,ebp;shift_color
280		280
281	call .draw_bg_eax	281	call .draw_bg_eax
282	@@: call .enable_null	282	@@: call .enable_null
283	ret	283	ret
284	;;;;;;;;;;;;;;;;;;;;;	284	;;;;;;;;;;;;;;;;;;;;;
285	;áâ ®¢ª - áïâ¨¥ ¢ë¤¥«¥¨ï ¢ ®¤¨ á¨¬¢®«	285	;áâ ®¢ª - áïâ¨¥ ¢ë¤¥«¥¨ï ¢ ®¤¨ á¨¬¢®«
286	;;;;;;;;;;;;;;;;;;;;;	286	;;;;;;;;;;;;;;;;;;;;;
287	.drw_sim:	287	.drw_sim:
288	mov eax,dword ed_pos	288	mov eax,dword ed_pos
289	call .draw_rectangle ; à¨á®¢ âì ¯àï¬®ã£®«ì¨ª á § ¤ ë¬ æ¢¥â®¬	289	call .draw_rectangle ; à¨á®¢ âì ¯àï¬®ã£®«ì¨ª á § ¤ ë¬ æ¢¥â®¬
290	jmp @b	290	jmp @b
291	;;;;;;;;;;;;;;;;;;;;;	291	;;;;;;;;;;;;;;;;;;;;;
292	;ãªæ¨ï ãáâ ®¢ª¨ ¢ë¤¥«¥¨ï ¯à¨ ¤¢¨¦¥¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ¦ â¨¨ shift	292	;ãªæ¨ï ãáâ ®¢ª¨ ¢ë¤¥«¥¨ï ¯à¨ ¤¢¨¦¥¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ¦ â¨¨ shift
293	;®£¨ª :	293	;®£¨ª :
294	;;;;;;;;;;	294	;;;;;;;;;;
295	.draw_wigwag:	295	.draw_wigwag:
296	;äãªæ¨ï ãáâ ®¢ª¨ ¯¥à¥¬¥ëå	296	;äãªæ¨ï ãáâ ®¢ª¨ ¯¥à¥¬¥ëå
297	mov ebp,shift_color	297	mov ebp,shift_color
298	call .clear_cursor	298	call .clear_cursor
299		299
300	or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨	300	or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨
301	mov ebp,shift_color	301	mov ebp,shift_color
302	mov eax,dword ed_pos	302	mov eax,dword ed_pos
303	test word ed_flags,ed_left_fl	303	test word ed_flags,ed_left_fl
304	jz .low	304	jz .low
305	jmp @f	305	jmp @f
306	;;;;;;;;;;	306	;;;;;;;;;;
307	;ãªæ¨ï ã¤ «¥¨ï ¢ë¤¥«¥¨ï ¯à¨ ¤¢¨¦¥¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ¦ â¨¨ shift	307	;ãªæ¨ï ã¤ «¥¨ï ¢ë¤¥«¥¨ï ¯à¨ ¤¢¨¦¥¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ¦ â¨¨ shift
308	;®£¨ª :	308	;®£¨ª :
309	;;;;;;;;;;	309	;;;;;;;;;;
310	.draw_wigwag_cl:	310	.draw_wigwag_cl:
311	;äãªæ¨ï ãáâ ®¢ª¨ ¯¥à¥¬¥ëå	311	;äãªæ¨ï ãáâ ®¢ª¨ ¯¥à¥¬¥ëå
312	mov ebp,ed_color	312	mov ebp,ed_color
313	call .clear_cursor	313	call .clear_cursor
314		314
315	mov ebp,ed_color	315	mov ebp,ed_color
316	mov eax,dword ed_pos	316	mov eax,dword ed_pos
317	test word ed_flags,ed_left_fl	317	test word ed_flags,ed_left_fl
318	jz .low	318	jz .low
319	@@: call .draw_rectangle ; à¨á®¢ âì ¯àï¬®ã£®«ì¨ª § ªà è¨¢ ¥¬®© ®¡« áâ¨	319	@@: call .draw_rectangle ; à¨á®¢ âì ¯àï¬®ã£®«ì¨ª § ªà è¨¢ ¥¬®© ®¡« áâ¨
320	ret	320	ret
321	.low: dec eax	321	.low: dec eax
322	jmp @b	322	jmp @b
323	;¢å®¤®© ¯ à ¬¥âà ebx - ed_pos	323	;¢å®¤®© ¯ à ¬¥âà ebx - ed_pos
324	.sh_first_sh:	324	.sh_first_sh:
325	test word ed_flags,ed_shift	325	test word ed_flags,ed_shift
326	je @f	326	je @f
327	mov dword ed_shift_pos_old,ebx	327	mov dword ed_shift_pos_old,ebx
328	test word ed_flags,ed_shift_on	328	test word ed_flags,ed_shift_on
329	jne @f	329	jne @f
330	mov dword ed_shift_pos,ebx	330	mov dword ed_shift_pos,ebx
331	or word ed_flags,ed_shift_on	331	or word ed_flags,ed_shift_on
332	@@: ret	332	@@: ret
333	;¡à ¡®âª ªà ©¨å ¯®«®¦¥¨© ¢ editbox ¯à¨ ¦ â®¬ shift	333	;¡à ¡®âª ªà ©¨å ¯®«®¦¥¨© ¢ editbox ¯à¨ ¦ â®¬ shift
334	;¯à®¨§¢®¤¨â áïâ¨¥ ¢ë¤¥«¥¨¥, ¥á«¨ ¥â shift	334	;¯à®¨§¢®¤¨â áïâ¨¥ ¢ë¤¥«¥¨¥, ¥á«¨ ¥â shift
335	;¨ ç¥ ¢®®¡é¥ ¢ëå®¤¨â	335	;¨ ç¥ ¢®®¡é¥ ¢ëå®¤¨â
336	.sh_st_of:	336	.sh_st_of:
337	test word ed_flags,ed_shift	337	test word ed_flags,ed_shift
338	jne @f	338	jne @f
339	test word ed_flags,ed_shift_bac	339	test word ed_flags,ed_shift_bac
340	je @f	340	je @f
341	mov ebp,ed_color	341	mov ebp,ed_color
342	mov ebx,dword ed_shift_pos	342	mov ebx,dword ed_shift_pos
343	call .sh_cl_ ;®ç¨áâª ¢ë¤¥«¥®£® äà £¬¥â	343	call .sh_cl_ ;®ç¨áâª ¢ë¤¥«¥®£® äà £¬¥â
344	and word ed_flags,ed_shift_cl ; ®ç¨áâª ®â â®£® çâ® ã¡à «¨ ¢ë¤¥«¥¨¥	344	and word ed_flags,ed_shift_cl ; ®ç¨áâª ®â â®£® çâ® ã¡à «¨ ¢ë¤¥«¥¨¥
345	jmp .draw_cursor_text	345	jmp .draw_cursor_text
346	@@:	346	@@:
347	and word ed_flags,ed_shift_off	347	and word ed_flags,ed_shift_off
348	edit_ex	348	edit_ex
349	;¯à®¢¥àª á®áâ®ï¨ï shift ¡ë« «¨ ® ¦ â à ìè¥?	349	;¯à®¢¥àª á®áâ®ï¨ï shift ¡ë« «¨ ® ¦ â à ìè¥?
350	.sh_enable:	350	.sh_enable:
351	test word ed_flags,ed_shift	351	test word ed_flags,ed_shift
352	jne .sh_ext_en ; à¨á®¢ âì § ªà è¥ë© ¯àï¬®ã£®«ì¨ª	352	jne .sh_ext_en ; à¨á®¢ âì § ªà è¥ë© ¯àï¬®ã£®«ì¨ª
353		353
354	test word ed_flags,ed_shift_bac	354	test word ed_flags,ed_shift_bac
355	je @f	355	je @f
356	call .check_offset	356	call .check_offset
357		357
358	mov ebp,ed_color	358	mov ebp,ed_color
359	mov ebx,dword ed_shift_pos	359	mov ebx,dword ed_shift_pos
360	call .sh_cl_ ;®ç¨áâª ¢ë¤¥«¥®£® äà £¬¥â	360	call .sh_cl_ ;®ç¨áâª ¢ë¤¥«¥®£® äà £¬¥â
361	call .draw_wigwag_cl	361	call .draw_wigwag_cl
362	and word ed_flags,ed_shift_cl ; 1¢ à ¥ ã¦®	362	and word ed_flags,ed_shift_cl ; 1¢ à ¥ ã¦®
363	ret	363	ret
364		364
365	@@: mov ebp,ed_color	365	@@: mov ebp,ed_color
366	call .clear_cursor	366	call .clear_cursor
367	call .check_offset	367	call .check_offset
368	ret	368	ret
369	.sh_ext_en:	369	.sh_ext_en:
370	call .check_offset	370	call .check_offset
371	test word ed_flags,ed_offset_fl	371	test word ed_flags,ed_offset_fl
372	je @f	372	je @f
373	;¨á®¢ ¨¥ § ªà è¥ëå ¯àï¬®ã£®«ì¨ª®¢ ¨ ®ç¨áâª ¨å	373	;¨á®¢ ¨¥ § ªà è¥ëå ¯àï¬®ã£®«ì¨ª®¢ ¨ ®ç¨áâª ¨å
374	mov eax,dword ed_shift_pos	374	mov eax,dword ed_shift_pos
375	mov ebx,dword ed_pos	375	mov ebx,dword ed_pos
376	mov ecx,dword ed_shift_pos_old	376	mov ecx,dword ed_shift_pos_old
377	;¯à®¢¥àª ¨ à¨á®¢ ¨¥ § ªà è¥ëå ®¡« áâ¥©	377	;¯à®¢¥àª ¨ à¨á®¢ ¨¥ § ªà è¥ëå ®¡« áâ¥©
378	cmp eax,ecx	378	cmp eax,ecx
379	je .1_shem	379	je .1_shem
380	jb .smaller	380	jb .smaller
381	cmp ecx,ebx	381	cmp ecx,ebx
382	ja .1_shem	382	ja .1_shem
383	call .draw_wigwag_cl ;clear	383	call .draw_wigwag_cl ;clear
384	jmp .sh_e_end	384	jmp .sh_e_end
385	.smaller:	385	.smaller:
386	cmp ecx,ebx	386	cmp ecx,ebx
387	jb .1_shem	387	jb .1_shem
388	call .draw_wigwag_cl ;clear	388	call .draw_wigwag_cl ;clear
389	jmp .sh_e_end	389	jmp .sh_e_end
390	;alike =	390	;alike =
391	.1_shem: call .draw_wigwag	391	.1_shem: call .draw_wigwag
392	.sh_e_end: and word ed_flags,ed_shift_off	392	.sh_e_end: and word ed_flags,ed_shift_off
393	ret	393	ret
394	@@: mov ebp,shift_color	394	@@: mov ebp,shift_color
395	mov ebx,dword ed_shift_pos	395	mov ebx,dword ed_shift_pos
396	call .sh_cl_	396	call .sh_cl_
397	jmp .sh_e_end	397	jmp .sh_e_end
398	;äãªæ¨ï ¤«ï ®¡à ¡®âª¨ shift ¯à¨ ¦ â¨¨ home and end	398	;äãªæ¨ï ¤«ï ®¡à ¡®âª¨ shift ¯à¨ ¦ â¨¨ home and end
399	.sh_home_end:	399	.sh_home_end:
400	mov ebp,ed_color	400	mov ebp,ed_color
401	call .clear_cursor	401	call .clear_cursor
402	test word ed_flags,ed_shift_bac	402	test word ed_flags,ed_shift_bac
403	je @f	403	je @f
404	mov ebp,ed_color	404	mov ebp,ed_color
405	mov ebx,dword ed_shift_pos_old	405	mov ebx,dword ed_shift_pos_old
406	call .sh_cl_	406	call .sh_cl_
407		407
408	@@: test word ed_flags,ed_shift	408	@@: test word ed_flags,ed_shift
409	je .sh_exit_ ;¢ë©â¨	409	je .sh_exit_ ;¢ë©â¨
410	mov ebp,shift_color	410	mov ebp,shift_color
411	mov ebx,dword ed_shift_pos	411	mov ebx,dword ed_shift_pos
412	call .sh_cl_	412	call .sh_cl_
413	or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨	413	or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨
414	jmp .sh_e_end	414	jmp .sh_e_end
415	.sh_exit_: call .check_offset	415	.sh_exit_: call .check_offset
416	ret	416	ret
417	;äãªæ¨ï ¢¥á¥¨ï 0 ¯® ¤à¥áã ed_size+1	417	;äãªæ¨ï ¢¥á¥¨ï 0 ¯® ¤à¥áã ed_size+1
418	.enable_null:	418	.enable_null:
419	pusha	419	pusha
420	mov eax,ed_size	420	mov eax,ed_size
421	mov ebx,ed_text	421	mov ebx,ed_text
422	test eax,eax	422	test eax,eax
423	add eax,ebx	423	add eax,ebx
424	jne @f	424	jne @f
425	inc eax	425	inc eax
426	@@: xor ebx,ebx	426	@@: xor ebx,ebx
427	mov [eax],bl	427	mov [eax],bl
428	edit_ex	428	edit_ex
429	;- ã¤ «¥¨¥ á¨¬¢®«	429	;- ã¤ «¥¨¥ á¨¬¢®«
430	;å®¤ë¥ ¤ ë¥ edx=ed_size;ecx=ed_pos	430	;å®¤ë¥ ¤ ë¥ edx=ed_size;ecx=ed_pos
431	.del_char:	431	.del_char:
432	mov esi,ed_text	432	mov esi,ed_text
433	test word ed_flags,ed_shift_on	433	test word ed_flags,ed_shift_on
434	je @f	434	je @f
435	mov eax,dword ed_shift_pos	435	mov eax,dword ed_shift_pos
436	mov ebx,esi	436	mov ebx,esi
437	cmp eax,ecx	437	cmp eax,ecx
438	jae .dh_n	438	jae .dh_n
439		439
440	mov ed_pos,eax ;çâ® ¡ë ¥ ¡ë«® ã¡¥£ ¨ï ªãàá®à	440	mov ed_pos,eax ;çâ® ¡ë ¥ ¡ë«® ã¡¥£ ¨ï ªãàá®à
441	mov ebp,ecx	441	mov ebp,ecx
442	sub ebp,eax	442	sub ebp,eax
443	add ebx,eax ;eax ¬¥ìè¥	443	add ebx,eax ;eax ¬¥ìè¥
444	sub edx,ecx	444	sub edx,ecx
445	add esi,ecx	445	add esi,ecx
446		446
447	mov dword ed_shift_pos,ebp	447	mov dword ed_shift_pos,ebp
448	jmp .del_ch_sh	448	jmp .del_ch_sh
449	;¥á«¨ ¨ ç¥	449	;¥á«¨ ¨ ç¥
450	.dh_n:	450	.dh_n:
451	mov ebp,eax	451	mov ebp,eax
452	sub ebp,ecx	452	sub ebp,ecx
453	add ebx,ecx	453	add ebx,ecx
454	sub edx,eax	454	sub edx,eax
455	add esi,eax	455	add esi,eax
456	mov dword ed_shift_pos,ebp	456	mov dword ed_shift_pos,ebp
457	jmp .del_ch_sh	457	jmp .del_ch_sh
458		458
459	@@: add esi,ecx ;ãª § â¥«ì + á¬¥é¥¨¥ ª à¥ «ì®¬ã ¡ãää¥àã	459	@@: add esi,ecx ;ãª § â¥«ì + á¬¥é¥¨¥ ª à¥ «ì®¬ã ¡ãää¥àã
460	mov ebx,esi	460	mov ebx,esi
461	inc esi	461	inc esi
462	cld	462	cld
463		463
464	sub edx,ecx	464	sub edx,ecx
465	.del_ch_sh:	465	.del_ch_sh:
466		466
467	push edi	467	push edi
468	mov edi,ebx	468	mov edi,ebx
469	@@:	469	@@:
470	lodsb	470	lodsb
471	stosb	471	stosb
472	dec edx	472	dec edx
473	jns @b	473	jns @b
474		474
475	pop edi	475	pop edi
476	ret	476	ret
477	;¢ëç¨á«¨âì § ªà è¨¢ ¥¬ãî ®¡« áâì	477	;¢ëç¨á«¨âì § ªà è¨¢ ¥¬ãî ®¡« áâì
478	;á®£« è¥¨¥ ¢ ebp - ¯¥à¥¤ ¥âáï ed_size	478	;á®£« è¥¨¥ ¢ ebp - ¯¥à¥¤ ¥âáï ed_size
479	.clear_bg:	479	.clear_bg:
480	call .get_n ;¯®«ãç¨âì à §¬¥à ¢ á¨¬¢®« å è¨à¨ë ª®¬¯®¥â	480	call .get_n ;¯®«ãç¨âì à §¬¥à ¢ á¨¬¢®« å è¨à¨ë ª®¬¯®¥â
481	push eax	481	push eax
482	mov ebx,ed_offset	482	mov ebx,ed_offset
483	add eax,ebx ;eax = w_off= ed_offset+width	483	add eax,ebx ;eax = w_off= ed_offset+width
484	mov ebx,ebp ;ed_size	484	mov ebx,ebp ;ed_size
485		485
486	cmp eax,ebx	486	cmp eax,ebx
487	jb @f	487	jb @f
488	mov eax,ed_pos	488	mov eax,ed_pos
489	sub ebx,eax	489	sub ebx,eax
490	mov ecx,ed_offset	490	mov ecx,ed_offset
491	sub eax,ecx	491	sub eax,ecx
492	jmp .nxt	492	jmp .nxt
493	@@: mov ebx,ed_pos	493	@@: mov ebx,ed_pos
494	push ebx	494	push ebx
495	sub eax,ebx	495	sub eax,ebx
496	mov ebx,eax ;It is don't optimal	496	mov ebx,eax ;It is don't optimal
497		497
498	pop eax ;ed_pos	498	pop eax ;ed_pos
499	mov ecx,ed_offset	499	mov ecx,ed_offset
500	sub eax,ecx	500	sub eax,ecx

Subversion Repositories Kolibri OS

(root)/programs/develop/examples/editbox/trunk/editbox.mac @ 1034 – Rev 830 → 1031