Office Style Menus in PureBasic von Straker...

[Kiffi]

... im englischen Forum.

Vielleicht für den einen oder anderen interessant:

http://forums.purebasic.com/english/vie ... 747#112747

Grüße ... Kiffi

[DW]

Interessant. Jedoch geht alles kaputt, wenn ich ein mdigadget erstelle.
Warum?


Edit: Wenn man
CoolMenu = InitializeCoolMenu()
If CoolMenu
If LoadCoolMenu(CoolMenu,#Window_0)
SetCoolMenuBar(CoolMenu,2)
SetCoolMenuStyle(CoolMenu,#CM_MenuStyleOfficeXP)
SetCoolMenuShadow(CoolMenu,1)
SetCoolMenuFlat(CoolMenu,1)
EndIf
EndIf

nach dem Mdigadget schreibt, dann geht es.