WebSVN – Kolibri OS – Diff – /programs/develop/libraries/box_lib/trunk/editbox.asm


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
}
 
 
align 16
edit_box:
.draw:
        pushad
        mov     edi,[esp+36]
        and     dword ed_text_color,17FFFFFFh
        mov     ecx,ed_text_color
        mov     ebx,ecx
        shr     ecx,28
        shl     ebx,4
        shr     ebx,28
        inc     ebx
        mov     eax,6
        jecxz   @f
        mov     al, 8
@@:
        mul     bl
        mov     ed_char_width,eax
        mov     al, 9
        jecxz   @f
        mov     al, 16
@@:
        mul     bl
        add     eax,4
        mov     ed_height,eax
        call    .draw_border
.draw_bg_cursor_text:
        call    .check_offset
        call    .draw_bg
        call    .draw_shift
.draw_cursor_text:
        call    .draw_text
        test    word ed_flags,ed_focus
        jz      .editbox_exit
        call    .draw_cursor
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¡é¨© ¢ëå®¤ ¨§ editbox ¤«ï ¢á¥å äã­ªæ¨© ¨ ¯®áâ ®¡à ¡®âç¨ª®¢;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.editbox_exit:
        popad
        ret 4
 
;==========================================================
;=== ®¡à ¡®âª  ª« ¢¨ âãàë =================================
;==========================================================
align 16
edit_box_key:
        pushad
        mov     edi,[esp+36]
        test    word ed_flags,ed_focus ; ¥á«¨ ­¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
        jz      edit_box.editbox_exit
        test    word ed_flags,ed_mouse_on or ed_disabled
        jnz     edit_box.editbox_exit
;--------------------------------------
; this code for Win-keys, works with
; kernel SVN r.3356 or later
        push    eax
        push    ebx
        mcall   SF_KEYBOARD,SSF_GET_CONTROL_KEYS
        test    ax,0x200        ; LWin
        jnz     .win_key_pressed
        test    ax,0x400        ; RWin
        jz      @f
.win_key_pressed:
        pop     ebx
        pop     eax
        jmp     edit_box.editbox_exit
 
@@:     pop     ebx
        pop     eax
;--------------------------------------
;à®¢¥àª  ­ ¦ â shift ?
        call    edit_box_key.check_shift_ctrl_alt
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬, çâ® ­ ¦ â® --------------------------------
;----------------------------------------------------------
        cmp     ah,8
        jz      edit_box_key.backspace
        cmp     ah,0xb6
        jz      edit_box_key.delete
        cmp     ah,176
        jz      edit_box_key.left
        cmp     ah,179
        jz      edit_box_key.right
        cmp     ah,180
        jz      edit_box_key.home
        cmp     ah,181
        jz      edit_box_key.end
        cmp     ah,185  ;insert
        jz      edit_box_key.insert
; ª®¬¡¨­ æ¨¨ Ctrl + ª« ¢¨è 
        test    word ed_flags,ed_ctrl_on
        jz      @f
; ¯à®¢¥àª  áª ­ª®¤ 
        ror     eax,8
        cmp     ah,45 ; Ctrl + X
        je      edit_box_key.ctrl_x        
        cmp     ah,46 ; Ctrl + C
        je      edit_box_key.ctrl_c
        cmp     ah,47 ; Ctrl + V
        je      edit_box_key.ctrl_v
        rol     eax,8
@@:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; £«ãèª  ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ àã¦¥­¨¨ íâ¨å ª®¤®¢ ¯à®¨áå®¤¨â ¢ëå®¤ ¨§ ®¡à ¡®âç¨ª 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_key_no_process   up,down,esc,enter,tab,numl,capsl,scrolll
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;à®¢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì â®«ìª® æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥, ¥á«¨ â ª®© ­¥®¡å®¤¨¬®áâ¨ ­¥â, ­ã¦­® § ª®¬¥­â¨à®¢ âì ¬ ªà®á
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        test    word ed_flags,ed_figure_only  ; â®«ìª® æ¨äàë?
        jz      @f
        cmp     ah,'0'
        jb      edit_box.editbox_exit
        cmp     ah,'9'
        ja      edit_box.editbox_exit
@@:
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¯à®¢¥àª  ­  shift, ¡ë« «¨ ­ ¦ â
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        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 area
        mov     ebp,ed_color
        movzx   ebx, word ed_shift_pos
        call    edit_box_key.sh_cl_
        mov     ebp,ed_size
        call    edit_box_key.clear_bg
        popa
        call    edit_box_key.del_char
        mov     ebx,ed_size
        sub     bx,ed_shift_pos
        mov     ed_size,ebx
        pop     eax
@@:
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ¯à®¢¥àï¥¬, ­ å®¤¨âáï «¨ ªãàá®à ¢ ª®­æ¥ + ¤ «ì­¥©è ï ®¡à ¡®âª 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        mov     ecx,ed_size
        mov     edx, ed_max
        test    word ed_flags,ed_insert
        jne     @f
        cmp     ecx,edx
        jae     edit_box.editbox_exit
@@:     mov     ebx, ed_pos
        cmp     ebx,edx
        jnl     edit_box.editbox_exit
        mov     ecx,ed_size
        push    edi eax
        mov     ebp,edi
        mov     esi,ed_text
        add     esi,ecx
        mov     edi,esi
        cmp     ecx,ebx
        je      edit_box_key.In_k
        test    dword bp_flags,ed_insert
        jne     edit_box_key.ins_v
        pusha
        mov     edi,ebp
        mov     ebp,ed_size
        call    edit_box_key.clear_bg
        popa
        sub     ecx,ebx
        inc     edi
        std
        inc     ecx
@@:
        lodsb
        stosb
        loop    @b
edit_box_key.In_k:
        cld
        pop     eax
        mov     al,ah
        stosb
        pop     edi
        inc     dword ed_size
        inc     dword ed_pos
        call    edit_box_key.draw_all2
        jmp     edit_box_key.shift
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¡à ¡®âª  ª« ¢¨è insert,delete.backspace,home,end,left,right
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
edit_box_key.insert:
        test    word ed_flags,ed_insert
        je      @f
        and     word ed_flags,ed_insert_cl
        jmp     edit_box.editbox_exit
 
@@:     or      word ed_flags,ed_insert
        jmp     edit_box.editbox_exit
 
edit_box_key.ins_v:
        dec     dword bp_size
        sub     esi,ecx
        add     esi,ebx
        mov     edi,esi
        pusha
        mov     edi,ebp
        mov     ebp,ed_pos
        call    edit_box_key.clear_bg
        popa
        jmp     edit_box_key.In_k
 
edit_box_key.delete:
        mov     edx,ed_size
        mov     ecx,ed_pos
        cmp     edx,ecx
        jg      edit_box_key.bac_del
        test    word ed_flags,ed_shift_on
        jne     edit_box_key.del_bac
        popad
        ret     4
 
edit_box_key.bac_del:
        call    edit_box_key.del_char
        jmp     edit_box_key.draw_all
 
edit_box_key.backspace:
        test    word ed_flags,ed_shift_on
        jne     edit_box_key.delete
        mov     ecx,ed_pos
        test    ecx,ecx
        jnz     edit_box_key.del_bac
        popad
        ret     4
 
edit_box_key.del_bac:
        mov     edx,ed_size
        cmp     edx,ecx ;if ed_pos=ed_size
        je      @f
        dec     ecx
        call    edit_box_key.del_char
@@:     test    word ed_flags,ed_shift_on
        jne     edit_box_key.bac_del
        dec     dword ed_pos
edit_box_key.draw_all:
        push    edit_box_key.shift
        test    word ed_flags,ed_shift_on
        je      @f
        movzx   eax, word ed_shift_pos
        mov     ebx,ed_size
        sub     ebx,eax
        mov     ed_size,ebx
        mov     ebp,ed_color
        call    edit_box.clear_cursor
        call    edit_box.check_offset         
        and     word ed_flags,ed_shift_cl
        jmp     edit_box.draw_bg
 
@@:     dec     dword ed_size
edit_box_key.draw_all2:
        and     word ed_flags,ed_shift_cl
        mov     ebp,ed_color
        call    edit_box.clear_cursor
        call    edit_box.check_offset
        mov     ebp,ed_size
        jmp     edit_box_key.clear_bg
 
;--- ­ ¦ â  ª« ¢¨è  left ---
edit_box_key.left:
        mov     ebx,ed_pos
        test    ebx,ebx
        jz      edit_box_key.sh_st_of
        or      word ed_flags,ed_left_fl
        call    edit_box_key.sh_first_sh
        dec     dword ed_pos
        call    edit_box.draw_bg
        call    edit_box.draw_shift
        call    edit_box_key.sh_enable
        jmp     edit_box.draw_cursor_text
 
;--- ­ ¦ â  ª« ¢¨è  right ---
edit_box_key.right:
        mov     ebx,ed_pos
        cmp     ebx,ed_size
        je      edit_box_key.sh_st_of
        and     word ed_flags,ed_right_fl
        call    edit_box_key.sh_first_sh
        inc     dword ed_pos
        call    edit_box.draw_bg
        call    edit_box.draw_shift
        call    edit_box_key.sh_enable
        jmp     edit_box.draw_cursor_text
 
edit_box_key.home:
        mov     ebx,ed_pos
        test    ebx,ebx
        jz      edit_box_key.sh_st_of
        call    edit_box_key.sh_first_sh
        xor     eax,eax
        mov     ed_pos,eax
        call    edit_box.draw_bg
        call    edit_box.draw_shift
        call    edit_box_key.sh_home_end
        jmp     edit_box.draw_cursor_text
 
;--- ­ ¦ â  ª« ¢¨è  end ---
edit_box_key.end:
        mov     ebx,ed_pos
        cmp     ebx,ed_size
        je      edit_box_key.sh_st_of
        call    edit_box_key.sh_first_sh
        mov     eax,ed_size
        mov     ed_pos,eax
        call    edit_box.draw_bg
        call    edit_box.draw_shift
        call    edit_box_key.sh_home_end
        jmp     edit_box.draw_cursor_text
;----------------------------------------
StrInsert:
; SizeOf(TmpBuf) >= StrLen(Src) + StrLen(Dst) + 1              
Dst    equ [esp + 16] ; - destination buffer
Src    equ [esp + 12] ; - source to insert from
Pos    equ [esp + 8] ; - position for insert
DstMax equ [esp + 4]  ; - maximum Dst length(exclude terminating null)
 
SrcCount equ [esp - 4]
DstCount equ [esp - 8]
TmpBuf   equ [esp - 12]  ; - temporary buffer 
 
 
 
        mov    edi, Src
        mov    ecx, -1
        xor    eax, eax
        repne scasb 
        mov    eax, -2
        sub    eax, ecx
 
 
 
 
        mov    SrcCount, eax                
 
 
        mov    edi, Dst
        add    edi, Pos
        mov    ecx, -1
        xor    eax, eax
        repne scasb 
        mov    eax, -2
        sub    eax, ecx
        inc    eax
        mov    DstCount, eax                
        mov    ecx, eax
        add    ecx, SrcCount
        add    ecx, Pos
        mcall   SF_SYS_MISC,SSF_MEM_ALLOC
        mov    TmpBuf, eax          
        mov    esi, Dst
        mov    edi, TmpBuf
        mov    ecx, Pos
        mov    edx, ecx
        rep movsb         
        mov    esi, Src
        mov    edi, TmpBuf
        add    edi, Pos
        mov    ecx, SrcCount
        add    edx, ecx
        rep movsb         
        mov    esi, Pos
        add    esi, Dst
        mov    ecx, DstCount
        add    edx, ecx
        rep movsb         
        mov    esi, TmpBuf
        mov    edi, Dst
; ecx = MIN(edx, DstSize)        
        cmp    edx, DstMax
        sbb    ecx, ecx                                   
        and    edx, ecx
        not    ecx
        and    ecx, DstMax
        add    ecx, edx                                   
        mov    eax, ecx ; return total length
        rep movsb        
        mov    ecx, TmpBuf
        mcall   SF_SYS_MISC,SSF_MEM_FREE                                
        ret    16
restore Dst    
restore Src      
restore Pos    
restore DstSize
restore TmpBuf 
restore SrcCount
restore DstCount
;----------------------------------------         
edit_box_key.ctrl_x:
        test   word ed_flags,ed_shift_on
        jz     edit_box.editbox_exit        
        push    dword 'X'  ; this value need below to determine which action is used
        jmp     edit_box_key.ctrl_c.pushed
        
edit_box_key.ctrl_c:
        test   word ed_flags,ed_shift_on
        jz     edit_box.editbox_exit
        push    dword 'C'  ; this value need below to determine which action is used
.pushed:        
; add memory area
        mov     ecx,ed_size
        add     ecx,3*4
        mcall   SF_SYS_MISC,SSF_MEM_ALLOC
; building the clipboard slot header
        xor     ecx,ecx
        mov     [eax+4],ecx ; type 'text'
        inc     ecx
        mov     [eax+8],ecx ; cp866 text encoding
        mov     ecx,ed_pos       
        movzx   ebx,word ed_shift_pos
        sub     ecx,ebx
.abs: ; make ecx = abs(ecx)
	       neg     ecx
	       jl	     .abs
        add     ecx,3*4
        mov     [eax],ecx
        sub     ecx,3*4        
        mov     edx,ed_pos
        movzx   ebx,word ed_shift_pos
        cmp     edx,ebx
        jle     @f
        mov     edx,ebx
@@:        
; copy data
        mov     esi,ed_text
        add     esi,edx
        push    edi
        mov     edi,eax
        add     edi,3*4
        cld
        rep     movsb
        pop     edi
; put slot to the kernel clipboard
        mov     edx,eax
        mov     ecx,[edx]
        push    eax
        mcall   SF_CLIPBOARD,SSF_WRITE_CB
        pop     ecx
; remove unnecessary memory area
        mcall   SF_SYS_MISC,SSF_MEM_FREE
.exit:
        pop     eax        ; determine current action (ctrl+X or ctrl+C)
        cmp     eax, 'X'
        je      edit_box_key.delete
        jmp     edit_box.editbox_exit
 
edit_box_key.ctrl_v:
        mcall   SF_CLIPBOARD,SSF_GET_SLOT_COUNT
; no slots of clipboard ?
        test    eax,eax
        jz      .exit
; main list area not found ?
        inc     eax
        test    eax,eax
        jz      .exit
        sub     eax,2
        mov     ecx,eax
        mcall   SF_CLIPBOARD,SSF_READ_CB
; main list area not found ?
        inc     eax
        test    eax,eax
        jz      .exit
; error ?
        sub     eax,2
        test    eax,eax
        jz      .exit
        inc     eax
; check contents of container
        mov     ebx,[eax+4]
; check for text
        test    ebx,ebx
        jnz     .no_valid_text
        mov     ebx,[eax+8]
; check for cp866
        cmp     bl,1
        jnz     .no_valid_text
; if something selected then need to delete it        
        test   word ed_flags,ed_shift_on
        jz     .selected_done 
        push   eax; dummy parameter ; need to
        push   dword .selected_done ; correctly return
        pushad                      ; from edit_box_key.delete
        jmp    edit_box_key.delete
.selected_done:        
        mov     ecx,[eax]
        sub     ecx,3*4
; in ecx size of string to insert   
        add     ecx,ed_size
        mov     edx,ed_max
        cmp     ecx,edx
        jb      @f
        mov     ecx,edx
@@:
        mov     esi,eax
        add     esi,3*4
        push    eax edi
;---------------------------------------;         
        mov     ed_size,ecx        
 
 
 
 
 
        
        push   dword ed_text ; Dst   
        push   esi           ; Src   
        push   dword ed_pos  ; Pos in Dst
        push   dword ed_max  ; DstMax
 
        call   StrInsert          
 
 
 
;---------------------------------------;        
;        mov     edi,ed_text
;        cld
;@@:
;        lodsb
;        cmp     al,0x0d ; EOS (end of string)
;        je      .replace
;        cmp     al,0x0a ; EOS (end of string)
;        jne     .continue
;.replace:
;        mov     al,0x20 ; space
;.continue:
;        stosb
;        dec     ecx
;        jnz     @b
        pop     edi eax
.no_valid_text:
; remove unnecessary memory area
        mov     ecx,eax
        mcall   SF_SYS_MISC,SSF_MEM_FREE
.exit:
        jmp     edit_box.draw_bg_cursor_text
 
;==========================================================
;=== ®¡à ¡®âª  ¬ëè¨ =======================================
;==========================================================
;save for stdcall ebx,esi,edi,ebp
align 16
edit_box_mouse:
        pushad
        mov     edi,[esp+36]
        test    word ed_flags,ed_disabled
        jnz     edit_box.editbox_exit
 
;----------------------------------------------------------
;--- ¯®«ãç ¥¬ á®áâ®ï­¨¥ ª­®¯®ª ¬ëè¨ -----------------------
;----------------------------------------------------------
        mcall   SF_MOUSE_GET,SSF_BUTTON
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬ á®áâ®ï­¨¥ ----------------------------------
;----------------------------------------------------------
        test    eax,1
        jnz     edit_box_mouse.mouse_left_button
        and     word ed_flags,ed_mouse_on_off
        mov     ebx,ed_mouse_variable
        push    0
        pop     dword [ebx]
        jmp     edit_box.editbox_exit
 
.mouse_left_button:
;----------------------------------------------------------
;--- ¡«®ª¨à®¢ª  ®â ä®ªãá¨à®¢ª¨ ¢ ¤àã£¨å ¡®ªá å ¯à¨ ¯®¯ ¤ ­¨¨ ­  ­¨å ªãàá®à 
;----------------------------------------------------------
        mov     eax,ed_mouse_variable
        push    dword [eax]
        pop     eax
        test    eax,eax
        jz      @f
        cmp     eax,edi
        je      @f
        jmp     edit_box_mouse._blur
;----------------------------------------------------------
;--- ¯®«ãç ¥¬ ª®®à¤¨­ âë ¬ëè¨ ®â­®á¨â¥«ì­® 0 â.¥ ¢á¥© ®¡« áâ¨ íªà ­ 
;----------------------------------------------------------
@@:
        mcall   SF_MOUSE_GET,SSF_WINDOW_POSITION
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ã­ªæ¨ï ®¡à ¡®âª¨  ¬ëèª¨ ¯®«ãç¥­¨¥ ª®®à¤¨­ â ¨ ¯à®¢¥àª  ¨å + ¢ë¤¥«¥­¨ï
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ¥ ã¤¥à¦¨¢ ¥¬ «¨ ¬ë ª« ¢¨èã ¬ëèª¨, ¯¥à¥¬¥é ï ªãàá®à?
        test    word ed_flags,ed_mouse_on
        jne     edit_box_mouse.mouse_wigwag
; ¯à®¢¥àï¥¬, ¯®¯ ¤ ¥â «¨ ªãàá®à ¢ edit box
        mov     ebx,ed_top
        cmp     ax,bx
        jl      edit_box_mouse._blur
        add     ebx,ed_height
        cmp     ax,bx
        jg      edit_box_mouse._blur
        shr     eax,16
        mov     ebx,ed_left
        cmp     ax,bx
        jl      edit_box_mouse._blur
        add     ebx,ed_width
        cmp     ax,bx
        jg      edit_box_mouse._blur
; ¨§¬¥­ï¥¬ ¯®§¨æ¨î ªãàá®à 
        push    eax
        mov     ebp,ed_color
        call    edit_box.clear_cursor
        pop     eax
edit_box_mouse._mvpos:
        xor     edx,edx
        sub     eax,ed_left
        div     word ed_char_width
        add     eax,ed_offset
        cmp     eax,ed_size
        jna     edit_box_mouse._mshift
        mov     eax,ed_size
edit_box_mouse._mshift:
; á¥ªæ¨ï ®¡à ¡®âª¨ shift ¨ ¢ë¤¥«¥­¨ï ¯® shift
        test    word ed_flags,ed_shift_bac
        je      @f
        mov     ebp,ed_color
        movzx   ebx, word ed_shift_pos
        push    eax
        call    edit_box_key.sh_cl_
        and     word ed_flags,ed_shift_bac_cl
        pop     eax
@@:
        test    word ed_flags,ed_mouse_on
        jne     @f
        mov     ed_shift_pos,ax
        or      word  ed_flags,ed_mouse_on
        mov     ed_pos,eax
        mov     ebx,ed_mouse_variable
        push    edi
        pop     dword [ebx]
        bts     word ed_flags,1
        call    edit_box.draw_bg
        jmp     edit_box_mouse.m_sh
 
@@:     cmp     ax,ed_shift_pos
        je      edit_box.editbox_exit
        mov     ed_pos,eax
        call    edit_box.draw_bg
        mov     ebp,shift_color
        movzx   ebx, word ed_shift_pos
        call    edit_box_key.sh_cl_
        or      word ed_flags,ed_mous_adn_b
edit_box_mouse.m_sh:
        call    edit_box.draw_text
        call    edit_box.draw_cursor
; ¯à®æ¥¤ãà  ãáâ ­®¢ª¨ ä®ªãá 
        jmp     edit_box_mouse.drc
 
edit_box_mouse._blur:
        test    word ed_flags,ed_always_focus
        jne     edit_box.editbox_exit
        btr     word ed_flags,1 ; ¥á«¨ ­¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
        jnc     edit_box.editbox_exit
        mov     ebp,ed_color
        call    edit_box.clear_cursor
edit_box_mouse.drc:
        call    edit_box.draw_border
        jmp     edit_box.editbox_exit
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¡é¨¥ äã­ªæ¨¨ ®¡à ¡®âª¨
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ ¢ë¤¥«¥­­®© ç áâ¨ ----------------
;----------------------------------------------------------
edit_box.draw_shift:
        test    word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        jz      @f
        mov     ebp,shift_color
        movzx   ebx, word ed_shift_pos
        call    edit_box_key.sh_cl_
@@:     ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ â¥ªáâ  --------------------------
;----------------------------------------------------------
edit_box.draw_text:
        call    edit_box.get_n
        mov     esi,ed_size
        sub     esi,ed_offset
        cmp     eax,esi
        jae     @f
        mov     esi,eax
@@:
        test    esi,esi
        jz      @f
        mov     eax,SF_DRAW_TEXT
        mov     ebx,ed_left
        add     ebx,2
        shl     ebx,16
        add     ebx,ed_top
        add     ebx,3
        mov     ecx,ed_text_color
        test    dword ed_flags,ed_pass
        jnz     .password
        mov     edx,ed_text
        add     edx,ed_offset
        mcall
@@:
        ret
 
.password:
        mov     ebp,esi
        mov     esi,1
        mov     edx,txt_pass
@@:
        mcall
        rol     ebx,16
        add     ebx,ed_char_width
        rol     ebx,16
        dec     ebp
        jnz     @b
        ret
 
txt_pass db '*'
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ ä®­  ----------------------------
;----------------------------------------------------------
edit_box.draw_bg:
        mov     ebx,ed_left
        inc     ebx
        shl     ebx,16
        add     ebx,ed_width
        dec     ebx
        mov     edx,ed_color
        test    word ed_flags, ed_disabled
        jz      edit_box.draw_bg_eax
        mov     edx, 0xCACACA   ; TODO: add disabled_color field to editbox struct
edit_box.draw_bg_eax:
        mov     ecx,ed_top
        inc     ecx
        shl     ecx,16
        add     ecx,ed_height
        mcall   SF_DRAW_RECT
        ret
 
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯®«ãç¥­¨ï ª®«¨ç¥áâ¢  á¨¬¢®«®¢ ¢ â¥ªãé¥© è¨à¨­¥ ª®¬¯®­¥­â 
;----------------------------------------------------------
edit_box.get_n:
        mov     eax,ed_width
        sub     eax,4
        xor     edx,edx
        div     word ed_char_width
        ret
 
;----------------------------------------------------------
;------------------ Draw Cursor Procedure -----------------
;----------------------------------------------------------
; in: ebp = Color
edit_box.clear_cursor:
        movzx   ebx, word cl_curs_x
        cmp     ebx, ed_left ;¯®¯ ¤ ¥â «¨ ªãàá®à â¥ªáâ®¢®¥ ¯®«¥?
        jle     @f
        mov     edx, ebp
        movzx   ecx, word cl_curs_y
        cmp     ecx, ed_top
        jg      edit_box.draw_curs
@@:
        ret
 
edit_box.draw_cursor:
        mov     edx, ed_text_color
        mov     eax, ed_pos
        sub     eax, ed_offset
        mul     dword ed_char_width
        mov     ebx, eax
        add     ebx, ed_left
        inc     ebx
        mov     ecx, ed_top
        add     ecx, 2
        mov     cl_curs_x, bx
        mov     cl_curs_y, cx
edit_box.draw_curs:
        mov     eax, ebx
        shl     ebx, 16
        or      ebx, eax
        mov     eax, ecx
        shl     ecx, 16
        or      ecx, eax
        add     ecx, ed_height
        sub     ecx, 3
        mcall   SF_DRAW_LINE
        ret
 
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  à¨á®¢ ­¨ï à ¬ª¨ ----------------------------
;----------------------------------------------------------
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     ebx,ed_left
        mov     ecx,ebx
        shl     ebx,16
        add     ebx,ecx
        add     ebx,ed_width
        mov     ecx,ed_top
        mov     esi,ecx
        shl     ecx,16
        add     ecx,esi
        mcall   SF_DRAW_LINE ; top
        mov     esi,ecx
        inc     ecx
        add     ecx,ed_height
        mov     ebp,ecx
        shl     ecx,16
        mov     cx,bp
        mcall   ; bottom
        mov     cx,si
        mov     ebp,ebx
        sub     ebx,ed_width
        mcall   ; left
        mov     ebx,ebp
        shl     ebx,16
        mov     bx,bp
        mcall   ; right
        ret
 
;----------------------------------------------------------
;--- ¯à®¢¥àª , § è¥« «¨ ªãàá®à §  £à ­¨æë ¨, ¥á«¨ ­ ¤®, ---
;--- ¨§¬¥­ï¥¬ á¬¥é¥­¨¥ ------------------------------------
;--- ¥á«¨ á¬¥é¥­¨¥ ¡ë«®, ãáâ ­®¢ª  ä« £  ed_offset_cl, ¨­ ç¥,
; ¥á«¨ ­¨ç¥£® ­¥ ¨§¬¥­¨«®áì, â® ¢ëáâ ¢«¥­¨¥ ed_offset_fl
; ¢ ®¡é¥© ¡¨â®¢®© ¬ âà¨æ¥ á®áâ®ï­¨ï ª®¬¯®­¥­â®¢ word ed_flags
;----------------------------------------------------------
edit_box.check_offset:
        pushad
        mov     ecx,ed_pos
        mov     ebx,ed_offset
        cmp     ebx,ecx
        ja      edit_box.sub_8
        push    ebx
        call    edit_box.get_n
        pop     ebx
        mov     edx,ebx
        add     edx,eax
        inc     edx     ;­¥®¡å®¤¨¬® ¤«ï ­®à¬ «ì­®£® ¯®«®¦¥­¨ï ªãàá®à  ¢ ªà ©­¥© «¥¢®© ¯®§¨æ¨¨
        cmp     edx,ecx
        ja      @f
        mov     edx,ed_size
        cmp     edx,ecx
        je      edit_box.add_end
        sub     edx,ecx
        cmp     edx,8
        jbe     edit_box.add_8
        add     ebx,8
        jmp     edit_box.chk_d
 
@@:     or      word ed_flags,ed_offset_fl
        popad
        ret
 
edit_box.sub_8:
        test    ecx,ecx
        jz      @f
        sub     ebx,8   ;ebx=ed_offset
        ja      edit_box.chk_d
@@:
        xor     ebx,ebx
        jmp     edit_box.chk_d
 
edit_box.add_end:
        sub     edx,eax
        mov     ebx,edx
        jmp     edit_box.chk_d
 
edit_box.add_8:
        add     ebx,edx
edit_box.chk_d:
        mov     ed_offset,ebx
        call    edit_box.draw_bg
        and     word ed_flags,ed_offset_cl
        popad
        ret
 
align 4
proc edit_box_set_text, edit:dword, text:dword
        pushad
        mov     edi,[edit]
        mov     ecx,ed_max
        inc     ecx
        mov     edi,[text]
        xor     al,al
        cld
        repne scasb
        mov     ecx,edi
        mov     edi,[edit]
        mov     esi,[text]
        sub     ecx,esi
        dec     ecx
        mov     ed_size,ecx
        mov     ed_pos,ecx
        and     word ed_flags,ed_shift_cl
        mov     edi,ed_text
        repne movsb
        mov     byte[edi],0
        popad
        ret
endp
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ã­ªæ¨¨ ¤«ï à ¡®âë á key
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
;¡à ¡®âª  Shift ¤«ï á­ïâ¨ï ¢ë¤¥«¥­¨ï ­¥¨§¢¥áâ­®© ®¡« áâ¨
edit_box_key.shift:
        call    edit_box.draw_bg
        test    word ed_flags,ed_shift
        je      edit_box_key.f_exit
        mov     ebp,shift_color
        or      word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        movzx   ebx, word ed_shift_pos
        call    edit_box_key.sh_cl_
        jmp     edit_box.draw_cursor_text
 
edit_box_key.f_exit:
        call    edit_box.check_offset
        and     word ed_flags,ed_shift_cl
        call    edit_box_key.enable_null
        jmp     edit_box.draw_cursor_text
 
edit_box_key.sh_cl_:
;®¡à ¡®âª  ®ç¨áâª¨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥­¨¨ ¢ë¤¥«¥­¨ï
;¤«ï ®¡à ¡®âª¨ á­ïâ¨ï ¢ë¤¥«¥­¨ï
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        mov     eax,ed_pos
        cmp     eax,ebx
        jae     edit_box_key.sh_n
        push    eax  ;¬¥­ìè¥¥ ¢ eax
        push    ebx  ;¡®«ìè¥¥
        jmp     edit_box_key.sh_n1
 
edit_box_key.sh_n:
        push    ebx
        push    eax
edit_box_key.sh_n1:
        call    edit_box.check_offset
        call    edit_box.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     edit_box_key.f_f            ;¥á«¨ ¡®«ìè¥
        xor     eax,eax
        cmp     edx,ebx         ;cà ¢­¨¬ à §¬¥à w_off á ¡®«ìè¨¬
        jnb     @f
        mov     ebx,edx
@@:
        sub     ebx,ecx
        jmp     edit_box_key.nxt_f
 
edit_box_key.f_f:
        sub     eax,ecx
        cmp     edx,ebx         ;cà ¢­¨¬ à §¬¥à w_off á ¡®«ìè¨¬
        jle     @f
        sub     ebx,ecx
        sub     ebx,eax
        jmp     edit_box_key.nxt_f
 
@@:     mov     ebx,edx
        sub     ebx,ecx
        sub     ebx,eax
edit_box_key.nxt_f:
        mul     dword ed_char_width
        xchg    eax,ebx
        mul     dword ed_char_width
        add     ebx,ed_left
        inc     ebx
        shl     ebx,16
        inc     eax
        mov     bx, ax
        mov     edx,ebp ;shift_color
        call    edit_box.draw_bg_eax
        jmp     edit_box_key.enable_null
 
;áâ ­®¢ª - á­ïâ¨¥ ¢ë¤¥«¥­¨ï ¢ ®¤¨­ á¨¬¢®«
edit_box_key.drw_sim:
        mov     eax,ed_pos
        call    edit_box_key.draw_rectangle
        jmp     edit_box_key.enable_null
 
;ã­ªæ¨ï ãáâ ­®¢ª¨ ¢ë¤¥«¥­¨ï ¯à¨ ¤¢¨¦¥­¨¨ ¢«¥¢® ¨ ¢¯à ¢® ¨ ­ ¦ â¨¨ shift
edit_box_key.draw_wigwag:
        mov     ebp,shift_color
        call    edit_box.clear_cursor
        or      word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £  ¢ë¤¥«¥­­®© ®¡« áâ¨
        mov     ebp,shift_color
        mov     eax,ed_pos
        test    word ed_flags,ed_left_fl
        jnz     edit_box_key.draw_rectangle
        dec     eax
        jmp     edit_box_key.draw_rectangle
 
;ã­ªæ¨ï ã¤ «¥­¨ï ¢ë¤¥«¥­¨ï ¯à¨ ¤¢¨¦¥­¨¨ ¢«¥¢® ¨ ¢¯à ¢® ¨ ­ ¦ â¨¨ shift
edit_box_key.draw_wigwag_cl:
        mov     ebp,ed_color
        call    edit_box.clear_cursor
        mov     ebp,ed_color
        mov     eax,ed_pos
        test    word ed_flags,ed_left_fl
        jnz     edit_box_key.draw_rectangle
        dec     eax
        jmp     edit_box_key.draw_rectangle
 
;¢å®¤­®© ¯ à ¬¥âà ebx - ed_pos
edit_box_key.sh_first_sh:
        test    word ed_flags,ed_shift
        je      @f
        mov     ed_shift_pos_old,bx
        test    word ed_flags,ed_shift_on
        jne     @f
        mov     ed_shift_pos,bx
        or      word ed_flags,ed_shift_on
@@:     ret
;¡à ¡®âª  ªà ©­¨å ¯®«®¦¥­¨© ¢ editbox ¯à¨ ­ ¦ â®¬ shift
;¯à®¨§¢®¤¨â á­ïâ¨¥ ¢ë¤¥«¥­¨ï, ¥á«¨ ­¥â shift
;¨­ ç¥ ¢®®¡é¥ ¢ëå®¤¨â
edit_box_key.sh_st_of:
        test    word ed_flags,ed_shift
        jne     @f
        test    word ed_flags,ed_shift_bac
        je      @f
        call    edit_box.draw_bg
        mov     ebp,ed_color
        movzx   ebx, word ed_shift_pos
        call    edit_box_key.sh_cl_  ;®ç¨áâª  ¢ë¤¥«¥­®£® äà £¬¥­â 
        and     word ed_flags,ed_shift_cl ; ®ç¨áâª  ®â â®£®, çâ® ã¡à «¨ ¢ë¤¥«¥­¨¥
        jmp     edit_box.draw_cursor_text
 
@@:     and     word ed_flags,ed_shift_off
        popad
        ret     4
;¯à®¢¥àª  á®áâ®ï­¨ï shift, ¡ë« «¨ ®­ ­ ¦ â à ­ìè¥?
edit_box_key.sh_enable:
        test    word ed_flags,ed_shift
        jne     edit_box_key.sh_ext_en ;­ à¨á®¢ âì § ªà è¥­­ë© ¯àï¬®ã£®«ì­¨ª
        test    word ed_flags,ed_shift_bac
        je      @f
        call    edit_box.check_offset
        mov     ebp,ed_color
        movzx   ebx, word ed_shift_pos
        call    edit_box_key.sh_cl_  ;®ç¨áâª  ¢ë¤¥«¥­­®£® äà £¬¥­â 
        call    edit_box_key.draw_wigwag_cl
        and     word ed_flags,ed_shift_cl ; 1¢ à ­¥ ­ã¦­®
        ret
 
@@:     mov     ebp,ed_color
        call    edit_box.clear_cursor
        jmp     edit_box.check_offset
 
edit_box_key.sh_ext_en:
        call    edit_box.check_offset
        test    word ed_flags,ed_offset_fl
        je      @f
;¨á®¢ ­¨¥ § ªà è¥­­ëå ¯àï¬®ã£®«ì­¨ª®¢ ¨ ¨å ®ç¨áâª 
        movzx   eax, word ed_shift_pos
        mov     ebx,ed_pos
        movzx   ecx, word ed_shift_pos_old
;¯à®¢¥àª  ¨ à¨á®¢ ­¨¥ § ªà è¥­­ëå ®¡« áâ¥©
        cmp     eax,ecx
        je      edit_box_key.1_shem
        jb      edit_box_key.smaller
        cmp     ecx,ebx
        ja      edit_box_key.1_shem
        call    edit_box_key.draw_wigwag_cl ;clear
        jmp     edit_box_key.sh_e_end
 
edit_box_key.smaller:
        cmp     ecx,ebx
        jb      edit_box_key.1_shem
        call    edit_box_key.draw_wigwag_cl ;clear
        jmp     edit_box_key.sh_e_end
 
edit_box_key.1_shem:
        call    edit_box_key.draw_wigwag
edit_box_key.sh_e_end:
        and     word ed_flags,ed_shift_off
        ret
 
@@:     mov     ebp,shift_color
        movzx   ebx, word ed_shift_pos
        call    edit_box_key.sh_cl_
        jmp     edit_box_key.sh_e_end
;äã­ªæ¨ï ¤«ï ®¡à ¡®âª¨ shift ¯à¨ ­ ¦ â¨¨ home and end
edit_box_key.sh_home_end:
        mov     ebp,ed_color
        call    edit_box.clear_cursor
        test    word ed_flags,ed_shift_bac
        je      @f
        mov     ebp,ed_color
        movzx   ebx, word ed_shift_pos_old
        call    edit_box_key.sh_cl_
@@:
        test    word ed_flags,ed_shift
        je      edit_box_key.sh_exit_ ;¢ë©â¨
        mov     ebp,shift_color
        movzx   ebx, word ed_shift_pos
        call    edit_box_key.sh_cl_
        or      word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        jmp     edit_box_key.sh_e_end
 
edit_box_key.sh_exit_:
        call    edit_box.draw_bg
        jmp     edit_box.check_offset
 
;äã­ªæ¨ï ¢­¥á¥­¨ï 0 ¯®  ¤à¥áã ed_size+1
edit_box_key.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
        popad
        ret
 
;- ã¤ «¥­¨¥ á¨¬¢®« 
;å®¤­ë¥ ¤ ­­ë¥ edx=ed_size;ecx=ed_pos
edit_box_key.del_char:
        mov     esi,ed_text
        test    word ed_flags,ed_shift_on
        je      @f
        movzx   eax, word ed_shift_pos
        mov     ebx,esi
        cmp     eax,ecx
        jae     edit_box_key.dh_n
        mov     ed_pos,eax      ;çâ®¡ë ­¥ ¡ë«® ã¡¥£ ­¨ï ªãàá®à 
        mov     ebp,ecx
        sub     ebp,eax
        add     ebx,eax  ;eax ¬¥­ìè¥
        sub     edx,ecx
        add     esi,ecx
        mov     ed_shift_pos,bp
        jmp     edit_box_key.del_ch_sh
 
edit_box_key.dh_n:
        mov     ebp,eax
        sub     ebp,ecx
        add     ebx,ecx
        sub     edx,eax
        add     esi,eax
        mov     ed_shift_pos,bp
        jmp     edit_box_key.del_ch_sh
 
@@:     add     esi,ecx ;ãª § â¥«ì + á¬¥é¥­¨¥ ª à¥ «ì­®¬ã ¡ãä¥àã
        mov     ebx,esi
        inc     esi
        cld
        sub     edx,ecx
edit_box_key.del_ch_sh:
        push    edi
        mov     edi,ebx
@@:
        lodsb
        stosb
        dec     edx
        jns     @b
        pop     edi
        ret
;¢ëç¨á«¨âì § ªà è¨¢ ¥¬ãî ®¡« áâì
;á®£« è¥­¨¥ ¢ ebp - ¯¥à¥¤ ¥âáï ed_size
edit_box_key.clear_bg:
        call    edit_box.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     edit_box_key.nxt
 
@@:     mov     ebx,ed_pos
        push    ebx
        sub     eax,ebx
        mov     ebx,eax ;It is not optimal
        pop     eax     ;ed_pos
        mov     ecx,ed_offset
        sub     eax,ecx
edit_box_key.nxt:
        mov     ebp,eax  ;¯à®¢¥àª  ­  ¢ëå®¤ § ªà è¨¢ ¥¬®© ®¡« áâ¨ §  ¯à¥¤¥«ë ¤«¨­ë
        add     ebp,ebx
        pop     edx
        cmp     ebp,edx
        je      @f
        inc     ebx
@@:
        mul     dword ed_char_width
        xchg    eax,ebx
        mul     dword ed_char_width
        add     ebx,ed_left
        inc     ebx
        shl     ebx,16
        inc     eax
        mov     bx, ax
        mov     edx,ed_color
        jmp     edit_box.draw_bg_eax
 
;;;;;;;;;;;;;;;;;;;
;;; ¡à ¡®âª  ¯à¨¬¨â¨¢®¢
;;;;;;;;;;;;;;;;;;;;
; à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª, æ¢¥â ¯¥à¥¤ ¥âáï ¢ ebp
;¢å®¤­ë¥ ¯ à ¬¥âàë:
;eax=dword ed_pos
;ebp=-æ¢¥â ed_color or shift_color
edit_box_key.draw_rectangle:
        sub     eax,ed_offset
        mul     dword ed_char_width
        add     eax,ed_left
        inc     eax
        shl     eax,16
        add     eax,ed_char_width
        mov     ebx,eax
        mov     edx,ebp
        jmp     edit_box.draw_bg_eax
 
;;;;;;;;;;;;;;;;;;
;;à®¢¥àª  ­ ¦ â «¨ shift
;;;;;;;;;;;;;;;;;;
edit_box_key.check_shift_ctrl_alt:
        pusha
        mcall   SF_KEYBOARD,SSF_GET_CONTROL_KEYS
        test    al,11b
        je      @f
        or      word ed_flags,ed_shift   ;ãáâ ­®¢¨¬ ä« £ Shift
@@:
        and     word ed_flags,ed_ctrl_off ; ®ç¨áâ¨¬ ä« £ Ctrl
        test    al,1100b
        je      @f
        or      word ed_flags,ed_ctrl_on   ;ãáâ ­®¢¨¬ ä« £ Ctrl
@@:
        and     word ed_flags,ed_alt_off ; ®ç¨áâ¨¬ ä« £ Alt
        test    al,110000b
        je      @f
        or      word ed_flags,ed_alt_on   ;ãáâ ­®¢¨¬ ä« £ Alt
@@:
        popad
        ret
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ã­ªæ¨¨ ¤«ï à ¡®âë á mouse
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
edit_box_mouse.mouse_wigwag:
        push    eax
        call    edit_box.draw_bg
        call    edit_box.draw_shift
        pop     eax
        or      word ed_flags,ed_shift_bac+ed_shift_on+ed_shift
;¡à ¡®âª  ¯®«®¦¥­¨ï ¢ë¤¥«¥­­®£® â¥ªáâ , ª®£¤  ¯à®¨áå®¤¨â ¢ëå®¤ §  ¯à¥¤¥«ë editbox
        test    eax,eax
        js      edit_box_mouse.mleft
        shr     eax,16
        sub     eax,ed_left
        jc      edit_box_mouse.mleft
        cmp     ed_width,eax
        jc      edit_box_mouse.mright
        xor     edx,edx
        div     word ed_char_width
;¡à ¡®âª  ¯®«®¦¥­¨ï ¢ë¤¥«¥­­®£® â¥ªáâ , ¢ ¯à¥¤¥« å ®¡« áâ¨ editbox
;®«ãç¨«¨ ª®®à¤¨­ âë ¢ eax ¬ëèª¨, â.¥. ªã¤  ®­  ¯¥à¥¬¥áâ¨« áì
;¨á®¢ ­¨¥ § ªà è¥­­ëå ¯àï¬®ã£®«ì­¨ª®¢ ¨ ¨å ®ç¨áâª 
        add     eax,ed_offset
        cmp     eax,ed_size
        ja      edit_box_mouse.mwigvag
edit_box_mouse.mdraw:
        mov     ed_pos,eax
;¨á®¢ ­¨¥ § ªà è¥­­ëå ¯àï¬®ã£®«ì­¨ª®¢ ¨ ¨å ®ç¨áâª 
        movzx   ecx, word ed_shift_pos
        movzx   ebx, word ed_shift_pos_old
        mov     ed_shift_pos_old,ax
;¯à®¢¥àª  ¨ à¨á®¢ ­¨¥ § ªà è¥­­ëå ®¡« áâ¥©
        cmp     ecx,ebx
        je      edit_box_mouse.m1_shem  ;¤¢¨¦¥­¨ï ­¥ ¡ë«® à ­¥¥
        jb      edit_box_mouse.msmaller ;¡ë«® ¤¢¨¦¥­¨¥ ->
        cmp     ebx,eax
        ja      edit_box_mouse.m1_shem  ;¡ë«® ¤¢¨¦¥­¨¥ <-
        je      edit_box_mouse.mwigvag
        mov     ebp,ed_color
        call    edit_box_key.sh_cl_     ;®ç¨áâ¨âì ®¡« áâì c ed_pos ed_shift_pos_old
        jmp     edit_box_mouse.mwigvag
 
edit_box_mouse.msmaller:
        cmp     ebx,eax
        jb      edit_box_mouse.m1_shem
        mov     ebp,ed_color
        call    edit_box_key.sh_cl_
        jmp     edit_box_mouse.mwigvag
 
edit_box_mouse.m1_shem:
        mov     ebp,shift_color
        mov     ebx,ecx
        call    edit_box_key.sh_cl_
edit_box_mouse.mwigvag:
        and     word ed_flags,ed_shift_mcl
        jmp     edit_box.draw_cursor_text
 
edit_box_mouse.mleft:
        mov     eax,ed_pos
        cmp     eax,0
        jbe     edit_box_mouse.mwigvag
        dec     eax
        call    edit_box.check_offset
        push    eax
        movzx   ebx, word ed_shift_pos
        mov     ebp,shift_color
        call    edit_box_key.sh_cl_
        pop     eax
        jmp     edit_box_mouse.mdraw
 
edit_box_mouse.mright:
        mov     eax,ed_pos
        mov     ebx,ed_size
        cmp     eax,ebx
        jae     edit_box_mouse.mwigvag
        inc     eax
        call    edit_box.check_offset
        movzx   ebx, word ed_shift_pos
        mov     ebp,shift_color
        push    eax
        call    edit_box_key.sh_cl_
        pop     eax
        jmp     edit_box_mouse.mdraw
 
 
ed_struc_size=84
>

Rev 7400	Rev 7404
1	macro use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll	1	macro use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll
2	{	2	{
3	if up eq	3	if up eq
4	else	4	else
5	cmp ah,177	5	cmp ah,177
6	jz edit_box.editbox_exit	6	jz edit_box.editbox_exit
7	end if	7	end if
8	if down eq	8	if down eq
9	else	9	else
10	cmp ah,178	10	cmp ah,178
11	jz edit_box.editbox_exit	11	jz edit_box.editbox_exit
12	end if	12	end if
13	if esc eq	13	if esc eq
14	else	14	else
15	cmp ah,27 ;ESC - ª« ¢¨è ))	15	cmp ah,27 ;ESC - ª« ¢¨è ))
16	jz edit_box.editbox_exit	16	jz edit_box.editbox_exit
17	end if	17	end if
18	if enter eq	18	if enter eq
19	else	19	else
20	cmp ah,13 ;ENTER - ª« ¢¨è ))	20	cmp ah,13 ;ENTER - ª« ¢¨è ))
21	jz edit_box.editbox_exit	21	jz edit_box.editbox_exit
22	end if	22	end if
23	if tab eq	23	if tab eq
24	else	24	else
25	cmp ah,9 ;TAB - ª« ¢¨è ))	25	cmp ah,9 ;TAB - ª« ¢¨è ))
26	jz edit_box.editbox_exit	26	jz edit_box.editbox_exit
27	end if	27	end if
28	if numl eq	28	if numl eq
29	else	29	else
30	cmp ah,4 ;Num Lock - ª« ¢¨è ))	30	cmp ah,4 ;Num Lock - ª« ¢¨è ))
31	jz edit_box.editbox_exit	31	jz edit_box.editbox_exit
32	end if	32	end if
33	if capsl eq	33	if capsl eq
34	else	34	else
35	cmp ah,2 ;Caps Lock - ª« ¢¨è ))	35	cmp ah,2 ;Caps Lock - ª« ¢¨è ))
36	jz edit_box.editbox_exit	36	jz edit_box.editbox_exit
37	end if	37	end if
38	if scrolll eq	38	if scrolll eq
39	else	39	else
40	cmp ah,1 ;Scroll Lock - ª« ¢¨è ))	40	cmp ah,1 ;Scroll Lock - ª« ¢¨è ))
41	jz edit_box.editbox_exit	41	jz edit_box.editbox_exit
42	end if	42	end if
43	}	43	}
44		44
45		45
46	align 16	46	align 16
47	edit_box:	47	edit_box:
48	.draw:	48	.draw:
49	pushad	49	pushad
50	mov edi,[esp+36]	50	mov edi,[esp+36]
51	and dword ed_text_color,17FFFFFFh	51	and dword ed_text_color,17FFFFFFh
52	mov ecx,ed_text_color	52	mov ecx,ed_text_color
53	mov ebx,ecx	53	mov ebx,ecx
54	shr ecx,28	54	shr ecx,28
55	shl ebx,4	55	shl ebx,4
56	shr ebx,28	56	shr ebx,28
57	inc ebx	57	inc ebx
58	mov eax,6	58	mov eax,6
59	jecxz @f	59	jecxz @f
60	mov al, 8	60	mov al, 8
61	@@:	61	@@:
62	mul bl	62	mul bl
63	mov ed_char_width,eax	63	mov ed_char_width,eax
64	mov al, 9	64	mov al, 9
65	jecxz @f	65	jecxz @f
66	mov al, 16	66	mov al, 16
67	@@:	67	@@:
68	mul bl	68	mul bl
69	add eax,4	69	add eax,4
70	mov ed_height,eax	70	mov ed_height,eax
71	call .draw_border	71	call .draw_border
72	.draw_bg_cursor_text:	72	.draw_bg_cursor_text:
73	call .check_offset	73	call .check_offset
74	call .draw_bg	74	call .draw_bg
75	call .draw_shift	75	call .draw_shift
76	.draw_cursor_text:	76	.draw_cursor_text:
77	call .draw_text	77	call .draw_text
78	test word ed_flags,ed_focus	78	test word ed_flags,ed_focus
79	jz .editbox_exit	79	jz .editbox_exit
80	call .draw_cursor	80	call .draw_cursor
81	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	81	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
82	;¡é¨© ¢ëå®¤ ¨§ editbox ¤«ï ¢á¥å äãªæ¨© ¨ ¯®áâ ®¡à ¡®âç¨ª®¢;;	82	;¡é¨© ¢ëå®¤ ¨§ editbox ¤«ï ¢á¥å äãªæ¨© ¨ ¯®áâ ®¡à ¡®âç¨ª®¢;;
83	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	83	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
84	.editbox_exit:	84	.editbox_exit:
85	popad	85	popad
86	ret 4	86	ret 4
87		87
88	;==========================================================	88	;==========================================================
89	;=== ®¡à ¡®âª ª« ¢¨ âãàë =================================	89	;=== ®¡à ¡®âª ª« ¢¨ âãàë =================================
90	;==========================================================	90	;==========================================================
91	align 16	91	align 16
92	edit_box_key:	92	edit_box_key:
93	pushad	93	pushad
94	mov edi,[esp+36]	94	mov edi,[esp+36]
95	test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬	95	test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
96	jz edit_box.editbox_exit	96	jz edit_box.editbox_exit
97	test word ed_flags,ed_mouse_on or ed_disabled	97	test word ed_flags,ed_mouse_on or ed_disabled
98	jnz edit_box.editbox_exit	98	jnz edit_box.editbox_exit
99	;--------------------------------------	99	;--------------------------------------
100	; this code for Win-keys, works with	100	; this code for Win-keys, works with
101	; kernel SVN r.3356 or later	101	; kernel SVN r.3356 or later
102	push eax	102	push eax
103	push ebx	103	push ebx
104	mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS	104	mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS
105	test ax,0x200 ; LWin	105	test ax,0x200 ; LWin
106	jnz .win_key_pressed	106	jnz .win_key_pressed
107	test ax,0x400 ; RWin	107	test ax,0x400 ; RWin
108	jz @f	108	jz @f
109	.win_key_pressed:	109	.win_key_pressed:
110	pop ebx	110	pop ebx
111	pop eax	111	pop eax
112	jmp edit_box.editbox_exit	112	jmp edit_box.editbox_exit
113		113
114	@@: pop ebx	114	@@: pop ebx
115	pop eax	115	pop eax
116	;--------------------------------------	116	;--------------------------------------
117	;à®¢¥àª ¦ â shift ?	117	;à®¢¥àª ¦ â shift ?
118	call edit_box_key.check_shift_ctrl_alt	118	call edit_box_key.check_shift_ctrl_alt
119	;----------------------------------------------------------	119	;----------------------------------------------------------
120	;--- ¯à®¢¥àï¥¬, çâ® ¦ â® --------------------------------	120	;--- ¯à®¢¥àï¥¬, çâ® ¦ â® --------------------------------
121	;----------------------------------------------------------	121	;----------------------------------------------------------
122	cmp ah,8	122	cmp ah,8
123	jz edit_box_key.backspace	123	jz edit_box_key.backspace
124	cmp ah,0xb6	124	cmp ah,0xb6
125	jz edit_box_key.delete	125	jz edit_box_key.delete
126	cmp ah,176	126	cmp ah,176
127	jz edit_box_key.left	127	jz edit_box_key.left
128	cmp ah,179	128	cmp ah,179
129	jz edit_box_key.right	129	jz edit_box_key.right
130	cmp ah,180	130	cmp ah,180
131	jz edit_box_key.home	131	jz edit_box_key.home
132	cmp ah,181	132	cmp ah,181
133	jz edit_box_key.end	133	jz edit_box_key.end
134	cmp ah,185 ;insert	134	cmp ah,185 ;insert
135	jz edit_box_key.insert	135	jz edit_box_key.insert
136	; ª®¬¡¨ æ¨¨ Ctrl + ª« ¢¨è	136	; ª®¬¡¨ æ¨¨ Ctrl + ª« ¢¨è
137	test word ed_flags,ed_ctrl_on	137	test word ed_flags,ed_ctrl_on
138	jz @f	138	jz @f
139	; ¯à®¢¥àª áª ª®¤	139	; ¯à®¢¥àª áª ª®¤
140	ror eax,8	140	ror eax,8
141	cmp ah,45 ; Ctrl + X	141	cmp ah,45 ; Ctrl + X
142	je edit_box_key.ctrl_x	142	je edit_box_key.ctrl_x
143	cmp ah,46 ; Ctrl + C	143	cmp ah,46 ; Ctrl + C
144	je edit_box_key.ctrl_c	144	je edit_box_key.ctrl_c
145	cmp ah,47 ; Ctrl + V	145	cmp ah,47 ; Ctrl + V
146	je edit_box_key.ctrl_v	146	je edit_box_key.ctrl_v
147	rol eax,8	147	rol eax,8
148	@@:	148	@@:
149	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	149	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
150	; £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ â.¥. ¯à¨ ®¡ àã¦¥¨¨ íâ¨å ª®¤®¢ ¯à®¨áå®¤¨â ¢ëå®¤ ¨§ ®¡à ¡®âç¨ª	150	; £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ â.¥. ¯à¨ ®¡ àã¦¥¨¨ íâ¨å ª®¤®¢ ¯à®¨áå®¤¨â ¢ëå®¤ ¨§ ®¡à ¡®âç¨ª
151	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	151	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
152	use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll	152	use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll
153	;--- ¦ â ¤àã£ ï ª« ¢¨è ---	153	;--- ¦ â ¤àã£ ï ª« ¢¨è ---
154	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	154	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
155	;à®¢¥àª ãáâ ®¢«¥ «¨ ä« £ ¯à¨ ª®â®à®¬ ã¦® ¢ë¢®¤¨âì â®«ìª® æ¨äàë ¢ ã¦®¬ ¡®ªá¥, ¥á«¨ â ª®© ¥®¡å®¤¨¬®áâ¨ ¥â, ã¦® § ª®¬¥â¨à®¢ âì ¬ ªà®á	155	;à®¢¥àª ãáâ ®¢«¥ «¨ ä« £ ¯à¨ ª®â®à®¬ ã¦® ¢ë¢®¤¨âì â®«ìª® æ¨äàë ¢ ã¦®¬ ¡®ªá¥, ¥á«¨ â ª®© ¥®¡å®¤¨¬®áâ¨ ¥â, ã¦® § ª®¬¥â¨à®¢ âì ¬ ªà®á
156	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	156	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
157	test word ed_flags,ed_figure_only ; â®«ìª® æ¨äàë?	157	test word ed_flags,ed_figure_only ; â®«ìª® æ¨äàë?
158	jz @f	158	jz @f
159	cmp ah,'0'	159	cmp ah,'0'
160	jb edit_box.editbox_exit	160	jb edit_box.editbox_exit
161	cmp ah,'9'	161	cmp ah,'9'
162	ja edit_box.editbox_exit	162	ja edit_box.editbox_exit
163	@@:	163	@@:
164		164
165	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	165	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
166	;¯à®¢¥àª shift, ¡ë« «¨ ¦ â	166	;¯à®¢¥àª shift, ¡ë« «¨ ¦ â
167	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	167	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
168	test word ed_flags,ed_shift_on	168	test word ed_flags,ed_shift_on
169	je @f	169	je @f
170	; edx = ed_size, ecx = ed_pos	170	; edx = ed_size, ecx = ed_pos
171	push eax	171	push eax
172	mov edx,ed_size	172	mov edx,ed_size
173	mov ecx, ed_pos	173	mov ecx, ed_pos
174	pusha	174	pusha
175	; clear input area	175	; clear input area
176	mov ebp,ed_color	176	mov ebp,ed_color
177	movzx ebx, word ed_shift_pos	177	movzx ebx, word ed_shift_pos
178	call edit_box_key.sh_cl_	178	call edit_box_key.sh_cl_
179	mov ebp,ed_size	179	mov ebp,ed_size
180	call edit_box_key.clear_bg	180	call edit_box_key.clear_bg
181	popa	181	popa
182	call edit_box_key.del_char	182	call edit_box_key.del_char
183	mov ebx,ed_size	183	mov ebx,ed_size
184	sub bx,ed_shift_pos	184	sub bx,ed_shift_pos
185	mov ed_size,ebx	185	mov ed_size,ebx
186	pop eax	186	pop eax
187	@@:	187	@@:
188		188
189	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	189	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
190	; ¯à®¢¥àï¥¬, å®¤¨âáï «¨ ªãàá®à ¢ ª®æ¥ + ¤ «ì¥©è ï ®¡à ¡®âª	190	; ¯à®¢¥àï¥¬, å®¤¨âáï «¨ ªãàá®à ¢ ª®æ¥ + ¤ «ì¥©è ï ®¡à ¡®âª
191	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	191	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
192	mov ecx,ed_size	192	mov ecx,ed_size
193	mov edx, ed_max	193	mov edx, ed_max
194	test word ed_flags,ed_insert	194	test word ed_flags,ed_insert
195	jne @f	195	jne @f
196	cmp ecx,edx	196	cmp ecx,edx
197	jae edit_box.editbox_exit	197	jae edit_box.editbox_exit
198	@@: mov ebx, ed_pos	198	@@: mov ebx, ed_pos
199	cmp ebx,edx	199	cmp ebx,edx
200	jnl edit_box.editbox_exit	200	jnl edit_box.editbox_exit
201	mov ecx,ed_size	201	mov ecx,ed_size
202	push edi eax	202	push edi eax
203	mov ebp,edi	203	mov ebp,edi
204	mov esi,ed_text	204	mov esi,ed_text
205	add esi,ecx	205	add esi,ecx
206	mov edi,esi	206	mov edi,esi
207	cmp ecx,ebx	207	cmp ecx,ebx
208	je edit_box_key.In_k	208	je edit_box_key.In_k
209	test dword bp_flags,ed_insert	209	test dword bp_flags,ed_insert
210	jne edit_box_key.ins_v	210	jne edit_box_key.ins_v
211	pusha	211	pusha
212	mov edi,ebp	212	mov edi,ebp
213	mov ebp,ed_size	213	mov ebp,ed_size
214	call edit_box_key.clear_bg	214	call edit_box_key.clear_bg
215	popa	215	popa
216	sub ecx,ebx	216	sub ecx,ebx
217	inc edi	217	inc edi
218	std	218	std
219	inc ecx	219	inc ecx
220	@@:	220	@@:
221	lodsb	221	lodsb
222	stosb	222	stosb
223	loop @b	223	loop @b
224	edit_box_key.In_k:	224	edit_box_key.In_k:
225	cld	225	cld
226	pop eax	226	pop eax
227	mov al,ah	227	mov al,ah
228	stosb	228	stosb
229	pop edi	229	pop edi
230	inc dword ed_size	230	inc dword ed_size
231	inc dword ed_pos	231	inc dword ed_pos
232	call edit_box_key.draw_all2	232	call edit_box_key.draw_all2
233	jmp edit_box_key.shift	233	jmp edit_box_key.shift
234		234
235	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	235	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
236	;¡à ¡®âª ª« ¢¨è insert,delete.backspace,home,end,left,right	236	;¡à ¡®âª ª« ¢¨è insert,delete.backspace,home,end,left,right
237	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	237	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
238	edit_box_key.insert:	238	edit_box_key.insert:
239	test word ed_flags,ed_insert	239	test word ed_flags,ed_insert
240	je @f	240	je @f
241	and word ed_flags,ed_insert_cl	241	and word ed_flags,ed_insert_cl
242	jmp edit_box.editbox_exit	242	jmp edit_box.editbox_exit
243		243
244	@@: or word ed_flags,ed_insert	244	@@: or word ed_flags,ed_insert
245	jmp edit_box.editbox_exit	245	jmp edit_box.editbox_exit
246		246
247	edit_box_key.ins_v:	247	edit_box_key.ins_v:
248	dec dword bp_size	248	dec dword bp_size
249	sub esi,ecx	249	sub esi,ecx
250	add esi,ebx	250	add esi,ebx
251	mov edi,esi	251	mov edi,esi
252	pusha	252	pusha
253	mov edi,ebp	253	mov edi,ebp
254	mov ebp,ed_pos	254	mov ebp,ed_pos
255	call edit_box_key.clear_bg	255	call edit_box_key.clear_bg
256	popa	256	popa
257	jmp edit_box_key.In_k	257	jmp edit_box_key.In_k
258		258
259	edit_box_key.delete:	259	edit_box_key.delete:
260	mov edx,ed_size	260	mov edx,ed_size
261	mov ecx,ed_pos	261	mov ecx,ed_pos
262	cmp edx,ecx	262	cmp edx,ecx
263	jg edit_box_key.bac_del	263	jg edit_box_key.bac_del
264	test word ed_flags,ed_shift_on	264	test word ed_flags,ed_shift_on
265	jne edit_box_key.del_bac	265	jne edit_box_key.del_bac
266	popad	266	popad
267	ret 4	267	ret 4
268		268
269	edit_box_key.bac_del:	269	edit_box_key.bac_del:
270	call edit_box_key.del_char	270	call edit_box_key.del_char
271	jmp edit_box_key.draw_all	271	jmp edit_box_key.draw_all
272		272
273	edit_box_key.backspace:	273	edit_box_key.backspace:
274	test word ed_flags,ed_shift_on	274	test word ed_flags,ed_shift_on
275	jne edit_box_key.delete	275	jne edit_box_key.delete
276	mov ecx,ed_pos	276	mov ecx,ed_pos
277	test ecx,ecx	277	test ecx,ecx
278	jnz edit_box_key.del_bac	278	jnz edit_box_key.del_bac
279	popad	279	popad
280	ret 4	280	ret 4
281		281
282	edit_box_key.del_bac:	282	edit_box_key.del_bac:
283	mov edx,ed_size	283	mov edx,ed_size
284	cmp edx,ecx ;if ed_pos=ed_size	284	cmp edx,ecx ;if ed_pos=ed_size
285	je @f	285	je @f
286	dec ecx	286	dec ecx
287	call edit_box_key.del_char	287	call edit_box_key.del_char
288	@@: test word ed_flags,ed_shift_on	288	@@: test word ed_flags,ed_shift_on
289	jne edit_box_key.bac_del	289	jne edit_box_key.bac_del
290	dec dword ed_pos	290	dec dword ed_pos
291	edit_box_key.draw_all:	291	edit_box_key.draw_all:
292	push edit_box_key.shift	292	push edit_box_key.shift
293	test word ed_flags,ed_shift_on	293	test word ed_flags,ed_shift_on
294	je @f	294	je @f
295	movzx eax, word ed_shift_pos	295	movzx eax, word ed_shift_pos
296	mov ebx,ed_size	296	mov ebx,ed_size
297	sub ebx,eax	297	sub ebx,eax
298	mov ed_size,ebx	298	mov ed_size,ebx
299	mov ebp,ed_color	299	mov ebp,ed_color
300	call edit_box.clear_cursor	300	call edit_box.clear_cursor
301	call edit_box.check_offset	301	call edit_box.check_offset
302	and word ed_flags,ed_shift_cl	302	and word ed_flags,ed_shift_cl
303	jmp edit_box.draw_bg	303	jmp edit_box.draw_bg
304		304
305	@@: dec dword ed_size	305	@@: dec dword ed_size
306	edit_box_key.draw_all2:	306	edit_box_key.draw_all2:
307	and word ed_flags,ed_shift_cl	307	and word ed_flags,ed_shift_cl
308	mov ebp,ed_color	308	mov ebp,ed_color
309	call edit_box.clear_cursor	309	call edit_box.clear_cursor
310	call edit_box.check_offset	310	call edit_box.check_offset
311	mov ebp,ed_size	311	mov ebp,ed_size
312	jmp edit_box_key.clear_bg	312	jmp edit_box_key.clear_bg
313		313
314	;--- ¦ â ª« ¢¨è left ---	314	;--- ¦ â ª« ¢¨è left ---
315	edit_box_key.left:	315	edit_box_key.left:
316	mov ebx,ed_pos	316	mov ebx,ed_pos
317	test ebx,ebx	317	test ebx,ebx
318	jz edit_box_key.sh_st_of	318	jz edit_box_key.sh_st_of
319	or word ed_flags,ed_left_fl	319	or word ed_flags,ed_left_fl
320	call edit_box_key.sh_first_sh	320	call edit_box_key.sh_first_sh
321	dec dword ed_pos	321	dec dword ed_pos
322	call edit_box.draw_bg	322	call edit_box.draw_bg
323	call edit_box.draw_shift	323	call edit_box.draw_shift
324	call edit_box_key.sh_enable	324	call edit_box_key.sh_enable
325	jmp edit_box.draw_cursor_text	325	jmp edit_box.draw_cursor_text
326		326
327	;--- ¦ â ª« ¢¨è right ---	327	;--- ¦ â ª« ¢¨è right ---
328	edit_box_key.right:	328	edit_box_key.right:
329	mov ebx,ed_pos	329	mov ebx,ed_pos
330	cmp ebx,ed_size	330	cmp ebx,ed_size
331	je edit_box_key.sh_st_of	331	je edit_box_key.sh_st_of
332	and word ed_flags,ed_right_fl	332	and word ed_flags,ed_right_fl
333	call edit_box_key.sh_first_sh	333	call edit_box_key.sh_first_sh
334	inc dword ed_pos	334	inc dword ed_pos
335	call edit_box.draw_bg	335	call edit_box.draw_bg
336	call edit_box.draw_shift	336	call edit_box.draw_shift
337	call edit_box_key.sh_enable	337	call edit_box_key.sh_enable
338	jmp edit_box.draw_cursor_text	338	jmp edit_box.draw_cursor_text
339		339
340	edit_box_key.home:	340	edit_box_key.home:
341	mov ebx,ed_pos	341	mov ebx,ed_pos
342	test ebx,ebx	342	test ebx,ebx
343	jz edit_box_key.sh_st_of	343	jz edit_box_key.sh_st_of
344	call edit_box_key.sh_first_sh	344	call edit_box_key.sh_first_sh
345	xor eax,eax	345	xor eax,eax
346	mov ed_pos,eax	346	mov ed_pos,eax
347	call edit_box.draw_bg	347	call edit_box.draw_bg
348	call edit_box.draw_shift	348	call edit_box.draw_shift
349	call edit_box_key.sh_home_end	349	call edit_box_key.sh_home_end
350	jmp edit_box.draw_cursor_text	350	jmp edit_box.draw_cursor_text
351		351
352	;--- ¦ â ª« ¢¨è end ---	352	;--- ¦ â ª« ¢¨è end ---
353	edit_box_key.end:	353	edit_box_key.end:
354	mov ebx,ed_pos	354	mov ebx,ed_pos
355	cmp ebx,ed_size	355	cmp ebx,ed_size
356	je edit_box_key.sh_st_of	356	je edit_box_key.sh_st_of
357	call edit_box_key.sh_first_sh	357	call edit_box_key.sh_first_sh
358	mov eax,ed_size	358	mov eax,ed_size
359	mov ed_pos,eax	359	mov ed_pos,eax
360	call edit_box.draw_bg	360	call edit_box.draw_bg
361	call edit_box.draw_shift	361	call edit_box.draw_shift
362	call edit_box_key.sh_home_end	362	call edit_box_key.sh_home_end
363	jmp edit_box.draw_cursor_text	363	jmp edit_box.draw_cursor_text
364	;----------------------------------------	364	;----------------------------------------
365	StrInsert:	365	StrInsert:
366	; SizeOf(TmpBuf) >= StrLen(Src) + StrLen(Dst) + 1	366	; SizeOf(TmpBuf) >= StrLen(Src) + StrLen(Dst) + 1
367	Dst equ [esp + 20] ; - destination buffer	367	Dst equ [esp + 16] ; - destination buffer
368	Src equ [esp + 16] ; - source to insert from	368	Src equ [esp + 12] ; - source to insert from
369	Pos equ [esp + 12] ; - position for insert	369	Pos equ [esp + 8] ; - position for insert
370	DstMax equ [esp + 8] ; - maximum Dst length(exclude terminating null)	370	DstMax equ [esp + 4] ; - maximum Dst length(exclude terminating null)
371	TmpBuf equ [esp + 4] ; - temporary buffer	-
372	xor edx, edx	371	SrcCount equ [esp - 4]
373	mov esi, Dst	372	DstCount equ [esp - 8]
374	mov edi, TmpBuf	373	TmpBuf equ [esp - 12] ; - temporary buffer
375	mov ecx, Pos	-
376	add edx, ecx	-
377	rep movsb	-
378	mov edi, Src	374	mov edi, Src
379	mov ecx, -1	375	mov ecx, -1
380	xor eax, eax	376	xor eax, eax
381	repne scasb	377	repne scasb
382	mov eax, -2	378	mov eax, -2
383	sub eax, ecx	379	sub eax, ecx
384	add edx, eax	-
385	mov esi, Src	-
386	mov edi, TmpBuf	-
387	add edi, Pos	-
388	mov ecx, eax	380	mov SrcCount, eax
389	rep movsb	-
390	mov ebx, edi	-
391	mov edi, Dst	381	mov edi, Dst
392	add edi, Pos	382	add edi, Pos
393	mov ecx, -1	383	mov ecx, -1
394	xor eax, eax	384	xor eax, eax
395	repne scasb	385	repne scasb
396	mov eax, -2	386	mov eax, -2
397	sub eax, ecx	387	sub eax, ecx
398	inc eax	388	inc eax
-		389	mov DstCount, eax
-		390	mov ecx, eax
-		391	add ecx, SrcCount
399	add edx, eax	392	add ecx, Pos
-		393	mcall SF_SYS_MISC,SSF_MEM_ALLOC
-		394	mov TmpBuf, eax
-		395	mov esi, Dst
-		396	mov edi, TmpBuf
-		397	mov ecx, Pos
400	mov edi, ebx	398	mov edx, ecx
-		399	rep movsb
-		400	mov esi, Src
-		401	mov edi, TmpBuf
-		402	add edi, Pos
-		403	mov ecx, SrcCount
-		404	add edx, ecx
-		405	rep movsb
401	mov esi, Pos	406	mov esi, Pos
402	add esi, Dst	407	add esi, Dst
-		408	mov ecx, DstCount
403	mov ecx, eax	409	add edx, ecx
404	rep movsb	410	rep movsb
405	mov esi, TmpBuf	411	mov esi, TmpBuf
406	mov edi, Dst	412	mov edi, Dst
407	; ecx = MIN(edx, DstSize)	413	; ecx = MIN(edx, DstSize)
408	cmp edx, DstMax	414	cmp edx, DstMax
409	sbb ecx, ecx	415	sbb ecx, ecx
410	and edx, ecx	416	and edx, ecx
411	not ecx	417	not ecx
412	and ecx, DstMax	418	and ecx, DstMax
413	add ecx, edx	419	add ecx, edx
414	mov eax, ecx ; return total length	420	mov eax, ecx ; return total length
415	rep movsb	421	rep movsb
-		422	mov ecx, TmpBuf
-		423	mcall SF_SYS_MISC,SSF_MEM_FREE
416	ret 20	424	ret 16
417	restore Dst	425	restore Dst
418	restore Src	426	restore Src
419	restore Pos	427	restore Pos
420	restore DstSize	428	restore DstSize
421	restore TmpBuf	429	restore TmpBuf
-		430	restore SrcCount
-		431	restore DstCount
422	;----------------------------------------	432	;----------------------------------------
423	edit_box_key.ctrl_x:	433	edit_box_key.ctrl_x:
424	test word ed_flags,ed_shift_on	434	test word ed_flags,ed_shift_on
425	jz edit_box.editbox_exit	435	jz edit_box.editbox_exit
426	push dword 'X' ; this value need below to determine which action is used	436	push dword 'X' ; this value need below to determine which action is used
427	jmp edit_box_key.ctrl_c.pushed	437	jmp edit_box_key.ctrl_c.pushed
428		438
429	edit_box_key.ctrl_c:	439	edit_box_key.ctrl_c:
430	test word ed_flags,ed_shift_on	440	test word ed_flags,ed_shift_on
431	jz edit_box.editbox_exit	441	jz edit_box.editbox_exit
432	push dword 'C' ; this value need below to determine which action is used	442	push dword 'C' ; this value need below to determine which action is used
433	.pushed:	443	.pushed:
434	; add memory area	444	; add memory area
435	mov ecx,ed_size	445	mov ecx,ed_size
436	add ecx,3*4	446	add ecx,3*4
437	mcall SF_SYS_MISC,SSF_MEM_ALLOC	447	mcall SF_SYS_MISC,SSF_MEM_ALLOC
438	; building the clipboard slot header	448	; building the clipboard slot header
439	xor ecx,ecx	449	xor ecx,ecx
440	mov [eax+4],ecx ; type 'text'	450	mov [eax+4],ecx ; type 'text'
441	inc ecx	451	inc ecx
442	mov [eax+8],ecx ; cp866 text encoding	452	mov [eax+8],ecx ; cp866 text encoding
443	mov ecx,ed_pos	453	mov ecx,ed_pos
444	movzx ebx,word ed_shift_pos	454	movzx ebx,word ed_shift_pos
445	sub ecx,ebx	455	sub ecx,ebx
446	.abs: ; make ecx = abs(ecx)	456	.abs: ; make ecx = abs(ecx)
447	neg ecx	457	neg ecx
448	jl .abs	458	jl .abs
449	add ecx,3*4	459	add ecx,3*4
450	mov [eax],ecx	460	mov [eax],ecx
451	sub ecx,3*4	461	sub ecx,3*4
452	mov edx,ed_pos	462	mov edx,ed_pos
453	movzx ebx,word ed_shift_pos	463	movzx ebx,word ed_shift_pos
454	cmp edx,ebx	464	cmp edx,ebx
455	jle @f	465	jle @f
456	mov edx,ebx	466	mov edx,ebx
457	@@:	467	@@:
458	; copy data	468	; copy data
459	mov esi,ed_text	469	mov esi,ed_text
460	add esi,edx	470	add esi,edx
461	push edi	471	push edi
462	mov edi,eax	472	mov edi,eax
463	add edi,3*4	473	add edi,3*4
464	cld	474	cld
465	rep movsb	475	rep movsb
466	pop edi	476	pop edi
467	; put slot to the kernel clipboard	477	; put slot to the kernel clipboard
468	mov edx,eax	478	mov edx,eax
469	mov ecx,[edx]	479	mov ecx,[edx]
470	push eax	480	push eax
471	mcall SF_CLIPBOARD,SSF_WRITE_CB	481	mcall SF_CLIPBOARD,SSF_WRITE_CB
472	pop ecx	482	pop ecx
473	; remove unnecessary memory area	483	; remove unnecessary memory area
474	mcall SF_SYS_MISC,SSF_MEM_FREE	484	mcall SF_SYS_MISC,SSF_MEM_FREE
475	.exit:	485	.exit:
476	pop eax ; determine current action (ctrl+X or ctrl+C)	486	pop eax ; determine current action (ctrl+X or ctrl+C)
477	cmp eax, 'X'	487	cmp eax, 'X'
478	je edit_box_key.delete	488	je edit_box_key.delete
479	jmp edit_box.editbox_exit	489	jmp edit_box.editbox_exit
480		490

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/box_lib/trunk/editbox.asm @ 7400 – Rev 7400 → 7404