From cd0b93599315e0f61db65dd5d5a6c91344d3cfc1 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 7 Sep 2011 08:50:44 +0200
Subject: Changed the password char from asterisk to unicode black circle

---
 src/gui/fpg_edit.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas
index eaca5d40..9b0f2472 100644
--- a/src/gui/fpg_edit.pas
+++ b/src/gui/fpg_edit.pas
@@ -385,6 +385,8 @@ const
   ipmClearAll   = 'miDefaultClearAll';
   ipmCharmap    = 'miDefaultCharmap';
 
+  cPasswordChar = #$E2#$97#$8F;    // U+25CF BLACK CIRCLE
+
 
 function CreateEdit(AOwner: TComponent; x, y, w, h: TfpgCoord): TfpgEdit;
 begin
@@ -1013,11 +1015,16 @@ begin
 end;
 
 function TfpgBaseEdit.GetDrawText: string;
+var
+  i: integer;
 begin
   if not PassWordMode then
     Result := FText
   else
-    Result := StringOfChar('*', UTF8Length(FText));
+  begin
+    for i := 1 to UTF8Length(FText) do
+      Result := Result + cPasswordChar;
+  end;
 end;
 
 constructor TfpgBaseEdit.Create(AOwner: TComponent);
-- 
cgit v1.2.3-70-g09d2