User Tools

Site Tools


setcustomthemecolors_set_default_menu_colors_and_indicators_.htm
Navigation:  Templates > Guide to all Templates > Additional Libraries and Templates > MenuStyleManager Class > MenuStyleManager Methods >====== SetCustomThemeColors (Set Custom Menu Colors and Indicators) ====== Previous pageReturn to chapter overviewNext page

SetCustomThemeColors( theme )

theme A string that identifies a custom set of theme colors to use.

blk2blue.jpg

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)

setcustomthemecolors_set_default_menu_colors_and_indicators_.htm.txt · Last modified: 2021/04/15 15:57 (external edit)