2011/8/10 Gerard Visent <[email protected]>: > class procedure TGtk2WSCustomEdit.SetPasswordChar( > const ACustomEdit: TCustomEdit; NewChar: char); > var > PWChar: Integer; > Entry: PGtkEntry; > begin > if not WSCheckHandleAllocated(ACustomEdit, 'SetPasswordChar') then > Exit; > Entry := PGtkEntry(ACustomEdit.Handle); > if ACustomEdit.EchoMode=emNone then > PWChar:=0 > else begin > PWChar:=ord(ACustomEdit.PasswordChar); > if (PWChar<192) or (PWChar=ord('*')) then > PWChar:=9679; > end; > gtk_entry_set_invisible_char(Entry,PWChar); > end; > > Commenting the following lines > > if (PWChar<192) or (PWChar=ord('*')) then > PWChar:=9679;
Maybe Mattias remembers: http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/lcl/interfaces/gtk2/gtk2wsstdctrls.pp?root=lazarus&r1=11027&r2=11028 You see this char ( ● , http://www.unicodemap.org/details/0x25CF/index.html) a lot in sample code, but I see no reason why to replace all (PWChar<192). I can imagine the replacement is done for *, to make the control look more similar to other password controls. Vincent -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
