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

- removed ifdefs from TMenuView.GetHelpCtx

Browse Source 
git-svn-id: branches/unicodekvm@48746 -
This commit is contained in:
nickysn 2021-02-21 06:46:20 +00:00
parent 60a7eac72b
commit febcfc8d20
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

@ -716,11 +716,7 @@ BEGIN
C := @Self; { Start at self } C := @Self; { Start at self }
While (C <> Nil) AND ((C^.Current = Nil) OR While (C <> Nil) AND ((C^.Current = Nil) OR
(C^.Current^.HelpCtx = hcNoContext) OR { Has no context } (C^.Current^.HelpCtx = hcNoContext) OR { Has no context }
{$ifdef FV_UNICODE} (C^.Current^.Name = Sw_PString_Empty)) Do
(C^.Current^.Name = '')) Do
{$else FV_UNICODE}
(C^.Current^.Name = Nil)) Do
{$endif FV_UNICODE}
C := C^.ParentMenu; { Parent menu context } C := C^.ParentMenu; { Parent menu context }
If (C<>Nil) Then GetHelpCtx := C^.Current^.HelpCtx { Current context } If (C<>Nil) Then GetHelpCtx := C^.Current^.HelpCtx { Current context }
Else GetHelpCtx := hcNoContext; { No help context } Else GetHelpCtx := hcNoContext; { No help context }