paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-02 03:43:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: TPasswordStringPropertyEditor: show fixed amount of *

Browse Source 
git-svn-id: trunk@53286 -
This commit is contained in:
mattias 2016-11-02 12:42:26 +00:00
parent 874e696110
commit 42ea23f324
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/propedits.pp
View File

@ -3812,7 +3812,7 @@ end;
procedure TPasswordStringPropertyEditor.PropDrawValue(ACanvas: TCanvas;
const ARect: TRect; AState: TPropEditDrawState);
begin
DrawValue(DupeString('*',Length(GetVisualValue)),ACanvas,ARect,AState);
DrawValue('*****',ACanvas,ARect,AState);
end;
{ TWideStringPropertyEditor }
@ -3846,7 +3846,7 @@ end;
procedure TPasswordWideStringPropertyEditor.PropDrawValue(ACanvas: TCanvas;
const ARect: TRect; AState: TPropEditDrawState);
begin
DrawValue(DupeString('*',Length(UTF8Decode(GetVisualValue))),ACanvas,ARect,AState);
DrawValue('*****',ACanvas,ARect,AState);
end;
{ TNestedPropertyEditor }