Paleta de Colores de Windows

[Willi Quintana]

HOla Amigos.
Como de puede acceder a la paleta de colores de Windows y que nos devuelta los códigos RGB?
https://ibb.co/GnCgH2C

[leandro]

Creo que es lo que necesitas

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
function Main()
    ChooseColor()
return nil
 

[Willi Quintana]

Gracias,,,, funciono perfecto-----

Code: Select all  Expand view  RUN

......
cColor := ""
 nColor := ChooseColor(nColor)
 If nColor > 0
    cColor := "n" + cClrToCode( nColor )
EndIf

?  cColor       ---> RGB ( xxx,xxx,xxx )