- removed ifdefs from TMenuView.GetHelpCtx

git-svn-id: branches/unicodekvm@48746 -
This commit is contained in:
nickysn 2021-02-21 06:46:20 +00:00
parent 60a7eac72b
commit febcfc8d20

View File

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