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


 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Basic macros for use editbox                             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ed_width        equ [edi]               ;è¨à¨­  ª®¬¯®­¥­â 
ed_left         equ [edi+4]             ;¯®«®¦¥­¨¥ ¯® ®á¨ å
ed_top          equ [edi+8]             ;¯®«®¦¥­¨¥ ¯® ®á¨ ã
ed_color        equ [edi+12]            ;æ¢¥â ä®­  ª®¬¯®­¥­â 
shift_color     equ [edi+16]            ;=0x6a9480 ¤«ï ¯à¨¬¥à  ¢®§ì¥¬ ¦¥«¥­ë© æ¢¥â ¡®ªá 
ed_focus_border_color   equ [edi+20]    ;æ¢¥â à ¬ª¨ ª®¬¯®­¥­â 
ed_blur_border_color    equ [edi+24]    ;æ¢¥â ­¥  ªâ¨¢­®£® ª®¬¯®­¥­â 
ed_text_color   equ [edi+28]            ;æ¢¥â â¥ªáâ 
ed_max          equ [edi+32]                    ;ª®«-¢® á¨¬¢®«®¢ ª®â®àë¥ ¬®¦­® ¬ ªá¨¬ «ì­® ¢¢¥áâ¨
ed_text         equ [edi+36]                    ;ãª § â¥«ì ­  ¡ãä¥à
ed_mouse_variable 	equ [edi+40]	; ãª § â¥«ì ­  ¯¥à¥¬¥­­ãî ¤«ï ¡®ªá /£àã¯¯ë 
ed_flags        equ [edi+44]            ;ä« £¨
bp_flags	equ [ebp+44]		;¢ ­¥ª®â®àëå ¯à®æ¥¤ãà å edi ¨á¯®«ì§ã¥âáï, ¢§ ¬¥­ ãª § â¥«ì åà ­¨âìáï ¢ ebp
ed_size equ [edi+48]                    ;ª®«-¢® á¨¬¢®«®¢
bp_size equ [ebp+48]			;ª®«-¢® á¨¬¢¯®«®¢, ¤«ï  ¤à¥á æ¨¨ ¨á¯«ì§ã¥âáï ebp¡ edi § ­ïâ
ed_pos  equ [edi+52]                    ;¯®§¨æ¨ï ªãàá®à 
ed_offset       equ [edi+56]            ;á¬¥é¥­¨¥
cl_curs_x       equ [edi+60]            ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨­ â  ªãàá®à  ¯® å
cl_curs_y       equ [edi+64]            ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨­ â  ªãàá®à  ¯® ã
ed_shift_pos    equ [edi+68]            ;¯®«®¦¥­¨¥ ªãàá®à 
ed_shift_pos_old equ [edi+72]           ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
macro init_editbox
{
pushad
	mcall
 
popad
}
 
 
macro use_editbox_draw
{
edit_box:
.draw:
        pushad
;--- à¨áã¥¬ à ¬ªã ---
        mov     edi,dword [esp+36]
        call    .draw_border            ; ã­ªæ¨ï áâ ¡¨«ì­ 
.draw_bg_cursor_text:
;--- ¨§¬¥­ï¥¬ á¬¥é¥­¨¥, ¥á«¨ ­ ¤® ---
        call    .check_offset           ;¢ëç¨á«¥­¨¥ ¯®§¨æ¨¨ ªãàá®à  áâ ¡¨«ì­ 
;--- à¨áã¥¬ ¢­ãâà¥­­îî ®¡« áâì ---
        call    .draw_bg                ;­ à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª à ¡®ç¥© ®¡« áâ¨
;---- à¨áã¥¬ ¢ë¤¥«¥­¨¥, ¯® shift ¥á«¨ ¥áâì
        call    .draw_shift
.draw_cursor_text:
;--- à¨áã¥¬ ªãàá®à ---
        ;--- ¬®¦¥â ¥£® ­¥ ­ ¤® à¨á®¢ âì ----
        test    word ed_flags,ed_focus
        jz     	@f
        call    .draw_cursor
@@:
        call    .draw_text
;        ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¡é¨© ¢ëå®¤ ¨§ editbox ¤«ï ¢á¥å äã­ªæ¨© ¨ ¯®áâ ®¡à ¡®âç¨ª®¢;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.editbox_exit:
        popad
        ret 4
}
 
 
macro use_editbox_key
{
;==========================================================
;=== ®¡à ¡®âª  ª« ¢¨ âãàë =================================
;==========================================================
edit_box_key:
pushad
        mov     edi,dword [esp+36]
        test    word ed_flags,ed_focus ; ¥á«¨ ­¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
        je      edit_box.editbox_exit
        test    word ed_flags,ed_mouse_on
        jne     edit_box.editbox_exit
 
;à®¢¥àª  ­ ¦ â shift ?
        call    edit_box_key.check_shift
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬, çâ® ­ ¦ â® --------------------------------
;----------------------------------------------------------
use_key_process  backspase,delete,left,right,home,end,insert
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; £«ãèª  ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ àã¦¥­¨¨ íâ¨å ª®¤®¢ ¯à®¨áå®¤¨â ¢ëå®¤ ¨§ ®¡à ¡®âç¨ª 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_key_no_process   up,down,esc,enter,tab,numl,capsl,scrolll
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;à®¢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì â®«ìª® æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥ ¥á«¨ â ª®©­¥®¡å®¤¨¬®áâ¨ ­¥â ­ã¦­® § ª®¬¥­â¨à®¢ âì ¬ ªà®á
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_key_figures_only
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¯à®¢¥àª  ­  shift ¡ë« «¨ ­ ¦ â
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
are_key_shift_press
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ¯à®¢¥àï¥¬, ­ å®¤¨âáï «¨ ªãàá®à ¢ ª®­æ¥ + ¤ «ì­¥©è ï ®¡à ¡®âª 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
are_key_cur_end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¡à ¡®âª  ª« ¢¨è insert,delete.backspase,home,end,left,right
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_work_key
}
 
macro use_editbox_mouse
{
;==========================================================
;=== ®¡à ¡®âª  ¬ëè¨ =======================================
;==========================================================
;save for stdcall ebx,esi,edi,ebp
edit_box_mouse:
pushad
        mov     edi,dword [esp+36]
;debug
;----------------------------------------------------------
;--- ¯®«ãç ¥¬ á®áâ®ï­¨¥ ª­®¯®ª ¬ëè¨ -----------------------
;----------------------------------------------------------
        mcall   37,2
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬ á®áâ®ï­¨¥ ----------------------------------
;----------------------------------------------------------
        test    eax,1
        jnz     edit_box_mouse.mouse_left_button
        and     word ed_flags,ed_mouse_on_off
	mov	ebx,dword ed_mouse_variable
	push	0
	pop	dword [ebx]
;        mov     dword [ebx],ebx
        jmp     edit_box.editbox_exit
.mouse_left_button:
;----------------------------------------------------------
;--- ¡«®ª¨à®¢ª  ®â ä®ªãá¨à®¢ª¨ ¢ ¤àã£¨å ¡®ªá å ¯à¨ ¯®¯ ¤ ­¨¨ ­  ­¨å ªãàá®à 
;----------------------------------------------------------
        mov     eax,dword 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   37,1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ã­ªæ¨ï ®¡à ¡®âª¨  ¬ëèª¨ ¯®«ãç¥­¨¥ ª®®à¤¨­ â ¨ ¯à®¢¥àª  ¨å + ¢ë¤¥«¥­¨ï
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_work_mouse
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¡é¨¥ äã­ªæ¨¨ ®¡à ¡®âª¨
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_general_func
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ã­ªæ¨¨ ¤«ï à ¡®âë á key
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_key_func
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ã­ªæ¨¨ ¤«ï à ¡®âë á mouse
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_mouse_func 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Bit mask from editbox
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;­¨¦¥ à á¯®«®¦¥­ë äã­ªæ¨¨ ª®â®àë¬¨ à¥ «¨§ã¥âáï ¢¥áì  «£®à¨â¬
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; ªà®á ¤«ï ¢ë¢®¤  ®á­®¢­ëå äã­ªæ¨© ª®â®àë¥ ¨á¯«ì§ãîâáï ¡®ªá®¬
macro use_general_func
{
;debug_func
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ ¢ë¤¥«¥­®© ç áâ¨ -----------------
;----------------------------------------------------------
edit_box.draw_shift:
        test    word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        jz      @f
        mov     ebp,shift_color
        mov     ebx,dword       ed_shift_pos
        call    edit_box_key.sh_cl_
@@:     ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ â¥ªáâ  --------------------------
;----------------------------------------------------------
edit_box.draw_text:
;--- ¢ëç¨á«ï¥¬, áª®«ìª® ¯®¬¥é ¥âáï á¨¬¢®«®¢ ---
;--- çâ®¡ë ¬ãá®à ­¥ à¨á®¢ âì ---
        call    edit_box.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
edit_box.draw_bg:
        mov     ebx,ed_left
        add     ebx,1
        mov     edx,ed_color
        shl     ebx,16
        add     ebx,ed_width
        sub     ebx,1
edit_box.draw_bg_eax:
        mov     ecx,ed_top
        mov     eax,13
        add     ecx,1
        shl     ecx,16
        add     ecx,ed_height
        dec     ecx
        mcall   
ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯®«ãç¥­¨ï ª®«¨ç¥áâ¢  á¨¬¢®«®¢ ¢ â¥ªãé¥© é¨à¨­¥ ª®¬¯®­¥­â 
;----------------------------------------------------------
edit_box.get_n:
        mov     eax,ed_width    ;¯®«ãç¥¬ è¨à¨­ã ª®¬¯®­¥­â 
        xor     edx,edx   ;à¥§ã«ìâ â à á¯®«®£ ¥âáï ¢ ¯ à¥ edx:eax ¢ eax - ®áâ â®ª
        sub     eax,4           ;¢ëçâ¨¬ 4
        mov     ebx,6           ;§ £àã§¬¨ ¤¥«¨â¥«ì
        div     ebx             ;à §¬¤¥«¨¬ ­  6
ret
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  à¨á®¢ ­¨ï ªãàá®à  --------------------------
;----------------------------------------------------------
;¢å®¤­ë¥ ebp- æ¢¥â
edit_box.clear_cursor:
        mov     edx,ebp
        mov     ebx,cl_curs_x
        mov     ecx,cl_curs_y
        jmp     edit_box.draw_curs
edit_box.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
edit_box.draw_curs:              
        mcall   38
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     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
;----------------------------------------------------------
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                  ;¯®«ãç¨¬ ª®«-¢® á¨¬¢®«®¢ ¢ ¯ à¥ à¥£¨áâà®¢ 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      edit_box.add_end
 
        sub     edx,ecx
        cmp     edx,8
        jbe     edit_box.add_8
        add     ebx,8
        jmp     edit_box.chk_d
 
edit_box.sub_8:
	cmp     ecx,0
        je      edit_box.sub_min
        cmp     ebx,8
        jbe     edit_box.sub_min
        sub     ebx,8   ;ebx=ed_offset
        jmp     edit_box.chk_d
edit_box.sub_min:
        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
edit_ex
@@:
        or      word ed_flags,ed_offset_fl
edit_ex
}
 
macro use_key_func
{
;¡à ¡®âª  Shift ¤«ï á­ïâ¨ï ¢ë¤¥«¥­¨ï ­¥¨§¢¥áâ­®© ®¡« áâ¨
edit_box_key.shift: ;;;;;;;SHIFT
        test    word ed_flags,ed_shift
        je      edit_box_key.f_exit
 
@@:     mov     ebp,shift_color
        or      word ed_flags,ed_shift_bac ;ãáâ ­®¢ª  ä« £ , ¢ë¤¥«¥­­®© ®¡« áâ¨
        mov     ebx,dword       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_:
;;;;;;SHIFT end
;®¡à ¡®âª  ®ç¨áâª¨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥­¨¨ ¢ë¤¥«¥­¨ï
;¤«ï ®¡à ¡®âª¨ á­ïâ¨ï ¢ë¤¥«¥­¨ï
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        mov     eax,dword       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 á ¡®«ìè¨¬
        jb      @f
        sub     ebx,ecx
        jmp     edit_box_key.nxt_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:
        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    edit_box.draw_bg_eax
@@:     call    edit_box_key.enable_null
        ret
;;;;;;;;;;;;;;;;;;;;;
;áâ ­®¢ª - á­ïâ¨¥ ¢ë¤¥«¥­¨ï ¢ ®¤¨­ á¨¬¢®«
;;;;;;;;;;;;;;;;;;;;;
edit_box_key.drw_sim:
        mov     eax,dword       ed_pos
        call    edit_box_key.draw_rectangle   ;­ à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª á § ¤ ­­ë¬ æ¢¥â®¬
        jmp     @b
;;;;;;;;;;;;;;;;;;;;;
;ãªæ¨ï ãáâ ­®¢ª¨ ¢ë¤¥«¥­¨ï ¯à¨ ¤¢¨¦¥­¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ­ ¦ â¨¨ 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,dword       ed_pos
        test    word ed_flags,ed_left_fl
        jz      edit_box_key.low
        jmp     @f
;;;;;;;;;;
;ãªæ¨ï ã¤ «¥­¨ï ¢ë¤¥«¥­¨ï ¯à¨ ¤¢¨¦¥­¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ­ ¦ â¨¨ shift
;®£¨ª : 
;;;;;;;;;;
edit_box_key.draw_wigwag_cl:
;äã­ªæ¨ï ãáâ ­®¢ª¨ ¯¥à¥¬¥­­ëå
        mov     ebp,ed_color
        call    edit_box.clear_cursor
 
        mov     ebp,ed_color
        mov     eax,dword       ed_pos
        test    word ed_flags,ed_left_fl
        jz      edit_box_key.low
@@:     call    edit_box_key.draw_rectangle  ;­ à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª § ªà è¨¢ ¥¬®© ®¡« áâ¨
        ret
edit_box_key.low:   dec     eax
        jmp     @b
;¢å®¤­®© ¯ à ¬¥âà ebx - ed_pos
edit_box_key.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
;¨­ ç¥ ¢®®¡é¥ ¢ëå®¤¨â
edit_box_key.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    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
        mov     ebx,dword       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
        call    edit_box.check_offset
        ret
edit_box_key.sh_ext_en:     
        call    edit_box.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      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
;alike  =
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
        mov     ebx,dword       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
        mov     ebx,dword       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
        mov     ebx,dword       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.check_offset
        ret
;äã­ªæ¨ï ¢­¥á¥­¨ï 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
edit_ex
;- ã¤ «¥­¨¥ á¨¬¢®« 
;å®¤­ë¥ ¤ ­­ë¥ edx=ed_size;ecx=ed_pos
edit_box_key.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     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     dword ed_shift_pos,ebp
        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     dword ed_shift_pos,ebp
        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 don't 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
 
@@:     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    edit_box.draw_bg_eax
        ret
;;;;;;;;;;;;;;;;;;;
;;; ¡à ¡®âª  ¯à¨¬¨â¨¢®¢
;;;;;;;;;;;;;;;;;;;;
; à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª, æ¢¥â ¯¥à¥¤ ¥âáï ¢ ebp
;¢å®¤­ë¥ ¯ à ¬¥âàë:
;eax=dword ed_pos
;ebp=-æ¢¥â ed_color or shift_color 
edit_box_key.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    edit_box.draw_bg_eax
        ret
;;;;;;;;;;;;;;;;;;
;;à®¢¥àª  ­ ¦ â «¨ shift
;;;;;;;;;;;;;;;;;;
edit_box_key.check_shift:
pusha   ;á®åà ­¨¬ ¢á¥ à¥£¨áâàë
        mcall   66,3
        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      edit_box_key.backspace
end if
if delete eq 
else
        cmp     ah,0xb6
        jz      edit_box_key.delete
end if
if left eq 
else
        cmp     ah,176
        jz      edit_box_key.left
end if
if right eq 
else
        cmp     ah,179
        jz      edit_box_key.right
end if
if home eq 
else
        cmp     ah,180
        jz      edit_box_key.home
end if
if home eq 
else
        cmp     ah,181
        jz      edit_box_key.end
end if
if insert eq 
else
        cmp     ah,185  ;insert
        jz      edit_box_key.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      edit_box.editbox_exit
        cmp     ah,'9'
        ja      edit_box.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    edit_box_key.sh_cl_
        mov     ebp,ed_size
        call    edit_box_key.clear_bg
;;;;;;;;;;;;;;;;;;;;;
        popa 
        call    edit_box_key.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     edit_box.editbox_exit
@@:     mov     ebx, ed_pos
        cmp     ebx,edx
        jl      @f ; ¥á«¨ ¬¥­ìè¥ ¨«¨ à ¢­®
        jmp     edit_box.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      edit_box_key.In_k
 
        test    dword bp_flags,ed_insert ;IF insert is enable  â.ª. edi ¨§¬¥­¥­  ¤à¥áã¥¬ ç¥à¥§ ebp
        jne     edit_box_key.ins_v
;clear
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
}
macro use_work_key
{
edit_box_key.insert: test   word ed_flags,ed_insert ;not    word 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 [ebp+48];ed_size    ;processing is insert
	dec	dword bp_size
        sub     esi,ecx
        add     esi,ebx
        mov     edi,esi
;clear
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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;        
;--- ­ ¦ â  ª« ¢¨è  backspace ---
edit_box_key.backspace:
        ; ¯à®¢¥àï¥¬, ªãàá®à ã «¥¢®£® ªà ï ?
        mov     ecx,ed_pos
        test    ecx,ecx
        jnz     edit_box_key.del_bac
        test    word ed_flags,ed_shift_on
        jne     edit_box_key.bac_del
        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;.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    edit_box.clear_cursor
        call    edit_box.check_offset
        call    edit_box.draw_bg
        ret
@@:     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
        call    edit_box_key.clear_bg
        ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;--- ­ ¦ â  ª« ¢¨è  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_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_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_key.sh_home_end
        jmp     edit_box.draw_cursor_text
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
edit_box_key.end:   
        mov     ebx,ed_pos
        cmp     ebx,dword 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_key.sh_home_end
        jmp     edit_box.draw_cursor_text
}
 
macro use_mouse_func
{
;----------------------------------------------------------
;--- ¡à ¡®âª  .mouse_wigwag
;----------------------------------------------------------
edit_box_mouse.mouse_wigwag:
        shr     eax,16
        or      word ed_flags,ed_shift_bac+ed_shift_on+ed_shift
;;;;;;;;;;;;;;;;;;
;;¯à®æ¥¤ãà  ®¡à ¡®âª¨ ¯®«®¦¥­¨ï ¢ë¤¥«¥­­®£® â¥ªáâ , ª®£¤  ¯à®¨áå®¤¨â ¢ëå®¤ §  ¯à¥¤¥«ë editbox
;;;;;;;;;;;;;;;;;;
        test    ax,0x8000
        jnz     edit_box_mouse.mleft
 
        mov     ebx,ed_left
        cmp     eax,ebx
        jb      edit_box_mouse.mleft
 
        add     ebx,ed_width
        cmp     eax,ebx
        ja      edit_box_mouse.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      edit_box_mouse.mwigvag
edit_box_mouse.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      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    ;âãâ ­ã¦­® ®ç¨áâ¨âì ®¡« áâì c ed_pos ed_shift_pos_old
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        call    edit_box_key.sh_cl_
        jmp     edit_box_mouse.mwigvag
edit_box_mouse.msmaller:
        cmp     ebx,eax
        jb      edit_box_mouse.m1_shem
        mov     ebp,ed_color
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        call    edit_box_key.sh_cl_
        jmp     edit_box_mouse.mwigvag
;alike  =
edit_box_mouse.m1_shem: 
        mov     ebp,shift_color
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        mov     ebx,ecx
        call    edit_box_key.sh_cl_
        jmp     edit_box_mouse.mwigvag
edit_box_mouse.mwigvag:
        and     word ed_flags,ed_shift_mcl
        jmp     edit_box.draw_cursor_text
;       popa
;       ret
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
        mov     ebx,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
        mov     ebx,ed_shift_pos
        mov     ebp,shift_color
        push    eax
        call    edit_box_key.sh_cl_
        pop     eax
        jmp     edit_box_mouse.mdraw  
}
 
macro use_work_mouse
;----------------------------------------------------------
;---  ­¥ ã¤¥à¦¨¢ ¥¬ «¨ ¬ë ª« ¢¨èã ¬ëèª¨, ¯¥à¥¬¥é ï ªãàá®à, ¢® ¢á¥ à §­ë¥ áâ®à®­ë?
;----------------------------------------------------------
{
        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;.mouse_end_no_focus
        
        add     ebx,ed_height
        cmp     ax,bx
        jg      edit_box_mouse._blur;.mouse_end_no_focus
 
        shr     eax,16
 
        mov     ebx,ed_left
        cmp     ax,bx
        jl      edit_box_mouse._blur;.mouse_end_no_focus
 
        add     ebx,ed_width
 
        cmp     ax,bx
        jg      edit_box_mouse._blur;.mouse_end_no_focus        
 
;--- ¨§¬¥­ï¥¬ ¯®§¨æ¨î ªãàá®à  ---
        push    eax
        mov     ebp,ed_color
        call    edit_box.clear_cursor
        pop     eax
edit_box_mouse._mvpos:
        xor     edx,edx
        sub     eax,ed_left
 
        mov     ebx,6
        div     bx
        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,dword       ed_color
        mov     ebx,dword 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     dword ed_shift_pos,eax
        or      word  ed_flags,ed_mouse_on
        mov     dword ed_pos,eax
 
;        mov     dword [mouse_flag],edi          ;ãáâ ­®¢¨¬ ¨¤¥­â¨ä¨ª â®à
 
       	mov	ebx,dword ed_mouse_variable
	push	edi
	pop	dword [ebx]
 
 
 
 
        bts     word ed_flags,1                 ;ãáâ ­®¢ª  ä®ªãá 
        jmp     edit_box_mouse.m_sh
@@:             
        cmp     eax,dword ed_shift_pos  ;¥á«¨ ¯®§¨æ¨¨ ­¥ ¨§¬¥­¨«¨áì
        je      edit_box.editbox_exit
        mov     ed_pos,eax
        mov     ebp,dword shift_color
        mov     ebx,dword ed_shift_pos
        call    edit_box_key.sh_cl_
        or      word ed_flags,ed_mous_adn_b     ;ãáâ ­®¢¨¬ ¡¨â çâ® ¬ë ¢ë¤¥«¨«¨ +shift_on +
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
}
 
 
;  ªà®á ¢ëå®¤ 
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         ;¢¥à­ãâìáï ç¥­ì ¨­â¥à¥á­ë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
}
 
ed_struc_size=76
struc  edit_box width,left,top,color,shift_color,focus_border_color,\
       blur_border_color,text_color,max,text,mouse_variable,flags,size,pos
{
.width dd width
.left dd left
.top dd top
.color dd color
.shift_color dd shift_color
.focus_border_color dd focus_border_color
.blur_border_color dd blur_border_color
.text_color dd text_color
.max dd max
.text dd text
.mouse_variable dd mouse_variable
.flags dd flags+0
.size dd size+0
.pos dd pos+0
.offset dd 0
.cl_curs_x dd 0
.cl_curs_y dd 0
.shift   dd 0
.shift_old   dd 0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;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 1372	Rev 1432
1	ed_struc_size=76	-
2		-
3	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4	;Basic macros for use editbox ;	2	;Basic macros for use editbox ;
5	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	3	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6	ed_width equ [edi] ;è¨à¨ ª®¬¯®¥â	4	ed_width equ [edi] ;è¨à¨ ª®¬¯®¥â
7	ed_left equ [edi+4] ;¯®«®¦¥¨¥ ¯® ®á¨ å	5	ed_left equ [edi+4] ;¯®«®¦¥¨¥ ¯® ®á¨ å
8	ed_top equ [edi+8] ;¯®«®¦¥¨¥ ¯® ®á¨ ã	6	ed_top equ [edi+8] ;¯®«®¦¥¨¥ ¯® ®á¨ ã
9	ed_color equ [edi+12] ;æ¢¥â ä® ª®¬¯®¥â	7	ed_color equ [edi+12] ;æ¢¥â ä® ª®¬¯®¥â
10	shift_color equ [edi+16] ;=0x6a9480 ¤«ï ¯à¨¬¥à ¢®§ì¥¬ ¦¥«¥ë© æ¢¥â ¡®ªá	8	shift_color equ [edi+16] ;=0x6a9480 ¤«ï ¯à¨¬¥à ¢®§ì¥¬ ¦¥«¥ë© æ¢¥â ¡®ªá
11	ed_focus_border_color equ [edi+20] ;æ¢¥â à ¬ª¨ ª®¬¯®¥â	9	ed_focus_border_color equ [edi+20] ;æ¢¥â à ¬ª¨ ª®¬¯®¥â
12	ed_blur_border_color equ [edi+24] ;æ¢¥â ¥ ªâ¨¢®£® ª®¬¯®¥â	10	ed_blur_border_color equ [edi+24] ;æ¢¥â ¥ ªâ¨¢®£® ª®¬¯®¥â
13	ed_text_color equ [edi+28] ;æ¢¥â â¥ªáâ	11	ed_text_color equ [edi+28] ;æ¢¥â â¥ªáâ
14	ed_max equ [edi+32] ;ª®«-¢® á¨¬¢®«®¢ ª®â®àë¥ ¬®¦® ¬ ªá¨¬ «ì® ¢¢¥áâ¨	12	ed_max equ [edi+32] ;ª®«-¢® á¨¬¢®«®¢ ª®â®àë¥ ¬®¦® ¬ ªá¨¬ «ì® ¢¢¥áâ¨
15	ed_text equ [edi+36] ;ãª § â¥«ì ¡ãä¥à	13	ed_text equ [edi+36] ;ãª § â¥«ì ¡ãä¥à
16	ed_mouse_variable equ [edi+40] ; ãª § â¥«ì ¯¥à¥¬¥ãî ¤«ï ¡®ªá /£àã¯¯ë	14	ed_mouse_variable equ [edi+40] ; ãª § â¥«ì ¯¥à¥¬¥ãî ¤«ï ¡®ªá /£àã¯¯ë
17	ed_flags equ [edi+44] ;ä« £¨	15	ed_flags equ [edi+44] ;ä« £¨
18	bp_flags equ [ebp+44] ;¢ ¥ª®â®àëå ¯à®æ¥¤ãà å edi ¨á¯®«ì§ã¥âáï, ¢§ ¬¥ ãª § â¥«ì åà ¨âìáï ¢ ebp	16	bp_flags equ [ebp+44] ;¢ ¥ª®â®àëå ¯à®æ¥¤ãà å edi ¨á¯®«ì§ã¥âáï, ¢§ ¬¥ ãª § â¥«ì åà ¨âìáï ¢ ebp
19	ed_size equ [edi+48] ;ª®«-¢® á¨¬¢®«®¢	17	ed_size equ [edi+48] ;ª®«-¢® á¨¬¢®«®¢
20	bp_size equ [ebp+48] ;ª®«-¢® á¨¬¢¯®«®¢, ¤«ï ¤à¥á æ¨¨ ¨á¯«ì§ã¥âáï ebp¡ edi § ïâ	18	bp_size equ [ebp+48] ;ª®«-¢® á¨¬¢¯®«®¢, ¤«ï ¤à¥á æ¨¨ ¨á¯«ì§ã¥âáï ebp¡ edi § ïâ
21	ed_pos equ [edi+52] ;¯®§¨æ¨ï ªãàá®à	19	ed_pos equ [edi+52] ;¯®§¨æ¨ï ªãàá®à
22	ed_offset equ [edi+56] ;á¬¥é¥¨¥	20	ed_offset equ [edi+56] ;á¬¥é¥¨¥
23	cl_curs_x equ [edi+60] ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨ â ªãàá®à ¯® å	21	cl_curs_x equ [edi+60] ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨ â ªãàá®à ¯® å
24	cl_curs_y equ [edi+64] ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨ â ªãàá®à ¯® ã	22	cl_curs_y equ [edi+64] ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨ â ªãàá®à ¯® ã
25	ed_shift_pos equ [edi+68] ;¯®«®¦¥¨¥ ªãàá®à	23	ed_shift_pos equ [edi+68] ;¯®«®¦¥¨¥ ªãàá®à
26	ed_shift_pos_old equ [edi+72] ;áâ à®¥ ¯®«®¦¥¨¥ ªãàá®à	24	ed_shift_pos_old equ [edi+72] ;áâ à®¥ ¯®«®¦¥¨¥ ªãàá®à
27		-
28	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	-
29	;Bit mask from editbox	-
30	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	-
31	ed_figure_only= 1000000000000000b ;®¤¨ á¨¬¢®«ë	-
32	ed_always_focus= 100000000000000b	-
33	ed_focus= 10b ;ä®ªãá ¯à¨«®¦¥¨ï	-
34	ed_shift_on= 1000b ;¥á«¨ ¥ ãáâ ®¢«¥ -§ ç¨â ¢¯¥à¢ë¥ ¦ â shift,¥á«¨ ¡ë« ãáâ ®¢«¥, § ç¨â ¬ë ã¦¥ çâ® - â® ¤¥« «¨ ã¤¥à¦¨¢ ï shift	-
35	ed_shift_on_off=1111111111110111b	-
36	ed_shift= 100b ;¢ª«îç ¥âáï ¯à¨ ¦ â¨¨ shift â.¥. ¥á«¨ ¦¨¬ î	-
37	ed_shift_off= 1111111111111011b	-
38	ed_shift_bac= 10000b ;¡¨â ¤«ï ®ç¨áâª¨ ¢ë¤¥«¥®£® shift â.¥. ¯à¨ ãáâ ®¢ª¥ £®¢®à¨â çâ® ¥áâì ¢ë¤¥«¥¨¥	-
39	ed_shift_bac_cl=1111111111101111b ;®ç¨áâª ¯à¨ ã¤ «¥¨¨ ¢ë¤¥«¥¨ï	-
40	ed_shift_cl= 1111111111100011b	-
41	ed_shift_mcl= 1111111111111011b	-
42	ed_left_fl= 100000b	-
43	ed_right_fl= 1111111111011111b	-
44	ed_offset_fl= 1000000b	-
45	ed_offset_cl= 1111111110111111b	-
46	ed_insert= 10000000b	-
47	ed_insert_cl= 1111111101111111b	-
48	ed_mouse_on = 100000000b	-
49	ed_mous_adn_b= 100011000b	-
50	ed_mouse_on_off=1111111011111111b	-
51	ed_height=14 ; ¢ëá®â	-
52		-
53	struc edit_box width,left,top,color,shift_color,focus_border_color,\	-
54	blur_border_color,text_color,max,text,mouse_variable,flags,size,pos	-
55	{	-
56	.width dd width	-
57	.left dd left	-
58	.top dd top	-
59	.color dd color	-
60	.shift_color dd shift_color	-
61	.focus_border_color dd focus_border_color	-
62	.blur_border_color dd blur_border_color	-
63	.text_color dd text_color	-
64	.max dd max	-
65	.text dd text	-
66	.mouse_variable dd mouse_variable	-
67	.flags dd flags+0	-
68	.size dd size+0	-
69	.pos dd pos+0	-
70	.offset dd 0	-
71	.cl_curs_x dd 0	-
72	.cl_curs_y dd 0	-
73	.shift dd 0	-
74	.shift_old dd 0	-
75	}	-
76	macro edit_boxes_set_sys_color start,end,color_table	-
77	{	-
78	mov edi,start	-
79	mov ecx,((end-start)/ed_struc_size)	-
80	mov esi,color_table	-
81	@@:	-
82	mov eax,dword [esi+36]	-
83	mov ebx,dword [esi+20]	-
84	push dword eax	-
85	pop dword ed_focus_border_color	-
86	shr bh,1	-
87	shr bl,1	-
88	shr ah,1	-
89	shr al,1	-
90	add ah,bh	-
91	add al,bl	-
92	ror eax,16	-
93	ror ebx,16	-
94	shr bl,1	-
95	shr al,1	-
96	add al,bl	-
97	ror eax,16	-
98	mov dword ed_blur_border_color,eax	-
99	mov dword shift_color,eax	-
100	add edi,ed_struc_size	-
101	loop @b	-
102	}	-
103		25
104	macro init_editbox	26	macro init_editbox
105	{	27	{
106	pushad	28	pushad
107	mcall	29	mcall
108		30
109	popad	31	popad
110	}	32	}
111		33
112		34
113	macro use_editbox_draw	35	macro use_editbox_draw
114	{	36	{
115	edit_box:	37	edit_box:
116	.draw:	38	.draw:
117	pushad	39	pushad
118	;--- à¨áã¥¬ à ¬ªã ---	40	;--- à¨áã¥¬ à ¬ªã ---
119	mov edi,dword [esp+36]	41	mov edi,dword [esp+36]
120	call .draw_border ; ãªæ¨ï áâ ¡¨«ì	42	call .draw_border ; ãªæ¨ï áâ ¡¨«ì
121	.draw_bg_cursor_text:	43	.draw_bg_cursor_text:
122	;--- ¨§¬¥ï¥¬ á¬¥é¥¨¥, ¥á«¨ ¤® ---	44	;--- ¨§¬¥ï¥¬ á¬¥é¥¨¥, ¥á«¨ ¤® ---
123	call .check_offset ;¢ëç¨á«¥¨¥ ¯®§¨æ¨¨ ªãàá®à áâ ¡¨«ì	45	call .check_offset ;¢ëç¨á«¥¨¥ ¯®§¨æ¨¨ ªãàá®à áâ ¡¨«ì
124	;--- à¨áã¥¬ ¢ãâà¥îî ®¡« áâì ---	46	;--- à¨áã¥¬ ¢ãâà¥îî ®¡« áâì ---
125	call .draw_bg ; à¨á®¢ âì ¯àï¬®ã£®«ì¨ª à ¡®ç¥© ®¡« áâ¨	47	call .draw_bg ; à¨á®¢ âì ¯àï¬®ã£®«ì¨ª à ¡®ç¥© ®¡« áâ¨
126	;---- à¨áã¥¬ ¢ë¤¥«¥¨¥, ¯® shift ¥á«¨ ¥áâì	48	;---- à¨áã¥¬ ¢ë¤¥«¥¨¥, ¯® shift ¥á«¨ ¥áâì
127	call .draw_shift	49	call .draw_shift
128	.draw_cursor_text:	50	.draw_cursor_text:
129	;--- à¨áã¥¬ ªãàá®à ---	51	;--- à¨áã¥¬ ªãàá®à ---
130	;--- ¬®¦¥â ¥£® ¥ ¤® à¨á®¢ âì ----	52	;--- ¬®¦¥â ¥£® ¥ ¤® à¨á®¢ âì ----
131	test word ed_flags,ed_focus	53	test word ed_flags,ed_focus
132	jz @f	54	jz @f
133	call .draw_cursor	55	call .draw_cursor
134	@@:	56	@@:
135	call .draw_text	57	call .draw_text
136	; ret	58	; ret
137	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	59	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
138	;¡é¨© ¢ëå®¤ ¨§ editbox ¤«ï ¢á¥å äãªæ¨© ¨ ¯®áâ ®¡à ¡®âç¨ª®¢;;	60	;¡é¨© ¢ëå®¤ ¨§ editbox ¤«ï ¢á¥å äãªæ¨© ¨ ¯®áâ ®¡à ¡®âç¨ª®¢;;
139	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	61	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
140	.editbox_exit:	62	.editbox_exit:
141	popad	63	popad
142	ret 4	64	ret 4
143	}	65	}
144		66
145		67
146	macro use_editbox_key	68	macro use_editbox_key
147	{	69	{
148	;==========================================================	70	;==========================================================
149	;=== ®¡à ¡®âª ª« ¢¨ âãàë =================================	71	;=== ®¡à ¡®âª ª« ¢¨ âãàë =================================
150	;==========================================================	72	;==========================================================
151	edit_box_key:	73	edit_box_key:
152	pushad	74	pushad
153	mov edi,dword [esp+36]	75	mov edi,dword [esp+36]
154	test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬	76	test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
155	je edit_box.editbox_exit	77	je edit_box.editbox_exit
156	test word ed_flags,ed_mouse_on	78	test word ed_flags,ed_mouse_on
157	jne edit_box.editbox_exit	79	jne edit_box.editbox_exit
158		80
159	;à®¢¥àª ¦ â shift ?	81	;à®¢¥àª ¦ â shift ?
160	call edit_box_key.check_shift	82	call edit_box_key.check_shift
161	;----------------------------------------------------------	83	;----------------------------------------------------------
162	;--- ¯à®¢¥àï¥¬, çâ® ¦ â® --------------------------------	84	;--- ¯à®¢¥àï¥¬, çâ® ¦ â® --------------------------------
163	;----------------------------------------------------------	85	;----------------------------------------------------------
164	use_key_process backspase,delete,left,right,home,end,insert	86	use_key_process backspase,delete,left,right,home,end,insert
165	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	87	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
166	; £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ â.¥. ¯à¨ ®¡ àã¦¥¨¨ íâ¨å ª®¤®¢ ¯à®¨áå®¤¨â ¢ëå®¤ ¨§ ®¡à ¡®âç¨ª	88	; £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ â.¥. ¯à¨ ®¡ àã¦¥¨¨ íâ¨å ª®¤®¢ ¯à®¨áå®¤¨â ¢ëå®¤ ¨§ ®¡à ¡®âç¨ª
167	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	89	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
168	use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll	90	use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll
169	;--- ¦ â ¤àã£ ï ª« ¢¨è ---	91	;--- ¦ â ¤àã£ ï ª« ¢¨è ---
170	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	92	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
171	;à®¢¥àª ãáâ ®¢«¥ «¨ ä« £ ¯à¨ ª®â®à®¬ ã¦® ¢ë¢®¤¨âì â®«ìª® æ¨äàë ¢ ã¦®¬ ¡®ªá¥ ¥á«¨ â ª®©¥®¡å®¤¨¬®áâ¨ ¥â ã¦® § ª®¬¥â¨à®¢ âì ¬ ªà®á	93	;à®¢¥àª ãáâ ®¢«¥ «¨ ä« £ ¯à¨ ª®â®à®¬ ã¦® ¢ë¢®¤¨âì â®«ìª® æ¨äàë ¢ ã¦®¬ ¡®ªá¥ ¥á«¨ â ª®©¥®¡å®¤¨¬®áâ¨ ¥â ã¦® § ª®¬¥â¨à®¢ âì ¬ ªà®á
172	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	94	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
173	use_key_figures_only	95	use_key_figures_only
174	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	96	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
175	;¯à®¢¥àª shift ¡ë« «¨ ¦ â	97	;¯à®¢¥àª shift ¡ë« «¨ ¦ â
176	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	98	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
177	are_key_shift_press	99	are_key_shift_press
178	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	100	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
179	; ¯à®¢¥àï¥¬, å®¤¨âáï «¨ ªãàá®à ¢ ª®æ¥ + ¤ «ì¥©è ï ®¡à ¡®âª	101	; ¯à®¢¥àï¥¬, å®¤¨âáï «¨ ªãàá®à ¢ ª®æ¥ + ¤ «ì¥©è ï ®¡à ¡®âª
180	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	102	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
181	are_key_cur_end	103	are_key_cur_end
182	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	104	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
183	;¡à ¡®âª ª« ¢¨è insert,delete.backspase,home,end,left,right	105	;¡à ¡®âª ª« ¢¨è insert,delete.backspase,home,end,left,right
184	;;;;;;;;;;;;;;;;;;;;;;;;;;;;	106	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
185	use_work_key	107	use_work_key
186	}	108	}
187		109
188	macro use_editbox_mouse	110	macro use_editbox_mouse
189	{	111	{
190	;==========================================================	112	;==========================================================
191	;=== ®¡à ¡®âª ¬ëè¨ =======================================	113	;=== ®¡à ¡®âª ¬ëè¨ =======================================
192	;==========================================================	114	;==========================================================
193	;save for stdcall ebx,esi,edi,ebp	115	;save for stdcall ebx,esi,edi,ebp
194	edit_box_mouse:	116	edit_box_mouse:
195	pushad	117	pushad
196	mov edi,dword [esp+36]	118	mov edi,dword [esp+36]
197	;debug	119	;debug
198	;----------------------------------------------------------	120	;----------------------------------------------------------
199	;--- ¯®«ãç ¥¬ á®áâ®ï¨¥ ª®¯®ª ¬ëè¨ -----------------------	121	;--- ¯®«ãç ¥¬ á®áâ®ï¨¥ ª®¯®ª ¬ëè¨ -----------------------
200	;----------------------------------------------------------	122	;----------------------------------------------------------
201	mcall 37,2	123	mcall 37,2
202	;----------------------------------------------------------	124	;----------------------------------------------------------
203	;--- ¯à®¢¥àï¥¬ á®áâ®ï¨¥ ----------------------------------	125	;--- ¯à®¢¥àï¥¬ á®áâ®ï¨¥ ----------------------------------
204	;----------------------------------------------------------	126	;----------------------------------------------------------
205	test eax,1	127	test eax,1
206	jnz edit_box_mouse.mouse_left_button	128	jnz edit_box_mouse.mouse_left_button
207	and word ed_flags,ed_mouse_on_off	129	and word ed_flags,ed_mouse_on_off
208	mov ebx,dword ed_mouse_variable	130	mov ebx,dword ed_mouse_variable
209	push 0	131	push 0
210	pop dword [ebx]	132	pop dword [ebx]
211	; mov dword [ebx],ebx	133	; mov dword [ebx],ebx
212	jmp edit_box.editbox_exit	134	jmp edit_box.editbox_exit
213	.mouse_left_button:	135	.mouse_left_button:
214	;----------------------------------------------------------	136	;----------------------------------------------------------
215	;--- ¡«®ª¨à®¢ª ®â ä®ªãá¨à®¢ª¨ ¢ ¤àã£¨å ¡®ªá å ¯à¨ ¯®¯ ¤ ¨¨ ¨å ªãàá®à	137	;--- ¡«®ª¨à®¢ª ®â ä®ªãá¨à®¢ª¨ ¢ ¤àã£¨å ¡®ªá å ¯à¨ ¯®¯ ¤ ¨¨ ¨å ªãàá®à
216	;----------------------------------------------------------	138	;----------------------------------------------------------
217	mov eax,dword ed_mouse_variable	139	mov eax,dword ed_mouse_variable
218	push dword [eax]	140	push dword [eax]
219	pop eax	141	pop eax
220	test eax,eax	142	test eax,eax
221	jz @f	143	jz @f
222	cmp eax,edi	144	cmp eax,edi
223	je @f	145	je @f
224	jmp edit_box_mouse._blur	146	jmp edit_box_mouse._blur
225	;----------------------------------------------------------	147	;----------------------------------------------------------
226	;--- ¯®«ãç ¥¬ ª®®à¤¨ âë ¬ëè¨ ®â®á¨â¥«ì® 0 â.¥ ¢á¥© ®¡« áâ¨ íªà	148	;--- ¯®«ãç ¥¬ ª®®à¤¨ âë ¬ëè¨ ®â®á¨â¥«ì® 0 â.¥ ¢á¥© ®¡« áâ¨ íªà
227	;----------------------------------------------------------	149	;----------------------------------------------------------
228	@@: mcall 37,1	150	@@: mcall 37,1
229	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	151	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
230	;ãªæ¨ï ®¡à ¡®âª¨ ¬ëèª¨ ¯®«ãç¥¨¥ ª®®à¤¨ â ¨ ¯à®¢¥àª ¨å + ¢ë¤¥«¥¨ï	152	;ãªæ¨ï ®¡à ¡®âª¨ ¬ëèª¨ ¯®«ãç¥¨¥ ª®®à¤¨ â ¨ ¯à®¢¥àª ¨å + ¢ë¤¥«¥¨ï
231	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	153	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
232	use_work_mouse	154	use_work_mouse
233	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	155	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
234	;¡é¨¥ äãªæ¨¨ ®¡à ¡®âª¨	156	;¡é¨¥ äãªæ¨¨ ®¡à ¡®âª¨
235	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	157	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
236	use_general_func	158	use_general_func
237	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	159	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
238	;ãªæ¨¨ ¤«ï à ¡®âë á key	160	;ãªæ¨¨ ¤«ï à ¡®âë á key
239	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	161	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
240	use_key_func	162	use_key_func
241	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	163	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
242	;ãªæ¨¨ ¤«ï à ¡®âë á mouse	164	;ãªæ¨¨ ¤«ï à ¡®âë á mouse
243	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	165	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
244	use_mouse_func	166	use_mouse_func
245	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	167	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
246	;Bit mask from editbox	168	;Bit mask from editbox
247	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	169	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
248	}	170	}
249		171
250		172
251		173
252		174
253		175
254		176
255		177
256		178
257		179
258		180
259		181
260		182
261		183
262		184
263		185
264		186
265		187
266		188
267		189
268		190
269		191
270		192
271		193
272	;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++	194	;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
273	;¨¦¥ à á¯®«®¦¥ë äãªæ¨¨ ª®â®àë¬¨ à¥ «¨§ã¥âáï ¢¥áì «£®à¨â¬	195	;¨¦¥ à á¯®«®¦¥ë äãªæ¨¨ ª®â®àë¬¨ à¥ «¨§ã¥âáï ¢¥áì «£®à¨â¬
274	;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++	196	;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
275	; ªà®á ¤«ï ¢ë¢®¤ ®á®¢ëå äãªæ¨© ª®â®àë¥ ¨á¯«ì§ãîâáï ¡®ªá®¬	197	; ªà®á ¤«ï ¢ë¢®¤ ®á®¢ëå äãªæ¨© ª®â®àë¥ ¨á¯«ì§ãîâáï ¡®ªá®¬
276	macro use_general_func	198	macro use_general_func
277	{	199	{
278	;debug_func	200	;debug_func
279	;----------------------------------------------------------	201	;----------------------------------------------------------
280	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ¢ë¤¥«¥®© ç áâ¨ -----------------	202	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ¢ë¤¥«¥®© ç áâ¨ -----------------
281	;----------------------------------------------------------	203	;----------------------------------------------------------
282	edit_box.draw_shift:	204	edit_box.draw_shift:
283	test word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨	205	test word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨
284	jz @f	206	jz @f
285	mov ebp,shift_color	207	mov ebp,shift_color
286	mov ebx,dword ed_shift_pos	208	mov ebx,dword ed_shift_pos
287	call edit_box_key.sh_cl_	209	call edit_box_key.sh_cl_
288	@@: ret	210	@@: ret
289	;----------------------------------------------------------	211	;----------------------------------------------------------
290	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ â¥ªáâ --------------------------	212	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ â¥ªáâ --------------------------
291	;----------------------------------------------------------	213	;----------------------------------------------------------
292	edit_box.draw_text:	214	edit_box.draw_text:
293	;--- ¢ëç¨á«ï¥¬, áª®«ìª® ¯®¬¥é ¥âáï á¨¬¢®«®¢ ---	215	;--- ¢ëç¨á«ï¥¬, áª®«ìª® ¯®¬¥é ¥âáï á¨¬¢®«®¢ ---
294	;--- çâ®¡ë ¬ãá®à ¥ à¨á®¢ âì ---	216	;--- çâ®¡ë ¬ãá®à ¥ à¨á®¢ âì ---
295	call edit_box.get_n	217	call edit_box.get_n
296	mov esi,ed_size	218	mov esi,ed_size
297	mov ebx,ed_offset	219	mov ebx,ed_offset
298	sub esi,ebx	220	sub esi,ebx
299	cmp eax,esi	221	cmp eax,esi
300	jae @F	222	jae @F
301	mov esi,eax ;çâ®¡ë ¥ ¢ëå®¤¨âì § ¯à¥¤¥«ë íªà	223	mov esi,eax ;çâ®¡ë ¥ ¢ëå®¤¨âì § ¯à¥¤¥«ë íªà
302	;--- à¨áã¥¬ â¥ªáâ ---	224	;--- à¨áã¥¬ â¥ªáâ ---
303	@@: mov eax,4	225	@@: mov eax,4
304	mov ebx,ed_left	226	mov ebx,ed_left
305	mov edx,ed_offset	227	mov edx,ed_offset
306	add ebx,2	228	add ebx,2
307	shl ebx,16	229	shl ebx,16
308	add ebx,ed_top	230	add ebx,ed_top
309	mov ecx,ed_text_color	231	mov ecx,ed_text_color
310	add ebx,4	232	add ebx,4
311	add edx,ed_text	233	add edx,ed_text
312	mcall	234	mcall
313	ret	235	ret
314	;----------------------------------------------------------	236	;----------------------------------------------------------
315	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ä® ----------------------------	237	;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ä® ----------------------------
316	;¢å®¤ë¥ ¤ ë¥	238	;¢å®¤ë¥ ¤ ë¥
317	;eax	239	;eax
318	;edx - color	240	;edx - color
319	;----------------------------------------------------------	241	;----------------------------------------------------------
320	;¢å®¤ â®«ìª® æ¢¥â edx	242	;¢å®¤ â®«ìª® æ¢¥â edx
321	edit_box.draw_bg:	243	edit_box.draw_bg:
322	mov ebx,ed_left	244	mov ebx,ed_left
323	add ebx,1	245	add ebx,1
324	mov edx,ed_color	246	mov edx,ed_color
325	shl ebx,16	247	shl ebx,16
326	add ebx,ed_width	248	add ebx,ed_width
327	sub ebx,1	249	sub ebx,1
328	edit_box.draw_bg_eax:	250	edit_box.draw_bg_eax:
329	mov ecx,ed_top	251	mov ecx,ed_top
330	mov eax,13	252	mov eax,13
331	add ecx,1	253	add ecx,1
332	shl ecx,16	254	shl ecx,16
333	add ecx,ed_height	255	add ecx,ed_height
334	dec ecx	256	dec ecx
335	mcall	257	mcall
336	ret	258	ret
337	;----------------------------------------------------------	259	;----------------------------------------------------------
338	;--- ¯à®æ¥¤ãà ¯®«ãç¥¨ï ª®«¨ç¥áâ¢ á¨¬¢®«®¢ ¢ â¥ªãé¥© é¨à¨¥ ª®¬¯®¥â	260	;--- ¯à®æ¥¤ãà ¯®«ãç¥¨ï ª®«¨ç¥áâ¢ á¨¬¢®«®¢ ¢ â¥ªãé¥© é¨à¨¥ ª®¬¯®¥â
339	;----------------------------------------------------------	261	;----------------------------------------------------------
340	edit_box.get_n:	262	edit_box.get_n:
341	mov eax,ed_width ;¯®«ãç¥¬ è¨à¨ã ª®¬¯®¥â	263	mov eax,ed_width ;¯®«ãç¥¬ è¨à¨ã ª®¬¯®¥â
342	xor edx,edx ;à¥§ã«ìâ â à á¯®«®£ ¥âáï ¢ ¯ à¥ edx:eax ¢ eax - ®áâ â®ª	264	xor edx,edx ;à¥§ã«ìâ â à á¯®«®£ ¥âáï ¢ ¯ à¥ edx:eax ¢ eax - ®áâ â®ª
343	sub eax,4 ;¢ëçâ¨¬ 4	265	sub eax,4 ;¢ëçâ¨¬ 4
344	mov ebx,6 ;§ £àã§¬¨ ¤¥«¨â¥«ì	266	mov ebx,6 ;§ £àã§¬¨ ¤¥«¨â¥«ì
345	div ebx ;à §¬¤¥«¨¬ 6	267	div ebx ;à §¬¤¥«¨¬ 6
346	ret	268	ret
347	;----------------------------------------------------------	269	;----------------------------------------------------------
348	;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à --------------------------	270	;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à --------------------------
349	;----------------------------------------------------------	271	;----------------------------------------------------------
350	;¢å®¤ë¥ ebp- æ¢¥â	272	;¢å®¤ë¥ ebp- æ¢¥â
351	edit_box.clear_cursor:	273	edit_box.clear_cursor:
352	mov edx,ebp	274	mov edx,ebp
353	mov ebx,cl_curs_x	275	mov ebx,cl_curs_x
354	mov ecx,cl_curs_y	276	mov ecx,cl_curs_y
355	jmp edit_box.draw_curs	277	jmp edit_box.draw_curs
356	edit_box.draw_cursor:	278	edit_box.draw_cursor:
357	mov edx,ed_text_color	279	mov edx,ed_text_color
358	mov ebx,ed_pos	280	mov ebx,ed_pos
359	mov ecx,ed_offset	281	mov ecx,ed_offset
360	sub ebx,ecx	282	sub ebx,ecx
361		283
362	lea ebx,[ebx*2+ebx]	284	lea ebx,[ebx*2+ebx]
363	shl ebx,1	285	shl ebx,1
364	;imul ebx,6	286	;imul ebx,6
365	add ebx,ed_left	287	add ebx,ed_left
366	mov ecx,ed_top	288	mov ecx,ed_top
367	inc ebx	289	inc ebx
368	add ecx,2	290	add ecx,2
369	mov ebp,ebx	291	mov ebp,ebx
370	shl ebx,16	292	shl ebx,16
371	mov bx,bp	293	mov bx,bp
372	mov ebp,ecx	294	mov ebp,ecx
373		295
374	shl ecx,16	296	shl ecx,16
375	mov cx,bp	297	mov cx,bp
376	add ecx,ed_height-4	298	add ecx,ed_height-4
377		299
378	mov cl_curs_x,ebx	300	mov cl_curs_x,ebx
379	mov cl_curs_y,ecx	301	mov cl_curs_y,ecx
380	edit_box.draw_curs:	302	edit_box.draw_curs:
381	mcall 38	303	mcall 38
382	ret	304	ret
383	;----------------------------------------------------------	305	;----------------------------------------------------------
384	;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï à ¬ª¨ ----------------------------	306	;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï à ¬ª¨ ----------------------------
385	;----------------------------------------------------------	307	;----------------------------------------------------------
386	edit_box.draw_border:	308	edit_box.draw_border:
387	;--- æ¢¥â à ¬ª¨ ---	309	;--- æ¢¥â à ¬ª¨ ---
388	test word ed_flags,ed_focus	310	test word ed_flags,ed_focus
389	mov edx,ed_focus_border_color	311	mov edx,ed_focus_border_color
390	jne @f	312	jne @f
391	mov edx,ed_blur_border_color	313	mov edx,ed_blur_border_color
392	@@:	314	@@:
393	;--- á¢¥àåã ---	315	;--- á¢¥àåã ---
394	mov eax,38	316	mov eax,38
395	mov ebx,ed_left	317	mov ebx,ed_left
396	mov ecx,ebx	318	mov ecx,ebx
397	shl ebx,16	319	shl ebx,16
398	mov bx,cx	320	mov bx,cx
399	add ebx,ed_width	321	add ebx,ed_width
400	mov ecx,ed_top	322	mov ecx,ed_top
401	mov esi,ecx	323	mov esi,ecx
402	shl ecx,16	324	shl ecx,16
403	mov cx,si	325	mov cx,si
404	mcall	326	mcall
405	;--- á¨§ã ---	327	;--- á¨§ã ---
406	mov esi,ecx	328	mov esi,ecx
407	add ecx,ed_height	329	add ecx,ed_height
408	mov ebp,ecx	330	mov ebp,ecx
409	shl ecx,16	331	shl ecx,16
410	mov cx,bp	332	mov cx,bp
411	mcall	333	mcall
412	;--- á«¥¢ ---	334	;--- á«¥¢ ---
413	mov cx,si	335	mov cx,si
414	mov ebp,ebx	336	mov ebp,ebx
415	sub ebx,ed_width	337	sub ebx,ed_width
416	mcall	338	mcall
417	;--- á¯à ¢ ---	339	;--- á¯à ¢ ---
418	mov ebx,ebp	340	mov ebx,ebp
419	shl ebx,16	341	shl ebx,16
420	mov bx,bp	342	mov bx,bp
421	mcall	343	mcall
422	ret	344	ret
423	;----------------------------------------------------------	345	;----------------------------------------------------------
424	;--- ¯à®¢¥àª , § è¥« «¨ ªãàá®à § £à ¨æë ¨, ¥á«¨ ¤®, ---	346	;--- ¯à®¢¥àª , § è¥« «¨ ªãàá®à § £à ¨æë ¨, ¥á«¨ ¤®, ---
425	;--- ¨§¬¥ï¥¬ á¬¥é¥¨¥ ------------------------------------	347	;--- ¨§¬¥ï¥¬ á¬¥é¥¨¥ ------------------------------------
426	;--- ¥á«¨ á¬¥é¥¨¥ ¡ë«® ãáâ ®¢ª ä« £ ed_offset_cl ¨ ç¥	348	;--- ¥á«¨ á¬¥é¥¨¥ ¡ë«® ãáâ ®¢ª ä« £ ed_offset_cl ¨ ç¥
427	; ¥á«¨ ¨ç¥£® ¥ ¨§¬¥¨«®áì â® ¢ëáâ ¢«¥¨¥ ed_offset_fl	349	; ¥á«¨ ¨ç¥£® ¥ ¨§¬¥¨«®áì â® ¢ëáâ ¢«¥¨¥ ed_offset_fl
428	; ¢ ®¡é¥© ¡¨â®¢®© ¬ àà¨æ¥ á®áâ®ï¨ï ª®¬¯®¥â®¢ word ed_flags	350	; ¢ ®¡é¥© ¡¨â®¢®© ¬ àà¨æ¥ á®áâ®ï¨ï ª®¬¯®¥â®¢ word ed_flags
429	;----------------------------------------------------------	351	;----------------------------------------------------------
430	edit_box.check_offset:	352	edit_box.check_offset:
431	pushad	353	pushad
432	mov ecx,ed_pos	354	mov ecx,ed_pos
433	mov ebx,ed_offset	355	mov ebx,ed_offset
434	cmp ebx,ecx	356	cmp ebx,ecx
435	ja edit_box.sub_8	357	ja edit_box.sub_8
436		358
437	push ebx	359	push ebx
438	call edit_box.get_n ;¯®«ãç¨¬ ª®«-¢® á¨¬¢®«®¢ ¢ ¯ à¥ à¥£¨áâà®¢ edx:eax	360	call edit_box.get_n ;¯®«ãç¨¬ ª®«-¢® á¨¬¢®«®¢ ¢ ¯ à¥ à¥£¨áâà®¢ edx:eax
439	pop ebx	361	pop ebx
440	mov edx,ebx	362	mov edx,ebx
441	add edx,eax ;ed_offset+width editbox	363	add edx,eax ;ed_offset+width editbox
442	inc edx ;¥®¡å®¤¨¬® ¤«ï ®¬ «ì®£® ¯®«®¦¥¨ï ªãàá®à ¢ ªà ©¥© «¥¢®© ¯®§¨æ¨¨	364	inc edx ;¥®¡å®¤¨¬® ¤«ï ®¬ «ì®£® ¯®«®¦¥¨ï ªãàá®à ¢ ªà ©¥© «¥¢®© ¯®§¨æ¨¨
443	cmp edx,ecx	365	cmp edx,ecx
444	ja @f	366	ja @f
445		367
446	mov edx,ed_size	368	mov edx,ed_size
447	cmp edx,ecx	369	cmp edx,ecx
448	je edit_box.add_end	370	je edit_box.add_end
449		371
450	sub edx,ecx	372	sub edx,ecx
451	cmp edx,8	373	cmp edx,8
452	jbe edit_box.add_8	374	jbe edit_box.add_8
453	add ebx,8	375	add ebx,8
454	jmp edit_box.chk_d	376	jmp edit_box.chk_d
455		377
456	edit_box.sub_8:	378	edit_box.sub_8:
457	cmp ecx,0	379	cmp ecx,0
458	je edit_box.sub_min	380	je edit_box.sub_min
459	cmp ebx,8	381	cmp ebx,8
460	jbe edit_box.sub_min	382	jbe edit_box.sub_min
461	sub ebx,8 ;ebx=ed_offset	383	sub ebx,8 ;ebx=ed_offset
462	jmp edit_box.chk_d	384	jmp edit_box.chk_d
463	edit_box.sub_min:	385	edit_box.sub_min:
464	xor ebx,ebx	386	xor ebx,ebx
465	jmp edit_box.chk_d	387	jmp edit_box.chk_d
466		388
467	edit_box.add_end:sub edx,eax	389	edit_box.add_end:sub edx,eax
468	mov ebx,edx	390	mov ebx,edx
469	jmp edit_box.chk_d	391	jmp edit_box.chk_d
470	edit_box.add_8: add ebx,edx	392	edit_box.add_8: add ebx,edx
471	edit_box.chk_d: mov ed_offset,ebx	393	edit_box.chk_d: mov ed_offset,ebx
472	call edit_box.draw_bg	394	call edit_box.draw_bg
473	and word ed_flags,ed_offset_cl	395	and word ed_flags,ed_offset_cl
474	edit_ex	396	edit_ex
475	@@:	397	@@:
476	or word ed_flags,ed_offset_fl	398	or word ed_flags,ed_offset_fl
477	edit_ex	399	edit_ex
478	}	400	}
479		401
480	macro use_key_func	402	macro use_key_func
481	{	403	{
482	;¡à ¡®âª Shift ¤«ï áïâ¨ï ¢ë¤¥«¥¨ï ¥¨§¢¥áâ®© ®¡« áâ¨	404	;¡à ¡®âª Shift ¤«ï áïâ¨ï ¢ë¤¥«¥¨ï ¥¨§¢¥áâ®© ®¡« áâ¨
483	edit_box_key.shift: ;;;;;;;SHIFT	405	edit_box_key.shift: ;;;;;;;SHIFT
484	test word ed_flags,ed_shift	406	test word ed_flags,ed_shift
485	je edit_box_key.f_exit	407	je edit_box_key.f_exit
486		408
487	@@: mov ebp,shift_color	409	@@: mov ebp,shift_color
488	or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨	410	or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« áâ¨
489	mov ebx,dword ed_shift_pos	411	mov ebx,dword ed_shift_pos
490	call edit_box_key.sh_cl_	412	call edit_box_key.sh_cl_
491	jmp edit_box.draw_cursor_text	413	jmp edit_box.draw_cursor_text
492	;;;;;;;;;;;;;;;;;;;;;	414	;;;;;;;;;;;;;;;;;;;;;
493	edit_box_key.f_exit: call edit_box.check_offset	415	edit_box_key.f_exit: call edit_box.check_offset
494	and word ed_flags,ed_shift_cl	416	and word ed_flags,ed_shift_cl
495	call edit_box_key.enable_null	417	call edit_box_key.enable_null
496	jmp edit_box.draw_cursor_text	418	jmp edit_box.draw_cursor_text
497	edit_box_key.sh_cl_:	419	edit_box_key.sh_cl_:
498	;;;;;;SHIFT end	420	;;;;;;SHIFT end
499	;®¡à ¡®âª ®ç¨áâª¨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥¨¨ ¢ë¤¥«¥¨ï	421	;®¡à ¡®âª ®ç¨áâª¨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥¨¨ ¢ë¤¥«¥¨ï
500	;¤«ï ®¡à ¡®âª¨ áïâ¨ï ¢ë¤¥«¥¨ï	422	;¤«ï ®¡à ¡®âª¨ áïâ¨ï ¢ë¤¥«¥¨ï

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/box_lib/trunk/editbox.mac – Rev 1372 → 1432