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

TMaskEdit: fix setting text when mask contains Date- or HourSeparator. Issue #0038606.

Browse Source 
git-svn-id: trunk@64772 -
This commit is contained in:
bart 2021-03-09 17:08:30 +00:00
parent 14636b8c38
commit d9085591b7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/maskedit.pp
View File

@ -1439,7 +1439,7 @@ function TCustomMaskEdit.ApplyMaskToText(Value: TCaption): TCaption;
if IsLiteral(i) then
begin
FoundAt := i;
ALiteral := FMask[i].Literal; // ClearChar(i);
ALiteral := ClearChar(i);//don't use FMask[i].Literal here, since it is EmptyStr for Char_HourSeparator and Char_DateSeparator; Issue #0038606
Result := True;
Exit;
end;