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

* unicode fixes

Browse Source 
git-svn-id: branches/unicodekvm@48627 -
This commit is contained in:
nickysn 2021-02-10 17:55:36 +00:00
parent b8baf3bb85
commit 7da5856dbd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2025,7 +2025,11 @@ END;
PROCEDURE TButton.Store (Var S: TStream);
BEGIN
TView.Store(S); { Implict TView.Store }
{$ifdef FV_UNICODE}
S.WriteUnicodeString(Title); { Store title string }
{$else FV_UNICODE}
S.WriteStr(Title); { Store title string }
{$endif FV_UNICODE}
S.Write(Command, SizeOf(Command)); { Store command }
S.Write(Flags, SizeOf(Flags)); { Store flags }
S.Write(AmDefault, SizeOf(AmDefault)); { Store default flag }
@ -2072,7 +2076,7 @@ BEGIN
ClearEvent(Event); { Event was handled }
End;
evKeyDown: Begin
If (Title <> Nil) Then C := HotKey(Title^) { Key title hotkey }
If Title <> Sw_PString_Empty Then C := HotKey(Title Sw_PString_DeRef) { Key title hotkey }
Else C := #0; { Invalid title }
If (Event.KeyCode = GetAltCode(C)) OR { Alt char }
(Owner^.Phase = phPostProcess) AND (C <> #0)