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

IdeIntf: Set max value of TEdit.PasswordChar to $7F. Prevents an error during form load. Issue #22373, patch from Bart

Browse Source 
git-svn-id: trunk@40916 -
This commit is contained in:
juha 2013-04-28 20:18:41 +00:00
parent db8ed033f7
commit 2166765d19
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/propedits.pp
View File

@ -3077,7 +3077,9 @@ begin
exit;
end;
with GetTypeData(GetPropType)^ do
if (L < MinValue) or (L > MaxValue) then begin
//Only Chars < #$80 are valid single-byte UTF-8 codepoints,
//so use this instead of MaxValue (255 for tkChar), since LCL is UTF-8
if (L < MinValue) or (L > $7F) then begin
{raise EPropertyError.CreateResFmt(@SOutOfRange, [MinValue, MaxValue])};
exit;
end;