vbAccelerator - Contents of code file: pcItem.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "pcItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Caption As String
Public ShowCaption As Boolean   ' turns off caption in toolbar
Public Alignment As EVPLPickItemAlignment
Public ToolTipText As String
Public ShortCut As String
Public Style As Long ' separator, icon, colour, linestyle, linewidth, owner
Public UsesLine  As Boolean
Public Icon As Long
Public Colour As OLE_COLOR
Public LineStyle As Long
Public LineWidth As Long
Public HelpText As String
Public DropDownStyle As EVPLPickItemDropDrownStyle
Public Checked As Boolean
Private m_bEnabled As Boolean
Public hWndDropDown As Long
Public InMenuLoop As Boolean

Public Tag As String
Public ItemData As Long

Public MouseDown As Boolean
Public MouseOver As Boolean

Public ID As Long
Public Key As String

Private m_tR As RECT

Friend Property Get Enabled() As Boolean
   If (Style = evplSeparator) Then
      Enabled = False
   Else
      Enabled = m_bEnabled
   End If
End Property
Friend Property Let Enabled(ByVal Value As Boolean)
   m_bEnabled = Value
End Property
Friend Sub GetRect(rc As RECT)
   LSet rc = m_tR
End Sub
Friend Sub SetRect(rc As RECT)
   LSet m_tR = rc
End Sub

Private Sub Class_Initialize()
   Enabled = True
End Sub