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


; SEE YOU File FAQ.txt and HISTORY. Good Like! 
;;;;;;;;;;;;;;;;;;
include 'editbox.mac'    ;¬ ªà®á ª®â®àë© ¤®«¦¥­ ®¡«¥£ç¨âì ¦¨§­ì :) á¯¥æ¨ «ì­® ¤«ï editbox
;;;;;;;;;;;;;;;;;;
macro use_edit_box procinfo,scr_h,scr_w
{
edit_box:
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_flags        equ [edi+40]            ;ä« £¨
ed_size equ [edi+42]                    ;ª®«-¢® á¨¬¢®«®¢
ed_pos  equ [edi+46]                    ;¯®§¨æ¨ï ªãàá®à 
ed_offset       equ [edi+50]            ;á¬¥é¥­¨¥
cl_curs_x       equ [edi+54]            ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨­ â  ªãàá®à  ¯® å
cl_curs_y       equ [edi+58]            ;¯à¥¤ë¤ãé¥¥ ª®®à¤¨­ â  ªãàá®à  ¯® ã
ed_shift_pos    equ [edi+62]            ;¯®«®¦¥­¨¥ ªãàá®à 
ed_shift_pos_old equ [edi+66]           ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
;==========================================================
;=== ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ =================================
;==========================================================
.draw:
pusha
;--- à¨áã¥¬ à ¬ªã ---
        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
        je     @f
        call    .draw_cursor
@@:
        call    .draw_text
edit_ex
;==========================================================
;=== ®¡à ¡®âª  ª« ¢¨ âãàë =================================
;==========================================================
.key:
pusha
        test    word ed_flags,ed_focus ; ¥á«¨ ­¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
        je      .no_figure
;à®¢¥àª  ­ ¦ â shift ?
        call    .check_shift
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬, çâ® ­ ¦ â® --------------------------------
;----------------------------------------------------------
use_key_process  backspase,delete,left,right,home,end,insert
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; £«ãèª  ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ àã¦¥­¨¨ íâ¨å ª®¤®¢ ¯à®¨áå®¤¨â ¢ëå®¤ ¨§ ®¡à ¡®âç¨ª 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;    
use_key_no_process   up,down,esc
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;à®¢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì â®«ìª® æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥ ¥á«¨ â ª®©­¥®¡å®¤¨¬®áâ¨ ­¥â ­ã¦­® § ª®¬¥­â¨à®¢ âì ¬ ªà®á
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_key_figures_only
;¯à®¢¥àª  ­  shift
@@:     test    word ed_flags,ed_shift_on
        je      @f
        ;å®¤­ë¥ ¤ ­­ë¥ edx=ed_size;ecx=ed_pos
        push    eax
        mov     edx,ed_size
        mov     ecx,ed_pos
        pusha
;clear
;        mov     ebp,edx ;ed_size
;        call    .clear_bg
        mov     ebp,ed_color
        mov     ebx,dword       ed_shift_pos
        call    .sh_cl_
 
.sh_nxt:popa 
        call    .del_char
;;;;
        mov     eax,dword ed_shift_pos
        mov     ebx,ed_size
        sub     ebx,eax
        mov     ed_size,ebx
        pop     eax
        ; ¯à®¢¥àï¥¬, ­ å®¤¨âáï «¨ ªãàá®à ¢ ª®­æ¥
@@:     mov     ecx,ed_size
        mov     edx, ed_max
        test    word ed_flags,ed_insert
        jne     @f
        cmp     ecx,edx
        jae     .no_figure
@@:     mov     ebx, ed_pos
        cmp     ebx,edx
        jl      @f ; ¥á«¨ ¬¥­ìè¥ ¨«¨ à ¢­®
.no_figure:
edit_ex
.insert: test   word ed_flags,ed_insert ;not    word ed_insert
         je     .insert_1
         and    word ed_flags,ed_insert_cl
        jmp     .no_figure
.insert_1:
        or      word ed_flags,ed_insert
        jmp     .no_figure
.ins_v:
        dec     dword [ebp+42];ed_size    ;processing is insert
        sub     esi,ecx
        add     esi,ebx
        mov     edi,esi
;clear
pusha
        mov     edi,ebp
        mov     ebp,ed_pos
        call    .clear_bg
popa
        jmp     .In_k
@@:     ; á¤¢¨£ ¥¬ á¨¬¢®«ë ¯®á«¥ ªãàá®à  ¢¯à ¢®
        mov     ecx,ed_size
        push    edi eax
        mov     ebp,edi
        mov     esi,ed_text     ; ª § â¥«ì ­  ¡ãä¥à
                                ;ã¤¥¬ à ¡®â âì á® áâà®ª®©
        add     esi,ecx         ;add ed_size ¤®¡ ¢¨¬ max size
        mov     edi,esi
 
        cmp     ecx,ebx         ;á«¨ ã ­ á ¯®§¨æ¨ï ªãàá®à  = â¥ªãé¥¬ã à §¬¥àã ­ ¯¥ç â ­­ëå á¨¬¢®«®¢ â.¥. ªãàá®à áâ®¨â ¢ ª®­æ¥
        je      .In_k
 
        test    word [ebp+40],ed_insert ;IF insert is enable  â.ª. edi ¨§¬¥­¥­  ¤à¥áã¥¬ ç¥à¥§ ebp
        jne     .ins_v
;clear
pusha
        mov     edi,ebp
        mov     ebp,ed_size
        call    .clear_bg
popa
        sub     ecx,ebx         ; ©¤¥¬ ª®«-¢® á¨¬¢®«®¢ ¤«ï ¯¥à¥¤¢¨¦¥­¨ï.
        inc     edi             ;¬¥áâ¨¬ ­ è¨ á¨¬¢®«ë ¢ ¯à ¢®
        std
        inc     ecx
   @@:  
        ;--------
        lodsb
        stosb
        ;--------
        loop    @b
.In_k:  cld
        pop eax
        mov al,ah
        stosb
        pop edi
; ¢áâ ¢«ï¥¬ ª®¤ ª« ¢¨è¨ âã¤ , £¤¥ ªãàá®à
        ; ã¢¥«¨ç¨¢ ¥¬ §­ ç¥­¨¥ à §¬¥à  ¨ ¯®§¨æ¨¨
        inc      dword ed_size
        inc      dword ed_pos
        call    .draw_all2
        jmp     .shift;.draw_cursor_text
.delete:        
        mov     edx,ed_size
        mov     ecx,ed_pos
        cmp     edx,ecx
        jg      .bac_del
        test    word ed_flags,ed_shift_on
        jne     .del_bac
edit_ex
.bac_del:       
        call    .del_char
        jmp     .draw_all
        
;--- ­ ¦ â  ª« ¢¨è  backspace ---
.backspace:
        ; ¯à®¢¥àï¥¬, ªãàá®à ã «¥¢®£® ªà ï ?
        mov     ecx,ed_pos
        test    ecx,ecx
        jnz     .del_bac
        test    word ed_flags,ed_shift_on
        jne     .bac_del
 
edit_ex
.del_bac:
        mov     edx,ed_size
        cmp     edx,ecx ;if ed_pos=ed_size
        je      @f
        dec     ecx
        call    .del_char
@@:     test    word ed_flags,ed_shift_on
        jne     .bac_del
        dec      dword ed_pos
.draw_all:
        push    .shift;.draw_cursor_text;eax
 
        test    word ed_flags,ed_shift_on
        je      @f
        mov     eax,dword ed_shift_pos
        mov     ebx,ed_size
        sub     ebx,eax
        mov     ed_size,ebx
 
        mov     ebp,ed_color
        call    .clear_cursor
        call    .check_offset
        call    .draw_bg
        ret
@@:     dec      dword ed_size
 
.draw_all2:
        and    word ed_flags,ed_shift_cl
        mov     ebp,ed_color
        call    .clear_cursor
        call    .check_offset
        mov     ebp,ed_size
        call    .clear_bg
        ret
;--- ­ ¦ â  ª« ¢¨è  left ---
.left:  mov     ebx,ed_pos
        test    ebx,ebx
        jz      .sh_st_of
        or      word ed_flags,ed_left_fl
        call    .sh_first_sh
        dec      dword ed_pos
        call    .sh_enable
        jmp     .draw_cursor_text
;--- ­ ¦ â  ª« ¢¨è  right ---
.right: mov     ebx,ed_pos
        cmp     ebx,ed_size
        je      .sh_st_of
        and     word ed_flags,ed_right_fl
        call    .sh_first_sh
        inc     dword  ed_pos
        call    .sh_enable
        jmp     .draw_cursor_text
.home:  
        mov     ebx,ed_pos
        test    ebx,ebx
        jz      .sh_st_of
        call    .sh_first_sh
        xor     eax,eax
        mov     ed_pos,eax
        call    .sh_home_end
        jmp     .draw_cursor_text
.end:   
        mov     ebx,ed_pos
        cmp     ebx,dword ed_size
        je      .sh_st_of
        call    .sh_first_sh
        mov     eax,ed_size
        mov     ed_pos,eax
        call    .sh_home_end
        jmp     .draw_cursor_text
;==========================================================
;=== ®¡à ¡®âª  ¬ëè¨ =======================================
;==========================================================
.mouse:
pusha
;debug
;----------------------------------------------------------
;--- ¯®«ãç ¥¬ á®áâ®ï­¨¥ ª­®¯®ª ¬ëè¨ -----------------------
;----------------------------------------------------------     
        mcall   37,2
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬ á®áâ®ï­¨¥ ----------------------------------
;----------------------------------------------------------
        test    eax,1              
        jnz     .mouse_left_button
        and     word ed_flags,ed_mouse_on_off
        xor     ebx,ebx
        mov     dword [mouse_flag],ebx
edit_ex
.mouse_left_button:
;----------------------------------------------------------
;--- ¡«®ª¨à®¢ª  ®â ä®ªãá¨à®¢ª¨ ¢ ¤àã£¨å ¡®ªá å ¯à¨ ¯®¯ ¤ ­¨¨ ­  ­¨å ªãàá®à 
;----------------------------------------------------------
        mov     eax,dword [mouse_flag]
        test    eax,eax
        jz      @f
        cmp     eax,edi
        je      @f
        jmp     ._blur
;----------------------------------------------------------
;--- ¯®«ãç ¥¬ ª®®à¤¨­ âë ¬ëè¨ ®â­®á¨â¥«ì­® 0 â.¥ ¢á¥© ®¡« áâ¨ íªà ­ 
;----------------------------------------------------------
@@:     mcall   37,0
;----------------------------------------------------------
;---  ­¥ ã¤¥à¦¨¢ ¥¬ «¨ ¬ë ª« ¢¨èã ¬ëèª¨, ¯¥à¥¬¥é ï ªãàá®à, ¢® ¢á¥ à §­ë¥ áâ®à®­ë?
;----------------------------------------------------------
 
        test    word ed_flags,ed_mouse_on
        jne     .mouse_wigwag
;----------------------------------------------------------
;--- ¯à®¢¥àï¥¬, ¯®¯ ¤ ¥â «¨ ªãàá®à ¢ edit box -------------
;----------------------------------------------------------
        mov     ebx,[procinfo.box.top]
        add     ebx,ed_top
if scr_h eq 
else
        add     ebx,scr_h
end if
        cmp     ax,bx
        jl      ._blur;.mouse_end_no_focus
 
        add     ebx,ed_height
        cmp     ax,bx
        jg      ._blur;.mouse_end_no_focus
 
        shr     eax,16
 
        mov     ebx,[procinfo.box.left]
        add     ebx,ed_left
if scr_w eq 
else
        add     ebx,scr_w
end if
        cmp     ax,bx
        jl      ._blur;.mouse_end_no_focus
 
        add     ebx,ed_width
        cmp     ax,bx
        jg      ._blur;.mouse_end_no_focus
;--- ¨§¬¥­ï¥¬ ¯®§¨æ¨î ªãàá®à  ---
        push    eax
        mov     ebp,ed_color
        call    .clear_cursor
        pop     eax
._mvpos:
 
        mov     ebx,dword [procinfo.box.left]
        xor     edx,edx
        sub     eax,ed_left
        sub     eax,ebx
if scr_w eq 
else
        add     ebx,scr_w
        sub     eax,2
end if
        mov     ebx,6
        div     bx
        add     eax,ed_offset
        cmp     eax,ed_size
        jna     ._mshift
        mov     eax,ed_size
._mshift:
;;;;;;;
;;¥ªæ¨ï ®¡à ¡®âª¨ shift ¨ ¢ë¤¥«¥­¨ï ¯® shift
;;;;;;;
        test    word ed_flags,ed_shift_bac
        je      @f
        mov     ebp,dword       ed_color
        mov     ebx,dword ed_shift_pos
        push    eax
        call    .sh_cl_
        and     word ed_flags,ed_shift_bac_cl
        pop     eax
@@:     
        test    word ed_flags,ed_mouse_on
        jne     @f
        
        mov     dword ed_shift_pos,eax
        or      word  ed_flags,ed_mouse_on
        mov     dword ed_pos,eax
        mov     dword [mouse_flag],edi          ;ãáâ ­®¢¨¬ ¨¤¥­â¨ä¨ª â®à
        bts     word ed_flags,1                 ;ãáâ ­®¢ª  ä®ªãá 
        jmp     .m_sh
@@:             
        cmp     eax,dword ed_shift_pos  ;¥á«¨ ¯®§¨æ¨¨ ­¥ ¨§¬¥­¨«¨áì
        je      .mouse_ex
        mov     ed_pos,eax
        mov     ebp,dword shift_color
        mov     ebx,dword ed_shift_pos
        call    .sh_cl_
        or      word ed_flags,ed_mous_adn_b     ;ãáâ ­®¢¨¬ ¡¨â çâ® ¬ë ¢ë¤¥«¨«¨ +shift_on +
.m_sh:  call    .draw_text
        call    .draw_cursor
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  ãáâ ­®¢ª¨ ä®ªãá  ---------------------------
;----------------------------------------------------------
        jmp     .drc
._blur:
        test    word ed_flags,ed_always_focus
        jne     .mouse_ex
        btr     word ed_flags,1 ; ¥á«¨ ­¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
        jnc     .mouse_ex
 
        mov     ebp,ed_color
        call    .clear_cursor
.drc:   call    .draw_border
.mouse_ex:
 
edit_ex
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¡é¨¥ äã­ªæ¨¨ ®¡à ¡®âª¨ 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_general_func
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ã­ªæ¨¨ ¤«ï à ¡®âë á key
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_key_func
;----------------------------------------------------------
;--- ¯à®æ¥¤ãà  à §¬ë¢ ­¨ï ä®ªãá  --------------------------
;----------------------------------------------------------
;.blur:
;pusha
;._blur:
        ;btr     ed_flags,1
        ;jnc     @f
        ;call    .draw_border
        ;call    .clear_cursor
;@@:
;edit_ex
 
;----------------------------------------------------------
;--- ¡à ¡®âª  .mouse_wigwag
;----------------------------------------------------------
.mouse_wigwag:
        shr     eax,16
        or      word ed_flags,ed_shift_bac+ed_shift_on+ed_shift
;;;;;;;;;;;;;;;;;;
;;¯à®æ¥¤ãà  ®¡à ¡®âª¨ ¯®«®¦¥­¨ï ¢ë¤¥«¥­­®£® â¥ªáâ , ª®£¤  ¯à®¨áå®¤¨â ¢ëå®¤ §  ¯à¥¤¥«ë editbox
;;;;;;;;;;;;;;;;;;
        mov     ebx,[procinfo.box.left]
 
        add     ebx,ed_left
if scr_w eq 
else
        add     ebx,scr_w
end if
        cmp     eax,ebx
        jb      .mleft
 
        add     ebx,ed_width
        cmp     eax,ebx
        ja      .mright 
 
        sub     ebx,ed_width
 
        xor     edx,edx
        sub     eax,ebx ; ¢ëçâ¨¬ ¨§ ª®®à¤¨­ â ¬ëèª¨ ¯® ®á¨ å ª®®à¤¨­ âë ¤® editbox ¯® ®á¨ å
        mov     ebx,6
        div     ebx
;;;;;;;;;;;;;;;;;;
;;¯à®æ¥¤ãà  ®¡à ¡®âª¨ ¯®«®¦¥­¨ï ¢ë¤¥«¥­­®£® â¥ªáâ , ¢ ¯à¥¤¥« å ®¡« áâ¨ editbox
;;;;;;;;;;;;;;;;;;
;®«ãç¨«¨ ª®®à¤¨­ âë ¢ eax ¬ëèª¨, â.¥. ªã¤  ®­  ¯¥à¥¬¥áâ¨« áì
;¨á®¢ ­¨¥ § ªà è¥­ëå ¯àï¬®ã£®«ì­¨ª®¢ ¨ ®ç¨áâª  ¨å
        add     eax,ed_offset   ;¤®¡ ¢¨¬ á¬¥é¥­¨¥
        cmp     eax,dword ed_size       ;¥á«¨ ¢ëè«¨ §  ¯à¥¤¥«ë, â® ­¨ç¥£® ­¥ ¤¥« âì
        ja      .mwigvag
.mdraw: 
        mov     dword   ed_pos,eax ;á®åà ­¨¬ ­®¢®¥ §­ ç¥­¨¥
;¨á®¢ ­¨¥ § ªà è¥­ëå ¯àï¬®ã£®«ì­¨ª®¢ ¨ ®ç¨áâª  ¨å
        mov     ecx,dword       ed_shift_pos
        mov     ebx,dword       ed_shift_pos_old
        mov     dword   ed_shift_pos_old,eax    ;¢­¥á¥¬ ­®¢®¥ §­ ç¥­¨¥ áâ à®© ¯®§¨æ¨¨ ªãàá®à 
;¯à®¢¥àª  ¨ à¨á®¢ ­¨¥ § ªà è¥­ëå ®¡« áâ¥©
        cmp     ecx,ebx         ;¢ëïá­ï¥¬ ªã¤  ¡ë«® ¤¢¨¦¥­¨¥ ­  ®¤¨­ è £ ­ § ¤
        je      .m1_shem        ;¤¢¨¦¥­¨ï ­¥ ¡ë«® à ­¥¥ 
        jb      .msmaller       ;¤¢¨¦¥­¨¥ ¡ë«® ->
        cmp     ebx,eax         ;¤¢¨¦¥­¨¥ ¡ë«® ¤® íâ®£® <- ¨ âãâ ¬ë ¯à®¢¥àï¥¬ á¥©ç á ªã¤  ¤¢¨¦¥­¨¥ ¯à®¨áå®¤¨â
        ja      .m1_shem        ;¥á«¨ ¡ë«® ¤¢¨¦¥­¨¥ <- â® ­ã¦­® § ªà á¨âì ®¡« áâì
        je      .mwigvag        ;¥á«¨ ¨§¬¥­¥­¨ï ­¥ ¡ë«®, â® ­¨ç¥£® ­¥ ¤¥« âì
        mov     ebp,ed_color    ;âãâ ­ã¦­® ®ç¨áâ¨âì ®¡« áâì c ed_pos ed_shift_pos_old
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        call    .sh_cl_
        jmp     .mwigvag
.msmaller:
        cmp     ebx,eax
        jb      .m1_shem
        mov     ebp,ed_color
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        call    .sh_cl_
        jmp     .mwigvag
;alike  =
.m1_shem: 
        mov     ebp,shift_color
;¢å®¤­ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos
        mov     ebx,ecx
        call    .sh_cl_
        jmp     .mwigvag
.mwigvag:
        and     word ed_flags,ed_shift_mcl
        jmp     .draw_cursor_text
;       popa
;       ret
.mleft:
        mov     eax,ed_pos
        cmp     eax,0                                        
        jbe      .mwigvag
        dec     eax
        call    .check_offset
        push    eax
        mov     ebx,ed_shift_pos
        mov     ebp,shift_color
        call    .sh_cl_
        pop     eax
        jmp     .mdraw
.mright:
        mov     eax,ed_pos
        mov     ebx,ed_size
        cmp     eax,ebx
        jae     .mwigvag
        inc     eax
        call    .check_offset
        mov     ebx,ed_shift_pos
        mov     ebp,shift_color
        push    eax
        call    .sh_cl_
        pop     eax
        jmp     .mdraw  
 
}
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 draw_edit_boxes start,_end,use_f9,procinfo
{
if use_f9 eq 
else
        mcall   9,procinfo,-1
end if
        mov     edi,start
        mov     ecx,((_end-start)/ed_struc_size)
@@:
        call    edit_box.draw
        add     edi,ed_struc_size
        loop    @b
}
 
macro mouse_edit_boxes start,_end
{
        mov     edi,start
        mov     ecx,((_end-start)/ed_struc_size)
@@:
        call    edit_box.mouse
        add     edi,ed_struc_size
        loop    @b
}
 
macro key_edit_boxes start,end
{
        mov     edi,start
        mov     ecx,((end-start)/ed_struc_size)
@@:
        call    edit_box.key
        add     edi,ed_struc_size
        loop    @b
}
ed_struc_size=70
struc  edit_box width,left,top,color,shift_color,focus_border_color,\
       blur_border_color,text_color,max,text,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
.flags dw 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
}
 
 
macro edit_boxes_set_sys_color start,end,color_table
{
        mov     edi,start
        mov     ecx,((end-start)/ed_struc_size)
        mov     esi,color_table
@@:
        mov     eax,[esi+36]
        mov     ebx,[esi+20]
        mov     ed_focus_border_color,eax
        shr     bh,1
        shr     bl,1
        shr     ah,1
        shr     al,1
        add     ah,bh
        add     al,bl
        ror     eax,16
        ror     ebx,16
        shr     bl,1
        shr     al,1
        add     al,bl
        ror     eax,16
        mov     ed_blur_border_color,eax
        add     edi,ed_struc_size
        loop    @b
}
 
macro draw_edit_box ed_ptr,use_f9,procinfo
{
if use_f9 eq 
else
        mcall   9,procinfo,-1
end if
        mov     edi,ed_ptr
        call    edit_box.draw
}
 
macro mouse_edit_box ed_ptr
{
        mov     edi,ed_ptr
        call    edit_box.mouse
}
 
macro key_edit_box ed_ptr
{
        mov     edi,ed_ptr
        call    edit_box.key
}
macro default_box ed_ptr
{
pusha
;       xor     eax,eax
;       mov     ed_shift_pos,eax
;       mov     ed_shift_pos_old,eax
        and     word ed_flags,ed_shift_cl
;       mov     ed_offset,eax
popa
}

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

Subversion Repositories Kolibri OS

(root)/programs/develop/examples/editbox/trunk/EDITBOX.INC – Rev 483 → 491