| /programs/system/run/trunk/editbox.inc |
|---|
| 0,0 → 1,978 |
| ; <Lrz> 01.02.2007 ¤®à ¡®âª edit_box, ¨á¯à ¢¨« ¡ £¨. |
| ; <Lrz> 26.01.2007 ®à¬ «ì ï à ¡®â ª®¬¯ ¥â ¨á¯à ¢¨« äãªæ¨î .check_offset |
| ; <Lrz> 24.01.2007 ¯®ä¨ªá¥« ¡ £¨ ¢ë§¢ ë¥ ¥ ¯à ¢¨«ìë¬ ª®¤®¬ )). |
| ; <Lrz> 22.01.2007 ¨§¡ ¢¨«áï ®â £«îª®¢ ¯à¨ à ¡®â¥ á ¢ë¤¥«¥¨¥¬ ¨ 㤠«¥¨¥, ª®à४â ï à ¡®â ª« ¢¨è¥© del & backspase |
| ; <Lrz> 20.01.2007 ॠ«¨§®¢ « ¢ë¤¥«¥¨¥ ⥪áâ ¯® shift |
| ; <Lrz> 12.12.2006 ॠ«¨§®¢ « ¯®¤¤¥à¦ªã ª®¯ª¨ insert ¨ ᥣ®¤ï ª®¬¯®¥â ¯®çâ¨ à ¡®â ¥â!!!! |
| ; <Lrz> 07.12.2006 ¯à®¤®«¦ ¥âáï à ¡®â ¤ ¯¥à¥à ¡®âª®© ª®¬¯®¥â ,¨§¬¥¥¨ï¬ ¯®¤¢¥à£«¨áì ¬®£¨¥ äãªæ¨¨, ¯¥à¥à ¡®â ¢ë¢®¤ ⥪áâ , â ª ¦¥ «£®à¨â¬ ¢¥á¥¨ï ᨬ¢®«®¢. |
| ; <Lrz> 03.09.2006 ¯® ¢®§¬®¦®á⨠®âª § «áï ®â 16 ¡¨â®© à¨ä¬¥â¨ª¨, ¤®¡ ¢¨« ®¢ë¥ ¡ £¨ |
| ; <Lrz> 09.08.2006 ¯à®¨§¢¥¤¥ ®¯â¨¬¨§ æ¨ï à ¡®âë ª®¯®ª DEL ¨ Backspace, 㬥ìè¥ à §¬¥à ¢ë¯®«ï¥¬®£® ª®¤ . |
| ; <Lrz> 21.07.2006 ¤®¡ ¢«¥ äãªæ¨ï ª®¯ª¨ Del, ⥯¥àì ¬®¦® 㤠«ïâì ᨬ¢®«ë ¯à¨ ¯®¬®é¨ ¤ ®© ª« ¢¨è¨ |
| ; ¢â®à: ¢â¨å®¢ ªá¨¬ (Maxxxx32) email: maxxxxm@mail.ru |
| ; â ¯®á«¥¤¨å ¨§¬¥¥¨©: 13.06.06 10:40 |
| ; ¯¨è¨â¥ ¢ ¨á室®¬ ª®¤¥ ᢮¥© ¯à®£à ¬¬ë use_edit_box, |
| ; íâ® ¢áâ ¢¨â ¥®¡å®¤¨¬ë¥ ¯à®æ¥¤ãàë ¢ ª®¤ ¢ 襩 ¯à®£à ¬¬ë. |
| ; à®æ¥¤ãàë: |
| ; edit_box.draw - ¯®« ï ¯¥à¥à¨á®¢ª ; |
| ; edit_box.key - ®¡à ¡®âª ª« ¢¨ âãàë; |
| ; edit_box.mouse - ®¡à ¡®âª ¬ëè¨; |
| ; edit_box.focus - ãáâ ®¢ª 䮪ãá ; |
| ; edit_box.blur - ¥£® à §¬ë¢ ¨¥; |
| ; edit_box.get_n - ¯®«ãç¨âì ª®«¨ç¥á⢮ ¯à®à¨á®¢ë¢ ¥¬ëå ᨬ¢®«®¢. |
| ; ਠ¢ë§®¢¥ «î¡ëå ¨§ íâ¨å ¯à®æ¥¤ãà ¢ ॣ¨áâॠedi á«¥¤ã¥â |
| ; ®áâ ¢¨âì 㪠§ ⥫ì áâàãªâãàã. |
| ; ਬ¥à áâàãªâãàë: |
| ; some_edit edit_box 100,10,30,0x00ffffff,0,0x00aaaaaa,0,255,some_edit_text |
| ; ¤«¨ , ¢ëá®â , ¢¥àå, 梥â ä® , 梥â à ¬ª¨, ¥á«¨ ¢ë¡à , |
| ; 梥â à ¬ª¨, ¥á«¨ ¥ ¢ë¡à , ¬ ªá¨¬ «ì®¥ ª®«¨ç¥á⢮ ᨬ¢®«®¢, |
| ; 㪠§ â¥«ì ¡ãä¥à, £¤¥ ¡ã¤ãâ åà ¨âáï ᨬ¢®«ë. ãä¥à ¤®«¦¥ |
| ; ®ª 稢 âìáï ã«¥¬, ¯à¨¬¥à ¥á«¨ ¬ ªá¨¬ «ì®¥ ª®«¨ç¥á⢮ 255: |
| ; some_edit_text: |
| ; rb 256 ;255+1 |
| ; ਬ¥à ¢ë§®¢ ¯à®æ¥¤ãàë: |
| ; mov edi,some_edit |
| ; call edit_box.draw |
| ; ਠ¢ë§®¢¥ ¯à®æ¥¤ãàë edit_box.key ª®¤ ª« ¢¨è¨ ¤®«¦¥ |
| ; 室¨âáï ¢ ah, â® ¥áâì ¯¥à¥¤ ¢ë§®¢®¬ í⮩ ¯à®æ¥¤ãàë ¤® ¢ë§¢ âì |
| ; 2-ãî á¨á¥¬ãî äãªæ¨î, ¯à¨¬¥à: |
| ; mov eax,2 |
| ; int 0x40 |
| ; mov edi,some_edit1 |
| ; call edit_box.key |
| ; mov edi,some_edit2 |
| ; call edit_box.key |
| ; ¥à¥¤ ¢ë§®¢®¬ ®¡à ¡®â稪 ¬ëè¨ á«¥¤ã¥â ¯à®¢¥à¨âì, ï¥âáï «¨ ®ª® |
| ; ªâ¨¢ë¬. |
| ; ᫨ 饫箪 ¬ëè¨ ¡ë« ¯à®©§¢¥¤¥ § ¯à¥¤¥« ¬¨ edit box |
| ; 䮪ãá â¥àï¥âáï. |
| macro use_edit_box |
| { |
| edit_box: |
| ed_width equ [edi] ;è¨à¨ ª®¬¯®¥â |
| ed_left equ [edi+4] ;¯®«®¦¥¨¥ ¯® ®á¨ å |
| ed_top equ [edi+8] ;¯®«®¦¥¨¥ ¯® ®á¨ ã |
| ed_color equ [edi+12] ;梥â ä® ª®¬¯®¥â |
| ed_focus_border_color equ [edi+16] ;梥â à ¬ª¨ ª®¬¯®¥â |
| ed_blur_border_color equ [edi+20] ;梥⠥ ªâ¨¢®£® ª®¬¯®¥â |
| ed_text_color equ [edi+24] ;梥â ⥪áâ |
| ed_max equ [edi+28] ;ª®«-¢® ᨬ¢®«®¢ ª®â®àë¥ ¬®¦® ¬ ªá¨¬ «ì® ¢¢¥á⨠|
| ed_text equ [edi+32] ;㪠§ â¥«ì ¡ãä¥à |
| ed_flags equ [edi+36] ;ä« £¨ |
| ed_size equ [edi+38] ;ª®«-¢® ᨬ¢®«®¢ |
| ed_pos equ [edi+42] ;¯®§¨æ¨ï ªãàá®à |
| ed_offset equ [edi+46] ;ᬥ饨¥ |
| cl_curs_x equ [edi+50] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® å |
| cl_curs_y equ [edi+54] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® ã |
| ed_shift_pos equ [edi+58] |
| ed_height=14 ; ¢ëá®â |
| shift_color=0x6a9480 |
| ed_insert=10000b |
| ed_insert_cl=1111111111101111b |
| ;========================================================== |
| ;=== ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ================================= |
| ;========================================================== |
| .draw: |
| pusha |
| ;--- à¨á㥬 à ¬ªã --- |
| call .draw_border ; ãªæ¨ï áâ ¡¨«ì |
| .draw_bg_cursor_text: |
| ;--- ¨§¬¥ï¥¬ ᬥ饨¥, ¥á«¨ ¤® --- |
| call .check_offset ;¢ëç¨á«¥¨¥ ¯®§¨æ¨¨ ªãàá®à áâ ¡¨«ì |
| ;--- à¨á㥬 ¢ãâà¥îî ®¡« áâì --- |
| call .draw_bg ; à¨á®¢ âì ¯àאַ㣮«ì¨ª à ¡®ç¥© ®¡« á⨠|
| .draw_cursor_text: |
| ;--- à¨á㥬 ªãàá®à --- |
| ;--- ¬®¦¥â ¥£® ¥ ¤® à¨á®¢ âì ---- |
| test word ed_flags,ed_focus |
| je @f |
| call .draw_cursor |
| @@: |
| call .draw_text |
| popa |
| ret |
| ;.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 ;¢¥àãâìáï ç¥ì ¨â¥à¥áë© å®¤ â.ª. ¯®ª ¢ á⥪¥ åà ¨âìáï ª®«-¢® ¢ë§®¢®¢ â® á⮫쪮 à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ⥪áâ -------------------------- |
| ;---------------------------------------------------------- |
| .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 |
| ;---------------------------------------------------------- |
| .draw_bg_eax: |
| mov ecx,ed_top |
| add ecx,1 |
| shl ecx,16 |
| mov cx,13 |
| mov eax,13 |
| int 0x40 |
| ret |
| jmp @f |
| .draw_bg: |
| mov ebx,ed_left |
| add ebx,1 |
| shl ebx,16 |
| mov bx,ed_width |
| sub ebx,1 |
| @@: |
| mov ecx,ed_top |
| mov eax,13 |
| add ecx,1 |
| shl ecx,16 |
| mov edx,ed_color |
| mov cx,ed_height |
| sub ecx,1 |
| 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 |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à -------------------------- |
| ;---------------------------------------------------------- |
| .clear_cursor: |
| mov edx,ed_color |
| test word ed_flags,ed_shift |
| je @f |
| mov edx,shift_color |
| @@: |
| 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 dword 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: |
| pushad |
| 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 |
| 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 |
| ; ;----------- ®â« ¤ª |
| ; pushad |
| ; mov [data_of_code],0 |
| ; mov eax,ebx;ed_offset |
| ; mov edi,data_of_code |
| ; call .str |
| ; ;à¨á®¢ ¨¥ ä® |
| ; mov eax,13 |
| ; mov ebx,178*65536+36 |
| ; mov ecx,28*65536+10 |
| ; xor edx,edx |
| ; int 0x40 |
| ; ;¢ë¢®¤ § 票ï íªà |
| ; mov eax,4 |
| ; mov ebx,180*65536+30 |
| ; mov ecx,0x10DDBBCC |
| ; mov edx,data_of_code |
| ; mov esi,4 |
| ; int 0x40 |
| ; popad |
| ; ;----------- ®â« ¤ª |
| .chk_d: mov ed_offset,ebx |
| call .draw_bg |
| mov dword [esp+28],-1 |
| popad |
| ret |
| @@: |
| mov dword [esp+28],0 |
| popad |
| ret |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ; mov ebx,eax |
| ; mov eax,ed_pos |
| ; xor edx,edx |
| ; idiv ebx |
| ; xor edx,edx |
| ; imul eax,ebx |
| ; mov ed_offset,eax |
| ; pop ebx |
| ; cmp ax,bx |
| ; je @f |
| ;;;;;;;; ¤ ë¥ ¤«ï § ªà 訢 ¨ï ¢á¥© ¯®«®áë ¯àאַ㣮«ì¨ª |
| ; mov ebx,ed_left |
| ; inc ebx |
| ; shl ebx,16 |
| ; mov bx,ed_width |
| ; dec ebx |
| ; mov edx,ed_color |
| ; call .draw_bg_eax |
| ; mov dword [esp+28],0 |
| ;@@: popad |
| ; ret |
| ;========================================================== |
| ;=== ®¡à ¡®âª ª« ¢¨ âãàë ================================= |
| ;========================================================== |
| .key: |
| pusha |
| test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬ |
| je .no_figure ;@f |
| xor ecx,ecx |
| push eax |
| inc ecx |
| mov eax,66 |
| mov ebx,3 |
| int 0x40 |
| test al,0x03 |
| je @f |
| or word ed_flags,ed_shift |
| @@: pop eax |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥à塞, çâ® ¦ â® -------------------------------- |
| ;---------------------------------------------------------- |
| 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 |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ; £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| cmp ah,177 |
| jz .no_figure |
| cmp ah,178 |
| jz .no_figure |
| cmp ah,27 ;ESC - ª« ¢¨è )) |
| jz .no_figure |
| ;--- ¦ â ¤àã£ ï ª« ¢¨è --- |
| test word ed_flags,ed_figure_only ; ⮫쪮 æ¨äàë ? |
| jz @f |
| cmp ah,'0' |
| jb .no_figure |
| cmp ah,'9' |
| ja .no_figure |
| ;¯à®¢¥àª 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 |
| call .del_char |
| ;;;; |
| mov eax,ed_shift_pos |
| mov ebx,ed_size |
| sub ebx,eax |
| mov ed_size,ebx |
| pop eax |
| ; ¯à®¢¥à塞, 室¨âáï «¨ ªãàá®à ¢ ª®æ¥ |
| @@: mov ecx,ed_size |
| mov edx, ed_max |
| cmp ecx,edx |
| jae .no_figure |
| mov ebx, ed_pos |
| cmp ebx,edx |
| jl @f ; ¥á«¨ ¬¥ìè¥ ¨«¨ à ¢® |
| .no_figure: |
| popa |
| ret |
| .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+38];ed_size ;processing is insert |
| sub esi,ecx |
| add esi,ebx |
| mov edi,esi |
| 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+36],ed_insert ;IF insert is enable â.ª. edi ¨§¬¥¥ ¤à¥á㥬 ç¥à¥§ ebp |
| jne .ins_v |
| 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 |
| popa |
| ret |
| .bac_del: |
| call .del_char |
| jmp .draw_all |
| ;--- ¦ â ª« ¢¨è backspace --- |
| .backspace: |
| ; ¯à®¢¥à塞, ªãàá®à ã «¥¢®£® ªà ï ? |
| mov edx,ed_size |
| mov ecx,ed_pos |
| test ecx,ecx |
| jnz .del_bac |
| test word ed_flags,ed_shift_on |
| jne .bac_del |
| popa |
| ret |
| .del_bac: |
| 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,ed_shift_pos |
| mov ebx,ed_size |
| sub ebx,eax |
| mov ed_size,ebx |
| jmp .draw_all2 |
| @@: dec dword ed_size |
| .draw_all2: |
| and word ed_flags,ed_shift_cl |
| call .clear_cursor |
| call .check_offset |
| ;;;;;;;;;;;;;;; |
| test eax,eax |
| jne @f |
| call .draw_bg |
| ret |
| ;;;;;;;;;;;;;;; |
| @@: call .get_n |
| push eax |
| mov ebx,ed_offset |
| add eax,ebx ;eax = w_off= ed_offset+width |
| mov ebx,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 |
| ; jmp .shift |
| ;--- ¦ â ª« ¢¨è left --- |
| .left: call .sh_enable |
| mov ebx,ed_pos |
| test ebx,ebx |
| jz .nd_k |
| call .clear_cursor |
| dec dword ed_pos |
| jmp .nd_k |
| ;--- ¦ â ª« ¢¨è right --- |
| .right: call .sh_enable |
| mov ebx,ed_pos |
| cmp ebx,ed_size |
| je .nd_k |
| call .clear_cursor |
| inc dword ed_pos |
| jmp .nd_k |
| .home: call .sh_enable |
| mov ebx,ed_pos |
| test ebx,ebx |
| jz .nd_k |
| call .clear_cursor |
| xor eax,eax |
| mov ed_pos,eax |
| jmp .nd_k |
| .end: call .sh_enable |
| mov ebx,ed_pos |
| cmp ebx,dword ed_size |
| je .nd_k |
| call .clear_cursor |
| mov eax,ed_size |
| mov ed_pos,eax |
| .nd_k: call .check_offset |
| ;test eax,eax |
| ;jz .draw_bg_cursor_text |
| call .draw_cursor |
| .shift: ;;;;;;;SHIFT |
| call .draw_bg ;¥ ®¯â¨¬ «ì® |
| test word ed_flags,ed_shift |
| je .f_exit |
| ;;;;;;SHIFT end |
| mov eax,dword ed_pos |
| mov ebx,dword ed_shift_pos |
| cmp eax,ebx |
| jae .sh_n |
| push eax ;¬¥ì襥 ¢ eax |
| push ebx ;¡®«ì襥 |
| jmp .sh_n1 |
| ;¥á«¨ ¨ ç¥ |
| .sh_n: push ebx |
| push eax |
| .sh_n1: |
| ; jmp .draw_all2 |
| ;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;call .clear_cursor |
| call .check_offset |
| call .get_n |
| mov edx,eax ;size of ed_box |
| ; push eax |
| mov ecx,ed_offset |
| add eax,ecx ;eax = w_off= ed_offset+width |
| mov ebp,eax ;save |
| pop ebx ;¡®«ì襥 |
| pop eax ;¬¥ì襥 |
| cmp eax,ecx ;áà ¢¥¨¥ á ¬¥ì襣® á offset. |
| jae .f_f ;¥á«¨ ¡®«ìè¥ |
| xor eax,eax |
| cmp ebp,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ì訬 |
| jb @f |
| sub ebx,ecx |
| jmp .nxt_f |
| @@: mov ebx,ebp |
| sub ebx,ecx |
| jmp .nxt_f |
| .f_f: |
| sub eax,ecx |
| cmp ebp,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ì訬 |
| jle @f |
| sub ebx,ecx |
| sub ebx,eax |
| jmp .nxt_f |
| @@: |
| mov ebx,ebp |
| 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 |
| mov edx,shift_color |
| call .draw_bg_eax |
| and word ed_flags,1111111111111011b |
| jmp .draw_cursor_text |
| ;;;;;;;;;;;;;;;;;;;;; |
| .f_exit: and word ed_flags,ed_shift_cl |
| jmp .draw_cursor_text |
| ;¯à®¢¥àª á®áâ®ï¨ï shift ¡ë« «¨ ® ¦ â à ìè¥? |
| .sh_enable: |
| test word ed_flags,ed_shift |
| je @f |
| test word ed_flags,ed_shift_on |
| jne .sh_ext_en |
| push dword ed_pos |
| pop dword ed_shift_pos |
| or word ed_flags,ed_shift_on |
| ret |
| @@: and word ed_flags,ed_shift_cl |
| .sh_ext_en: ret |
| ;- 㤠«¥¨¥ ᨬ¢®« |
| ;å®¤ë¥ ¤ ë¥ 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 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 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 |
| ;========================================================== |
| ;=== ®¡à ¡®âª ¬ëè¨ ======================================= |
| ;========================================================== |
| .mouse: |
| pusha |
| ;---------------------------------------------------------- |
| ;--- ¯®«ãç ¥¬ á®áâ®ï¨¥ ª®¯®ª ¬ëè¨ ----------------------- |
| ;---------------------------------------------------------- |
| mov eax,37 |
| mov ebx,2 |
| int 0x40 |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥à塞 á®áâ®ï¨¥ ---------------------------------- |
| ;---------------------------------------------------------- |
| test eax,1 |
| jnz .mouse_left_button |
| @@: popa |
| ret |
| .mouse_left_button: |
| ;---------------------------------------------------------- |
| ;--- ¯®«ãç ¥¬ ª®®à¤¨ âë ¬ëè¨ ----------------------------- |
| ;---------------------------------------------------------- |
| mov eax,37 |
| xor ebx,ebx |
| inc ebx |
| int 0x40 |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥à塞, ¯®¯ ¤ ¥â «¨ ªãàá®à ¢ edit box ------------- |
| ;---------------------------------------------------------- |
| mov ebx,ed_top |
| cmp ax,bx |
| jl ._blur;.mouse_end_no_focus |
| add bx,ed_height |
| cmp ax,bx |
| jg ._blur;.mouse_end_no_focus |
| shr eax,16 |
| mov bx,ed_left |
| cmp ax,bx |
| jl ._blur;.mouse_end_no_focus |
| add bx,ed_width |
| cmp ax,bx |
| jg ._blur;.mouse_end_no_focus |
| ;--- ¨§¬¥ï¥¬ ¯®§¨æ¨î ªãàá®à --- |
| push eax |
| call .clear_cursor |
| pop eax |
| xor dx,dx |
| sub ax,ed_left |
| add ax,2 |
| mov bx,6 |
| div bx |
| add ax,ed_offset |
| cmp ax,ed_size |
| jna @f |
| mov ax,ed_size |
| @@: |
| mov ed_pos,ax |
| call .check_offset |
| call .draw_cursor |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ãáâ ®¢ª¨ 䮪ãá --------------------------- |
| ;---------------------------------------------------------- |
| bts word ed_flags,1 |
| jc .mouse_pressed |
| call .draw_cursor |
| call .draw_border |
| .mouse_pressed: |
| popa |
| ret |
| ;.mouse_end_no_focus: |
| ; call .blur |
| ;popa |
| ;ret |
| ;.blur: |
| ;pusha |
| ._blur: |
| test word ed_flags,ed_always_focus |
| jne @f |
| btr word ed_flags,1 ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬ |
| jnc @f |
| call .clear_cursor |
| call .draw_border |
| @@: |
| popa |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à §¬ë¢ ¨ï 䮪ãá -------------------------- |
| ;---------------------------------------------------------- |
| ;.blur: |
| ;pusha |
| ;._blur: |
| ;btr ed_flags,1 |
| ;jnc @f |
| ;call .draw_border |
| ;call .clear_cursor |
| ;@@: |
| ;popa |
| ;ret |
| } |
| ed_figure_only=1000000000000000b |
| ed_always_focus=100000000000000b |
| ed_focus=10b |
| ed_shift_on=1000b |
| ed_shift=100b |
| ed_shift_cl=1111111111110011b |
| macro draw_edit_boxes start,end |
| { |
| 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=62 |
| struc edit_box width,left,top,color,focus_border_color,\ |
| blur_border_color,text_color,max,text,flags,size |
| { |
| .width dd width |
| .left dd left |
| .top dd top |
| .color dd 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 0 |
| .offset dd 0 |
| .cl_curs_x dd 0 |
| .cl_curs_y dd 0 |
| .shift 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 |
| { |
| 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 |
| } |
| /programs/system/rdsave/trunk/editbox.inc |
|---|
| 0,0 → 1,978 |
| ; <Lrz> 01.02.2007 ¤®à ¡®âª edit_box, ¨á¯à ¢¨« ¡ £¨. |
| ; <Lrz> 26.01.2007 ®à¬ «ì ï à ¡®â ª®¬¯®¥â ¨á¯à ¢¨« äãªæ¨î .check_offset |
| ; <Lrz> 24.01.2007 ¯®ä¨ªá¨« ¡ £¨, ¢ë§¢ ë¥ ¥¯à ¢¨«ìë¬ ª®¤®¬ )). |
| ; <Lrz> 22.01.2007 ¨§¡ ¢¨«áï ®â £«îª®¢ ¯à¨ à ¡®â¥ á ¢ë¤¥«¥¨¥¬ ¨ 㤠«¥¨¥¬, ª®à४â ï à ¡®â ª« ¢¨è del & backspase |
| ; <Lrz> 20.01.2007 ॠ«¨§®¢ « ¢ë¤¥«¥¨¥ ⥪áâ ¯® shift |
| ; <Lrz> 12.12.2006 ॠ«¨§®¢ « ¯®¤¤¥à¦ªã ª®¯ª¨ insert ¨ ᥣ®¤ï ª®¬¯®¥â ¯®çâ¨ à ¡®â ¥â!!!! |
| ; <Lrz> 07.12.2006 ¯à®¤®«¦ ¥âáï à ¡®â ¤ ¯¥à¥à ¡®âª®© ª®¬¯®¥â ,¨§¬¥¥¨ï¬ ¯®¤¢¥à£«¨áì ¬®£¨¥ äãªæ¨¨, ¯¥à¥à ¡®â ¢ë¢®¤ ⥪áâ , â ª¦¥ «£®à¨â¬ ¢¥á¥¨ï ᨬ¢®«®¢. |
| ; <Lrz> 03.09.2006 ¯® ¢®§¬®¦®á⨠®âª § «áï ®â 16 ¡¨â®© à¨ä¬¥â¨ª¨, ¤®¡ ¢¨« ®¢ë¥ ¡ £¨ |
| ; <Lrz> 09.08.2006 ¯à®¨§¢¥¤¥ ®¯â¨¬¨§ æ¨ï à ¡®âë ª®¯®ª DEL ¨ Backspace, 㬥ìè¥ à §¬¥à ¢ë¯®«ï¥¬®£® ª®¤ . |
| ; <Lrz> 21.07.2006 ¤®¡ ¢«¥ äãªæ¨ï ª®¯ª¨ Del, ⥯¥àì ¬®¦® 㤠«ïâì ᨬ¢®«ë ¯à¨ ¯®¬®é¨ ¤ ®© ª« ¢¨è¨ |
| ; ¢â®à: ¢â¨å®¢ ªá¨¬ (Maxxxx32) email: maxxxxm@mail.ru |
| ; â ¯®á«¥¤¨å ¨§¬¥¥¨©: 13.06.06 10:40 |
| ; ¯¨è¨â¥ ¢ ¨á室®¬ ª®¤¥ ᢮¥© ¯à®£à ¬¬ë use_edit_box, |
| ; íâ® ¢áâ ¢¨â ¥®¡å®¤¨¬ë¥ ¯à®æ¥¤ãàë ¢ ª®¤ ¢ 襩 ¯à®£à ¬¬ë. |
| ; à®æ¥¤ãàë: |
| ; edit_box.draw - ¯®« ï ¯¥à¥à¨á®¢ª ; |
| ; edit_box.key - ®¡à ¡®âª ª« ¢¨ âãàë; |
| ; edit_box.mouse - ®¡à ¡®âª ¬ëè¨; |
| ; edit_box.focus - ãáâ ®¢ª 䮪ãá ; |
| ; edit_box.blur - ¥£® à §¬ë¢ ¨¥; |
| ; edit_box.get_n - ¯®«ãç¨âì ª®«¨ç¥á⢮ ¯à®à¨á®¢ë¢ ¥¬ëå ᨬ¢®«®¢. |
| ; ਠ¢ë§®¢¥ «î¡ëå ¨§ íâ¨å ¯à®æ¥¤ãà ¢ ॣ¨áâॠedi á«¥¤ã¥â |
| ; ®áâ ¢¨âì 㪠§ ⥫ì áâàãªâãàã. |
| ; ਬ¥à áâàãªâãàë: |
| ; some_edit edit_box 100,10,30,0x00ffffff,0,0x00aaaaaa,0,255,some_edit_text |
| ; ¤«¨ , ¢ëá®â , ¢¥àå, 梥â ä® , 梥â à ¬ª¨, ¥á«¨ ¢ë¡à , |
| ; 梥â à ¬ª¨, ¥á«¨ ¥ ¢ë¡à , ¬ ªá¨¬ «ì®¥ ª®«¨ç¥á⢮ ᨬ¢®«®¢, |
| ; 㪠§ â¥«ì ¡ãä¥à, £¤¥ ¡ã¤ãâ åà ¨âáï ᨬ¢®«ë. ãä¥à ¤®«¦¥ |
| ; ®ª 稢 âìáï ã«¥¬, ¯à¨¬¥à ¥á«¨ ¬ ªá¨¬ «ì®¥ ª®«¨ç¥á⢮ 255: |
| ; some_edit_text: |
| ; rb 256 ;255+1 |
| ; ਬ¥à ¢ë§®¢ ¯à®æ¥¤ãàë: |
| ; mov edi,some_edit |
| ; call edit_box.draw |
| ; ਠ¢ë§®¢¥ ¯à®æ¥¤ãàë edit_box.key ª®¤ ª« ¢¨è¨ ¤®«¦¥ |
| ; 室¨âáï ¢ ah, â® ¥áâì ¯¥à¥¤ ¢ë§®¢®¬ í⮩ ¯à®æ¥¤ãàë ¤® ¢ë§¢ âì |
| ; 2-ãî á¨á¥¬ãî äãªæ¨î, ¯à¨¬¥à: |
| ; mov eax,2 |
| ; int 0x40 |
| ; mov edi,some_edit1 |
| ; call edit_box.key |
| ; mov edi,some_edit2 |
| ; call edit_box.key |
| ; ¥à¥¤ ¢ë§®¢®¬ ®¡à ¡®â稪 ¬ëè¨ á«¥¤ã¥â ¯à®¢¥à¨âì, ï¥âáï «¨ ®ª® |
| ; ªâ¨¢ë¬. |
| ; ᫨ 饫箪 ¬ëè¨ ¡ë« ¯à®©§¢¥¤¥ § ¯à¥¤¥« ¬¨ edit box |
| ; 䮪ãá â¥àï¥âáï. |
| macro use_edit_box |
| { |
| edit_box: |
| ed_width equ [edi] ;è¨à¨ ª®¬¯®¥â |
| ed_left equ [edi+4] ;¯®«®¦¥¨¥ ¯® ®á¨ å |
| ed_top equ [edi+8] ;¯®«®¦¥¨¥ ¯® ®á¨ ã |
| ed_color equ [edi+12] ;梥â ä® ª®¬¯®¥â |
| ed_focus_border_color equ [edi+16] ;梥â à ¬ª¨ ª®¬¯®¥â |
| ed_blur_border_color equ [edi+20] ;梥⠥ ªâ¨¢®£® ª®¬¯®¥â |
| ed_text_color equ [edi+24] ;梥â ⥪áâ |
| ed_max equ [edi+28] ;ª®«-¢® ᨬ¢®«®¢ ª®â®àë¥ ¬®¦® ¬ ªá¨¬ «ì® ¢¢¥á⨠|
| ed_text equ [edi+32] ;㪠§ â¥«ì ¡ãä¥à |
| ed_flags equ [edi+36] ;ä« £¨ |
| ed_size equ [edi+38] ;ª®«-¢® ᨬ¢®«®¢ |
| ed_pos equ [edi+42] ;¯®§¨æ¨ï ªãàá®à |
| ed_offset equ [edi+46] ;ᬥ饨¥ |
| cl_curs_x equ [edi+50] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® å |
| cl_curs_y equ [edi+54] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® ã |
| ed_shift_pos equ [edi+58] |
| ed_height=14 ; ¢ëá®â |
| shift_color=0x6a9480 |
| ed_insert=10000b |
| ed_insert_cl=1111111111101111b |
| ;========================================================== |
| ;=== ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ================================= |
| ;========================================================== |
| .draw: |
| pusha |
| ;--- à¨á㥬 à ¬ªã --- |
| call .draw_border ; ãªæ¨ï áâ ¡¨«ì |
| .draw_bg_cursor_text: |
| ;--- ¨§¬¥ï¥¬ ᬥ饨¥, ¥á«¨ ¤® --- |
| call .check_offset ;¢ëç¨á«¥¨¥ ¯®§¨æ¨¨ ªãàá®à áâ ¡¨«ì |
| ;--- à¨á㥬 ¢ãâà¥îî ®¡« áâì --- |
| call .draw_bg ; à¨á®¢ âì ¯àאַ㣮«ì¨ª à ¡®ç¥© ®¡« á⨠|
| .draw_cursor_text: |
| ;--- à¨á㥬 ªãàá®à --- |
| ;--- ¬®¦¥â ¥£® ¥ ¤® à¨á®¢ âì ---- |
| test word ed_flags,ed_focus |
| je @f |
| call .draw_cursor |
| @@: |
| call .draw_text |
| popa |
| ret |
| ;.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 ;¢¥àãâìáï ç¥ì ¨â¥à¥áë© å®¤ â.ª. ¯®ª ¢ á⥪¥ åà ¨âìáï ª®«-¢® ¢ë§®¢®¢ â® á⮫쪮 à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ⥪áâ -------------------------- |
| ;---------------------------------------------------------- |
| .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 |
| ;---------------------------------------------------------- |
| .draw_bg_eax: |
| mov ecx,ed_top |
| add ecx,1 |
| shl ecx,16 |
| mov cx,13 |
| mov eax,13 |
| int 0x40 |
| ret |
| jmp @f |
| .draw_bg: |
| mov ebx,ed_left |
| add ebx,1 |
| shl ebx,16 |
| mov bx,ed_width |
| sub ebx,1 |
| @@: |
| mov ecx,ed_top |
| mov eax,13 |
| add ecx,1 |
| shl ecx,16 |
| mov edx,ed_color |
| mov cx,ed_height |
| sub ecx,1 |
| 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 |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à -------------------------- |
| ;---------------------------------------------------------- |
| .clear_cursor: |
| mov edx,ed_color |
| test word ed_flags,ed_shift |
| je @f |
| mov edx,shift_color |
| @@: |
| 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 dword 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: |
| pushad |
| 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 |
| 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 |
| ; ;----------- ®â« ¤ª |
| ; pushad |
| ; mov [data_of_code],0 |
| ; mov eax,ebx;ed_offset |
| ; mov edi,data_of_code |
| ; call .str |
| ; ;à¨á®¢ ¨¥ ä® |
| ; mov eax,13 |
| ; mov ebx,178*65536+36 |
| ; mov ecx,28*65536+10 |
| ; xor edx,edx |
| ; int 0x40 |
| ; ;¢ë¢®¤ § 票ï íªà |
| ; mov eax,4 |
| ; mov ebx,180*65536+30 |
| ; mov ecx,0x10DDBBCC |
| ; mov edx,data_of_code |
| ; mov esi,4 |
| ; int 0x40 |
| ; popad |
| ; ;----------- ®â« ¤ª |
| .chk_d: mov ed_offset,ebx |
| call .draw_bg |
| mov dword [esp+28],-1 |
| popad |
| ret |
| @@: |
| mov dword [esp+28],0 |
| popad |
| ret |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ; mov ebx,eax |
| ; mov eax,ed_pos |
| ; xor edx,edx |
| ; idiv ebx |
| ; xor edx,edx |
| ; imul eax,ebx |
| ; mov ed_offset,eax |
| ; pop ebx |
| ; cmp ax,bx |
| ; je @f |
| ;;;;;;;; ¤ ë¥ ¤«ï § ªà 訢 ¨ï ¢á¥© ¯®«®áë ¯àאַ㣮«ì¨ª |
| ; mov ebx,ed_left |
| ; inc ebx |
| ; shl ebx,16 |
| ; mov bx,ed_width |
| ; dec ebx |
| ; mov edx,ed_color |
| ; call .draw_bg_eax |
| ; mov dword [esp+28],0 |
| ;@@: popad |
| ; ret |
| ;========================================================== |
| ;=== ®¡à ¡®âª ª« ¢¨ âãàë ================================= |
| ;========================================================== |
| .key: |
| pusha |
| test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬ |
| je .no_figure ;@f |
| xor ecx,ecx |
| push eax |
| inc ecx |
| mov eax,66 |
| mov ebx,3 |
| int 0x40 |
| test al,0x03 |
| je @f |
| or word ed_flags,ed_shift |
| @@: pop eax |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥à塞, çâ® ¦ â® -------------------------------- |
| ;---------------------------------------------------------- |
| 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 |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ; £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| cmp ah,177 |
| jz .no_figure |
| cmp ah,178 |
| jz .no_figure |
| cmp ah,27 ;ESC - ª« ¢¨è )) |
| jz .no_figure |
| ;--- ¦ â ¤àã£ ï ª« ¢¨è --- |
| test word ed_flags,ed_figure_only ; ⮫쪮 æ¨äàë ? |
| jz @f |
| cmp ah,'0' |
| jb .no_figure |
| cmp ah,'9' |
| ja .no_figure |
| ;¯à®¢¥àª 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 |
| call .del_char |
| ;;;; |
| mov eax,ed_shift_pos |
| mov ebx,ed_size |
| sub ebx,eax |
| mov ed_size,ebx |
| pop eax |
| ; ¯à®¢¥à塞, 室¨âáï «¨ ªãàá®à ¢ ª®æ¥ |
| @@: mov ecx,ed_size |
| mov edx, ed_max |
| cmp ecx,edx |
| jae .no_figure |
| mov ebx, ed_pos |
| cmp ebx,edx |
| jl @f ; ¥á«¨ ¬¥ìè¥ ¨«¨ à ¢® |
| .no_figure: |
| popa |
| ret |
| .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+38];ed_size ;processing is insert |
| sub esi,ecx |
| add esi,ebx |
| mov edi,esi |
| 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+36],ed_insert ;IF insert is enable â.ª. edi ¨§¬¥¥ ¤à¥á㥬 ç¥à¥§ ebp |
| jne .ins_v |
| 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 |
| popa |
| ret |
| .bac_del: |
| call .del_char |
| jmp .draw_all |
| ;--- ¦ â ª« ¢¨è backspace --- |
| .backspace: |
| ; ¯à®¢¥à塞, ªãàá®à ã «¥¢®£® ªà ï ? |
| mov edx,ed_size |
| mov ecx,ed_pos |
| test ecx,ecx |
| jnz .del_bac |
| test word ed_flags,ed_shift_on |
| jne .bac_del |
| popa |
| ret |
| .del_bac: |
| 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,ed_shift_pos |
| mov ebx,ed_size |
| sub ebx,eax |
| mov ed_size,ebx |
| jmp .draw_all2 |
| @@: dec dword ed_size |
| .draw_all2: |
| and word ed_flags,ed_shift_cl |
| call .clear_cursor |
| call .check_offset |
| ;;;;;;;;;;;;;;; |
| test eax,eax |
| jne @f |
| call .draw_bg |
| ret |
| ;;;;;;;;;;;;;;; |
| @@: call .get_n |
| push eax |
| mov ebx,ed_offset |
| add eax,ebx ;eax = w_off= ed_offset+width |
| mov ebx,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 |
| ; jmp .shift |
| ;--- ¦ â ª« ¢¨è left --- |
| .left: call .sh_enable |
| mov ebx,ed_pos |
| test ebx,ebx |
| jz .nd_k |
| call .clear_cursor |
| dec dword ed_pos |
| jmp .nd_k |
| ;--- ¦ â ª« ¢¨è right --- |
| .right: call .sh_enable |
| mov ebx,ed_pos |
| cmp ebx,ed_size |
| je .nd_k |
| call .clear_cursor |
| inc dword ed_pos |
| jmp .nd_k |
| .home: call .sh_enable |
| mov ebx,ed_pos |
| test ebx,ebx |
| jz .nd_k |
| call .clear_cursor |
| xor eax,eax |
| mov ed_pos,eax |
| jmp .nd_k |
| .end: call .sh_enable |
| mov ebx,ed_pos |
| cmp ebx,dword ed_size |
| je .nd_k |
| call .clear_cursor |
| mov eax,ed_size |
| mov ed_pos,eax |
| .nd_k: call .check_offset |
| ;test eax,eax |
| ;jz .draw_bg_cursor_text |
| call .draw_cursor |
| .shift: ;;;;;;;SHIFT |
| call .draw_bg ;¥ ®¯â¨¬ «ì® |
| test word ed_flags,ed_shift |
| je .f_exit |
| ;;;;;;SHIFT end |
| mov eax,dword ed_pos |
| mov ebx,dword ed_shift_pos |
| cmp eax,ebx |
| jae .sh_n |
| push eax ;¬¥ì襥 ¢ eax |
| push ebx ;¡®«ì襥 |
| jmp .sh_n1 |
| ;¥á«¨ ¨ ç¥ |
| .sh_n: push ebx |
| push eax |
| .sh_n1: |
| ; jmp .draw_all2 |
| ;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;call .clear_cursor |
| call .check_offset |
| call .get_n |
| mov edx,eax ;size of ed_box |
| ; push eax |
| mov ecx,ed_offset |
| add eax,ecx ;eax = w_off= ed_offset+width |
| mov ebp,eax ;save |
| pop ebx ;¡®«ì襥 |
| pop eax ;¬¥ì襥 |
| cmp eax,ecx ;áà ¢¥¨¥ á ¬¥ì襣® á offset. |
| jae .f_f ;¥á«¨ ¡®«ìè¥ |
| xor eax,eax |
| cmp ebp,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ì訬 |
| jb @f |
| sub ebx,ecx |
| jmp .nxt_f |
| @@: mov ebx,ebp |
| sub ebx,ecx |
| jmp .nxt_f |
| .f_f: |
| sub eax,ecx |
| cmp ebp,ebx ;cà ¢¨¬ à §¬¥à w_off á ¡®«ì訬 |
| jle @f |
| sub ebx,ecx |
| sub ebx,eax |
| jmp .nxt_f |
| @@: |
| mov ebx,ebp |
| 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 |
| mov edx,shift_color |
| call .draw_bg_eax |
| and word ed_flags,1111111111111011b |
| jmp .draw_cursor_text |
| ;;;;;;;;;;;;;;;;;;;;; |
| .f_exit: and word ed_flags,ed_shift_cl |
| jmp .draw_cursor_text |
| ;¯à®¢¥àª á®áâ®ï¨ï shift ¡ë« «¨ ® ¦ â à ìè¥? |
| .sh_enable: |
| test word ed_flags,ed_shift |
| je @f |
| test word ed_flags,ed_shift_on |
| jne .sh_ext_en |
| push dword ed_pos |
| pop dword ed_shift_pos |
| or word ed_flags,ed_shift_on |
| ret |
| @@: and word ed_flags,ed_shift_cl |
| .sh_ext_en: ret |
| ;- 㤠«¥¨¥ ᨬ¢®« |
| ;å®¤ë¥ ¤ ë¥ 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 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 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 |
| ;========================================================== |
| ;=== ®¡à ¡®âª ¬ëè¨ ======================================= |
| ;========================================================== |
| .mouse: |
| pusha |
| ;---------------------------------------------------------- |
| ;--- ¯®«ãç ¥¬ á®áâ®ï¨¥ ª®¯®ª ¬ëè¨ ----------------------- |
| ;---------------------------------------------------------- |
| mov eax,37 |
| mov ebx,2 |
| int 0x40 |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥à塞 á®áâ®ï¨¥ ---------------------------------- |
| ;---------------------------------------------------------- |
| test eax,1 |
| jnz .mouse_left_button |
| @@: popa |
| ret |
| .mouse_left_button: |
| ;---------------------------------------------------------- |
| ;--- ¯®«ãç ¥¬ ª®®à¤¨ âë ¬ëè¨ ----------------------------- |
| ;---------------------------------------------------------- |
| mov eax,37 |
| xor ebx,ebx |
| inc ebx |
| int 0x40 |
| ;---------------------------------------------------------- |
| ;--- ¯à®¢¥à塞, ¯®¯ ¤ ¥â «¨ ªãàá®à ¢ edit box ------------- |
| ;---------------------------------------------------------- |
| mov ebx,ed_top |
| cmp ax,bx |
| jl ._blur;.mouse_end_no_focus |
| add bx,ed_height |
| cmp ax,bx |
| jg ._blur;.mouse_end_no_focus |
| shr eax,16 |
| mov bx,ed_left |
| cmp ax,bx |
| jl ._blur;.mouse_end_no_focus |
| add bx,ed_width |
| cmp ax,bx |
| jg ._blur;.mouse_end_no_focus |
| ;--- ¨§¬¥ï¥¬ ¯®§¨æ¨î ªãàá®à --- |
| push eax |
| call .clear_cursor |
| pop eax |
| xor dx,dx |
| sub ax,ed_left |
| add ax,2 |
| mov bx,6 |
| div bx |
| add ax,ed_offset |
| cmp ax,ed_size |
| jna @f |
| mov ax,ed_size |
| @@: |
| mov ed_pos,ax |
| call .check_offset |
| call .draw_cursor |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà ãáâ ®¢ª¨ 䮪ãá --------------------------- |
| ;---------------------------------------------------------- |
| bts word ed_flags,1 |
| jc .mouse_pressed |
| call .draw_cursor |
| call .draw_border |
| .mouse_pressed: |
| popa |
| ret |
| ;.mouse_end_no_focus: |
| ; call .blur |
| ;popa |
| ;ret |
| ;.blur: |
| ;pusha |
| ._blur: |
| test word ed_flags,ed_always_focus |
| jne @f |
| btr word ed_flags,1 ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬ |
| jnc @f |
| call .clear_cursor |
| call .draw_border |
| @@: |
| popa |
| ret |
| ;---------------------------------------------------------- |
| ;--- ¯à®æ¥¤ãà à §¬ë¢ ¨ï 䮪ãá -------------------------- |
| ;---------------------------------------------------------- |
| ;.blur: |
| ;pusha |
| ;._blur: |
| ;btr ed_flags,1 |
| ;jnc @f |
| ;call .draw_border |
| ;call .clear_cursor |
| ;@@: |
| ;popa |
| ;ret |
| } |
| ed_figure_only=1000000000000000b |
| ed_always_focus=100000000000000b |
| ed_focus=10b |
| ed_shift_on=1000b |
| ed_shift=100b |
| ed_shift_cl=1111111111110011b |
| macro draw_edit_boxes start,end |
| { |
| 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=62 |
| struc edit_box width,left,top,color,focus_border_color,\ |
| blur_border_color,text_color,max,text,flags,size |
| { |
| .width dd width |
| .left dd left |
| .top dd top |
| .color dd 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 0 |
| .offset dd 0 |
| .cl_curs_x dd 0 |
| .cl_curs_y dd 0 |
| .shift 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 |
| { |
| 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 |
| } |
| /programs/system/rdsave/trunk/rdsave.asm |
|---|
| 25,7 → 25,7 |
| dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ (¥ ¨á¯®«ì§ã¥âáï) |
| dd 0x0 ; § १¥à¢¨à®¢ ® |
| include '..\..\..\develop\examples\editbox\trunk\editbox.inc' |
| include 'editbox.inc' |
| use_edit_box |
| ;--------------------------------------------------------------------- |