!----------------------------------------------------------------------------------------------
WinChooseColor PROCEDURE(*LONG reflTempColor)

!  INCLUDE('winconst.clw')
!  INCLUDE('wintypes.clw')

IsOk            BYTE
MyCHOOSECOLOR   GROUP(CHOOSECOLORGroup),PRE(MyCC)
                END
DimCustColors   LONG,DIM(16)
bI              BYTE

  CODE
  LOOP bI = 1 TO 16
    DimCustColors[bI] = COLOR:White
  END
  MyCC:hwndOwner = TARGET{Prop:Handle}
  MyCC:rgbResult = reflTempColor
  MyCC:Flags     = 00000001h + 00000002h    !öffnet das gesamte Fenster
  MyCC:lpCustColors = ADDRESS(DimCustColors)
  MyCC:lStructSize = SIZE(MyCHOOSECOLOR)
  IF ChooseColor(MyCHOOSECOLOR)
    reflTempColor = MyCC:rgbResult
    IsOk = True
  END
  RETURN(IsOk)