forked from KolibriOS/kolibrios
add
git-svn-id: svn://kolibrios.org@234 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Alexey Teplov (
parent
d510d16f49
commit
2a4b34f171
700
programs/develop/examples/editbox/trunk/EDITBOX.INC
Normal file
700
programs/develop/examples/editbox/trunk/EDITBOX.INC
Normal file
@ -0,0 +1,700 @@
|
||||
; <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
|
||||
; <20> ¯¨è¨â¥ ¢ ¨á室®¬ ª®¤¥ ᢮¥© ¯à®£à ¬¬ë use_edit_box,
|
||||
; íâ® ¢áâ ¢¨â ¥®¡å®¤¨¬ë¥ ¯à®æ¥¤ãàë ¢ ª®¤ ¢ 襩 ¯à®£à ¬¬ë.
|
||||
; <20>à®æ¥¤ãàë:
|
||||
; edit_box.draw - ¯®« ï ¯¥à¥à¨á®¢ª ;
|
||||
; edit_box.key - ®¡à ¡®âª ª« ¢¨ âãàë;
|
||||
; edit_box.mouse - ®¡à ¡®âª ¬ëè¨;
|
||||
; edit_box.focus - ãáâ ®¢ª 䮪ãá ;
|
||||
; edit_box.blur - ¥£® à §¬ë¢ ¨¥;
|
||||
; edit_box.get_n - ¯®«ãç¨âì ª®«¨ç¥á⢮ ¯à®à¨á®¢ë¢ ¥¬ëå ᨬ¢®«®¢.
|
||||
; <20>ਠ¢ë§®¢¥ «î¡ëå ¨§ íâ¨å ¯à®æ¥¤ãà ¢ ॣ¨áâॠedi á«¥¤ã¥â
|
||||
; ®áâ ¢¨âì 㪠§ ⥫ì áâàãªâãàã.
|
||||
; <20>ਬ¥à áâàãªâãàë:
|
||||
; some_edit edit_box 100,10,30,0x00ffffff,0,0x00aaaaaa,0,255,some_edit_text
|
||||
; ¤«¨ , ¢ëá®â , ¢¥àå, 梥â ä® , 梥â à ¬ª¨, ¥á«¨ ¢ë¡à ,
|
||||
; 梥â à ¬ª¨, ¥á«¨ ¥ ¢ë¡à , ¬ ªá¨¬ «ì®¥ ª®«¨ç¥á⢮ ᨬ¢®«®¢,
|
||||
; 㪠§ â¥«ì ¡ãä¥à, £¤¥ ¡ã¤ãâ åà ¨âáï ᨬ¢®«ë. <20>ãä¥à ¤®«¦¥
|
||||
; ®ª 稢 âìáï ã«¥¬, ¯à¨¬¥à ¥á«¨ ¬ ªá¨¬ «ì®¥ ª®«¨ç¥á⢮ 255:
|
||||
; some_edit_text:
|
||||
; rb 256 ;255+1
|
||||
|
||||
; <20>ਬ¥à ¢ë§®¢ ¯à®æ¥¤ãàë:
|
||||
; mov edi,some_edit
|
||||
; call edit_box.draw
|
||||
|
||||
; <20>ਠ¢ë§®¢¥ ¯à®æ¥¤ãàë 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
|
||||
; <20>¥à¥¤ ¢ë§®¢®¬ ®¡à ¡®â稪 ¬ëè¨ á«¥¤ã¥â ¯à®¢¥à¨âì, ï¥âáï «¨ ®ª®
|
||||
; ªâ¨¢ë¬.
|
||||
; …᫨ 饫箪 ¬ëè¨ ¡ë« ¯à®©§¢¥¤¥ § ¯à¥¤¥« ¬¨ 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_flags equ [edi+28] ;ä« £¨
|
||||
ed_max equ [edi+32] ;ª®«-¢® ᨬ¢®«®¢ ª®â®àë¥ ¬®¦® ¬ ªá¨¬ «ì® ¢¢¥áâ¨
|
||||
ed_size equ [edi+36] ;ª®«-¢® ᨬ¢®«®¢
|
||||
ed_pos equ [edi+40] ;¯®§¨æ¨ï ªãàá®à
|
||||
ed_offset equ [edi+44] ;ᬥ饨¥
|
||||
ed_text equ [edi+48] ;㪠§ â¥«ì ¡ãä¥à
|
||||
cl_curs_x equ [edi+52] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® å
|
||||
cl_curs_y equ [edi+56] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® ã
|
||||
ed_insert equ [edi+60] ;word
|
||||
ed_height=14 ; ¢ëá®â
|
||||
;==========================================================
|
||||
;=== ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ =================================
|
||||
;==========================================================
|
||||
.draw:
|
||||
pusha
|
||||
;--- à¨á㥬 à ¬ªã ---
|
||||
call .draw_border ; ”ãªæ¨ï áâ ¡¨«ì
|
||||
.draw_bg_cursor_text:
|
||||
;--- ¨§¬¥ï¥¬ ᬥ饨¥, ¥á«¨ ¤® ---
|
||||
call .check_offset ;¢ëç¨á«¥¨¥ ¯®§¨æ¨¨ ªãàá®à áâ ¡¨«ì
|
||||
;--- à¨á㥬 ¢ãâà¥îî ®¡« áâì ---
|
||||
call .draw_bg ; à¨á®¢ âì ¯àאַ㣮«ì¨ª à ¡®ç¥© ®¡« áâ¨
|
||||
.draw_cursor_text:
|
||||
;--- à¨á㥬 ªãàá®à ---
|
||||
;--- ¬®¦¥â ¥£® ¥ ¤® à¨á®¢ âì ----
|
||||
test dword ed_flags,1
|
||||
je @f
|
||||
call .draw_cursor
|
||||
@@:
|
||||
call .draw_text
|
||||
popa
|
||||
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
|
||||
add ebx,2
|
||||
shl ebx,16
|
||||
mov bx,ed_top
|
||||
add ebx,4
|
||||
mov ecx,ed_text_color
|
||||
mov edx,ed_offset
|
||||
add edx,ed_text
|
||||
int 0x40
|
||||
ret
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ ä® ----------------------------
|
||||
;¢å®¤ë¥ ¤ ë¥
|
||||
;eax
|
||||
;----------------------------------------------------------
|
||||
.draw_bg_eax:
|
||||
pusha
|
||||
mov ecx,ed_top
|
||||
add ecx,1
|
||||
shl ecx,16
|
||||
mov cx,13
|
||||
; sub ecx,1
|
||||
|
||||
mov edx,ed_color
|
||||
mov eax,13
|
||||
int 0x40
|
||||
popa
|
||||
ret
|
||||
|
||||
jmp @f
|
||||
.draw_bg:
|
||||
pusha
|
||||
mov ebx,ed_left
|
||||
add ebx,1
|
||||
shl ebx,16
|
||||
mov bx,ed_width
|
||||
sub ebx,1
|
||||
|
||||
@@:
|
||||
mov ecx,ed_top
|
||||
add ecx,1
|
||||
shl ecx,16
|
||||
mov cx,ed_height
|
||||
sub ecx,1
|
||||
|
||||
mov edx,ed_color
|
||||
mov eax,13
|
||||
int 0x40
|
||||
popa
|
||||
ret
|
||||
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®æ¥¤ãà ¯®«ãç¥¨ï ª®«¨ç¥á⢠ᨬ¢®«®¢ ¢ ⥪ã饩 é¨à¨¥ ª®¬¯®¥â --------------
|
||||
;----------------------------------------------------------
|
||||
.get_n:
|
||||
xor edx,edx ;१ã«ìâ â à ᯮ«®£ ¥âáï ¢ ¯ ॠedx:eax ¢ eax - ®áâ ⮪
|
||||
mov eax,ed_width ;¯®«ã祬 è¨à¨ã ª®¬¯®¥â
|
||||
sub eax,4 ;¢ëç⨬ 4
|
||||
mov ebx,6 ;§ £à㧬¨ ¤¥«¨â¥«ì
|
||||
div ebx ;à §¬¤¥«¨¬ 6
|
||||
ret
|
||||
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®æ¥¤ãà à¨á®¢ ¨ï ªãàá®à --------------------------
|
||||
;----------------------------------------------------------
|
||||
.clear_cursor:
|
||||
mov edx,ed_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
|
||||
inc ebx
|
||||
mov ebp,ebx
|
||||
;push bx
|
||||
shl ebx,16
|
||||
mov bx,bp
|
||||
;pop bx
|
||||
mov ecx,ed_top
|
||||
add ecx,2
|
||||
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,1
|
||||
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
|
||||
push dword ed_offset ;á®åà ¨¬ ᬥ饨¥
|
||||
call .get_n ;¯®«ã稬 ª®«-¢® ᨬ¢®«®¢ ¢ ¯ ॠॣ¨áâ஢ edx:eax
|
||||
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
|
||||
call .draw_bg_eax
|
||||
mov dword [esp+28],0
|
||||
@@: popad
|
||||
ret
|
||||
;==========================================================
|
||||
;=== ®¡à ¡®âª ª« ¢¨ âãàë =================================
|
||||
;==========================================================
|
||||
.key:
|
||||
pusha
|
||||
test dword ed_flags,1 ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬
|
||||
je .no_figure ;@f
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®¢¥à塞, çâ® ¦ â® --------------------------------
|
||||
;----------------------------------------------------------
|
||||
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
|
||||
@@: ; ¯à®¢¥à塞, 室¨âáï «¨ ªãàá®à ¢ ª®æ¥
|
||||
mov edx, ed_max
|
||||
mov ebx, ed_pos
|
||||
cmp ebx,edx
|
||||
jl @f ; ¥á«¨ ¬¥ìè¥ ¨«¨ à ¢®
|
||||
.no_figure:
|
||||
popa
|
||||
ret
|
||||
.insert: not word ed_insert
|
||||
jmp .no_figure
|
||||
.ins_v:
|
||||
pop eax edi
|
||||
dec dword ed_size ;processing is insert
|
||||
push edi eax
|
||||
sub esi,ecx
|
||||
add esi,ebx
|
||||
mov edi,esi
|
||||
jmp .In_k
|
||||
@@: ; ᤢ¨£ ¥¬ ᨬ¢®«ë ¯®á«¥ ªãàá®à ¢¯à ¢®
|
||||
mov ecx,ed_size
|
||||
push edi eax
|
||||
mov esi,ed_text ; “ª § â¥«ì ¡ãä¥à
|
||||
|
||||
movzx eax,word ed_insert
|
||||
;<3B>㤥¬ à ¡®â âì á® áâப®©
|
||||
add esi,ecx ;add ed_size ¤®¡ ¢¨¬ max size
|
||||
mov edi,esi
|
||||
|
||||
cmp ecx,ebx ;…᫨ ã á ¯®§¨æ¨ï ªãàá®à = ⥪ã饬ã à §¬¥àã ¯¥ç â ëå ᨬ¢®«®¢ â.¥. ªãàá®à á⮨⠢ ª®æ¥
|
||||
je .In_k
|
||||
cmp ax,-1 ;IF insert is enable
|
||||
je .ins_v
|
||||
|
||||
sub ecx,ebx ;<3B> ©¤¥¬ ª®«-¢® ᨬ¢®«®¢ ¤«ï ¯¥à¥¤¢¨¦¥¨ï.
|
||||
inc edi ;‘¬¥á⨬ è¨ á¨¬¢®«ë ¢ ¯à ¢®
|
||||
std
|
||||
inc ecx
|
||||
@@:
|
||||
;--------
|
||||
lodsb
|
||||
stosb
|
||||
;--------
|
||||
loop @b
|
||||
.In_k: cld
|
||||
pop eax
|
||||
mov al,ah
|
||||
stosb
|
||||
pop edi
|
||||
; ¢áâ ¢«ï¥¬ ª®¤ ª« ¢¨è¨ â㤠, £¤¥ ªãàá®à
|
||||
; 㢥«¨ç¨¢ ¥¬ § 票¥ à §¬¥à ¨ ¯®§¨æ¨¨
|
||||
inc dword ed_size
|
||||
call .draw_all2
|
||||
inc dword ed_pos
|
||||
jmp .draw_cursor_text
|
||||
.delete:
|
||||
mov edx,ed_size
|
||||
mov ecx,ed_pos
|
||||
|
||||
cmp edx,ecx
|
||||
jg @f
|
||||
popa
|
||||
ret
|
||||
|
||||
@@: call .del_char
|
||||
jmp .draw_all
|
||||
|
||||
;--- ¦ â ª« ¢¨è backspace ---
|
||||
.backspace:
|
||||
; ¯à®¢¥à塞, ªãàá®à ã «¥¢®£® ªà ï ?
|
||||
mov edx,ed_size
|
||||
mov ecx,ed_pos
|
||||
test ecx,ecx
|
||||
jnz @f
|
||||
popa
|
||||
ret
|
||||
|
||||
@@: cmp edx,ecx ;if ed_pos=ed_size
|
||||
je @f
|
||||
dec ecx
|
||||
call .del_char
|
||||
@@:
|
||||
dec dword ed_pos
|
||||
|
||||
.draw_all:
|
||||
; mov eax,.draw_cursor_text
|
||||
push .draw_cursor_text;eax
|
||||
dec dword ed_size
|
||||
.draw_all2:
|
||||
call .clear_cursor
|
||||
call .check_offset
|
||||
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 ;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
|
||||
call .draw_bg_eax
|
||||
ret
|
||||
;--- ¦ â ª« ¢¨è left ---
|
||||
.left:
|
||||
mov ebx,ed_pos
|
||||
test ebx,ebx
|
||||
jz .nd_k
|
||||
call .clear_cursor
|
||||
dec dword ed_pos
|
||||
jmp .nd_k
|
||||
;--- ¦ â ª« ¢¨è right ---
|
||||
.right:
|
||||
mov ebx,ed_pos
|
||||
cmp ebx,ed_size
|
||||
je .nd_k
|
||||
call .clear_cursor
|
||||
inc dword ed_pos
|
||||
jmp .nd_k
|
||||
.home:
|
||||
mov ebx,ed_pos
|
||||
test ebx,ebx
|
||||
jz .nd_k
|
||||
call .clear_cursor
|
||||
xor eax,eax
|
||||
mov ed_pos,eax
|
||||
jmp .nd_k
|
||||
|
||||
.end:
|
||||
mov ebx,ed_pos
|
||||
cmp ebx,dword ed_size
|
||||
je @f
|
||||
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
|
||||
@@:
|
||||
popa
|
||||
ret
|
||||
;- 㤠«¥¨¥ ᨬ¢®«
|
||||
.del_char:
|
||||
mov esi,ed_text
|
||||
add esi,ecx
|
||||
|
||||
mov ebx,esi
|
||||
inc esi
|
||||
cld
|
||||
|
||||
sub edx,ecx
|
||||
mov ecx,edx
|
||||
push edi
|
||||
mov edi,ebx
|
||||
@@:
|
||||
lodsb
|
||||
stosb
|
||||
dec ecx
|
||||
jns @b
|
||||
|
||||
pop edi
|
||||
ret
|
||||
;==========================================================
|
||||
;=== ®¡à ¡®âª ¬ëè¨ =======================================
|
||||
;==========================================================
|
||||
.mouse:
|
||||
pusha
|
||||
;----------------------------------------------------------
|
||||
;--- ¯®«ãç ¥¬ á®áâ®ï¨¥ ª®¯®ª ¬ëè¨ -----------------------
|
||||
;----------------------------------------------------------
|
||||
mov eax,37
|
||||
mov ebx,2
|
||||
int 0x40
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®¢¥à塞 á®áâ®ï¨¥ ----------------------------------
|
||||
;----------------------------------------------------------
|
||||
test eax,1
|
||||
jnz .mouse_left_button
|
||||
; or eax,1
|
||||
; jc @f
|
||||
; btr dword ed_flags,2
|
||||
@@: 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
|
||||
; test eax,eax
|
||||
; jz .draw_bg_cursor_text
|
||||
call .draw_cursor
|
||||
|
||||
call .focus
|
||||
|
||||
.mouse_pressed:
|
||||
popa
|
||||
ret
|
||||
;.mouse_end_no_focus:
|
||||
; call .blur
|
||||
;popa
|
||||
;ret
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®æ¥¤ãà ãáâ ®¢ª¨ 䮪ãá ---------------------------
|
||||
;----------------------------------------------------------
|
||||
.blur:
|
||||
pusha
|
||||
._blur:
|
||||
btr dword ed_flags,0
|
||||
jnc @f
|
||||
call .clear_cursor
|
||||
jmp .blur_end
|
||||
.focus:
|
||||
pusha
|
||||
bts dword ed_flags,0
|
||||
jc @f
|
||||
call .draw_cursor
|
||||
.blur_end:
|
||||
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_focus=10b
|
||||
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
|
||||
.flags dd flags+0
|
||||
.max dd max
|
||||
.size dd size+0
|
||||
.pos dd 0
|
||||
.offset dd 0
|
||||
.text dd text
|
||||
.cl_curs_x dd 0
|
||||
.cl_curs_y dd 0
|
||||
.insert dw 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
|
||||
}
|
||||
2
programs/develop/examples/editbox/trunk/build_ru.bat
Normal file
2
programs/develop/examples/editbox/trunk/build_ru.bat
Normal file
@ -0,0 +1,2 @@
|
||||
@fasm editbox.asm checkbox
|
||||
@pause
|
||||
106
programs/develop/examples/editbox/trunk/editbox.asm
Normal file
106
programs/develop/examples/editbox/trunk/editbox.asm
Normal file
@ -0,0 +1,106 @@
|
||||
; <Lrz> 09.08.2006 ¯à®¨§¢¥¤¥ ®¯â¨¬¨§ æ¨ï à ¡®âë ª®¯®ª DEL ¨ Backspace? 㬥ìè¥ à §¬¥à ¢ë¯®«ï¥¬®£® ª®¤ .
|
||||
;<3B>ä䥪⨢®¥ ¯à®£à ¬¬¨à®¢ ¨¥ ¢ KOLIBRI
|
||||
;Ž¯â¨¬¨§¨à®¢ ë© ª®¬¯®¥â EditBox (ˆáå®¤ë© ¢ ਠ⠮â Maxxxx32)
|
||||
;Ž¯â¨¬¨§ æ¨ï ª®¬ ¤.
|
||||
;<Lrz> - ’¥¯«®¢ €«¥ªá¥© www.test-kolibri.narod.ru
|
||||
|
||||
;§ £®«®¢®ª ¯à¨«®¦¥¨ï
|
||||
use32 ; âà á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §àï¤ëå ª®¬ ¤ë
|
||||
org 0x0 ; ¡ §®¢ë© ¤à¥á ª®¤ , ¢á¥£¤ 0x0
|
||||
db 'MENUET01' ; ¨¤¥â¨ä¨ª â®à ¨á¯®«ï¥¬®£® ä ©« (8 ¡ ©â)
|
||||
dd 0x1 ; ¢¥àá¨ï ä®à¬ â § £®«®¢ª ¨á¯®«ï¥¬®£® ä ©«
|
||||
dd start ; ¤à¥á, ª®â®àë© á¨á⥬ ¯¥à¥¤ ñâ ã¯à ¢«¥¨¥
|
||||
; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥¨ï ¢ ¯ ¬ïâì
|
||||
dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï
|
||||
dd (i_end+0x100) and not 3 ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪ ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢¨¬ £à¨æã 4 ¡ ©â
|
||||
dd (i_end+0x100) and not 3 ; à ᯮ«®¦¨¬ ¯®§¨æ¨î á⥪ ¢ ®¡« á⨠¯ ¬ïâ¨, áà §ã § ⥫®¬ ¯à®£à ¬¬ë. ‚¥àè¨ á⥪ ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, 㪠§ ®¬ ¢ëè¥
|
||||
dd 0x0,0x0 ; 㪠§ ⥫ì áâபã á ¯ à ¬¥âà ¬¨.
|
||||
; ¥á«¨ ¯®á«¥ § ¯ã᪠¥à ¢® ã«î, ¯à¨«®¦¥¨¥ ¡ë«®
|
||||
; § ¯ã饮 á ¯ à ¬¥âà ¬¨ ¨§ ª®¬ ¤®© áâப¨
|
||||
|
||||
; 㪠§ ⥫ì áâபã, ¢ ª®â®àãî § ¯¨á ¯ãâì,
|
||||
; ®âªã¤ § ¯ã饮 ¯à¨«®¦¥¨¥
|
||||
|
||||
include 'editbox.inc'
|
||||
use_edit_box
|
||||
;Ž¡« áâì ª®¤
|
||||
start: ;’®çª ¢å®¤ ¢ ¯à®£à ¬¬ã
|
||||
mov eax,40 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
|
||||
mov ebx,0x27 ;á¨á⥬ ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 á®®¡é¥¨¥ ® ¯¥à¥à¨á®¢ª¥, ¦ â ª®¯ª , ®¯à¥¤¥«ñ ï à ¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ¦ ⨥ ª®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥¨¥; á¡à áë¢ ¥âáï ¯à¨ ¯à®ç⥨¨) ¨ ¦ ⨥ ª« ¢¨è¨
|
||||
int 0x40
|
||||
red_win:
|
||||
call draw_window ;¯¥à¢® ç «ì® ¥®¡å®¤¨¬® à¨á®¢ âì ®ª®
|
||||
still: ;®á®¢®© ®¡à ¡®â稪
|
||||
mov eax,10 ;Ž¦¨¤ âì ᮡëâ¨ï
|
||||
int 0x40 ;®¦¨¤ âì ᮡë⨥ ¢ â¥ç¥¨¥ 2 ¬¨««¨á¥ªã¤
|
||||
|
||||
cmp al,0x1 ;¥á«¨ ¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª
|
||||
jz red_win
|
||||
cmp al,0x2 ;¥á«¨ ¦ â ª« ¢¨è â® ¯¥à¥©â¨
|
||||
jz key
|
||||
cmp al,0x3 ;¥á«¨ ¦ â ª®¯ª â® ¯¥à¥©â¨
|
||||
jz button
|
||||
mouse_edit_boxes editboxes,editboxes_end
|
||||
jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® ⮠ᮢ ¢ 横«
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
button:
|
||||
mov eax,17 ;¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª« ¢¨è¨
|
||||
int 0x40
|
||||
test ah,ah ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ®¡à ¡®â稪 ᮡë⨩ still
|
||||
jz still
|
||||
or eax,-1 ;¢ eax,-1 - 5 ,¡ ©â®¢ ã á ¦¥ ⮫쪮 3 ¢ë©â¨
|
||||
int 0x40 ;¤ «¥¥ ¢ë¯®«ï¥âáï ¢ë室 ¨§ ¯à®£à ¬¬ë
|
||||
|
||||
key:
|
||||
mov eax,2 ;§ £à㧨¬ § 票¥ 2 ¢ ॣ¨áâ®à eax
|
||||
int 0x40 ;¯®«ã稬 ª®¤ ¦ ⮩ ª« ¢¨è¨
|
||||
key_edit_boxes editboxes,editboxes_end
|
||||
jmp still
|
||||
|
||||
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
draw_window: ;à¨á®¢ ¨¥ ®ª ¯à¨«®¦¥¨ï
|
||||
mov eax,12 ;¢ ॣ¨áâà ¢¥á⨠§ 票¥ = 12
|
||||
mov ebx,1 ;¯à¨á¢®¨âì 1
|
||||
int 0x40
|
||||
|
||||
xor eax,eax ;®¡ã«¨âì eax
|
||||
mov ebx,50*65536+390 ;[ª®®à¤¨ â ¯® ®á¨ x]*65536 + [à §¬¥à ¯® ®á¨ x]
|
||||
mov ecx,30*65536+200 ;[ª®®à¤¨ â ¯® ®á¨ y]*65536 + [à §¬¥à ¯® ®á¨ y]
|
||||
mov edx,0x03AABBCC ;0xXYRRGGBB Y =3 - ¢ë¢®¤ à ¬ª¨, ¨á¯®«ì§ãï áªà¨
|
||||
mov esi,0x805080DD ;0xXYRRGGBB - 梥⠧ £®«®¢ª
|
||||
mov edi,0x005080DD ;0x00RRGGBB - 梥â à ¬ª¨
|
||||
int 0x40 ; à¨á®¢ âì ®ª® ¯à¨«®¦¥¨ï
|
||||
|
||||
add eax,4 ;¥á«¨ ¯à¥¤¯®« £ ¥âáï ¨á¯®«ì§®¢ âì ᪠«ïàë© ¯à®æ¥áá®à, â® ¬®¦® ¨á¯®«ì§®¢ âì ¤ î ¨áâàãªæ¨î
|
||||
mov ebx,8*65536+8 ; [ª®®à¤¨ â ¯® ®á¨ x]*65536 + [ª®®à¤¨ â ¯® ®á¨ y] mov ecx,0x10DDEEFF ; 0xX0RRGGBB, £¤¥ RR, GG, BB § ¤ îâ 梥â ⥪áâ
|
||||
mov edx,hed ; 㪠§ ⥫ì ç «® áâப¨
|
||||
mov esi,i_end - hed ; ¤«¨ áâப¨, ¤®«¦ ¡ëâì ¥ ¡®«ìè¥ 255
|
||||
int 0x40 ;¢ë¢¥á⨠⥪áâ
|
||||
|
||||
draw_edit_boxes editboxes,editboxes_end ;à¨á®¢ ¨¥ edit box'®¢
|
||||
|
||||
add eax,8 ;”ãªæ¨ï 12 - ç âì/§ ª®ç¨âì ¯¥à¥à¨á®¢ªã ®ª .
|
||||
mov ebx,2 ;<3B>®¤äãªæ¨ï 2 - § ª®ç¨âì ¯¥à¥à¨á®¢ªã ®ª .
|
||||
int 0x40
|
||||
ret
|
||||
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
;DATA ¤ ë¥
|
||||
editboxes:
|
||||
edit1 edit_box 168,10,50,0xffffff,0,0,0,512,ed_buffer.1,ed_focus
|
||||
edit2 edit_box 168,10,30,0xffffff,0,0,0,99,ed_buffer.2,ed_figure_only
|
||||
edit3 edit_box 35,10,70,0xffffff,0,0,0,9,ed_buffer.3,ed_figure_only
|
||||
edit4 edit_box 16,10,90,0xffffff,0,0,0,1,ed_buffer.4,ed_figure_only
|
||||
editboxes_end:
|
||||
data_of_code dd 0
|
||||
data_of_code1 dd 0
|
||||
ed_buffer:
|
||||
.1: rb 513;512;256
|
||||
.2: rb 100
|
||||
.3: rb 10
|
||||
.4: rb 2
|
||||
;text_b: db 'Š®«-¢® ᨬ¢®«®¢'
|
||||
;buffer: dd 0
|
||||
buffer_end:
|
||||
hed db 'EDITBOX optimization and retype <Lrz> date 12.12.2006'
|
||||
i_end:
|
||||
Loading…
Reference in New Issue
Block a user