Răsfoiți Sursa

- removed ifdefs from TMenuView.GetHelpCtx

git-svn-id: branches/unicodekvm@48746 -
nickysn 4 ani în urmă
părinte
comite
febcfc8d20
1 a modificat fișierele cu 1 adăugiri și 5 ștergeri
  1. 1 5
      packages/fv/src/menus.inc

+ 1 - 5
packages/fv/src/menus.inc

@@ -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 }