User Tools

Site Tools


ignorewindowstheme.htm
Navigation:  Templates > Guide to all Templates > Additional Libraries and Templates > MenuStyleManager Class > MenuStyleManager Methods >====== IgnoreWindowsTheme(Ignore Active OS Theme Colors) ====== Previous pageReturn to chapter overviewNext page

IgnoreWindowsTheme ( flag)

flag A BOOLEAN value that when TRUE effectively ignores the active Window Theme operating system. Default value is FALSE (do not ignore).

blk2blue.jpg

The IgnoreWindowTheme method is used to ignore the active Windows Theme as set by the current operating system. This effectively allows the developer to set and override all color components associated with the active Windows theme.

Return Value:     None

Implementation:

The IgnoreWindowTheme method is called in the SetThemeColors method.

Example:

 IF UPPER(pTheme) = 'OFF'

    IF SELF.ForceTheme

      SELF.IgnoreWindowsTheme(FALSE) !Use Windows Theme colors

       SELF.SetDefaultThemeValues()

       RETURN

    ELSE

       SELF.UseCustomTheme(FALSE)

       RETURN

    END

 END

 IF UPPER(pTheme) = 'DEFAULT'

    SELF.IgnoreWindowsTheme(FALSE) !Use Windows Theme colors

    SELF.SetDefaultThemeValues()

    RETURN

 END

 SELF.UseCustomTheme(TRUE)

 SELF.SetDefaultThemeValues()

SELF.IgnoreWindowsTheme(TRUE) !Override Windows Theme colors

 IF UPPER(pTheme) = 'WINDOWS2K'

   SELF.Theme.MenuBarNormalColorLeft      = 0F0F0F0h

   SELF.Theme.MenuBarNormalColorRight     = 0F0F0F0h

   SELF.Theme.SelectionBarColorLeft       = COLOR:Silver

   SELF.Theme.SelectionBarColorRight      = COLOR:Silver

   SELF.Theme.SelectionBarVerticalGradient= TRUE

   SELF.Theme.SelectionBorderColor        = COLOR:Gray

   SELF.Theme.ImageBkgndColorLeft         = COLOR:Silver

   SELF.Theme.ImageBkgndColorRight        = COLOR:Silver

   SELF.Theme.ItemNormalBkgndColor        = COLOR:Menu

   SELF.Theme.MenuBarOverColorLeft        = COLOR:Silver

   SELF.Theme.MenuBarOverColorRight       = COLOR:Silver

   SELF.Theme.MenuBarSelectedColorLeft    = COLOR:Silver

   SELF.Theme.MenuBarSelectedColorRight   = COLOR:Silver

   SELF.Theme.TextNormalColor             = COLOR:Black

   SELF.Theme.TextSelectedColor           = COLOR:Black

   SELF.Theme.TextOverColor               = COLOR:Black

   SELF.Theme.Flat                        = TRUE

   SELF.Theme.ShowImageBar                = TRUE

   SELF.Theme.Embossed                    = FALSE

   SELF.Theme.LineMode                    = MenuLine:Default

 END

See also: SetThemeColors

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