modernization component

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

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

@@ -1,3 +1,4 @@
+; <Lrz> 19.01.2007 ॠ<><E0A5A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> ⥪<><E2A5AA><EFBFBD> <20><> shift
 ; <Lrz> 12.12.2006 ॠ<><E0A5A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>প<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> insert <20> ᥣ<><E1A5A3><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ࠡ<>⠥<EFBFBD>!!!!
 ; <Lrz> 07.12.2006 <20>த<EFBFBD><E0AEA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠡ<><E0A0A1><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>ࠡ<EFBFBD>⪮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>࣫<EFBFBD><E0A3AB><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>㭪樨, <20><><EFBFBD><EFBFBD>ࠡ<EFBFBD>⠭ <20>뢮<EFBFBD> ⥪<><E2A5AA><EFBFBD>, <20> ⠪<> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᥭ<EFBFBD><E1A5AD> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD>.
 ; <Lrz> 03.09.2006 <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⪠<EFBFBD><E2AAA0><EFBFBD><EFBFBD><EFBFBD> <20><> 16 <20><>⭮<EFBFBD> <20><><EFBFBD>䬥⨪<E4ACA5>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
@@ -52,16 +53,18 @@ ed_color	equ [edi+12]		;梥
 ed_focus_border_color	equ [edi+16]	;梥<> ࠬ<><E0A0AC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 ed_blur_border_color	equ [edi+20]    ;梥<> <20><> <20><>⨢<EFBFBD><E2A8A2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 ed_text_color	equ [edi+24]            ;梥<> ⥪<><E2A5AA><EFBFBD>
-ed_flags	equ [edi+28]            ;䫠<EFBFBD><EFBFBD>
+ed_max		equ [edi+28]                    ;<3B><><EFBFBD>-<2D><> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨬ<EFBFBD><E1A8AC>쭮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_max	equ [edi+32]                    ;<EFBFBD><EFBFBD><EFBFBD>-<2D><> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨬ<EFBFBD><E1A8AC>쭮 <20><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_text 	equ [edi+32]                    ;㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_size equ [edi+36]                    ;<3B><><EFBFBD>-<2D><> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD>
+ed_flags	equ [edi+36]            ;䫠<EFBFBD><EFBFBD>
-ed_pos	equ [edi+40]                    ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_size equ [edi+38]                    ;<3B><><EFBFBD>-<EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_offset	equ [edi+44]            ;ᬥ饭<EFBFBD><EFBFBD>
+ed_pos	equ [edi+42]                    ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_text equ [edi+48]                    ;㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
+ed_offset	equ [edi+46]            ;ᬥ饭<EFBFBD><EFBFBD>
-cl_curs_x	equ [edi+52]		;<3B>।<EFBFBD><E0A5A4><EFBFBD>饥 <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>
+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+56]		;<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_insert	equ [edi+60]		;word 
+ed_insert	equ [edi+58]		;word 
+ed_shift_pos	equ [edi+60]
 ed_height=14 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+shift_color=0x6a9480
 ;==========================================================
 ;=== <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> =================================
 ;==========================================================
@@ -77,7 +80,7 @@ pusha
 .draw_cursor_text:
 ;--- <20><><EFBFBD>㥬 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
 	;--- <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD> ----
-	test	dword ed_flags,1
+	test	word ed_flags,ed_focus
 	je	@f
 	call	.draw_cursor
 @@:
@@ -85,6 +88,25 @@ pusha
 popa
 ret
 
+.str:
+	mov ecx,0x0a ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> <20><><EFBFBD>᫥<EFBFBD><E1ABA5><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ॣ<><E0A5A3><EFBFBD><EFBFBD><EFBFBD> ebx,eax,ecx,edx <20>室<EFBFBD><E5AEA4><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD> eax - <20><>᫮
+	 ;<3B><><EFBFBD>ॢ<EFBFBD><E0A5A2> <20><>᫠ <20> ASCII <20><>ப<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ecx=<3D><><EFBFBD>⥬<EFBFBD> <20><><EFBFBD>᫥<EFBFBD><E1ABA5> edi <20><><EFBFBD><EFBFBD><EFBFBD> <20>㤠 <20><><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0>, <20>㤥<EFBFBD> <20><>ப<EFBFBD>, <20><><EFBFBD>祬 <20><><EFBFBD><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> 
+	cmp eax,ecx  ;<3B>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD> <20>᫨ <20> eax <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 祬 <20> ecx <20><> <20><>३<EFBFBD><E0A5A9> <20><> @@-1 <20>.<2E>. <20><> pop eax
+	jb @f
+	xor edx,edx  ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> edx
+	div ecx      ;ࠧ<><E0A0A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD>⮪ <20> edx
+	push edx     ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20>⥪
+	;dec edi	     ;ᬥ饭<E1ACA5><E9A5AD> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
+ 	call .str;<3B><>३<EFBFBD><E0A5A9> <20><> ᠬ<> ᥡ<> <20>.<2E>. <20>맢<EFBFBD><EBA7A2><EFBFBD> ᠬ<> ᥡ<> <20> ⠪ <20><> ⮣<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> eax <20><> <20>⠭<EFBFBD><E2A0AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 祬 <20> ecx
+	pop eax
+	@@: ;cmp al,10 ;<3B>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>祭<EFBFBD><E7A5AD> <20> al 祬 10 (<28><><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> <20><><EFBFBD>᫥<EFBFBD><E1ABA5> 10 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><>譠<EFBFBD>))
+	;sbb al,$69  ;- <20><><EFBFBD>⭮ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD>⠢<EFBFBD><E2A0A2><EFBFBD><EFBFBD> <20><><EFBFBD>㬠<EFBFBD><E3ACA0><EFBFBD><EFBFBD> <20>.<2E>. <20> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> ࠡ<>⠥<EFBFBD>
+	;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>
+
 ;----------------------------------------------------------
 ;--- <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> ⥪<><E2A5AA><EFBFBD> --------------------------
 ;----------------------------------------------------------
@@ -116,22 +138,22 @@ ret
 ;eax
 ;----------------------------------------------------------
 .draw_bg_eax:
-pusha
+;pusha
 	mov	ecx,ed_top
 	add	ecx,1
 	shl	ecx,16
 	mov	cx,13
 ;	sub	ecx,1
-
+	mov	edx,[esp+4]	;color
-	mov	edx,ed_color
+;	mov	edx,ed_color
 	mov	eax,13
 	int	0x40
-popa
+;popa
-ret
+ret 4
 
 	jmp	@f
 .draw_bg:
-pusha
+;pusha
 	mov	ebx,ed_left
 	add	ebx,1
 	shl	ebx,16
@@ -148,7 +170,7 @@ pusha
 	mov	edx,ed_color
 	mov	eax,13
 	int	0x40
-popa
+;popa
 ret
 
 ;----------------------------------------------------------
@@ -167,10 +189,15 @@ 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
@@ -207,7 +234,7 @@ ret
 ;----------------------------------------------------------
 .draw_border:
 ;--- 梥<> ࠬ<><E0A0AC> ---
-	test	dword ed_flags,1
+	test	dword ed_flags,ed_focus
 	mov	edx,ed_focus_border_color
 	jne     @f
 	mov	edx,ed_blur_border_color
@@ -271,6 +298,7 @@ ret
 	shl	ebx,16
 	mov	bx,ed_width
 	dec 	ebx
+	push	dword ed_color
 	call    .draw_bg_eax
 	mov	dword [esp+28],0
 @@:	popad
@@ -280,8 +308,20 @@ ret
 ;==========================================================
 .key:
 pusha
-	test	dword ed_flags,1 ; <20>᫨ <20><> <20> 䮪<><E4AEAA><EFBFBD>, <20><>室<EFBFBD><E5AEA4>
+	test	word ed_flags,ed_focus ; <20>᫨ <20><> <20> 䮪<><E4AEAA><EFBFBD>, <20><>室<EFBFBD><E5AEA4>
 	je     .no_figure ;@f
+
+	push	eax	
+	mov	ecx,1
+	mov	eax,66
+	mov	ebx,3
+	int	0x40
+	xor	ebx,ebx
+	test	al,0x03
+	je	@f
+        or      word ed_flags,ed_shift
+
+@@:     pop	eax
 ;----------------------------------------------------------
 ;--- <20>஢<EFBFBD><E0AEA2>塞, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> --------------------------------
 ;----------------------------------------------------------
@@ -324,6 +364,7 @@ pusha
 	popa
 	ret
 .insert: not 	word ed_insert
+
         jmp	.no_figure
 .ins_v: 
 	pop	eax edi
@@ -366,10 +407,16 @@ pusha
 ; <20><>⠢<EFBFBD>塞 <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>㤠, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 	; 㢥<><E3A2A5>稢<EFBFBD><E7A8A2><EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> ࠧ<><E0A0A7><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>樨
 	inc	 dword ed_size
+
+	push	dword	ed_pos
+	push	dword	ed_size
+;	push	.return
 	call	.draw_all2
 	inc	 dword ed_pos
+;.return: 
 	jmp    .draw_cursor_text
 .delete:	
+
 	mov	edx,ed_size
 	mov	ecx,ed_pos
 
@@ -399,7 +446,8 @@ pusha
 	dec	 dword ed_pos
 
 .draw_all:
-;	mov	eax,.draw_cursor_text
+	push	dword	ed_pos
+	push	dword	ed_size
 	push	.draw_cursor_text;eax
 	dec	 dword ed_size
 .draw_all2:
@@ -409,19 +457,19 @@ pusha
 	push	eax
 	mov	ebx,ed_offset
 	add	eax,ebx	;eax = w_off= ed_offset+width
-	mov	ebx,ed_size
+	mov	ebx,[esp+8]	;ed_size
 	
 	cmp	eax,ebx
 	jb	@f
-	mov	eax,ed_pos
+	mov	eax,[esp+12]	;	ed_pos
 	sub	ebx,eax
 	mov	ecx,ed_offset
 	sub	eax,ecx
 	jmp	.nxt
-@@:	mov	ebx,ed_pos
+@@:	mov	ebx,[esp+12];ed_pos
 	push	ebx
 	sub	eax,ebx
-	mov	ebx,eax	;don't optimal
+	mov	ebx,eax	;It is don't optimal
 	
 	pop	eax	;ed_pos
        	mov	ecx,ed_offset
@@ -444,11 +492,18 @@ pusha
 	lea	ecx,[edx*2+edx]
 	shl	ecx,1	
 	mov	bx,cx
+	push	dword ed_color
 	call	.draw_bg_eax
-	ret
+	ret     8
 ;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> left ---
-.left:
+.left:  test    word ed_flags,ed_shift
-	mov	ebx,ed_pos
+	je	@f
+	test	word ed_flags,ed_shift_on
+	jne	@f
+       	push	dword ed_pos
+	pop	dword ed_shift_pos
+	or	word ed_flags,ed_shift_on
+@@:     mov	ebx,ed_pos
 	test	ebx,ebx
 	jz	.nd_k
 	call	.clear_cursor
@@ -456,14 +511,25 @@ pusha
 	jmp	.nd_k
 ;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> right ---
 .right:
-	mov	ebx,ed_pos
+	test    word ed_flags,ed_shift
+	je	@f
+	test	word ed_flags,ed_shift_on
+	jne	@f
+       	push	dword ed_pos
+	pop	dword ed_shift_pos
+	or	word ed_flags,ed_shift_on
+@@:	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    word ed_flags,ed_shift
+;	je	@f
+ ;      	push	dword ed_pos
+;	pop	dword ed_shift_pos
+@@:	mov	ebx,ed_pos
 	test	ebx,ebx
 	jz	.nd_k
 	call	.clear_cursor
@@ -472,16 +538,124 @@ pusha
 	jmp	.nd_k
 
 .end:
-	mov	ebx,ed_pos
+;	test    word ed_flags,ed_shift
+;	je	@f
+ ;      	push	dword ed_pos
+;	pop	dword ed_shift_pos
+@@:	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
+	;test	eax,eax
-	jz	.draw_bg_cursor_text
+	;jz	.draw_bg_cursor_text
 	call	.draw_cursor
+
+.shift: ;;;;;;;SHIFT
+	;-----------  <20>⫠<EFBFBD><E2ABA0><EFBFBD>
+	pushad
+	mov	[data_of_code],0
+	mov ax,word ed_flags
+	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>
+		
+    	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  ;<3B><><EFBFBD><EFBFBD>襥 <20> eax
+	push	ebx  ;<3B><><EFBFBD><EFBFBD>襥
+	jmp	.sh_n1
+	             ;<3B>᫨ <20><><EFBFBD><EFBFBD><EFBFBD>
+.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     ;<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
+	cmp	ebp,ebx		;cࠢ<63><E0A0A2><EFBFBD> ࠧ<><E0A0A7><EFBFBD> w_off <20> <20><><EFBFBD><EFBFBD>訬
+	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ࠢ<63><E0A0A2><EFBFBD> ࠧ<><E0A0A7><EFBFBD> w_off <20> <20><><EFBFBD><EFBFBD>訬
+	jle	@f
+	sub	ebx,ecx
+	sub	ebx,eax
+	jmp     .nxt_f
+@@:
+	mov	ebx,ebp	
+	sub	ebx,ecx
+	sub	ebx,eax
+.nxt_f:
+;	mov	ebp,eax  ;<3B>஢<EFBFBD>ઠ <20><> <20><>室 <20><><EFBFBD><EFBFBD><EFBFBD>訢<EFBFBD><E8A8A2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>।<EFBFBD><E0A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
+;	add	ebp,ebx
+;	pop	edx
+;	cmp	ebp,edx
+;	je	.ff
+;	inc	ebx
+
+.ff:     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	ebp,ed_color
+;	not	ebp
+	push	dword shift_color
+	call	.draw_bg_eax
+;	pop	edx
+;	or	word ed_flags,ed_shift
+	and    word ed_flags,1111111111111011b
+        jmp	.draw_cursor_text
+;;;;;;;;;;;;;;;;;;;;;
+
+.f_exit:	and    word ed_flags,ed_shift_cl
+        jmp	.draw_cursor_text
 @@:
 popa
 ret
@@ -522,9 +696,6 @@ pusha
 ;----------------------------------------------------------
 	test	eax,1
 	jnz	.mouse_left_button
-;	or	eax,1
-;	jc	@f
-;	btr	dword ed_flags,2
 @@:     popa
 	ret
 
@@ -572,10 +743,7 @@ pusha
 @@:
 	mov	ed_pos,ax
 	call	.check_offset
-;	test	eax,eax
-;	jz	.draw_bg_cursor_text
 	call	.draw_cursor
-
 	call	.focus
 
 .mouse_pressed:
@@ -591,13 +759,13 @@ ret
 .blur:
 pusha
 ._blur:
-	btr	dword ed_flags,0
+	btr	dword ed_flags,1
 	jnc	@f
 	call	.clear_cursor
 	jmp	.blur_end
 .focus:
 pusha
-	bts	dword ed_flags,0
+	bts	dword ed_flags,1
 	jc	@f
 	call	.draw_cursor
 .blur_end:
@@ -622,6 +790,9 @@ ret
 }
 ed_figure_only=1000000000000000b
 ed_focus=10b
+ed_shift_on=1000b
+ed_shift=100b
+ed_shift_cl=0011b
 macro draw_edit_boxes start,end
 {
 	mov	edi,start
@@ -651,7 +822,7 @@ macro key_edit_boxes start,end
 	add	edi,ed_struc_size
 	loop	@b
 }
-ed_struc_size=62
+ed_struc_size=64
 struc  edit_box width,left,top,color,focus_border_color,\
        blur_border_color,text_color,max,text,flags,size
 {
@@ -662,15 +833,16 @@ struc  edit_box width,left,top,color,focus_border_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
+.text dd text
+.flags dw flags+0
 .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
+.shift	   dd 0
 }
 
 macro edit_boxes_set_sys_color start,end,color_table

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

@@ -12,8 +12,8 @@ use32		;
     dd start		; <20><><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> <20><>।<EFBFBD><E0A5A4><EFBFBD> <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD>
 	                ; <20><>᫥ <20><><EFBFBD><EFBFBD>㧪<EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
     dd i_end		; ࠧ<><E0A0A7><EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-    dd (i_end+0x100) and not 3	; <20><>ꥬ <20>ᯮ<EFBFBD><E1AFAE><EFBFBD>㥬<EFBFBD><E3A5AC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20>⥪<EFBFBD> <20>⢥<EFBFBD><E2A2A5><EFBFBD> 0<>100 <20><><EFBFBD><EFBFBD> <20> <20><>஢<EFBFBD><E0AEA2><EFBFBD> <20><> <20>୨<EFBFBD><E0ADA8> 4 <20><><EFBFBD><EFBFBD><EFBFBD>
+    dd i_end and not 3	; <20><>ꥬ <20>ᯮ<EFBFBD><E1AFAE><EFBFBD>㥬<EFBFBD><E3A5AC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20>⥪<EFBFBD> <20>⢥<EFBFBD><E2A2A5><EFBFBD> 0<>100 <20><><EFBFBD><EFBFBD> <20> <20><>஢<EFBFBD><E0AEA2><EFBFBD> <20><> <20>୨<EFBFBD><E0ADA8> 4 <20><><EFBFBD><EFBFBD><EFBFBD>
-    dd (i_end+0x100) and not 3	; <20><>ᯮ<EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⥪<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>ࠧ<EFBFBD> <20><> ⥫<><E2A5AB> <20>ணࠬ<E0AEA3><E0A0AC>. <20><><EFBFBD>設<EFBFBD> <20>⥪<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 㪠<><E3AAA0><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
+    dd i_end and not 3	; <20><>ᯮ<EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⥪<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>ࠧ<EFBFBD> <20><> ⥫<><E2A5AB> <20>ணࠬ<E0AEA3><E0A0AC>. <20><><EFBFBD>設<EFBFBD> <20>⥪<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 㪠<><E3AAA0><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
     dd 0x0,0x0		; 㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><>ப<EFBFBD> <20> <20><>ࠬ<EFBFBD><E0A0AC>ࠬ<EFBFBD>.
                  ;    <20>᫨ <20><>᫥ <20><><EFBFBD><EFBFBD>᪠ <20><>ࠢ<EFBFBD><E0A0A2> <20><><EFBFBD><EFBFBD>, <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뫮
                  ;    <20><><EFBFBD><EFBFBD>饭<EFBFBD> <20> <20><>ࠬ<EFBFBD><E0A0AC>ࠬ<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
@@ -28,6 +28,20 @@ start:				;
 	mov	eax,40		;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮡ<>⨩
 	mov 	ebx,0x27        ;<3B><><EFBFBD>⥬<EFBFBD> <20>㤥<EFBFBD> ॠ<><E0A5A0>஢<EFBFBD><E0AEA2><EFBFBD> ⮫쪮 <20><> ᮮ<>饭<EFBFBD><E9A5AD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><>।<EFBFBD><E0A5A4>񭭠<EFBFBD> ࠭<><E0A0AD>, ᮡ<>⨥ <20><> <20><><EFBFBD><EFBFBD> (<28><><EFBFBD>-<2D><> <20><><EFBFBD>稫<EFBFBD><E7A8AB><EFBFBD> - <20><><EFBFBD><EFBFBD>⨥ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>; <20><><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⥭<EFBFBD><E2A5AD>) <20> <20><><EFBFBD><EFBFBD>⨥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
         int	0x40
+
+;	mov  eax,66    ; keyboard mode definitions
+;	mov  ebx,1     ; set
+;	xor	ecx,ecx
+;	inc  ecx      ; return scancodes
+;	int  0x40
+
+;	mov  eax,26    ; get setup for keyboard
+;	inc	ebx
+;	mov  ebx,2
+;	mov  ecx,1     ; base keymap
+;	mov  edx,keymap
+;	int  0x40
+
 red_win:
     call draw_window  		;<3B><>ࢮ<EFBFBD><E0A2AE>砫쭮 <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD>
 still:				;<3B>᭮<EFBFBD><E1ADAE><EFBFBD><EFBFBD> <20><>ࠡ<EFBFBD><E0A0A1>稪 
@@ -75,7 +89,7 @@ draw_window:		;
     add eax,4  			;<3B>᫨ <20>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD> ᪠<><E1AAA0><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 
     mov ebx,8*65536+8		; [<5B><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> x]*65536 + [<5B><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> y]  mov ecx,0x10DDEEFF		; 0xX0RRGGBB, <20><><EFBFBD> RR, GG, BB <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 梥<> ⥪<><E2A5AA><EFBFBD> 
     mov edx,hed			; 㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><>砫<EFBFBD> <20><>ப<EFBFBD>
-    mov esi,i_end - hed		; <20><><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 255
+    mov esi,i_end1 - hed	; <20><><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 255
     int 0x40			;<3B>뢥<EFBFBD><EBA2A5><EFBFBD> ⥪<><E2A5AA>
         
 	draw_edit_boxes editboxes,editboxes_end  ;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> edit box'<27><>
@@ -102,5 +116,8 @@ 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 12.12.2006'
+hed db   'EDITBOX optimization and retype <Lrz> date 19.01.2007'
-i_end:
+i_end1:
+rb 2048
+i_end:
+keymap: