topic-42780

Board index FiveWin para Harbour/xHarbour Paleta de Colores de Windows

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Paleta de Colores de Windows
Posted: Sat Feb 11, 2023 11:33 PM

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

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Paleta de Colores de Windows
Posted: Sun Feb 12, 2023 12:23 AM

Creo que es lo que necesitas

Code (fw): Select all Collapse

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Paleta de Colores de Windows
Posted: Sun Feb 12, 2023 02:17 AM

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

Code (fw): Select all Collapse

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

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

FiveTech Support Forums

Continue the discussion