Desplegar, Seleccionar y Cambiar color de formularios en tiempo de ejecución

[Wilzy G]

Buenas, solicito ayuda.

Actualmente tengo ésta pantalla en la cual se puede cambiar el color de los formularios en tiempo de ejecución, para lo cual se debe ingresar los parámetros RGB manualmente, (cosa que no es muy práctico ya que hay que buscar en internet u otro lado los numeros RGB que corresponde al color que se desea para poder ingresarlo).

El BackColor toma el código RGB y cambia el color de los formularios.

Cómo puedo lograr que haciendo clic en un botón se desplieguen los colores, y al seleccionar alguno de los colores los formularios tomen ese color??.

Por ejemplo, al elegir el color amarillo obtener automáticamente su codigo RGB par el BackColor, en vez de tener que escribir 255,255,0

Agradezco cualquier ayuda de antemano.

Muchísimas Gracias.

[Zarlu]

Buenos días Wilzy G

Prueba

lcColor=GETCOLOR()

? lcColor

Te hará falta convertir a RGB

Suerte

zarlu

Chetumal, Quintana Roo, México

[Harold Inga]

Este código encontre en el foro, aun no lo he probado.

loColor = ColorToRGB(GetColor())
lnGris = (loColor.Red + loColor.Green + loColor.Blue) / 3
_Screen.BackColor = RGB(lnGris, lnGris, lnGris)

Function ColorToRGB
Parameters tnColor
Local loResult
    loResult = NewObject("empty")
    AddProperty(loResult, "Red", Int(Bitand(tnColor, 255)))
    AddProperty(loResult, "Green", Int(Bitand(tnColor, 16842496)/0256))
    AddProperty(loResult, "Blue", Int(Bitand(tnColor, 16711680)/65536))
Return (loResult)
EndFunc

Harold Gerardo Inga Bruz

Analista/Programador de Sistemas

Especialista en Reingenieria de Procesos, Recaudacion Tributaria y Catastro

RPM #953522915, RPC 953721757, Fijo (053)636233

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9f238e7e-91fd-47a4-8fa9-8356694efb0co%40googlegroups.com.

[Zarlu]

Qué tal Wilzy G.

Aquí lo tienes (de la red)

De está manera obtienes el RGB para almacenar en los text actuales y no tienes que mover demasiado tu código

LOCAL r, g, b
red = 0
green = 0
blue = 0
getRGB(getColor(),@red,@green,@blue)
? red
? green
? blue
FUNC getRGB(colour,red,green,blue)
PRIVATE p,i
p = (256 ^ 2)
i = INT(colour / p)
blue = i
colour = colour - (i * p)
p = (256 ^ 1)
i = INT(colour / p)
green =    i
colour = colour - (i * p)
red = INT(colour)

[Francisco Lorente]

Hola Wilzy

Prueba con esto:

m.lnColor = GetColor()
If m.lnColor != -1
    Thisform.Backcolor = m.lnColor
EndIf

No hay qiue convertir lnColor a RGB

Saludos.

Francisco Lorente.

Murcia. España.

[Wilzy G]

Muchísimas Gracias a todos, ya pude implementar :)

[Wilzy G]

Gracias :)

[Zarlu]

Excelente Wilzy G Que ya lo resolviste

El código sugerido por Harold Inga funciona así:

loColor = ColorToRGB(GetColor())
_Screen.BackColor = RGB(loColor.Red, loColor.Green, loColor.Blue)

Function ColorToRGB
Parameters tnColor
Local loResult
    loResult = NewObject("empty")
    AddProperty(loResult, "Red", Int(Bitand(tnColor, 255)))
    AddProperty(loResult, "Green", Int(Bitand(tnColor, 16842496)/0256))
    AddProperty(loResult, "Blue", Int(Bitand(tnColor, 16711680)/65536))
Return (loResult)

EndFunc

Hago la acotación de que esto es si se quiere obtener los valores de Red,Green y Blue

[Wilzy G]

Excelente los aportes

[ZeRoberto]

Te recomiendo que no guardes los colores por separado

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

El mié., 8 de jul. de 2020 a la(s) 12:07, Wilzy G (wilz...@gmail.com) escribió:

Excelente los aportes

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/389352fe-5eb6-4352-9e86-261a3f8cfce0o%40googlegroups.com.

[Wilzy G]

Por qué?

El miércoles, 8 de julio de 2020, 13:15:00 (UTC-4), ZeRoberto escribió:

Te recomiendo que no guardes los colores por separado

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

El mié., 8 de jul. de 2020 a la(s) 12:07, Wilzy G (wilz...@gmail.com) escribió:

Excelente los aportes

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

[HernanCano]

¿Por qué?

[ZeRoberto]

Para hacerlo mas facil para el usuario, mucho de nosotros pocas veces ingresamos valores RGB abrimos la paleta de colores y seleccionamos el color.

Es una humilde sugerencia

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/6fb3ff32-743d-4cae-9a16-07129a0220a4n%40googlegroups.com.

[Wilzy G]

 

Sí, ahora ya cambié para que se pueda seleccionar desde una paleta.

[Zarlu]

Buenas tardes foxeros!

A solicitud de un colega que tuvo problemas con el botón cancelar de la paleta de colores.

Un código simplificado de los aportes hechos en éste hilo

lcObjeto="_Screen.BackColor"&&objeto a cambiar el color
loColor = GetColor(&lcObjeto)&&abre paleta con color actual seleccionado
IF loColor!=-1&&si se elige algun color
&lcObjeto = loColor

EndIf

Suerte

zarlu

Chetumal, Quintana Roo, México

[Hitiel Hernández]

Gracias Zarlu

funcionó perfecto como tú lo indicas. 

Probé hacerlo con esta función pero siempre me marca error al presionar en CANCELAR

*---------------------------------------------------------------------
**** FUNCIÓN PARA OBTENER LOS COLORES RGB

Function ColorToRGB
Parameters tnColor
Local loResult
    loResult = NewObject("empty")
    AddProperty(loResult, "Red", Int(Bitand(tnColor, 255)))
    AddProperty(loResult, "Green", Int(Bitand(tnColor, 16842496)/0256))
    AddProperty(loResult, "Blue", Int(Bitand(tnColor, 16711680)/65536))
Return (loResult)
EndFunc

*----------------------------------------------------------------------

y en el evento CLICK de un botón tenía este código:

*----------------------------------------------------------------------------

loColor = ColorToRGB(GetColor())
_Screen.BackColor = RGB(loColor.Red, loColor.Green, loColor.Blue)

*------------------------------------------------------------------------------------------------

Me podrías ayudar indicándome dónde está el problema con el ERROR porque no lo pude solucionar.

Marca error al presionar en CANCELAR en la paleta de colores.

Gracias

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3133c061-9be5-4441-89f3-23875bad6a23n%40googlegroups.com.

--

Saludos Cordiales!