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

-;  04.04.2007 á¯à ¢«¥® ã¯à ¢«¥¨¥ ¬ëèª®©, ¯à¨ ã¤ «¥¨¨ ¯®á«¥¤¥£® á¨¬¢®«  ¢ ¡ãä¥à¥ ¯¨è¥âìáï 0 (á¯ á¨¡® Mario79)
-;  04.04.2007 ®¤¥à¨§¨à®¢ « á¨áâ¥¬ã ¢ë¤¥«¥¨ï, áãé¥áâ¢¥® ¯¥à¥¤¥« ® ã¯à ¢«¥¨¥ ¨ ®¡à ¡®âª , ¤®¡ ¢«¥® ¡«®ª¨à®¢ ¨ï ®¡à ¡®âª¨ ¤àã£¨å ¡®ªá®¢, ¢® ¢à¥¬ï ¢ë¤¥«¥¨ï ¬ëèª®© â¥ªáâ , ¤«ï íâ®£® ¢ â¥ªáâ ¯à®£à ¬¬ë ¥®¡å®¤¨¬® ¤®¡ ¢¨âì ¨¤¥â¨ä¨ª â®à ¡®ªá  â.¥. dd 0x0 ¨ ¢ ¥£® ¡ã¤¥â ¯®¬¥é âìáï ãª  â¥«ì   editbox
-;  30.03.2007 ¥à¥¤¥« « ¯à®æ¥¤ãàã ¢ë¤¥«¥¨ï, â¥¯¥àì â¥ªáâ ¢ë¤¥«ï¥âáï â®«ìª® â®«ìª® ¬ëèª®©
-;  09.03.2007 ®¯¨á « ã¯à ¢«¥¨¥ mouse + shift  ¢ë¤¥«¥¨¥ ¨ ¯¥à¥¬¥é¥¨¥
-;  07.03.2007 ®¯¨á « ã¯à ¢«¥¨¥ á shift home + end ãá¯à ¢¨« ¥áª®«ìª® ¡ £®¢
-;  06.03.2007 ¥à¥¯¨á « ¯®«®áâìî  «£®à¨â¬ ã¯à ¢«¥¨ï shift
-;  15.02.2007 ã«ãçè¥¨¥ áïâ¨ï ¢ë¤¥«¥¨ï ¨ ¯¥à¥à¨á®¢ª¨ ®ç¨é ¥¬®© ®¡« áâ¨, § ç¨â¥«ì® ¯à¨ïâ¥¥ à ¡®â ¥â ª®¬¯®¥â
-;  13.02.2007 ã¡à « ¯® ¢®§¬®¦®áâ¨ ¬¥àæ ¨¥, ã«ãçè¥  ®¡à ¡®âª  ¯¥à¥à¨á®¢ª¨ ä®
-; ¤®¡ ¢¨« ä¨âçã ¢¥á¥¨ï 0å0 ¯®  ¤à¥áã ed_size ¨ ç¥ ã Maxxx32 ¡ë«¨ ¥á®áâëª®¢ª¨ ¢ ª®¤¥. à¨ç¨  ¢ â®¬, çâ® ®¯â¨¬¨§ æ¨ï ¡ë«  á¢¥¤¥  ª â®¬ã, çâ® ï ¥ ç¨áâ¨« á¨¬¢®«ë ¢ ¡ãä¥à¥, ª®£¤  ã¤ «ï«, ï ¯à®áâ® ¨å ¥ ¢ë¢®¤¨«, ¨ ¯®â®¬, ª®£¤  ¢®á¨«áï ®¢ë© á¨¬¢®«, ® ¯®¯à®áâã § â¨à « ã¦¥ ¨¬¥îé¨©áï. á«¨ ¡ë, ¯à®£à ¬¬  ®¡à ¡ âë¢ «  ª®¥æ áâà®ª¨ ¯® ed_size, ¯à®¡«¥¬ë ¥ ¢®§¨ª«®. ® á¥©ç á íâ®â ¥¤®áâ â®ª ¨á¯à ¢«¥.
-;  01.02.2007 ¤®à ¡®âª  edit_box, ¨á¯à ¢¨« ¡ £¨.
-;  26.01.2007 ®à¬ «ì ï à ¡®â  ª®¬¯ ¥â  ¨á¯à ¢¨« äãªæ¨î .check_offset
-;  24.01.2007 ¯®ä¨ªá¥« ¡ £¨ ¢ë§¢ ë¥ ¥ ¯à ¢¨«ìë¬ ª®¤®¬ )).
-;  22.01.2007 ¨§¡ ¢¨«áï ®â £«îª®¢ ¯à¨ à ¡®â¥ á ¢ë¤¥«¥¨¥¬ ¨ ã¤ «¥¨¥, ª®àà¥ªâ ï à ¡®â  ª« ¢¨è¥© del & backspase
-;  20.01.2007 à¥ «¨§®¢ « ¢ë¤¥«¥¨¥ â¥ªáâ  ¯® shift
-;  12.12.2006 à¥ «¨§®¢ « ¯®¤¤¥à¦ªã ª®¯ª¨ insert ¨ á¥£®¤ï ª®¬¯®¥â ¯®çâ¨ à ¡®â ¥â!!!!
-;  07.12.2006 ¯à®¤®«¦ ¥âáï à ¡®â   ¤ ¯¥à¥à ¡®âª®© ª®¬¯®¥â ,¨§¬¥¥¨ï¬ ¯®¤¢¥à£«¨áì ¬®£¨¥ äãªæ¨¨, ¯¥à¥à ¡®â  ¢ë¢®¤ â¥ªáâ ,   â ª  ¦¥  «£®à¨â¬ ¢¥á¥¨ï á¨¬¢®«®¢.
+; SEE YOU File FAQ.txt and HISTORY. Good Like!
-;  03.09.2006 ¯® ¢®§¬®¦®áâ¨ ®âª § «áï ®â 16 ¡¨â®©  à¨ä¬¥â¨ª¨, ¤®¡ ¢¨« ®¢ë¥ ¡ £¨
-;  09.08.2006 ¯à®¨§¢¥¤¥  ®¯â¨¬¨§ æ¨ï à ¡®âë ª®¯®ª DEL ¨ Backspace, ã¬¥ìè¥ à §¬¥à ¢ë¯®«ï¥¬®£® ª®¤ .
-;  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
-; ä®ªãá â¥àï¥âáï.
 ;;;;;;;;;;;;;;;;;;
 include 'editbox.mac'    ;¬ ªà®á ª®â®àë© ¤®«¦¥ ®¡«¥£ç¨âì ¦¨§ì :) á¯¥æ¨ «ì® ¤«ï editbox
 ;;;;;;;;;;;;;;;;;;
-macro use_edit_box
+macro use_edit_box structure_of_potock,scr_h,scr_w
+{
 edit_box:
 ed_width        equ [edi]               ;è¨à¨  ª®¬¯®¥â
 ed_left         equ [edi+4]             ;¯®«®¦¥¨¥ ¯® ®á¨ å
 ed_top          equ [edi+8]             ;¯®«®¦¥¨¥ ¯® ®á¨ ã
         jz      @f
         cmp     eax,edi
         je      @f
         jmp     ._blur
 ;----------------------------------------------------------
-;--- ¬®¤¨ä¨æ¨àã¥¬ ª®®à¤¨ âë, â.¥. ¤®¡ ¢«ï¥¬ ª®®à¤¨ âë ®ª .
-;----------------------------------------------------------
-@@:     mcall   9,structure_of_potock,-1
-;----------------------------------------------------------
 ;--- ¯®«ãç ¥¬ ª®®à¤¨ âë ¬ëè¨ ®â®á¨â¥«ì® 0 â.¥ ¢á¥© ®¡« áâ¨ íªà
 ;----------------------------------------------------------
-        mcall   37,0
+@@:     mcall   37,0
 ;----------------------------------------------------------
 ;---  ¥ ã¤¥à¦¨¢ ¥¬ «¨ ¬ë ª« ¢¨èã ¬ëèª¨, ¯¥à¥¬¥é ï ªãàá®à, ¢® ¢á¥ à §ë¥ áâ®à®ë?
 ;----------------------------------------------------------
         mov     ecx,structure_of_potock
         test    word ed_flags,ed_mouse_on
 ;----------------------------------------------------------
 ;--- ¯à®¢¥àï¥¬, ¯®¯ ¤ ¥â «¨ ªãàá®à ¢ edit box -------------
 ;----------------------------------------------------------
         mov     ebx,dword [ecx+38]
         add     ebx,ed_top
+if scr_h eq
+else
-        add     ebx,22
+        add     ebx,scr_h
+end if
         cmp     ax,bx
         jl      ._blur;.mouse_end_no_focus
         add     ebx,ed_height
         shr     eax,16
+        mov     ebx,dword [ecx+34]
+        add     ebx,ed_left
-        mov     ebx,dword [ecx+34]
+if scr_w eq
+else
-        add     ebx,ed_left
+        add     ebx,scr_w
-        add     ebx,5
+end if
         cmp     ax,bx
         jl      ._blur;.mouse_end_no_focus
         mov     ecx,structure_of_potock
         mov     ebx,dword [ecx+34]
         xor     edx,edx
         sub     eax,ed_left
         sub     eax,ebx
+if scr_w eq
+else
+        add     ebx,scr_w
-        sub     eax,5-2    ;â®«é¨  ®¡¢®¤ª¨ áª¨  =5
+        sub     eax,2
+end if
         mov     ebx,6
         div     bx
         add     eax,ed_offset
         cmp     eax,ed_size
         jna     ._mshift
 ;;¯à®æ¥¤ãà  ®¡à ¡®âª¨ ¯®«®¦¥¨ï ¢ë¤¥«¥®£® â¥ªáâ , ª®£¤  ¯à®¨áå®¤¨â ¢ëå®¤ §  ¯à¥¤¥«ë editbox
 ;;;;;;;;;;;;;;;;;;
         mov     ecx,structure_of_potock
         mov     ebx,dword [ecx+34]
         add     ebx,ed_left
+if scr_w eq
+else
-        add     ebx,5
+        add     ebx,scr_w
+end if
-	cmp	eax,ebx
+        cmp     eax,ebx
-	jb	.mleft
+        jb      .mleft
-	add	ebx,ed_width
+        add     ebx,ed_width
-	jmp	.draw_cursor_text
+        jmp     .draw_cursor_text
 ;       popa
 ;       ret
 .mleft:
-	mov	eax,ed_pos
+        mov     eax,ed_pos
-	test	eax,eax
+        cmp     eax,0
-	jz	.mwigvag
+        jbe      .mwigvag
-	dec	eax
+        dec     eax
-	call	.check_offset
+        call    .check_offset
-	push	eax
+        push    eax
-	mov	ebx,ed_shift_pos
+        mov     ebx,ed_shift_pos
-	mov	ebp,shift_color
+        mov     ebp,shift_color
 ed_insert_cl=   1111111101111111b
 ed_mouse_on =          100000000b
 ed_mous_adn_b=         100011000b
 ed_mouse_on_off=1111111011111111b
 ed_height=14 ; ¢ëá®â
-macro draw_edit_boxes start,end
+macro draw_edit_boxes start,_end,use_f9,structure_of_potock
+{
+if use_f9 eq
+else
+        mcall   9,structure_of_potock,-1
+end if
         mov     edi,start
-        mov     ecx,((end-start)/ed_struc_size)
+        mov     ecx,((_end-start)/ed_struc_size)
 @@:
         call    edit_box.draw
         add     edi,ed_struc_size
         loop    @b
+}
-macro mouse_edit_boxes start,end
+macro mouse_edit_boxes start,_end
+{
         mov     edi,start
-        mov     ecx,((end-start)/ed_struc_size)
+        mov     ecx,((_end-start)/ed_struc_size)
 @@:
         call    edit_box.mouse
         add     edi,ed_struc_size
         loop    @b
         mov     ed_blur_border_color,eax
         add     edi,ed_struc_size
         loop    @b
+}
-macro draw_edit_box ed_ptr
+macro draw_edit_box ed_ptr,use_f9,structure_of_potock
+{
+if use_f9 eq
+else
+        mcall   9,structure_of_potock,-1
 end if
         mov     edi,ed_ptr
         call    edit_box.draw
+}
 macro key_edit_box ed_ptr
+{
         mov     edi,ed_ptr
         call    edit_box.key
+}
 macro default_box ed_ptr
+{
+pusha
+;	xor	eax,eax
+;	mov 	ed_shift_pos,eax
+;	mov	ed_shift_pos_old,eax
+	and	word ed_flags,ed_shift_cl
+;	mov	ed_offset,eax
+popa
+}

Subversion Repositories Kolibri OS

(root)/programs/develop/examples/editbox/trunk/EDITBOX.INC – Rev 463 → 468