OberonCore

   PROCEDURE MakeDropDowns*;
      VAR
         m: HostMenus.Menu;
         item: StdDialog.Item;
         res: INTEGER;
         hMenu: WinApi.HMENU;
         dst: ARRAY 100 OF CHAR; (*добавлено - Кузьмицкий И.*)
   BEGIN
      m := HostMenus.FirstMenu();
      WHILE m # NIL DO
         item := m.firstItem;
         WHILE item # NIL DO
            IF (LEN(item.string$) > 0) & (item.string[0] = "$") THEN
               hMenu := GetHandle(item.string);
               IF hMenu # WinApi.NULL THEN
                  MtStrings.ToUnicode(item.item^, dst); (*добавлено - Кузьмицкий И.*)
(*убрано в комментарий - Кузьмицкий И.            
                  res := WinApi.ModifyMenuW(HostMenus.menuBar, item(HostMenus.Item).id,
                           WinApi.MF_BYCOMMAND + WinApi.MF_POPUP + WinApi.MF_STRING,
                           hMenu, item.item^)
*)
                  res := WinApi.ModifyMenuW(HostMenus.menuBar, item(HostMenus.Item).id,
                           WinApi.MF_BYCOMMAND + WinApi.MF_POPUP + WinApi.MF_STRING,
                           hMenu, dst) (*правка - Кузьмицкий И.*)
                  
               END
            END;
            item := item.next
         END;
         m := m.next
      END
   END MakeDropDowns;