Seite 1 von 1
Menu-Title rechtsbündig
Verfasst: 08.04.2012 00:01
von TKRoth
In vielen Anwendungen findet man z.B. den Menu-Title 'Hilfe' o.ä. immer rechtsbündig. Wie bekomme ich das in PB hin?
Re: Menu-Title rechtsbündig
Verfasst: 08.04.2012 00:38
von 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
Re: Menu-Title rechtsbündig
Verfasst: 08.04.2012 08:56
von Nino
TKRoth hat geschrieben:In vielen Anwendungen findet man z.B. den Menu-Title 'Hilfe' o.ä. immer rechtsbündig. Wie bekomme ich das in PB hin?
ts-soft hat geschrieben: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).
ts-soft hat geschrieben: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!