upgrade editbox

git-svn-id: svn://kolibrios.org@391 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/examples/editbox/trunk/EDITBOX.INC

@@ -1,3 +1,4 @@
+; <Lrz> 06.03.2007 <20><>९<EFBFBD>ᠫ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD> shift
 ; <Lrz> 15.02.2007 <20><><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD>頥<EFBFBD><E9A0A5><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD>⥫쭮 <20><><EFBFBD><EFBFBD>⭥<EFBFBD> ࠡ<>⠥<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 ; <Lrz> 13.02.2007 <20><>ࠫ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>栭<EFBFBD><E6A0AD>, <20><><EFBFBD><EFBFBD>襭<EFBFBD> <20><>ࠡ<EFBFBD>⪠ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> 䮭<>
 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᥭ<EFBFBD><E1A5AD> 0<>0 <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ed_size <20><><EFBFBD><EFBFBD><EFBFBD> <20> Maxxx32 <20>뫨 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>몮<EFBFBD><EBAAAE><EFBFBD> <20> <20><><EFBFBD><EFBFBD>. <20><><EFBFBD>稭<EFBFBD> <20> ⮬, <20><><EFBFBD> <20><>⨬<EFBFBD><E2A8AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뫠 ᢥ<><E1A2A5><EFBFBD><EFBFBD> <20> ⮬<>, <20><><EFBFBD> <20> <20><> <20><><EFBFBD>⨫ ᨬ<><E1A8AC><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> 㤠<><E3A4A0><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20>뢮<EFBFBD><EBA2AE><EFBFBD>, <20> <20><>⮬, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨫ<EFBFBD><E1A8AB> <20><><EFBFBD><EFBFBD><EFBFBD> ᨬ<><E1A8AC><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ࠫ 㦥 <20><><EFBFBD><EFBFBD>騩<EFBFBD><E9A8A9>. <20>᫨ <20><>, <20>ணࠬ<E0AEA3><E0A0AC> <20><>ࠡ<EFBFBD><E0A0A1>뢠<EFBFBD><EBA2A0> <20><><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD> <20><> ed_size, <20>஡<EFBFBD><E0AEA1><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><> ᥩ<><E1A5A9><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⮪ <20><><EFBFBD>ࠢ<EFBFBD><E0A0A2><EFBFBD>.
@@ -69,10 +70,7 @@ ed_offset	equ [edi+46]            ;ᬥ饭
 cl_curs_x	equ [edi+50]		;<3B>।<EFBFBD><E0A5A4><EFBFBD>饥 <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>
 cl_curs_y	equ [edi+54]		;<3B>।<EFBFBD><E0A5A4><EFBFBD>饥 <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>
 ed_shift_pos	equ [edi+58]
-ed_height=14 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_shift_pos_old equ [edi+62]
-shift_color=0x6a9480
-ed_insert=100000b
-ed_insert_cl=1111111111011111b
 ;==========================================================
 ;=== <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> =================================
 ;==========================================================
@@ -112,7 +110,7 @@ ret
 ;	;das	    ;<3B><>᫥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20>ந<EFBFBD>室<EFBFBD><E5AEA4> 㬥<><E3ACA5>襭<EFBFBD><E8A5AD> al <20><> 66h  (<28> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ᠭ<EFBFBD> <20><>㣮<EFBFBD>)
 ;	or al,0x30  ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  祬 <20><><EFBFBD> <20><><EFBFBD><EFBFBD> 
 ;	stosb	    ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> ॣ<><E0A5A3><EFBFBD><EFBFBD><EFBFBD> al <20> <20>祪<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> es:edi
-;
+ ;
 ;	ret	    ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 祭<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 室 <20>.<2E>. <20><><EFBFBD><EFBFBD> <20> <20>⥪<EFBFBD> <20>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20>맮<EFBFBD><EBA7AE><EFBFBD> <20><> <20>⮫쪮 ࠧ <20><> <20> <20>㤥<EFBFBD> <20><><EFBFBD>뢠<EFBFBD><EBA2A0><EFBFBD><EFBFBD>
 
 ;----------------------------------------------------------
@@ -146,16 +144,6 @@ 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
 ;<3B>室 ⮫쪮 梥<> edx
 .draw_bg:
 	mov	ebx,ed_left
@@ -163,15 +151,14 @@ ret
 	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	edx,ed_color
 	mov	cx,ed_height
-	sub	ecx,1
+	dec	ecx
         int	0x40
 ret
 
@@ -189,19 +176,16 @@ ret
 ;----------------------------------------------------------
 ;--- <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> --------------------------
 ;----------------------------------------------------------
+;<3B>室<EFBFBD><E5AEA4><EFBFBD> ebp- 梥<>
 .clear_cursor:
-	mov	edx,ed_color
+	mov	edx,ebp
-        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
@@ -317,36 +301,11 @@ pusha
 	mov	ebx,edx
 	jmp	.chk_d
 .add_8:	add	ebx,edx
-
-;	;-----------  <20>⫠<EFBFBD><E2ABA0><EFBFBD>
-;	pushad
-;	mov	[data_of_code],0
-;	mov eax,ebx;ed_offset
-;	mov edi,data_of_code
-;	call .str
-;	;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> 䮭<>
-;	mov eax,13
-;	mov ebx,178*65536+36
-;	mov ecx,28*65536+10
-;	xor edx,edx
-;	int 0x40
-;	;<3B>뢮<EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> <20><> <20><>࠭
-;	mov eax,4
-;	mov ebx,180*65536+30
-;	mov ecx,0x10DDBBCC
-;	mov edx,data_of_code
-;	mov esi,4
-;	int 0x40
-;	popad
-;	;----------- <20>⫠<EFBFBD><E2ABA0><EFBFBD>
-
 .chk_d:	mov	ed_offset,ebx
-
 	call    .draw_bg
-	mov	dword [esp+28],-1
+	;mov	dword [esp+28],-1
 popa
 	ret
-
 @@:
 	mov	dword [esp+28],0
 popa
@@ -358,7 +317,6 @@ popa
 pusha
 	test	word ed_flags,ed_focus ; <20>᫨ <20><> <20> 䮪<><E4AEAA><EFBFBD>, <20><>室<EFBFBD><E5AEA4>
 	je      @b
-
 ;<3B>஢<EFBFBD>ઠ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> shift
 	xor	ecx,ecx
 	push	eax	
@@ -416,20 +374,19 @@ pusha
 	mov	ecx,ed_pos
 	pusha
         
-	cmp	edx,ecx
+	;cmp	edx,ecx
-	jne	.sh_cl
+	;jne	.sh_cl
 ;clear
+	mov	ebp,edx ;ed_size
+        call	.clear_bg
        	mov	ebp,ed_color
         call	.sh_cl_
-        jmp	.sh_nxt
-.sh_cl: mov	ebp,edx ;ed_size
-        call	.clear_bg
 
-.sh_nxt: popa 
+.sh_nxt:popa 
 	call	.del_char
         
 ;;;;
-        mov	eax,ed_shift_pos
+        mov	eax,dword ed_shift_pos
         mov	ebx,ed_size
 	sub	ebx,eax
 	mov	ed_size,ebx
@@ -487,8 +444,6 @@ pusha
 	mov	ebp,ed_size
 	call	.clear_bg
 popa
-
-
 	sub	ecx,ebx         ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
 	inc	edi		;<3B><><EFBFBD><EFBFBD>⨬ <20><><EFBFBD><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD> <20> <20>ࠢ<EFBFBD>
 	std
@@ -548,11 +503,12 @@ popa
 
         test	word ed_flags,ed_shift_on
         je	@f
-        mov	eax,ed_shift_pos
+        mov	eax,dword ed_shift_pos
         mov	ebx,ed_size
 	sub	ebx,eax
 	mov	ed_size,ebx
 
+	mov	ebp,ed_color
 	call	.clear_cursor
 	call	.check_offset
         call	.draw_bg
@@ -563,6 +519,7 @@ popa
 
 .draw_all2:
 	and    word ed_flags,ed_shift_cl
+	mov	ebp,ed_color
 	call	.clear_cursor
 	call	.check_offset
 	mov	ebp,ed_size
@@ -570,59 +527,59 @@ popa
 	ret
 	;jmp	.shift
 ;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> left ---
-.left:  call	.sh_enable
+.left:  mov	ebx,ed_pos
-	mov	ebx,ed_pos
 	test	ebx,ebx
-	jz	.nd_k
+	jz	.sh_st_of
-	call	.clear_cursor
+	or	word ed_flags,ed_left_fl
+	call	.sh_first_sh
 	dec	 dword ed_pos
-	jmp	.nd_k
+	call	.sh_enable
+	jmp	.draw_cursor_text
 ;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> right ---
-.right: call	.sh_enable
+.right:	mov	ebx,ed_pos
-	mov	ebx,ed_pos
 	cmp	ebx,ed_size
-	je	.nd_k
+	je	.sh_st_of
-	call	.clear_cursor
+	and	word ed_flags,ed_right_fl
+	call	.sh_first_sh
 	inc	dword  ed_pos
-	jmp	.nd_k
+	call	.sh_enable
-.home:  call	.sh_enable
+	jmp	.draw_cursor_text
+.home:  
 	mov	ebx,ed_pos
 	test	ebx,ebx
-	jz	.nd_k
+	jz	.sh_st_of
-	call	.clear_cursor
+	call	.sh_first_sh
 	xor	eax,eax
 	mov	ed_pos,eax
-	jmp	.nd_k
+	call	.sh_home_end
-
+ 	jmp	.draw_cursor_text
-.end:   call	.sh_enable
+.end:   
 	mov	ebx,ed_pos
 	cmp	ebx,dword ed_size
-	je	.nd_k
+	je	.sh_st_of
-	call	.clear_cursor
 	mov	eax,ed_size
 	mov	ed_pos,eax
-.nd_k:	call	.check_offset
+	call	.sh_home_end
-	;test	eax,eax
+	jmp	.draw_cursor_text
-	;jz	.draw_bg_cursor_text
+;<3B><>ࠡ<EFBFBD>⪠ Shift <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-	call	.draw_cursor
-
 .shift: ;;;;;;;SHIFT
 	test    word ed_flags,ed_shift
         je	.f_exit
 
-	mov	ebp,shift_color
+@@:	mov	ebp,shift_color
+	or	word ed_flags,ed_shift_bac ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> 䫠<><E4ABA0>, <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 	call	.sh_cl_
         jmp	.draw_cursor_text
 ;;;;;;;;;;;;;;;;;;;;;
-
+.f_exit:call	.check_offset
-.f_exit: and    word ed_flags,ed_shift_cl
+	and    word ed_flags,ed_shift_cl
         call	.enable_null
 	jmp	.draw_cursor_text
-
 .sh_cl_:
 ;;;;;;SHIFT end
+;<3B><>ࠡ<EFBFBD>⪠ <20><><EFBFBD><EFBFBD>⪨, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - <20>ࠢ<EFBFBD><E0A0A2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>
 ;<3B><><EFBFBD> <20><>ࠡ<EFBFBD>⪨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>
-	or	word ed_flags,ed_shift_bac
+;	or	word ed_flags,ed_shift_bac ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> 䫠<><E4ABA0>, <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 	mov 	eax,dword	ed_pos
 	mov	ebx,dword	ed_shift_pos
 	cmp	eax,ebx
@@ -635,6 +592,8 @@ popa
 	push	eax
 .sh_n1: 
 	call	.check_offset
+;	test	eax,eax
+;	jz      .drw_sim
 	call	.get_n
 	mov	edx,eax	;size of ed_box
 ;	push	eax
@@ -644,7 +603,6 @@ popa
 	pop	ebx     ;<3B><><EFBFBD><EFBFBD>襥
 	pop	eax     ;<3B><><EFBFBD><EFBFBD>襥
 
-	
 	cmp	eax,ecx         ;<3B>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>襣<EFBFBD> <20> offset.
 	jae	.f_f            ;<3B>᫨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 	xor	eax,eax
@@ -677,34 +635,187 @@ popa
 	lea	ecx,[edx*2+edx]
 	shl	ecx,1	
 	mov	bx,cx
-
+	inc	ebx
 	mov	edx,ebp;shift_color
 
 	call	.draw_bg_eax
-	and    word ed_flags,1111111111111011b
+@@:	;and    word ed_flags,1111111111111011b
 	call	.enable_null
+	;mov	dword	ed_shift_pos,0
 	ret
+;;;;;;;;;;;;;;;;;;;;;
+;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD>- <20><><EFBFBD>⨥ <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> ᨬ<><E1A8AC><EFBFBD>
+;;;;;;;;;;;;;;;;;;;;;
+.drw_sim:
+	mov	eax,dword	ed_pos
+	call    .draw_rectangle   ;<3B><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><>אַ㣮<EFACAE>쭨<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 梥⮬
+        jmp     @b
+;;;;;;;;;;;;;;;;;;;;;
 
+;;;;;;;;;;
+;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><>ࠢ<EFBFBD> <20> <20><><EFBFBD><EFBFBD>⨨ shift
+;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 
+;;;;;;;;;;
+.draw_wigwag:
+;<3B>㭪<EFBFBD><E3ADAA><EFBFBD> <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>
+	mov	ebp,shift_color
+	call	.clear_cursor
+
+	or	word ed_flags,ed_shift_bac ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> 䫠<><E4ABA0>, <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+	mov	ebp,shift_color
+	mov 	eax,dword	ed_pos
+	;mov	ebx,dword	ed_shift_pos
+	test	word ed_flags,ed_left_fl
+	jz      .low
+;	sub	eax,2
+	;dec	eax
+	jmp	@f
+;;;;;;;;;;
+;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㤠<><E3A4A0><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><>ࠢ<EFBFBD> <20> <20><><EFBFBD><EFBFBD>⨨ shift
+;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 
+;;;;;;;;;;
+.draw_wigwag_cl:
+;<3B>㭪<EFBFBD><E3ADAA><EFBFBD> <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>
+	mov	ebp,ed_color
+	call	.clear_cursor
+
+	mov	ebp,ed_color
+	mov 	eax,dword	ed_pos
+	;mov	ebx,dword	ed_shift_pos
+	test	word ed_flags,ed_left_fl
+	jz      .low
+	;dec	eax
+@@:     call	.draw_rectangle  ;<3B><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><>אַ㣮<EFACAE>쭨<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>訢<EFBFBD><E8A8A2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+	ret
+.low:   dec	eax
+        jmp	@b
+;<3B>室<EFBFBD><E5AEA4><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD> 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
+
+;<3B><>ࠡ<EFBFBD>⪠ <20>ࠩ<EFBFBD><E0A0A9><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> editbox <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⮬ shift
+;<3B>ந<EFBFBD><E0AEA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⨥ <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>, <20>᫨ <20><><EFBFBD> shift
+;<3B><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>室<EFBFBD><E5AEA4>
+.sh_st_of:
+	test    word ed_flags,ed_shift
+	jne	@f
+	test    word ed_flags,ed_shift_bac
+        je      @f
+       	mov	ebp,ed_color
+	call	.sh_cl_  ;<3B><><EFBFBD><EFBFBD>⪠ <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ࠣ<EFBFBD><E0A0A3><EFBFBD><EFBFBD><EFBFBD>
+	call	.draw_wigwag_cl	
+	and	word ed_flags,ed_shift_cl ; <20><><EFBFBD><EFBFBD>⪠ <20><> ⮣<> <20><><EFBFBD> <20><>ࠫ<EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> 
+	jmp     .draw_cursor_text
+@@:
+     	;-----------  <20>⫠<EFBFBD><E2ABA0><EFBFBD>
+;	pushad
+;	mov	dword [ed_buffer.3],0
+;	mov eax,ebx;word ed_flags
+;	mov edi,ed_buffer.3
+;	call .str
+;	;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> 䮭<>
+;	mov eax,13
+;	mov ebx,178*65536+70
+;	mov ecx,28*65536+10
+;	xor edx,edx
+;	int 0x40
+;	;<3B>뢮<EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> <20><> <20><>࠭
+;	mov eax,4
+;	mov ebx,180*65536+30
+;	mov ecx,0x10DDBBCC
+;	mov edx,ed_buffer.3
+;	mov esi,8
+;	int 0x40
+;	popad
+	;----------- <20>⫠<EFBFBD><E2ABA0><EFBFBD>
+        and	word ed_flags,ed_shift_off
+	popa
+	ret	
 
 ;<3B>஢<EFBFBD>ઠ <20><><EFBFBD><EFBFBD><EFBFBD>ﭨ<EFBFBD> shift <20><><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> ࠭<><E0A0AD><EFBFBD>?
 .sh_enable:
 	test    word ed_flags,ed_shift
-	je	@f
+	jne	.sh_ext_en ;<3B><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><>אַ㣮<EFACAE>쭨<EFBFBD>
-	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
 
-@@:     test    word ed_flags,ed_shift_bac
+	test    word ed_flags,ed_shift_bac
         je      @f
+       	call	.check_offset
+
 	mov	ebp,ed_color
 	call	.sh_cl_  ;<3B><><EFBFBD><EFBFBD>⪠ <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ࠣ<EFBFBD><E0A0A3><EFBFBD><EFBFBD><EFBFBD>
-@@:	and	word ed_flags,ed_shift_cl
+	call	.draw_wigwag_cl	
-;	ret
+	and	word ed_flags,ed_shift_cl ; 1<><31><EFBFBD> <20><> <20>㦭<EFBFBD> 
-.sh_ext_en:	
 	ret
+
+@@:     mov	ebp,ed_color
+	call	.clear_cursor
+	call	.check_offset
+	ret
+.sh_ext_en:	
+       	call	.check_offset
+	test	eax,eax
+	jnz	@f
+;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><>אַ㣮<EFACAE>쭨<EFBFBD><ECADA8><EFBFBD> <20> <20><><EFBFBD><EFBFBD>⪠ <20><>
+        mov 	eax,dword	ed_shift_pos
+	mov	ebx,dword	ed_pos
+	mov	ecx,dword	ed_shift_pos_old
+;<3B>஢<EFBFBD>ઠ <20> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><><EFBFBD><EFBFBD><EFBFBD>⥩
+	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
+	call	.sh_cl_
+	jmp	.sh_e_end
+;<3B>㭪<EFBFBD><E3ADAA><EFBFBD> <20><><EFBFBD> <20><>ࠡ<EFBFBD>⪨ shift <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⨨ 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
+	call	.sh_cl_
+
+@@:	test    word ed_flags,ed_shift
+	je	.sh_exit_ ;<3B><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><>אַ㣮<EFACAE>쭨<EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
+    	call	.check_offset
+        mov	ebp,shift_color
+	call	.sh_cl_
+	or	word ed_flags,ed_shift_bac ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> 䫠<><E4ABA0>, <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+	jmp	.sh_e_end
+.sh_exit_:	ret
+
+
+;	test    word ed_flags,ed_shift_bac
+;        je      @f
+
+
+
+
+
+
+
+
+
 ;<3B>㭪<EFBFBD><E3ADAA><EFBFBD> <20><><EFBFBD>ᥭ<EFBFBD><E1A5AD> 0 <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ed_size+1
 .enable_null:
         pusha
@@ -735,8 +846,7 @@ popa
 	sub	edx,ecx
 	add	esi,ecx
 
-
+	mov	dword ed_shift_pos,ebp
-	mov	ed_shift_pos,ebp
         jmp	.del_ch_sh
 	             ;<3B>᫨ <20><><EFBFBD><EFBFBD><EFBFBD>
 .dh_n: 	
@@ -745,7 +855,7 @@ popa
 	add	ebx,ecx
 	sub	edx,eax
 	add	esi,eax
-	mov	ed_shift_pos,ebp
+	mov	dword ed_shift_pos,ebp
 	jmp	.del_ch_sh
 
 @@:	add	esi,ecx ;㪠<><E3AAA0>⥫<EFBFBD> + ᬥ饭<E1ACA5><E9A5AD> <20> ॠ<>쭮<EFBFBD><ECADAE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
@@ -812,8 +922,26 @@ popa
 	mov	edx,ed_color
 	call	.draw_bg_eax
 	ret
-
+;;;;;;;;;;;;;;;;;;;
-
+;;; <20><>ࠡ<EFBFBD>⪠ <20>ਬ<EFBFBD>⨢<EFBFBD><E2A8A2>
+;;;;;;;;;;;;;;;;;;;;
+;<3B><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><>אַ㣮<EFACAE>쭨<EFBFBD>, 梥<> <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20> ebp
+;<3B>室<EFBFBD><E5AEA4><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD>:
+;eax=dword ed_pos
+;ebp=-梥<> ed_color or shift_color 
+.draw_rectangle:
+;        mov	eax,dword ed_pos
+	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
 ;==========================================================
 ;=== <20><>ࠡ<EFBFBD>⪠ <20><><EFBFBD><EFBFBD> =======================================
 ;==========================================================
@@ -863,6 +991,7 @@ pusha
 	jg	._blur;.mouse_end_no_focus
 ;--- <20><><EFBFBD><EFBFBD><EFBFBD>塞 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
 	push	eax
+	mov	ebp,ed_color
 	call	.clear_cursor
 	pop	eax
 	xor	dx,dx
@@ -892,6 +1021,7 @@ pusha
 	jne	@f
 	btr	word ed_flags,1 ; <20>᫨ <20><> <20> 䮪<><E4AEAA><EFBFBD>, <20><>室<EFBFBD><E5AEA4>
 	jnc     @f
+	mov	ebp,ed_color
 	call	.clear_cursor
 .drc:	call	.draw_border
 @@:
@@ -912,13 +1042,20 @@ ret
 ;popa
 ;ret
 }
-ed_figure_only=1000000000000000b
+ed_figure_only= 1000000000000000b
-ed_always_focus=100000000000000b
+ed_always_focus= 100000000000000b
 ed_focus=10b
-ed_shift_on=1000b
+ed_shift_on=                1000b   ;<3B>᫨ <20><> <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD> -<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> shift,<2C>᫨ <20><><EFBFBD> <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 㦥 <20><><EFBFBD> - <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㤥ন<E3A4A5><E0A6A8><EFBFBD> shift
-ed_shift=100b
+ed_shift=                    100b   ;<3B><><EFBFBD><EFBFBD>砥<EFBFBD><E7A0A5><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⨨ <20><> shift <20>.<2E>. <20>᫨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_shift_bac=10000b
+ed_shift_off=   1111111111111011b
-ed_shift_cl=1111111111100011b
+ed_shift_bac=              10000b   ;<3B><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⪨ <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> shift <20>.<2E>. <20><><EFBFBD> <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>
+ed_shift_cl=    1111111111100011b
+ed_left_fl=               100000b
+ed_right_fl=    1111111111011111b
+ed_insert=              10000000b
+ed_insert_cl=   1111111101111111b
+ed_height=14 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+shift_color=0x6a9480
 macro draw_edit_boxes start,end
 {
 	mov	edi,start
@@ -948,7 +1085,7 @@ macro key_edit_boxes start,end
 	add	edi,ed_struc_size
 	loop	@b
 }
-ed_struc_size=62
+ed_struc_size=66
 struc  edit_box width,left,top,color,focus_border_color,\
        blur_border_color,text_color,max,text,flags,size
 {
@@ -968,6 +1105,7 @@ struc  edit_box width,left,top,color,focus_border_color,\
 .cl_curs_x dd 0
 .cl_curs_y dd 0
 .shift   dd 0
+.shift_old   dd 0
 }
 
 macro edit_boxes_set_sys_color start,end,color_table

programs/develop/examples/editbox/trunk/build_ru.bat

@@ -1,3 +1,3 @@
 @fasm editbox.asm editbox
-@mtappack editbox
+@kpack editbox
 @pause

programs/develop/examples/editbox/trunk/editbox.asm

@@ -95,7 +95,7 @@ ed_buffer:
 ;text_b: db '<27><><EFBFBD>-<2D><> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD>'
 ;buffer: dd 0
 buffer_end:
-hed db   'EDITBOX optimization and retype <Lrz> date 15.02.2007',0
+hed db   'EDITBOX optimization and retype <Lrz> date 06.03.2007',0
 i_end1:
 rb 1024
 i_end: