diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-09-07 08:50:44 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-09-07 08:50:44 +0200 |
| commit | cd0b93599315e0f61db65dd5d5a6c91344d3cfc1 (patch) | |
| tree | 09ab3890db5fda7ee9150fecb724a92a5aa4a667 /src | |
| parent | 03fa81abc92b5c28820fb80d9eb40a489053c83a (diff) | |
| download | fpGUI-cd0b93599315e0f61db65dd5d5a6c91344d3cfc1.tar.xz | |
Changed the password char from asterisk to unicode black circle
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_edit.pas | 9 |
1 files changed, 8 insertions, 1 deletions
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); |