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

LCL: maskedit, jump to dot by pressing the key from Ingo Steiniger (issue #14180)

Browse Source 
git-svn-id: trunk@21118 -
This commit is contained in:
vincents 2009-08-06 12:51:40 +00:00
parent f65b51e00b
commit 6f343b79e0
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/maskedit.pp
View File

@ -1387,6 +1387,25 @@ begin
Key := 0;
Exit;
end;
// goto a dot
if (Key = VK_OEM_PERIOD) then
begin
FCursorPos := FCursorPos+Pos('.', Copy(Text, (FCursorPos+1), Length(Text)-(FCursorPos+1)));
Key := 0;
SetCursorPos;
Exit;
end;
// goto a comma
if (Key = VK_OEM_COMMA) then
begin
FCursorPos := FCursorPos+Pos(',', Copy(Text, (FCursorPos+1), Length(Text)-(FCursorPos+1)));
SetCursorPos;
Key := 0;
Exit;
end;
end;