Menu-Title rechtsbündig

[TKRoth]

In vielen Anwendungen findet man z.B. den Menu-Title 'Hilfe' o.ä. immer rechtsbündig. Wie bekomme ich das in PB hin?

[ts-soft]

Ich würde von diesem Vorgehen abraten, das sind überbleibsel aus Win 3.11

Code: Alles auswählen

EnableExplicit

Procedure MenuRight(hWnd, index)
  Protected hMenu, info.MENUITEMINFO
  
  hMenu = GetMenu_(hWnd)
  With info
    \cbSize = SizeOf(MENUITEMINFO)
    \fMask = #MIIM_FTYPE
    GetMenuItemInfo_(hMenu, index, #True, info)
    \fType | #MFT_RIGHTJUSTIFY
  EndWith
  SetMenuItemInfo_(hMenu, index, #True, info)
  DrawMenuBar_(hWnd)
EndProcedure

OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "bla")

If CreateMenu(0, WindowID(0))
  MenuTitle("&Datei") ; - 0
  MenuItem(1, "Neu")
  MenuTitle("&Hilfe") ; - 1
  MenuItem(2, "Über")
  MenuRight(WindowID(0), 1)
EndIf

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Findet man in ähnlicher Form auch im CodeArchiv: http://www.purearea.net/pb/CodeArchiv/M ... ghtSite.pb

[Nino]

In vielen Anwendungen findet man z.B. den Menu-Title 'Hilfe' o.ä. immer rechtsbündig. Wie bekomme ich das in PB hin?

Ich würde von diesem Vorgehen abraten

Ich persönlich kenne auch nicht viele Windows-Programme, bei denen das heute noch so ist. Spontan fällt mir genau eins ein: Total Commander. Und da finde ich diese Sache immer wieder etwas irritierend (weil inzwischen eben ungewohnt).

das sind überbleibsel aus Win 3.11

Windows 3.1-Funktionalität wird doch anscheinend gerade wieder modern. Man konnte damals z.B. keine Dateien auf dem Desktop ablegen. Wie ich höre, ist das bei Metro auch nicht möglich. Also: Back to the roots!