VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SchemeDefault"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Declare Function GetSysColor Lib "user32.dll" ( _
   ByVal nIndex As Long _
) As Long

Implements IScheme

' See IScheme Interface.
Private Property Get IScheme_ActiveCaptionForeColor() As Long
   IScheme_ActiveCaptionForeColor = GetSysColor(9)
End Property

' See IScheme Interface.
Private Property Get IScheme_ActiveCaptionGradient1() As Long
   IScheme_ActiveCaptionGradient1 = GetSysColor(2)
End Function

' See IScheme Interface.
Private Property Get IScheme_ActiveCaptionGradient2() As Long
   IScheme_ActiveCaptionGradient2 = GetSysColor(27)
End Property

Private Property Get IScheme_ActiveTabIcon() As Boolean
   IScheme_ActiveTabIcon = True
End Property

' See IScheme Interface.
Private Property Get IScheme_FocusTabGradientAngle() As Long
   IScheme_FocusTabGradientAngle = 90
End Property

Private Property Get IScheme_FocusTabIcon() As Boolean
   IScheme_FocusTabIcon = True
End Property

' See IScheme Interface.
Private Property Get IScheme_InactiveCaptionForeColor() As Long
   IScheme_InactiveCaptionForeColor = GetSysColor(19)
End Property

' See IScheme Interface.
Private Property Get IScheme_InactiveCaptionGradient1() As Long
   IScheme_InactiveCaptionGradient1 = GetSysColor(3)
End Property

' See IScheme Interface.
Private Property Get IScheme_InactiveCaptionGradient2() As Long
   IScheme_InactiveCaptionGradient2 = GetSysColor(28)
End Property

' See IScheme Interface.
Private Property Get IScheme_FocusTabForeColor() As Long
   IScheme_FocusTabForeColor = vbBlack
End Property

' See IScheme Interface.
Private Property Get IScheme_FocusTabGradient1() As Long
   IScheme_FocusTabGradient1 = RGB(252, 252, 254) 'vbWhite ' vbButtonFace
End Property

' See IScheme Interface.
Private Property Get IScheme_FocusTabGradient2() As Long
   IScheme_FocusTabGradient2 = RGB(252, 252, 254) 'vbWhite
End Property

' See IScheme Interface.
Private Property Get IScheme_ActiveTabForeColor() As Long
   IScheme_ActiveTabForeColor = vbWindowText
End Property

' See IScheme Interface.
Private Property Get IScheme_ActiveTabGradient2() As Long
   IScheme_ActiveTabGradient2 = RGB(242, 236, 219) 'vbButtonFace
End Property

' See IScheme Interface.
Private Property Get IScheme_ActiveTabGradient1() As Long
   IScheme_ActiveTabGradient1 = RGB(255, 255, 246) 'vbButtonFace
End Property

' See IScheme Interface.
Private Property Get IScheme_FrameColor() As Long
   IScheme_FrameColor = RGB(145, 155, 156)
End Property

' See IScheme Interface.
Private Property Get IScheme_FrameWidth() As Long
   IScheme_FrameWidth = 0
End Property

' See IScheme Interface.
Private Property Get IScheme_BackColor() As Long
   If scheme = VbClassic Then
      IScheme_BackColor = RGB(230, 230, 230)
   Else
      IScheme_BackColor = RGB(249, 248, 242)
   End If
End Property

Private Property Get IScheme_InactiveTabIcon() As Boolean
   IScheme_InactiveTabIcon = True
End Property

Private Property Get IScheme_SplitbarColor() As Long
   IScheme_SplitbarColor = IScheme_BackColor
End Property

' See IScheme Interface.
Private Property Get IScheme_EditorAreaBackColor() As Long
   IScheme_EditorAreaBackColor = vbApplicationWorkspace
End Property

' See IScheme Interface.
Private Property Get IScheme_ActiveTabGradientAngle() As Long
   IScheme_ActiveTabGradientAngle = 90
End Property

Private Property Get IScheme_InactiveTabForeColor() As Long
   IScheme_InactiveTabForeColor = vbBlack
End Property

Private Property Get IScheme_InactiveTabGradient1() As Long
   IScheme_InactiveTabGradient1 = IScheme_ActiveTabGradient1
End Property

Private Property Get IScheme_InactiveTabGradient2() As Long
   IScheme_InactiveTabGradient2 = IScheme_ActiveTabGradient2
End Property

Private Property Get IScheme_InactiveTabGradientAngle() As Long
   IScheme_InactiveTabGradientAngle = IScheme_ActiveTabGradientAngle
End Property

Private Property Get IScheme_TabStripBackColor() As Long
   IScheme_TabStripBackColor = IScheme_BackColor
End Property

' See IScheme Interface.
Private Property Get IScheme_Captions() As Boolean
   IScheme_Captions = True
End Property

' See IScheme Interface.
Private Property Get IScheme_CaptionIcons() As Boolean
   IScheme_CaptionIcons = True
End Property

' See IScheme Interface.
Private Property Get IScheme_CaptionStyle() As vbCaptionStyle
   IScheme_CaptionStyle = vbHorizontalGradient
End Property

' See IScheme Interface.
Private Property Get IScheme_FrameStyle() As vbFrameStyle
   IScheme_FrameStyle = vbFrameStyle.vbFlatFrame
End Property
