This is a simple example that shows how easy it is to change the style of your menu's at runtime. You can use pure template code to setup a menu style at design time, but if you want to change the style based on user preference, or on target OS, or any other variable, you only need a few lines of code. The example also shows how to create styled popup menus.
This code was generated by the templates and then copied into an embed point:
COMPILE ('**CW7**',_CWVER_=7000)
MenuStyleMgr.Init(?MenuBar)
MenuStyleMgr.SetFlatMode(True)
MenuStyleMgr.SetColor(MenuBrushes:ImageBkgnd,16706781,14854529)
MenuStyleMgr.SetColor(MenuBrushes:SelectedBkgnd,16706781,14854529,False)
MenuStyleMgr.SetColor(MenuBrushes:SelectedBarBkgnd,16706781,14854529,True)
MenuStyleMgr.SetColor(MenuBrushes:HotBkgnd,16706781,14854529,True)
MenuStyleMgr.SetColor(MenuBrushes:FrameBrush,8388608, 8388608,True)
AppFrame{PROP:Text} = 'Menu Styles Demo - Luna Blue Menu Style Active'
DISPLAY()
!**CW7**
You can drop this code into an appropriate embed point and change the menu style at runtime to any of the pre-built styles and any user-defined style (like this example does). Of course with the use of the COMPILE directive this code has no effect in your Clarion6 app.
Download demo App and project source - 69kb
Download a local link executable - 589kb