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

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/box_lib/trunk/editbox.mac – Rev 1216 → 1228