VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "dwLogPen"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Option Explicit

' Class dwLogPen
' Desaware API Toolkit object library
' Copyright (c) 1996 by Desaware Inc.
' All rights reserved

Private iLogPen As LOGPEN

Public Property Get PS_SOLID()
    PS_SOLID = 0
End Property
Public Property Get PS_DASH()
    PS_DASH = 1
End Property
Public Property Get PS_DOT()
    PS_DOT = 2
End Property
Public Property Get PS_DASHDOT()
    PS_DASHDOT = 3
End Property
Public Property Get PS_DASHDOTDOT()
    PS_DASHDOTDOT = 4
End Property
Public Property Get PS_NULL()
    PS_NULL = 5
End Property
Public Property Get PS_INSIDEFRAME()
    PS_INSIDEFRAME = 6
End Property

Public Property Get Style() As Long
    Style = iLogPen.lopnStyle
End Property

Public Property Let Style(lStyle As Long)
    iLogPen.lopnStyle = lStyle
End Property

Public Property Let Color(lColor As Long)
    iLogPen.lopnColor = lColor
End Property

Public Property Get Color() As Long
    Color = iLogPen.lopnColor
End Property

Public Property Get Width() As Long
    Width = iLogPen.lopnWidth.x
End Property

Public Property Let Width(lWidth As Long)
    iLogPen.lopnWidth.x = lWidth
End Property
