| /programs/develop/examples/editbox/trunk/EDITBOX.INC |
|---|
| 2,7 → 2,7 |
| ;;;;;;;;;;;;;;;;;; |
| include 'editbox.mac' ;¬ ªà®á ª®â®àë© ¤®«¦¥ ®¡«¥£ç¨âì ¦¨§ì :) á¯¥æ¨ «ì® ¤«ï editbox |
| ;;;;;;;;;;;;;;;;;; |
| macro use_edit_box structure_of_potock,scr_h,scr_w |
| macro use_edit_box procinfo,scr_h,scr_w |
| { |
| edit_box: |
| ed_width equ [edi] ;è¨à¨ ª®¬¯®¥â |
| 46,210 → 46,6 |
| @@: |
| call .draw_text |
| edit_ex |
| ;debug_func |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ¢ë¤¥«¥®© ç á⨠----------------- |
| ;---------------------------------------------------------- |
| .draw_shift: |
| test word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« á⨠|
| jz @f |
| mov ebp,shift_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| @@: ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ⥪áâ -------------------------- |
| ;---------------------------------------------------------- |
| .draw_text: |
| ;--- ¢ëç¨á«ï¥¬, ᪮«ìª® ¯®¬¥é ¥âáï ᨬ¢®«®¢ --- |
| ;--- çâ®¡ë ¬ãá®à ¥ à¨á®¢ âì --- |
| call .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 |
| mov bx,ed_top |
| add ebx,4 |
| mov ecx,ed_text_color |
| add edx,ed_text |
| int 0x40 |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ä® ---------------------------- |
| ;¢å®¤ë¥ ¤ ë¥ |
| ;eax |
| ;edx - color |
| ;---------------------------------------------------------- |
| ;¢å®¤ ⮫쪮 梥â edx |
| .draw_bg: |
| mov ebx,ed_left |
| add ebx,1 |
| shl ebx,16 |
| mov bx,ed_width |
| sub ebx,1 |
| mov edx,ed_color |
| .draw_bg_eax: |
| mov ecx,ed_top |
| mov eax,13 |
| add ecx,1 |
| shl ecx,16 |
| mov cx,ed_height |
| dec ecx |
| int 0x40 |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯®«ãç¥¨ï ª®«¨ç¥á⢠ᨬ¢®«®¢ ¢ ⥪ã饩 é¨à¨¥ ª®¬¯®¥â -------------- |
| ;---------------------------------------------------------- |
| .get_n: |
| mov eax,ed_width ;¯®«ã祬 è¨à¨ã ª®¬¯®¥â |
| xor edx,edx ;१ã«ìâ â à ᯮ«®£ ¥âáï ¢ ¯ ॠedx:eax ¢ eax - ®áâ ⮪ |
| sub eax,4 ;¢ëç⨬ 4 |
| mov ebx,6 ;§ £à㧬¨ ¤¥«¨â¥«ì |
| div ebx ;à §¬¤¥«¨¬ 6 |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à -------------------------- |
| ;---------------------------------------------------------- |
| ;¢å®¤ë¥ ebp- 梥â |
| .clear_cursor: |
| mov edx,ebp |
| mov ebx,cl_curs_x |
| mov ecx,cl_curs_y |
| jmp .draw_curs |
| .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 bx,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 cx,ed_height-4 |
| mov cl_curs_x,ebx |
| mov cl_curs_y,ecx |
| .draw_curs: |
| mov eax,38 |
| int 0x40 |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï à ¬ª¨ ---------------------------- |
| ;---------------------------------------------------------- |
| .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 bx,ed_width |
| mov ecx, ed_top |
| mov esi,ecx |
| shl ecx,16 |
| mov cx,si |
| int 0x40 |
| ;--- ᨧã --- |
| mov esi,ecx |
| add ecx,ed_height |
| mov ebp,ecx |
| shl ecx,16 |
| mov cx,bp |
| int 0x40 |
| ;--- á«¥¢ --- |
| mov cx,si |
| mov ebp,ebx |
| sub bx,ed_width |
| int 0x40 |
| ;--- á¯à ¢ --- |
| mov ebx,ebp |
| shl ebx,16 |
| mov bx,bp |
| int 0x40 |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥àª , § 襫 «¨ ªãàá®à § £à ¨æë ¨, ¥á«¨ ¤®, --- |
| ;--- ¨§¬¥ï¥¬ ᬥ饨¥ ------------------------------------ |
| ;--- eax = -1, ¥á«¨ ¥ ¨§¬¥¨«®áì ¨«¨ eax = 0, ¥á«¨ |
| ; ¨§¬¥¨«®áì |
| ;---------------------------------------------------------- |
| .check_offset: |
| pusha |
| mov ecx,ed_pos |
| mov ebx,ed_offset |
| cmp ebx,ecx |
| ja .sub_8 |
| push ebx |
| call .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 .add_end |
| sub edx,ecx |
| cmp edx,8 |
| jbe .add_8 |
| add ebx,8 |
| jmp .chk_d |
| .sub_8: cmp ecx,0 |
| je .sub_min |
| cmp ebx,8 |
| jbe .sub_min |
| sub ebx,8 ;ebx=ed_offset |
| jmp .chk_d |
| .sub_min: |
| xor ebx,ebx |
| jmp .chk_d |
| .add_end:sub edx,eax |
| mov ebx,edx |
| jmp .chk_d |
| .add_8: add ebx,edx |
| .chk_d: mov ed_offset,ebx |
| call .draw_bg |
| and word ed_flags,ed_offset_cl |
| edit_ex |
| @@: |
| or word ed_flags,ed_offset_fl |
| edit_ex |
| ;========================================================== |
| ;=== ®¡à ¡®âª ª« ¢¨ âãàë ================================= |
| ;========================================================== |
| 256,42 → 52,22 |
| .key: |
| pusha |
| test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬ |
| je @b |
| ;஢¥àª ¦ âë shift |
| je .no_figure |
| ;஢¥àª ¦ â shift ? |
| call .check_shift |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥à塞, çâ® ¦ â® -------------------------------- |
| ;---------------------------------------------------------- |
| cmp ah,8 |
| jz .backspace |
| cmp ah,0xb6 |
| jz .delete |
| cmp ah,176 |
| jz .left |
| cmp ah,179 |
| jz .right |
| cmp ah,180 |
| jz .home |
| cmp ah,181 |
| jz .end |
| cmp ah,185 ;insert |
| jz .insert |
| use_key_process backspase,delete,left,right,home,end,insert |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ; £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ |
| ; £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ â.¥. ¯à¨ ®¡ à㦥¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪 |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| cmp ah,177 |
| jz .no_figure |
| cmp ah,178 |
| jz .no_figure |
| cmp ah,27 ;ESC - ª« ¢¨è )) |
| jz .no_figure |
| use_key_no_process up,down,esc |
| ;--- ¦ â ¤àã£ ï ª« ¢¨è --- |
| test word ed_flags,ed_figure_only ; ⮫쪮 æ¨äàë ? |
| jz @f |
| cmp ah,'0' |
| jb .no_figure |
| cmp ah,'9' |
| ja .no_figure |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;஢¥àª ãáâ ®¢«¥ «¨ ä« £ ¯à¨ ª®â®à®¬ 㦮 ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ 㦮¬ ¡®ªá¥ ¥á«¨ â ª®©¥®¡å®¤¨¬®á⨠¥â 㦮 § ª®¬¥â¨à®¢ âì ¬ ªà®á |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| use_key_figures_only |
| ;¯à®¢¥àª shift |
| @@: test word ed_flags,ed_shift_on |
| je @f |
| 301,8 → 77,8 |
| mov ecx,ed_pos |
| pusha |
| ;clear |
| mov ebp,edx ;ed_size |
| call .clear_bg |
| ; mov ebp,edx ;ed_size |
| ; call .clear_bg |
| mov ebp,ed_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| 479,349 → 255,6 |
| mov ed_pos,eax |
| call .sh_home_end |
| jmp .draw_cursor_text |
| ;¡à ¡®âª Shift ¤«ï áïâ¨ï ¢ë¤¥«¥¨ï ¥¨§¢¥á⮩ ®¡« á⨠|
| .shift: ;;;;;;;SHIFT |
| test word ed_flags,ed_shift |
| je .f_exit |
| @@: mov ebp,shift_color |
| or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« á⨠|
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| jmp .draw_cursor_text |
| ;;;;;;;;;;;;;;;;;;;;; |
| .f_exit:call .check_offset |
| and word ed_flags,ed_shift_cl |
| call .enable_null |
| jmp .draw_cursor_text |
| .sh_cl_: |
| ;;;;;;SHIFT end |
| ;®¡à ¡®âª ®ç¨á⪨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥¨¨ ¢ë¤¥«¥¨ï |
| ;¤«ï ®¡à ¡®âª¨ áïâ¨ï ¢ë¤¥«¥¨ï |
| ;¢å®¤ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos |
| mov eax,dword ed_pos |
| cmp eax,ebx |
| jae .sh_n |
| push eax ;¬¥ì襥 ¢ eax |
| push ebx ;¡®«ì襥 |
| jmp .sh_n1 |
| ;¥á«¨ ¨ ç¥ |
| .sh_n: push ebx |
| push eax |
| .sh_n1: |
| call .check_offset |
| call .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 .f_f ;¥á«¨ ¡®«ìè¥ |
| xor eax,eax |
| cmp edx,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ì訬 |
| jb @f |
| sub ebx,ecx |
| jmp .nxt_f |
| @@: mov ebx,edx |
| sub ebx,ecx |
| jmp .nxt_f |
| .f_f: |
| sub eax,ecx |
| cmp edx,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ì訬 |
| jle @f |
| sub ebx,ecx |
| sub ebx,eax |
| jmp .nxt_f |
| @@: |
| mov ebx,edx |
| sub ebx,ecx |
| sub ebx,eax |
| .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 .draw_bg_eax |
| @@: call .enable_null |
| ret |
| ;;;;;;;;;;;;;;;;;;;;; |
| ;áâ ®¢ª - áï⨥ ¢ë¤¥«¥¨ï ¢ ®¤¨ ᨬ¢®« |
| ;;;;;;;;;;;;;;;;;;;;; |
| .drw_sim: |
| mov eax,dword ed_pos |
| call .draw_rectangle ; à¨á®¢ âì ¯àאַ㣮«ì¨ª á § ¤ ë¬ æ¢¥â®¬ |
| jmp @b |
| ;;;;;;;;;;;;;;;;;;;;; |
| ;ãªæ¨ï ãáâ ®¢ª¨ ¢ë¤¥«¥¨ï ¯à¨ ¤¢¨¦¥¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ¦ ⨨ shift |
| ;®£¨ª : |
| ;;;;;;;;;; |
| .draw_wigwag: |
| ;äãªæ¨ï ãáâ ®¢ª¨ ¯¥à¥¬¥ëå |
| mov ebp,shift_color |
| call .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 .low |
| jmp @f |
| ;;;;;;;;;; |
| ;ãªæ¨ï 㤠«¥¨ï ¢ë¤¥«¥¨ï ¯à¨ ¤¢¨¦¥¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ¦ ⨨ shift |
| ;®£¨ª : |
| ;;;;;;;;;; |
| .draw_wigwag_cl: |
| ;äãªæ¨ï ãáâ ®¢ª¨ ¯¥à¥¬¥ëå |
| mov ebp,ed_color |
| call .clear_cursor |
| mov ebp,ed_color |
| mov eax,dword ed_pos |
| test word ed_flags,ed_left_fl |
| jz .low |
| @@: call .draw_rectangle ; à¨á®¢ âì ¯àאַ㣮«ì¨ª § ªà 訢 ¥¬®© ®¡« á⨠|
| ret |
| .low: dec eax |
| jmp @b |
| ;¢å®¤®© ¯ à ¬¥âà ebx - ed_pos |
| .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 |
| ;¨ ç¥ ¢®®¡é¥ ¢ë室¨â |
| .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 .sh_cl_ ;®ç¨á⪠¢ë¤¥«¥®£® äà £¬¥â |
| and word ed_flags,ed_shift_cl ; ®ç¨á⪠®â ⮣® çâ® ã¡à «¨ ¢ë¤¥«¥¨¥ |
| jmp .draw_cursor_text |
| @@: |
| and word ed_flags,ed_shift_off |
| edit_ex |
| ;¯à®¢¥àª á®áâ®ï¨ï shift ¡ë« «¨ ® ¦ â à ìè¥? |
| .sh_enable: |
| test word ed_flags,ed_shift |
| jne .sh_ext_en ; à¨á®¢ âì § ªà è¥ë© ¯àאַ㣮«ì¨ª |
| test word ed_flags,ed_shift_bac |
| je @f |
| call .check_offset |
| mov ebp,ed_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ ;®ç¨á⪠¢ë¤¥«¥®£® äà £¬¥â |
| call .draw_wigwag_cl |
| and word ed_flags,ed_shift_cl ; 1¢ à ¥ 㦮 |
| ret |
| @@: mov ebp,ed_color |
| call .clear_cursor |
| call .check_offset |
| ret |
| .sh_ext_en: |
| call .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 .1_shem |
| jb .smaller |
| cmp ecx,ebx |
| ja .1_shem |
| call .draw_wigwag_cl ;clear |
| jmp .sh_e_end |
| .smaller: |
| cmp ecx,ebx |
| jb .1_shem |
| call .draw_wigwag_cl ;clear |
| jmp .sh_e_end |
| ;alike = |
| .1_shem: call .draw_wigwag |
| .sh_e_end: and word ed_flags,ed_shift_off |
| ret |
| @@: mov ebp,shift_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| jmp .sh_e_end |
| ;äãªæ¨ï ¤«ï ®¡à ¡®âª¨ shift ¯à¨ ¦ ⨨ home and end |
| .sh_home_end: |
| mov ebp,ed_color |
| call .clear_cursor |
| test word ed_flags,ed_shift_bac |
| je @f |
| mov ebp,ed_color |
| mov ebx,dword ed_shift_pos_old |
| call .sh_cl_ |
| @@: test word ed_flags,ed_shift |
| je .sh_exit_ ;¢ë©â¨ |
| mov ebp,shift_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« á⨠|
| jmp .sh_e_end |
| .sh_exit_: call .check_offset |
| ret |
| ;äãªæ¨ï ¢¥á¥¨ï 0 ¯® ¤à¥áã ed_size+1 |
| .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 |
| .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 .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 .del_ch_sh |
| ;¥á«¨ ¨ ç¥ |
| .dh_n: |
| mov ebp,eax |
| sub ebp,ecx |
| add ebx,ecx |
| sub edx,eax |
| add esi,eax |
| mov dword ed_shift_pos,ebp |
| jmp .del_ch_sh |
| @@: add esi,ecx ;㪠§ ⥫ì + ᬥ饨¥ ª ॠ«ì®¬ã ¡ãää¥àã |
| mov ebx,esi |
| inc esi |
| cld |
| sub edx,ecx |
| .del_ch_sh: |
| push edi |
| mov edi,ebx |
| @@: |
| lodsb |
| stosb |
| dec edx |
| jns @b |
| pop edi |
| ret |
| ;¢ëç¨á«¨âì § ªà 訢 ¥¬ãî ®¡« áâì |
| ;ᮣ« 襨¥ ¢ ebp - ¯¥à¥¤ ¥âáï ed_size |
| .clear_bg: |
| call .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 .nxt |
| @@: mov ebx,ed_pos |
| push ebx |
| sub eax,ebx |
| mov ebx,eax ;It is don't optimal |
| pop eax ;ed_pos |
| mov ecx,ed_offset |
| sub eax,ecx |
| .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 .draw_bg_eax |
| ret |
| ;;;;;;;;;;;;;;;;;;; |
| ;;; ¡à ¡®âª ¯à¨¬¨â¨¢®¢ |
| ;;;;;;;;;;;;;;;;;;;; |
| ; à¨á®¢ âì ¯àאַ㣮«ì¨ª, 梥⠯¥à¥¤ ¥âáï ¢ ebp |
| ;¢å®¤ë¥ ¯ à ¬¥âàë: |
| ;eax=dword ed_pos |
| ;ebp=-梥â ed_color or shift_color |
| .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 |
| mov bx,6 |
| mov edx,ebp |
| call .draw_bg_eax |
| ret |
| ;;;;;;;;;;;;;;;;;; |
| ;;஢¥àª ¦ â «¨ shift |
| ;;;;;;;;;;;;;;;;;; |
| .check_shift: |
| pusha ;á®åà ¨¬ ¢á¥ ॣ¨áâàë |
| mcall 66,3,1 |
| test al,0x03 |
| je @f |
| or word ed_flags,ed_shift ;ãáâ ®¢¨¬ ä« £ |
| @@:edit_ex |
| ;========================================================== |
| ;=== ®¡à ¡®âª ¬ëè¨ ======================================= |
| ;========================================================== |
| 858,7 → 291,7 |
| ;---------------------------------------------------------- |
| ;--- ¥ 㤥ন¢ ¥¬ «¨ ¬ë ª« ¢¨èã ¬ë誨, ¯¥à¥¬¥é ï ªãàá®à, ¢® ¢á¥ à §ë¥ áâ®à®ë? |
| ;---------------------------------------------------------- |
| mov ecx,structure_of_potock |
| mov ecx,procinfo |
| test word ed_flags,ed_mouse_on |
| jne .mouse_wigwag |
| ;---------------------------------------------------------- |
| 897,7 → 330,7 |
| call .clear_cursor |
| pop eax |
| ._mvpos: |
| mov ecx,structure_of_potock |
| mov ecx,procinfo |
| mov ebx,dword [ecx+34] |
| xor edx,edx |
| sub eax,ed_left |
| 961,6 → 394,14 |
| .mouse_ex: |
| edit_ex |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;¡é¨¥ äãªæ¨¨ ®¡à ¡®âª¨ |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| use_general_func |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;ãªæ¨¨ ¤«ï à ¡®âë á key |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| use_key_func |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à §¬ë¢ ¨ï 䮪ãá -------------------------- |
| ;---------------------------------------------------------- |
| 983,7 → 424,7 |
| ;;;;;;;;;;;;;;;;;; |
| ;;¯à®æ¥¤ãà ®¡à ¡®âª¨ ¯®«®¦¥¨ï ¢ë¤¥«¥®£® ⥪áâ , ª®£¤ ¯à®¨á室¨â ¢ë室 § ¯à¥¤¥«ë editbox |
| ;;;;;;;;;;;;;;;;;; |
| mov ecx,structure_of_potock |
| mov ecx,procinfo |
| mov ebx,dword [ecx+34] |
| add ebx,ed_left |
| if scr_w eq |
| 1095,11 → 536,11 |
| ed_mous_adn_b= 100011000b |
| ed_mouse_on_off=1111111011111111b |
| ed_height=14 ; ¢ëá®â |
| macro draw_edit_boxes start,_end,use_f9,structure_of_potock |
| macro draw_edit_boxes start,_end,use_f9,procinfo |
| { |
| if use_f9 eq |
| else |
| mcall 9,structure_of_potock,-1 |
| mcall 9,procinfo,-1 |
| end if |
| mov edi,start |
| mov ecx,((_end-start)/ed_struc_size) |
| 1179,11 → 620,11 |
| loop @b |
| } |
| macro draw_edit_box ed_ptr,use_f9,structure_of_potock |
| macro draw_edit_box ed_ptr,use_f9,procinfo |
| { |
| if use_f9 eq |
| else |
| mcall 9,structure_of_potock,-1 |
| mcall 9,procinfo,-1 |
| end if |
| mov edi,ed_ptr |
| call edit_box.draw |
| /programs/develop/examples/editbox/trunk/FAQ.txt |
|---|
| 1,6 → 1,6 |
| Ïîñäåäíàÿ ìîäèôèêàöèÿ |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;;;Ñòðóêòóðíîå îïèñàíèå âîçìîæíîñòè êîìïîåíòà è ìîäåëåé åãî èñïîëüçîâàíèÿ. |
| ;;;Ñòðóêòóðíîå îïèñàíèå âîçìîæíîñòè êîìïîíåòà è ìîäåëåé åãî èñïîëüçîâàíèÿ. |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| Íàïèøèòå â èñõîäíîì êîäå ñâîåé ïðîãðàììû use_edit_box, |
| ýòî âñòàâèò íåîáõîäèìûå ïðîöåäóðû â êîä âàøåé ïðîãðàììû. |
| 43,7 → 43,7 |
| *********** |
| use_edit_box |
| äàííûé ìàêðîñ âñòàâëÿåò îáùèé êîä editbox |
| structure_of_potock - óêàçàòåëü íà èíôîðìàöèîííóþ ñòðêòóðó 9 ôóíöèè - îáÿçàòåëüíûé ïàðàìåòð |
| procinfo - óêàçàòåëü íà èíôîðìàöèîííóþ ñòðêòóðó 9 ôóíöèè - îáÿçàòåëüíûé ïàðàìåòð |
| Åñëè âû èñïîëüçóåòå ïðè ïðîðèñîâêå îêíà |
| mcall 0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed |
| 79,9 → 79,9 |
| Ïåðåäàâàåìûå ïàðàìåòðû |
| editboxes - óêàçàòåëü íà èíôîðìàöèîííóþ ñòðóêóðó áîêñîâ |
| editboxes_end - êîíåö èíôîðìàöèîííîé ñòðóêòóðû áîêñîâ |
| use_f9 è structure_of_potock - ïðè ïåðåäà÷å ýòîãî ïàðàìåòðà - ïðè ïåðåðèñîâêè áîêñîâ áóäåò èñïîëçîâàíà ôóíöèÿ |
| mcall 9,structure_of_potock,-1 |
| êîòîðàÿ ïîëó÷àåò äàííûå î îêíå è ñêëàäûâàåò ïàðàìåòðû ïî àäðåñó structure_of_potock- åãî òî æå îáÿçàòåëüíî íóæíî ïåðåäàâàòü!!!! |
| use_f9 è procinfo - ïðè ïåðåäà÷å ýòîãî ïàðàìåòðà - ïðè ïåðåðèñîâêè áîêñîâ áóäåò èñïîëçîâàíà ôóíöèÿ |
| mcall 9,procinfo,-1 |
| êîòîðàÿ ïîëó÷àåò äàííûå î îêíå è ñêëàäûâàåò ïàðàìåòðû ïî àäðåñó procinfo- åãî òî æå îáÿçàòåëüíî íóæíî ïåðåäàâàòü!!!! |
| Åñëè â ïðîãðàììå óæå èñïîëüçóåòñÿ ýòà ôóíöèÿ, òî íå íóæíî óêàçûâàòü äàííûå ïàðàìåòð!!!! |
| Êàê ïîä âàðèàíò ñóùåñòâóåò ìàêðîñ |
| 88,9 → 88,9 |
| draw_edit_box - îí èñïîëüçóåòñÿ åñëè âûâîäèòüñÿ÷ îäèí áîêñ |
| Ïåðåäàâàåìûé ïàðàìåòð |
| editboxes - óêàçàòåëü íà èíôîðìàöèîííóþ ñòðóêóðó áîêñîâ |
| use_f9 è structure_of_potock - ïðè ïåðåäà÷å ýòîãî ïàðàìåòðà - ïðè ïåðåðèñîâêè áîêñîâ áóäåò èñïîëçîâàíà ôóíöèÿ |
| mcall 9,structure_of_potock,-1 |
| êîòîðàÿ ïîëó÷àåò äàííûå î îêíå è ñêëàäûâàåò ïàðàìåòðû ïî àäðåñó structure_of_potock- åãî òî æå îáÿçàòåëüíî íóæíî ïåðåäàâàòü!!!! |
| use_f9 è procinfo - ïðè ïåðåäà÷å ýòîãî ïàðàìåòðà - ïðè ïåðåðèñîâêè áîêñîâ áóäåò èñïîëçîâàíà ôóíöèÿ |
| mcall 9,procinfo,-1 |
| êîòîðàÿ ïîëó÷àåò äàííûå î îêíå è ñêëàäûâàåò ïàðàìåòðû ïî àäðåñó procinfo- åãî òî æå îáÿçàòåëüíî íóæíî ïåðåäàâàòü!!!! |
| Åñëè â ïðîãðàììå óæå èñïîëüçóåòñÿ ýòà ôóíöèÿ, òî íå íóæíî óêàçûâàòü äàííûå ïàðàìåòð!!!! |
| Áîëüøå íèêàêèõ ïàðàìåòðîâ ïåðåäàâàòü íå íóæíî. |
| ********** |
| /programs/develop/examples/editbox/trunk/History |
|---|
| 6,6 → 6,7 |
| Ýòî íå ìíîãî ôîëüêëåðà, ñâÿçàííîå, ñ òåì, ÷òî íàïèñàíèå ïðîãðàìì äëèííûå è ìóòîðíûé ïðîöåññ, è îí íå îáõîäèòüñÿ áåç âûðàæåíèé ïîäîáíîãî ñîäåðæàíèÿ, íî íå ïîïàäàþùåãî â êîìåíòàðèè è îñíîâíîé êîä..... |
| Òåïëîâ Àëåêñåé Þðüåâè÷ aka <Lrz> |
| ; <Lrz> 09.05.2007 Îáùàÿ äîðàáîòêà ìàêðîñîâ,çàìåíà íåñêîëüêî ìåòîê, ìèãðàöèÿ êîäà â edit_box.mac |
| ; <Lrz> 19.04.2007 Îáùàÿ äîðàáîòêà ìàêðîñîâ |
| ; <Lrz> 14.04.2007 Èñïðàâëåíî óïðàâëåíèå ìûøêîé, ïðè óäàëåíèè ïîñëåäíåãî ñèìâîëà â áóôåðå ïèøåòüñÿ 0 (ñïàñèáî Mario79) |
| ; <Lrz> 04.04.2007 Ìîäåðíèçèðîâàë ñèñòåìó âûäåëåíèÿ, ñóùåñòâåííî ïåðåäåëàíî óïðàâëåíèå è îáðàáîòêà, äîáàâëåííî áëîêèðîâàíèÿ îáðàáîòêè äðóãèõ áîêñîâ, âî âðåìÿ âûäåëåíèÿ ìûøêîé òåêñòà, äëÿ ýòîãî â òåêñò ïðîãðàììû íåîáõîäèìî äîáàâèòü èäåíòèôèêàòîð áîêñà ò.å. dd 0x0 è â íåãî áóäåò ïîìåùàòüñÿ óêààòåëü íà editbox |
| /programs/develop/examples/editbox/trunk/editbox.asm |
|---|
| 10,12 → 10,13 |
| dd start ; ¤à¥á, ª®â®àë© á¨á⥬ ¯¥à¥¤ ñâ ã¯à ¢«¥¨¥ |
| ; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥¨ï ¢ ¯ ¬ïâì |
| dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï |
| dd i_end and not 3 ; ¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪ ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢¨¬ £à¨æã 4 ¡ ©â |
| dd i_end and not 3 ; à ᯮ«®¦¨¬ ¯®§¨æ¨î á⥪ ¢ ®¡« á⨠¯ ¬ïâ¨, áà §ã § ⥫®¬ ¯à®£à ¬¬ë. ¥àè¨ á⥪ ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, 㪠§ ®¬ ¢ëè¥ |
| dd i_end ; ¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪ ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢¨¬ £à¨æã 4 ¡ ©â |
| dd i_end ; à ᯮ«®¦¨¬ ¯®§¨æ¨î á⥪ ¢ ®¡« á⨠¯ ¬ïâ¨, áà §ã § ⥫®¬ ¯à®£à ¬¬ë. ¥àè¨ á⥪ ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, 㪠§ ®¬ ¢ëè¥ |
| dd 0x0,0x0 ; 㪠§ ⥫ì áâபã á ¯ à ¬¥âà ¬¨. |
| include 'macros.inc' |
| include 'editbox.inc' |
| use_edit_box structure_of_potock,22,5 |
| align 4 |
| use_edit_box procinfo,22,5 |
| ;¡« áâì ª®¤ |
| start: ;®çª ¢å®¤ ¢ ¯à®£à ¬¬ã |
| mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩ |
| 22,6 → 23,7 |
| ;á¨á⥬ ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 á®®¡é¥¨¥ ® ¯¥à¥à¨á®¢ª¥, ¦ â ª®¯ª , ®¯à¥¤¥«ñ ï à ¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ¦ ⨥ ª®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥¨¥; á¡à áë¢ ¥âáï ¯à¨ ¯à®ç⥨¨) ¨ ¦ ⨥ ª« ¢¨è¨ |
| red_win: |
| call draw_window ;¯¥à¢® ç «ì® ¥®¡å®¤¨¬® à¨á®¢ âì ®ª® |
| align 4 |
| still: ;®á®¢®© ®¡à ¡®â稪 |
| mcall 10 ;¦¨¤ âì ᮡëâ¨ï |
| cmp al,0x1 ;¥á«¨ ¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª |
| 45,10 → 47,11 |
| jmp still |
| ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
| align 4 |
| draw_window: ;à¨á®¢ ¨¥ ®ª ¯à¨«®¦¥¨ï |
| mcall 12,1 |
| mcall 0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed |
| draw_edit_boxes editboxes,editboxes_end,use_f9,structure_of_potock ;à¨á®¢ ¨¥ edit box'®¢ |
| draw_edit_boxes editboxes,editboxes_end,use_f9,procinfo ;à¨á®¢ ¨¥ edit box'®¢ |
| mcall 12,2 |
| ret |
| ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
| 61,7 → 64,7 |
| editboxes_end: |
| data_of_code dd 0 |
| mouse_flag dd 0x0 |
| hed db 'EDITBOX optimization and retype <Lrz> date 19.04.2007',0 |
| hed db 'EDITBOX optimization and retype <Lrz> date 09.05.2007',0 |
| rb 256 |
| ed_buffer: |
| ;.1: rb 514;256 |
| 70,7 → 73,8 |
| .4: rb 3 |
| ;¤¢ § ¯ áëå ¡ ©â ¥®¡å®¤¨¬ë ¤«ï ⮣® çâ® ¡ë ¥ ¯¥¯¥à¥¯¨á âì á«¥¤ãî騥© ¡ ©âë, ¢ ª®æ¥ ¡ãä¥à 0 |
| buffer_end: |
| structure_of_potock: |
| align 16 |
| procinfo: |
| rb 1024 ;1 ª¡ ¤«ï ¯®«ãç¥¨ï ®¡é¥© áâàãªâãàë |
| rb 1024 |
| i_end: |
| rb 1024 ;Stack |
| i_end: |
| /programs/develop/examples/editbox/trunk/editbox.mac |
|---|
| 1,3 → 1,628 |
| ; ªà®á ¤«ï ¢ë¢®¤ ®á®¢ëå äãªæ¨© ª®â®àë¥ ¨á¯«ì§ãîâáï ¡®ªá®¬ |
| macro use_general_func |
| { |
| ;debug_func |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ¢ë¤¥«¥®© ç á⨠----------------- |
| ;---------------------------------------------------------- |
| .draw_shift: |
| test word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« á⨠|
| jz @f |
| mov ebp,shift_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| @@: ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ⥪áâ -------------------------- |
| ;---------------------------------------------------------- |
| .draw_text: |
| ;--- ¢ëç¨á«ï¥¬, ᪮«ìª® ¯®¬¥é ¥âáï ᨬ¢®«®¢ --- |
| ;--- çâ®¡ë ¬ãá®à ¥ à¨á®¢ âì --- |
| call .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 |
| mov bx,ed_top |
| add ebx,4 |
| mov ecx,ed_text_color |
| add edx,ed_text |
| mcall |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ä® ---------------------------- |
| ;¢å®¤ë¥ ¤ ë¥ |
| ;eax |
| ;edx - color |
| ;---------------------------------------------------------- |
| ;¢å®¤ ⮫쪮 梥â edx |
| .draw_bg: |
| mov ebx,ed_left |
| add ebx,1 |
| shl ebx,16 |
| mov bx,ed_width |
| sub ebx,1 |
| mov edx,ed_color |
| .draw_bg_eax: |
| mov ecx,ed_top |
| mov eax,13 |
| add ecx,1 |
| shl ecx,16 |
| mov cx,ed_height |
| dec ecx |
| mcall |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯®«ãç¥¨ï ª®«¨ç¥á⢠ᨬ¢®«®¢ ¢ ⥪ã饩 é¨à¨¥ ª®¬¯®¥â |
| ;---------------------------------------------------------- |
| .get_n: |
| mov eax,ed_width ;¯®«ã祬 è¨à¨ã ª®¬¯®¥â |
| xor edx,edx ;१ã«ìâ â à ᯮ«®£ ¥âáï ¢ ¯ ॠedx:eax ¢ eax - ®áâ ⮪ |
| sub eax,4 ;¢ëç⨬ 4 |
| mov ebx,6 ;§ £à㧬¨ ¤¥«¨â¥«ì |
| div ebx ;à §¬¤¥«¨¬ 6 |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à -------------------------- |
| ;---------------------------------------------------------- |
| ;¢å®¤ë¥ ebp- 梥â |
| .clear_cursor: |
| mov edx,ebp |
| mov ebx,cl_curs_x |
| mov ecx,cl_curs_y |
| jmp .draw_curs |
| .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 bx,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 cx,ed_height-4 |
| mov cl_curs_x,ebx |
| mov cl_curs_y,ecx |
| .draw_curs: |
| mcall 38 |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï à ¬ª¨ ---------------------------- |
| ;---------------------------------------------------------- |
| .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 bx,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 bx,ed_width |
| mcall |
| ;--- á¯à ¢ --- |
| mov ebx,ebp |
| shl ebx,16 |
| mov bx,bp |
| mcall |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥àª , § 襫 «¨ ªãàá®à § £à ¨æë ¨, ¥á«¨ ¤®, --- |
| ;--- ¨§¬¥ï¥¬ ᬥ饨¥ ------------------------------------ |
| ;--- ¥á«¨ ᬥ饨¥ ¡ë«® ãáâ ®¢ª ä« £ ed_offset_cl ¨ ç¥ |
| ; ¥á«¨ ¨ç¥£® ¥ ¨§¬¥¨«®áì â® ¢ëáâ ¢«¥¨¥ ed_offset_fl |
| ; ¢ ®¡é¥© ¡¨â®¢®© ¬ àà¨æ¥ á®áâ®ï¨ï ª®¬¯®¥â®¢ word ed_flags |
| ;---------------------------------------------------------- |
| .check_offset: |
| pusha |
| mov ecx,ed_pos |
| mov ebx,ed_offset |
| cmp ebx,ecx |
| ja .sub_8 |
| push ebx |
| call .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 .add_end |
| sub edx,ecx |
| cmp edx,8 |
| jbe .add_8 |
| add ebx,8 |
| jmp .chk_d |
| .sub_8: cmp ecx,0 |
| je .sub_min |
| cmp ebx,8 |
| jbe .sub_min |
| sub ebx,8 ;ebx=ed_offset |
| jmp .chk_d |
| .sub_min: |
| xor ebx,ebx |
| jmp .chk_d |
| .add_end:sub edx,eax |
| mov ebx,edx |
| jmp .chk_d |
| .add_8: add ebx,edx |
| .chk_d: mov ed_offset,ebx |
| call .draw_bg |
| and word ed_flags,ed_offset_cl |
| edit_ex |
| @@: |
| or word ed_flags,ed_offset_fl |
| edit_ex |
| } |
| macro use_key_func |
| { |
| ;¡à ¡®âª Shift ¤«ï áïâ¨ï ¢ë¤¥«¥¨ï ¥¨§¢¥á⮩ ®¡« á⨠|
| .shift: ;;;;;;;SHIFT |
| test word ed_flags,ed_shift |
| je .f_exit |
| @@: mov ebp,shift_color |
| or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« á⨠|
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| jmp .draw_cursor_text |
| ;;;;;;;;;;;;;;;;;;;;; |
| .f_exit:call .check_offset |
| and word ed_flags,ed_shift_cl |
| call .enable_null |
| jmp .draw_cursor_text |
| .sh_cl_: |
| ;;;;;;SHIFT end |
| ;®¡à ¡®âª ®ç¨á⪨, ¯à¨ «¥¢®¬ - ¯à ¢®¬ ¤¢¨¦¥¨¨ ¢ë¤¥«¥¨ï |
| ;¤«ï ®¡à ¡®âª¨ áïâ¨ï ¢ë¤¥«¥¨ï |
| ;¢å®¤ë¥ ¯ à ¬¥âàë ebp=color ebx=ed_shift_pos |
| mov eax,dword ed_pos |
| cmp eax,ebx |
| jae .sh_n |
| push eax ;¬¥ì襥 ¢ eax |
| push ebx ;¡®«ì襥 |
| jmp .sh_n1 |
| ;¥á«¨ ¨ ç¥ |
| .sh_n: push ebx |
| push eax |
| .sh_n1: |
| call .check_offset |
| call .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 .f_f ;¥á«¨ ¡®«ìè¥ |
| xor eax,eax |
| cmp edx,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ì訬 |
| jb @f |
| sub ebx,ecx |
| jmp .nxt_f |
| @@: mov ebx,edx |
| sub ebx,ecx |
| jmp .nxt_f |
| .f_f: |
| sub eax,ecx |
| cmp edx,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ì訬 |
| jle @f |
| sub ebx,ecx |
| sub ebx,eax |
| jmp .nxt_f |
| @@: |
| mov ebx,edx |
| sub ebx,ecx |
| sub ebx,eax |
| .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 .draw_bg_eax |
| @@: call .enable_null |
| ret |
| ;;;;;;;;;;;;;;;;;;;;; |
| ;áâ ®¢ª - áï⨥ ¢ë¤¥«¥¨ï ¢ ®¤¨ ᨬ¢®« |
| ;;;;;;;;;;;;;;;;;;;;; |
| .drw_sim: |
| mov eax,dword ed_pos |
| call .draw_rectangle ; à¨á®¢ âì ¯àאַ㣮«ì¨ª á § ¤ ë¬ æ¢¥â®¬ |
| jmp @b |
| ;;;;;;;;;;;;;;;;;;;;; |
| ;ãªæ¨ï ãáâ ®¢ª¨ ¢ë¤¥«¥¨ï ¯à¨ ¤¢¨¦¥¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ¦ ⨨ shift |
| ;®£¨ª : |
| ;;;;;;;;;; |
| .draw_wigwag: |
| ;äãªæ¨ï ãáâ ®¢ª¨ ¯¥à¥¬¥ëå |
| mov ebp,shift_color |
| call .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 .low |
| jmp @f |
| ;;;;;;;;;; |
| ;ãªæ¨ï 㤠«¥¨ï ¢ë¤¥«¥¨ï ¯à¨ ¤¢¨¦¥¨ï ¢«¥¢® ¨ ¢¯à ¢® ¨ ¦ ⨨ shift |
| ;®£¨ª : |
| ;;;;;;;;;; |
| .draw_wigwag_cl: |
| ;äãªæ¨ï ãáâ ®¢ª¨ ¯¥à¥¬¥ëå |
| mov ebp,ed_color |
| call .clear_cursor |
| mov ebp,ed_color |
| mov eax,dword ed_pos |
| test word ed_flags,ed_left_fl |
| jz .low |
| @@: call .draw_rectangle ; à¨á®¢ âì ¯àאַ㣮«ì¨ª § ªà 訢 ¥¬®© ®¡« á⨠|
| ret |
| .low: dec eax |
| jmp @b |
| ;¢å®¤®© ¯ à ¬¥âà ebx - ed_pos |
| .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 |
| ;¨ ç¥ ¢®®¡é¥ ¢ë室¨â |
| .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 .sh_cl_ ;®ç¨á⪠¢ë¤¥«¥®£® äà £¬¥â |
| and word ed_flags,ed_shift_cl ; ®ç¨á⪠®â ⮣® çâ® ã¡à «¨ ¢ë¤¥«¥¨¥ |
| jmp .draw_cursor_text |
| @@: |
| and word ed_flags,ed_shift_off |
| edit_ex |
| ;¯à®¢¥àª á®áâ®ï¨ï shift ¡ë« «¨ ® ¦ â à ìè¥? |
| .sh_enable: |
| test word ed_flags,ed_shift |
| jne .sh_ext_en ; à¨á®¢ âì § ªà è¥ë© ¯àאַ㣮«ì¨ª |
| test word ed_flags,ed_shift_bac |
| je @f |
| call .check_offset |
| mov ebp,ed_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ ;®ç¨á⪠¢ë¤¥«¥®£® äà £¬¥â |
| call .draw_wigwag_cl |
| and word ed_flags,ed_shift_cl ; 1¢ à ¥ 㦮 |
| ret |
| @@: mov ebp,ed_color |
| call .clear_cursor |
| call .check_offset |
| ret |
| .sh_ext_en: |
| call .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 .1_shem |
| jb .smaller |
| cmp ecx,ebx |
| ja .1_shem |
| call .draw_wigwag_cl ;clear |
| jmp .sh_e_end |
| .smaller: |
| cmp ecx,ebx |
| jb .1_shem |
| call .draw_wigwag_cl ;clear |
| jmp .sh_e_end |
| ;alike = |
| .1_shem: call .draw_wigwag |
| .sh_e_end: and word ed_flags,ed_shift_off |
| ret |
| @@: mov ebp,shift_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| jmp .sh_e_end |
| ;äãªæ¨ï ¤«ï ®¡à ¡®âª¨ shift ¯à¨ ¦ ⨨ home and end |
| .sh_home_end: |
| mov ebp,ed_color |
| call .clear_cursor |
| test word ed_flags,ed_shift_bac |
| je @f |
| mov ebp,ed_color |
| mov ebx,dword ed_shift_pos_old |
| call .sh_cl_ |
| @@: test word ed_flags,ed_shift |
| je .sh_exit_ ;¢ë©â¨ |
| mov ebp,shift_color |
| mov ebx,dword ed_shift_pos |
| call .sh_cl_ |
| or word ed_flags,ed_shift_bac ;ãáâ ®¢ª ä« £ , ¢ë¤¥«¥®© ®¡« á⨠|
| jmp .sh_e_end |
| .sh_exit_: call .check_offset |
| ret |
| ;äãªæ¨ï ¢¥á¥¨ï 0 ¯® ¤à¥áã ed_size+1 |
| .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 |
| .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 .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 .del_ch_sh |
| ;¥á«¨ ¨ ç¥ |
| .dh_n: |
| mov ebp,eax |
| sub ebp,ecx |
| add ebx,ecx |
| sub edx,eax |
| add esi,eax |
| mov dword ed_shift_pos,ebp |
| jmp .del_ch_sh |
| @@: add esi,ecx ;㪠§ ⥫ì + ᬥ饨¥ ª ॠ«ì®¬ã ¡ãää¥àã |
| mov ebx,esi |
| inc esi |
| cld |
| sub edx,ecx |
| .del_ch_sh: |
| push edi |
| mov edi,ebx |
| @@: |
| lodsb |
| stosb |
| dec edx |
| jns @b |
| pop edi |
| ret |
| ;¢ëç¨á«¨âì § ªà 訢 ¥¬ãî ®¡« áâì |
| ;ᮣ« 襨¥ ¢ ebp - ¯¥à¥¤ ¥âáï ed_size |
| .clear_bg: |
| call .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 .nxt |
| @@: mov ebx,ed_pos |
| push ebx |
| sub eax,ebx |
| mov ebx,eax ;It is don't optimal |
| pop eax ;ed_pos |
| mov ecx,ed_offset |
| sub eax,ecx |
| .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 .draw_bg_eax |
| ret |
| ;;;;;;;;;;;;;;;;;;; |
| ;;; ¡à ¡®âª ¯à¨¬¨â¨¢®¢ |
| ;;;;;;;;;;;;;;;;;;;; |
| ; à¨á®¢ âì ¯àאַ㣮«ì¨ª, 梥⠯¥à¥¤ ¥âáï ¢ ebp |
| ;¢å®¤ë¥ ¯ à ¬¥âàë: |
| ;eax=dword ed_pos |
| ;ebp=-梥â ed_color or shift_color |
| .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 |
| mov bx,6 |
| mov edx,ebp |
| call .draw_bg_eax |
| ret |
| ;;;;;;;;;;;;;;;;;; |
| ;;஢¥àª ¦ â «¨ shift |
| ;;;;;;;;;;;;;;;;;; |
| .check_shift: |
| pusha ;á®åà ¨¬ ¢á¥ ॣ¨áâàë |
| mcall 66,3,1 |
| test al,0x03 |
| je @f |
| or word ed_flags,ed_shift ;ãáâ ®¢¨¬ ä« £ |
| @@:edit_ex |
| } |
| ;¬ ªà®á ª« ¢¨è ª®â®àë¥ ¯à®¨á室¨â ॠªæ¨ï |
| macro use_key_process backspase,delete,left,right,home,end,insert |
| { |
| if backspase eq |
| else |
| cmp ah,8 |
| jz .backspace |
| end if |
| if delete eq |
| else |
| cmp ah,0xb6 |
| jz .delete |
| end if |
| if left eq |
| else |
| cmp ah,176 |
| jz .left |
| end if |
| if right eq |
| else |
| cmp ah,179 |
| jz .right |
| end if |
| if home eq |
| else |
| cmp ah,180 |
| jz .home |
| end if |
| if home eq |
| else |
| cmp ah,181 |
| jz .end |
| end if |
| if insert eq |
| else |
| cmp ah,185 ;insert |
| jz .insert |
| end if |
| } |
| macro use_key_no_process up,down,esc |
| { |
| if up eq |
| else |
| cmp ah,177 |
| jz .no_figure |
| end if |
| if down eq |
| else |
| cmp ah,178 |
| jz .no_figure |
| end if |
| if esc eq |
| else |
| cmp ah,27 ;ESC - ª« ¢¨è )) |
| jz .no_figure |
| end if |
| } |
| macro use_key_figures_only |
| { |
| test word ed_flags,ed_figure_only ; ⮫쪮 æ¨äàë ? |
| jz @f |
| cmp ah,'0' |
| jb .no_figure |
| cmp ah,'9' |
| ja .no_figure |
| } |
| ; ªà®á ¢ë室 |
| macro edit_ex |
| { |