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

- removed one ifdef from TMenuView.Load

Browse Source 
git-svn-id: branches/unicodekvm@48744 -
This commit is contained in:
nickysn 2021-02-21 06:44:16 +00:00
parent 83e492235e
commit 9b419b800a
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

@ -474,11 +474,7 @@ CONSTRUCTOR TMenuView.Load (Var S: TStream);
S.Read(Disabled, SizeOf(Disabled)); { Menu item state } S.Read(Disabled, SizeOf(Disabled)); { Menu item state }
S.Read(KeyCode, SizeOf(KeyCode)); { Menu item keycode } S.Read(KeyCode, SizeOf(KeyCode)); { Menu item keycode }
S.Read(HelpCtx, SizeOf(HelpCtx)); { Menu item help ctx } S.Read(HelpCtx, SizeOf(HelpCtx)); { Menu item help ctx }
{$ifdef FV_UNICODE} If (Name <> Sw_PString_Empty) Then
If (Name <> '') Then
{$else FV_UNICODE}
If (Name <> Nil) Then
{$endif FV_UNICODE}
If Command = 0 Then If Command = 0 Then
{$ifdef PPC_FPC} {$ifdef PPC_FPC}
SubMenu := DoLoadMenu() { Load submenu } SubMenu := DoLoadMenu() { Load submenu }