| Navigation: Templates > Guide to all Templates > Additional Libraries and Templates > MenuStyleManager Class > MenuStyleManager Methods >====== SetCustomThemeColors (Set Custom Menu Colors and Indicators) ====== |    |
SetCustomThemeColors( theme )
| theme | A string that identifies a custom set of theme colors to use. |
SetCustomThemeValues sets all central menu theme elements at once to default values. A theme name is used to allow multiple custom theme settings as needed.
Implementation:
This method is currently not implemented by the MenuClassManager object, but is available to the developer to override if the processing of custom colors is needed, and there is not a default theme to fit the color requirements.
Return Value: None
Example:
GLO:CustomActive = TRUE
GLO:MenuTheme = 'Dolphins'
MenuStyleMgr.SetCustomThemeColors(CLIP(GLO:MenuTheme))
MenuStyleMgr.ApplyTheme()
MenuStyleMgr.Refresh()
DISPLAY
MenuStyleMgr.SetCustomThemeColors PROCEDURE(STRING pTheme)
CODE
IF pTheme = 'Dolphins'
SELF.Theme.MenuBarNormalColorLeft = 16777088
SELF.Theme.MenuBarNormalColorRight = 16777088
SELF.Theme.MenuBarOverColorLeft = 33023
SELF.Theme.MenuBarOverColorRight = 4227327
SELF.Theme.MenuBarSelectedColorLeft = 4227327
SELF.Theme.MenuBarSelectedColorRight = 33023
SELF.Theme.SelectionBarColorLeft = 33023
SELF.Theme.SelectionBarColorRight = 16776960
SELF.Theme.SelectionBarVerticalGradient= True
SELF.Theme.SelectionBorderColor = 16777215
SELF.Theme.ImageBkgndColorLeft = 16776960
SELF.Theme.ImageBkgndColorRight = 33023
SELF.Theme.ItemNormalBkgndColor = 16777088
SELF.Theme.TextNormalColor = 10485760
SELF.Theme.TextSelectedColor = 0
SELF.Theme.TextOverColor = 0
SELF.Theme.Flat = True
SELF.Theme.ShowImageBar = True
SELF.Theme.Separator3D = True
SELF.Theme.SeparatorFull = True
SELF.Theme.VerticalLine = True
ELSE
SELF.SetDefaultThemeValues
END
See also: SetDefaultThemeValues (Set Default Menu Colors and Indicators)