IgnoreWindowsTheme(Ignore Active OS Theme Colors)

Top  Previous  Next

 

IgnoreWindowsTheme ( flag)

 

flag

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

 

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