vbAccelerator - Contents of code file: mCommandBarColours.bas

Attribute VB_Name = "mCommandBarColours"
Option Explicit

' NOTE: Color = -1 indicates transparent

' Toolbar item colours:
Public Property Get ButtonTextColor() As Long
   ButtonTextColor = GetSysColor(vbWindowText And &H1F&)
End Property
Public Property Get ButtonTextHotColor() As Long
   ButtonTextHotColor = ButtonTextColor
End Property
Public Property Get ButtonTextDisabledColor() As Long
   ButtonTextDisabledColor = RGB(106, 140, 203)
End Property
Public Property Get ButtonBackgroundColorStart() As Long
   ButtonBackgroundColorStart = -1
End Property
Public Property Get ButtonBackgroundColorEnd() As Long
   ButtonBackgroundColorEnd = -1
End Property
Public Property Get ButtonHotBackgroundColorStart() As Long
   ButtonHotBackgroundColorStart = RGB(253, 254, 211)
End Property
Public Property Get ButtonHotBackgroundColorEnd() As Long
   ButtonHotBackgroundColorEnd = RGB(253, 221, 152)
End Property
Public Property Get ButtonCheckedBackgroundColorStart() As Long
   ButtonCheckedBackgroundColorStart = RGB(251, 223, 128)
End Property
Public Property Get ButtonCheckedBackgroundColorEnd() As Long
   ButtonCheckedBackgroundColorEnd = RGB(245, 185, 74)
End Property
Public Property Get ButtonCheckedHotBackgroundColorStart() As Long
   ButtonCheckedHotBackgroundColorStart = RGB(251, 139, 89)
End Property
Public Property Get ButtonCheckedHotBackgroundColorEnd() As Long
   ButtonCheckedHotBackgroundColorEnd = RGB(206, 47, 3)
End Property

' Menu colours:
Public Property Get MenuShadowColor() As Long
   MenuShadowColor = ButtonTextDisabledColor
End Property
Public Property Get MenuBorderColor() As Long
   MenuBorderColor = RGB(0, 45, 150)
End Property
Public Property Get MenuTextColor() As Long
   MenuTextColor = GetSysColor(vbWindowText And &H1F&)
End Property
Public Property Get MenuTextHotColor() As Long
   MenuTextHotColor = MenuTextColor
End Property
Public Property Get MenuTextDisabledColor() As Long
   MenuTextDisabledColor = RGB(160, 160, 160)
End Property
Public Property Get MenuBackgroundColorStart() As Long
   MenuBackgroundColorStart = RGB(246, 246, 246) 'GetSysColor(vbMenuBar And
    &H1F&)
End Property
Public Property Get MenuBackgroundColorEnd() As Long
   MenuBackgroundColorEnd = RGB(246, 246, 246) ' GetSysColor(vbMenuBar And
    &H1F&)
End Property
Public Property Get MenuHotBackgroundColorStart() As Long
   MenuHotBackgroundColorStart = ButtonHotBackgroundColorStart
End Property
Public Property Get MenuHotBackgroundColorEnd() As Long
   MenuHotBackgroundColorEnd = ButtonHotBackgroundColorEnd
End Property
Public Property Get MenuCheckedBackgroundColorStart() As Long
   MenuCheckedBackgroundColorStart = ButtonCheckedBackgroundColorStart
End Property
Public Property Get MenuCheckedBackgroundColorEnd() As Long
   MenuCheckedBackgroundColorEnd = ButtonCheckedBackgroundColorEnd
End Property
Public Property Get MenuCheckedHotBackgroundColorStart() As Long
   MenuCheckedHotBackgroundColorStart = ButtonCheckedHotBackgroundColorStart
End Property
Public Property Get MenuCheckedHotBackgroundColorEnd() As Long
   MenuCheckedHotBackgroundColorEnd = ButtonCheckedHotBackgroundColorEnd
End Property

' General colours:
Public Property Get IconDisabledColor() As Long
   IconDisabledColor = RGB(109, 150, 208)
End Property

Public Property Get LightColor() As Long
   LightColor = RGB(255, 255, 255)
End Property
Public Property Get DarkColor() As Long
   DarkColor = RGB(106, 140, 203)
End Property

Public Property Get GradientColorStart() As Long
   GradientColorStart = RGB(227, 229, 255)
End Property
Public Property Get GradientColorEnd() As Long
   GradientColorEnd = RGB(135, 173, 228)
End Property