' Function to select a color from the ChooseColor dialog
' Not a complete program

'Required:
#INCLUDE "WIN32API.INC"
#INCLUDE "COMDLG32.INC"

GLOBAL CurrrentColor AS DWORD


'Called:
CurrentColor = SelectColor(hWnd, BYCOPY CurrentColor)


FUNCTION SelectColor(hWnd AS LONG, LocalColor AS DWORD) AS DWORD

  LOCAL cc AS CHOOSECOLORAPI ' from comdlg32.inc
  DIM CustomColor(15) AS LOCAL DWORD 'array needed even if not used

  cc.lStructSize = LEN(cc)
  cc.hwndOwner = hWnd  ' handle to parent window or zero for top/left.
  cc.lpCustColors = VARPTR(CustomColor(0)) ' point to array of custom colors
  cc.rgbResult = LocalColor   'set the initial color
  cc.Flags = %CC_RGBINIT OR %CC_FULLOPEN  ' from comdlg32.inc
  ChooseColor cc  ' returns 0 if cancel selected
  FUNCTION = cc.rgbResult  ' return the color

END FUNCTION