add new style 'ed_pass'

git-svn-id: svn://kolibrios.org@3089 a494cfbc-eb01-0410-851d-a64ba20cac60
2012-12-07 17:35:50 +00:00
parent be21989975
commit f016b20ba3
2 changed files with 26 additions and 0 deletions
--- a/programs/develop/libraries/box_lib/trunk/editbox.mac
+++ b/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
 ;----------------------------------------------------------
 ;--- ¯à®æ¥¤ãà  ¯à®à¨á®¢ª¨ ä®  ----------------------------
 ;¢å®¤ë¥ ¤ ë¥