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

TMaskEdit: fix off by 1 error in DeleteChars.

Browse Source 
git-svn-id: trunk@64767 -
This commit is contained in:
bart 2021-03-07 21:17:13 +00:00
parent 0502efa986
commit e28c9c1e26
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

@ -1379,7 +1379,7 @@ begin
if HasExtSelection then
begin
DeleteSelected;
if IsLiteral(FCursorPos) then
if IsLiteral(FCursorPos+1) then
SelectNextChar;
end
else