home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / peacoc / peacock.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-19  |  1.4 KB  |  39 lines
  1. '=====================================================
  2. '
  3. ' File: PEACOCK.BAS
  4. '
  5. ' Author: Phil Allen
  6. '
  7. ' Copyright (c) Phil Allen 1994, all rights reserved
  8. '
  9. ' Desc:
  10. ' These are the declarations needed to use PEACOCK
  11. ' the Color By Name package.
  12. '
  13. ' Add this file to your Visual Basic Project
  14. '
  15. ' Put PEACOCK.DLL and PEACOCK.INI into your 
  16. ' Windows directory
  17. '
  18. ' And you are ready to allow your users to choose the
  19. ' colors for their use by color name
  20. '
  21. ' In case you are wondering the cbn stands for
  22. '
  23. ' Color By Name
  24. '
  25. '========================================================
  26.  
  27. Declare Sub cbnAddUserColor Lib "PEACOCK.DLL" (ByVal colorName As String, ByVal colorVal As Long)
  28. Declare Sub cbnDeleteUserColor Lib "PEACOCK.DLL" (ByVal colorName As String)
  29. Declare Function cbnColorExists Lib "PEACOCK.DLL" (ByVal colorName As String) As Integer
  30. Declare Function cbnUserColorExists Lib "PEACOCK.DLL" (ByVal colorName As String) As Integer
  31. Declare Function cbnGetColor Lib "PEACOCK.DLL" (ByVal colorName As String, ByVal defVal As Long) As Long
  32. Declare Function cbnGetUserColor Lib "PEACOCK.DLL" (ByVal colorName As String, ByVal defVal As Long) As Long
  33. Declare Sub cbnGetColorList Lib "PEACOCK.DLL" (ByVal colorList As String, ByVal listLen As Integer)
  34. Declare Sub cbnGetUserColorList Lib "PEACOCK.DLL" (ByVal colorList As String, ByVal listLen As Integer)
  35.  
  36. Global Const CBN_EXISTS = 1
  37. Global Const CBN_NOT_EXISTS = 0
  38.  
  39.