paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 11:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2 intf: implemented TEdit.EchoMode and PasswordChar

Browse Source 
git-svn-id: trunk@11028 -
This commit is contained in:
mattias 2007-04-29 11:00:40 +00:00
parent fc0ece4582
commit dabe3115ec
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -679,10 +679,23 @@ class procedure TGtk2WSCustomEdit.SetEchoMode(const ACustomEdit: TCustomEdit;
NewMode: TEchoMode);
var
Entry: PGtkEntry;
PWChar: Integer;
begin
inherited SetEchoMode(ACustomEdit, NewMode);
Entry := PGtkEntry(ACustomEdit.Handle);
if NewMode in [emNone,emPassword] then begin
gtk_entry_set_visibility(Entry,false);
if NewMode=emNone then
PWChar:=0
else begin
PWChar:=ord(ACustomEdit.PasswordChar);
if (PWChar<192) or (PWChar=ord('*')) then
PWChar:=9679;
end;
//DebugLn(['TGtk2WSCustomEdit.SetEchoMode ',gtk_entry_get_invisible_char(Entry)]);
gtk_entry_set_invisible_char(Entry,PWChar);
end else begin
gtk_entry_set_visibility(Entry,true);
end;
end;
class procedure TGtk2WSCustomComboBox.ReCreateCombo(