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

* unicode fix in TInputLine.Init

Browse Source 
git-svn-id: branches/unicodekvm@48616 -
This commit is contained in:
nickysn 2021-02-10 16:17:56 +00:00
parent 6e845e397f
commit 1d0ec1b966
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1324,10 +1324,14 @@ BEGIN
State := State OR sfCursorVis; { Cursor visible } State := State OR sfCursorVis; { Cursor visible }
Options := Options OR (ofSelectable + ofFirstClick Options := Options OR (ofSelectable + ofFirstClick
+ ofVersion20); { Set options } + ofVersion20); { Set options }
{$ifdef FV_UNICODE}
Data := ''; { Data = empty string }
{$else FV_UNICODE}
If (MaxAvail > AMaxLen + 1) Then Begin { Check enough memory } If (MaxAvail > AMaxLen + 1) Then Begin { Check enough memory }
GetMem(Data, AMaxLen + 1); { Allocate memory } GetMem(Data, AMaxLen + 1); { Allocate memory }
Data^ := ''; { Data = empty string } Data^ := ''; { Data = empty string }
End; End;
{$endif FV_UNICODE}
MaxLen := AMaxLen; { Hold maximum length } MaxLen := AMaxLen; { Hold maximum length }
END; END;