home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / classlib / desaware / dwlogpen.cls < prev    next >
Encoding:
Text File  |  1996-02-17  |  1.3 KB  |  62 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "dwLogPen"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10. ' Class dwLogPen
  11. ' Desaware API Toolkit object library
  12. ' Copyright (c) 1996 by Desaware Inc.
  13. ' All rights reserved
  14.  
  15. Private iLogPen As LOGPEN
  16.  
  17. Public Property Get PS_SOLID()
  18.     PS_SOLID = 0
  19. End Property
  20. Public Property Get PS_DASH()
  21.     PS_DASH = 1
  22. End Property
  23. Public Property Get PS_DOT()
  24.     PS_DOT = 2
  25. End Property
  26. Public Property Get PS_DASHDOT()
  27.     PS_DASHDOT = 3
  28. End Property
  29. Public Property Get PS_DASHDOTDOT()
  30.     PS_DASHDOTDOT = 4
  31. End Property
  32. Public Property Get PS_NULL()
  33.     PS_NULL = 5
  34. End Property
  35. Public Property Get PS_INSIDEFRAME()
  36.     PS_INSIDEFRAME = 6
  37. End Property
  38.  
  39. Public Property Get Style() As Long
  40.     Style = iLogPen.lopnStyle
  41. End Property
  42.  
  43. Public Property Let Style(lStyle As Long)
  44.     iLogPen.lopnStyle = lStyle
  45. End Property
  46.  
  47. Public Property Let Color(lColor As Long)
  48.     iLogPen.lopnColor = lColor
  49. End Property
  50.  
  51. Public Property Get Color() As Long
  52.     Color = iLogPen.lopnColor
  53. End Property
  54.  
  55. Public Property Get Width() As Long
  56.     Width = iLogPen.lopnWidth.x
  57. End Property
  58.  
  59. Public Property Let Width(lWidth As Long)
  60.     iLogPen.lopnWidth.x = lWidth
  61. End Property
  62.