add new style 'ed_pass'

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

programs/develop/libraries/box_lib/trunk/box_lib.mac

@@ -31,6 +31,7 @@ ed_struc_size=76
 ed_figure_only= 1000000000000000b   ;®¤­¨ ᨬ¢®«ë
 ed_always_focus= 100000000000000b
 ed_focus=                     10b   ;䮪ãá ¯à¨«®¦¥­¨ï
+ed_pass=                       1b   ;¯®«¥ á ¯ à®«¥¬
 ed_shift_on=                1000b   ;¥á«¨ ­¥ ãáâ ­®¢«¥­ -§­ ç¨â ¢¯¥à¢ë¥ ­ ¦ â shift,¥á«¨ ¡ë« ãáâ ­®¢«¥­, §­ ç¨â ¬ë 㦥 çâ® - â® ¤¥« «¨ 㤥ন¢ ï shift
 ed_shift_on_off=1111111111110111b
 ed_shift=                    100b   ;¢ª«îç ¥âáï ¯à¨ ­ ¦ â¨¨ ­  shift â.¥. ¥á«¨ ­ ¦¨¬ î

programs/develop/libraries/box_lib/trunk/editbox.mac

@@ -181,8 +181,33 @@ edit_box.draw_text:
         mov     ecx,ed_text_color
         add     ebx,4
         add     edx,ed_text
+		test    word ed_flags,ed_pass
+		jz      @f
+		call    edit_box.draw_password
+		jmp     .end_f
+@@:
         mcall
+.end_f:
 ret
+
+txt_pass db '*',0
+
+proc edit_box.draw_password
+locals
+	s_len dw ? ;¤«¨­  ¢ë¢®¤¨¬®£® ⥪áâ 
+endl
+	mov [s_len],si
+	xor esi,esi
+	inc esi
+	lea edx,[txt_pass]
+@@:
+	mcall
+	add ebx,6 shl 16 ;¤®¡ ¢«ï¥¬ áâ ­¤ àâ­ãî è¨à¨­ã ᨬ¢®« 
+	dec word[s_len]
+	cmp word[s_len],0
+	jg @b
+ret
+endp
 ;----------------------------------------------------------
 ;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ ä®­  ----------------------------
 ;¢å®¤­ë¥ ¤ ­­ë¥