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

* use SW_PString in TMenuItem to avoid an ifdef

Browse Source 
git-svn-id: branches/unicodekvm@48742 -
This commit is contained in:
nickysn 2021-02-21 06:42:12 +00:00
parent fb7fdfaae4
commit 1bc06ec276
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -114,11 +114,7 @@ TYPE
{$endif FPC_REQUIRES_PROPER_ALIGNMENT} {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
RECORD RECORD
Next: PMenuItem; { Next menu item } Next: PMenuItem; { Next menu item }
{$ifdef FV_UNICODE} Name: SW_PString; { Menu item name }
Name: UnicodeString; { Menu item name }
{$else FV_UNICODE}
Name: PString; { Menu item name }
{$endif FV_UNICODE}
Command: Word; { Menu item command } Command: Word; { Menu item command }
Disabled: Boolean; { Menu item state } Disabled: Boolean; { Menu item state }
KeyCode: Word; { Menu item keycode } KeyCode: Word; { Menu item keycode }