paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 10:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unicode bugfixes

Browse Source 
git-svn-id: branches/unicodekvm@48624 -
This commit is contained in:
nickysn 2021-02-10 17:37:21 +00:00
parent 55337def9a
commit 057b786fbd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fv/src/dialogs.inc
View File

@ -1732,7 +1732,7 @@ BEGIN
End Else ExtendBlock := False; { No extended block }
Case Event.KeyCode Of
kbLeft: If (CurPos > 0) Then Dec(CurPos); { Move cursor left }
kbRight: If Data <> Sw_PString_Empty AND { Move right cursor }
kbRight: If (Data <> Sw_PString_Empty) AND { Move right cursor }
(CurPos < Length(Data Sw_PString_DeRef)) Then Begin { Check not at end }
Inc(CurPos); { Move cursor }
CheckValid(True); { Check if valid }
@ -1750,7 +1750,7 @@ BEGIN
If (FirstPos > 0) Then Dec(FirstPos); { Move first position }
CheckValid(True); { Check if valid }
End;
kbDel: If Data <> Sw_PString_DeRef Then Begin { Delete character }
kbDel: If Data <> Sw_PString_Empty Then Begin { Delete character }
If (SelStart = SelEnd) Then { Select all on }
If (CurPos < Length(Data Sw_PString_DeRef)) Then Begin { Cursor not at end }
SelStart := CurPos; { Set select start }