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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Basic macros for use editbox                             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
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
 
;--------------------------------------
; this code for Win-keys, works with
; kernel SVN r.3356 or later
	push	eax
	push	ebx
	mcall	66,3
	test	ax,0x200	; LWin
	jnz	.win_key_pressed
	test	ax,0x400	; RWin
	jz	@f
.win_key_pressed:
	pop	ebx
	pop	eax
	jmp	edit_box.editbox_exit
@@:
	pop	ebx
	pop	eax
;--------------------------------------
;à®¢¥àª  ­ ¦ â shift ?
        call    edit_box_key.check_shift
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬, çâ® ­ ¦ â® --------------------------------
;----------------------------------------------------------
        cmp     ah,8
        jz      edit_box_key.backspace
        cmp     ah,0xb6
        jz      edit_box_key.delete
        cmp     ah,176
        jz      edit_box_key.left
        cmp     ah,179
        jz      edit_box_key.right
        cmp     ah,180
        jz      edit_box_key.home
        cmp     ah,181
        jz      edit_box_key.end
        cmp     ah,185  ;insert
        jz      edit_box_key.insert
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; £«ãèª  ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ àã¦¥­¨¨ íâ¨å ª®¤®¢ ¯à®¨áå®¤¨â ¢ëå®¤ ¨§ ®¡à ¡®âç¨ª 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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.backspace,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
		test    word ed_flags,ed_pass
		jz      @f
		call    edit_box.draw_password
		jmp     .end_f
@@:
        mcall
.end_f:
ret
 
txt_pass db '*',0
 
proc edit_box.draw_password
locals
	s_len dw ? ;¤«¨­  ¢ë¢®¤¨¬®£® â¥ªáâ 
endl
	cmp esi,1
	jl .end_f ;¥á«¨ áâà®ª  ¯ãáâ ï
	mov [s_len],si
	xor esi,esi
	inc esi
	lea edx,[txt_pass]
@@:
	mcall
	add ebx,6 shl 16 ;¤®¡ ¢«ï¥¬ áâ ­¤ àâ­ãî è¨à¨­ã á¨¬¢®« 
	dec word[s_len]
	cmp word[s_len],0
	jg @b
.end_f:
ret
endp
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ ä®­  ----------------------------
;¢å®¤­ë¥ ¤ ­­ë¥
;eax
;edx - color
;----------------------------------------------------------
 
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
;¢å®¤ â®«ìª® æ¢¥â edx
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:
	test    ecx,ecx
        jz      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
 
align 4
proc edit_box_set_text, edit:dword, text:dword
pushad
	mov edi,dword[edit]
	mov ecx,ed_max
	inc ecx ;ãç¨âë¢ ¥¬ ¡ã¤ãé¥¥ ®¡à¥§ ­¨¥ áâà®ª¨ ¤«ï ascii 0
	mov edi,dword[text]
	xor al,al
	cld
	repne scasb ;¯®¨áª ¢ áâà®ª¥ edi á¨¬¢®«  al
	mov ecx,edi ;ecx = text + ¬¨­. §­ ç¥­¨¥ ¨§: 1) ed_max ¨«¨ 2) ¤«¨­ë áâà®ª¨ text
 
	mov edi,dword[edit]
	mov esi,dword[text]
	sub ecx,esi ;ecx = ¤«¨­  áâà®ª¨ text (­® ­¥ ¡®«ìè¥ ç¥¬ ed_max)
	dec ecx
	mov ed_size,ecx ;áâ ¢¨¬ ­®¢ë© à §¬¥à áâà®ª¨
	mov ed_pos,ecx ;áâ ¢¨¬ ªãàá®à ¢ ª®­¥æ ­®¢®© áâà®ª¨
	and word ed_flags,ed_shift_cl ;á­¨¬ ¥¬ ¢ë¤¥«¥­¨¥ ¥á«¨ ®­® ¡ë«®
	mov edi,ed_text
	repne movsb ;ª®¯¨à®¢ ­¨¥ â¥ªáâ®¢®© áâà®ª¨ text ¢ edit_box
	mov byte[edi],0 ;áâ ¢¨¬ ascii 0 ¢ ª®­æ¥ áâà®ª¨
popad
ret
endp
}
 
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.draw_bg
	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 not optimal
 
        pop     eax     ;ed_pos
        mov     ecx,ed_offset
        sub     eax,ecx
edit_box_key.nxt:
        mov     ebp,eax  ;¯à®¢¥àª  ­  ¢ëå®¤ § ªà è¨¢ ¥¬®© ®¡« áâ¨ §  ¯à¥¤¥«ë ¤«¨­ë
        add     ebp,ebx
        pop     edx
        cmp     ebp,edx
        je      @f
        inc     ebx
 
@@:     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_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     ebx,ed_size
        sub     ebx,dword ed_shift_pos
        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 enabled  â.ª. 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:
        test    word ed_flags,ed_shift_on
        jne     edit_box_key.delete
        ; ¯à®¢¥àï¥¬, ªãàá®à ã «¥¢®£® ªà ï?
        mov     ecx,ed_pos
        test    ecx,ecx
        jnz     edit_box_key.del_bac
        popad
        ret     4
 
edit_box_key.del_bac:
        mov     edx,ed_size
        cmp     edx,ecx ;if ed_pos=ed_size
        je      @f
        dec     ecx
        call    edit_box_key.del_char
@@:     test    word ed_flags,ed_shift_on
        jne     edit_box_key.bac_del
        dec      dword ed_pos
edit_box_key.draw_all:
        push    edit_box_key.shift;.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

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

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/box_lib/trunk/editbox.asm @ 9568 – Rev 3130 → 3358