Color

124 views
Skip to first unread message

xor...@hotmail.com

unread,
Feb 6, 2023, 3:11:10 PM2/6/23
to Comunidad de Visual Foxpro en Español
tengo un sistema de punto de venta, el color que utilizo en los form
es naranja, es correcto utilizar este color?, antes utilizaba mas el azul cien.
Algún color que recomienden ?

Irwin Rodriguez

unread,
Feb 6, 2023, 3:20:57 PM2/6/23
to publice...@googlegroups.com
Esa pregunta se la tienes que hacer a tus usuarios que son los que duran 8 horas usando la interfaz, también te agradecerán el poder cambiar el color a su gusto o incluso ofrecerles algunos colores predeterminados para que no tengan que escoger directamente desde la paleta. 

Algunos colores agradables a la vista pueden ser los siguientes:
image.png

Un saludo.

--
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/7205ef21-3b15-4400-99c9-9b9930fdbc73n%40googlegroups.com.

Victor Espina

unread,
Feb 6, 2023, 3:25:04 PM2/6/23
to Comunidad de Visual Foxpro en Español
Debes tener en cuenta dos aspectos importantes:

a) Para el color de fondo de pantalla, usar un color que no canse la vista en el ambiente de luz donde normalmente se va a usar el sistema.  Por ejemplo, usar un fondo blanco o muy claro en un ambiente de poca luz causa mucha fatiga en el ojo.  Lo mismo pasa cuando usas fondos muy oscuros en ambiente de mucha luz.

b) El contraste entre el color de fondo y las letras y otros elementos visuales en la pantalla debe ser el suficiente como para que se puedan visualizar sin mucho esfuerzo. Por ejemplo, poner letras naranja sobre un fondo amarillo hace que sea muy dificil visualizar el contenido.

Saludos

Victor Espina

xor...@hotmail.com

unread,
Feb 6, 2023, 4:45:25 PM2/6/23
to Comunidad de Visual Foxpro en Español
Asi tengo el form de ventas.?
form.png

Javier lugo

unread,
Feb 6, 2023, 6:32:32 PM2/6/23
to publice...@googlegroups.com
Alguien sabe si dado un color de fondo... Poder sacar un color de font?.. es decir su utilizo un fondo tirando a colores oscuros automáticamente los fonts de los formularios sean claros . Y viceversa....
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.

Víctor Hugo Espínola Domínguez

unread,
Feb 6, 2023, 6:37:55 PM2/6/23
to publice...@googlegroups.com
https://www.mediafire.com/file/z2t9m9gb5d7zz1h/GenForm4_v0.zip/file ahí hay una función que detecta si el color es claro.
image.png

image.png

Saludos,
Víctor.
Lambaré - Paraguay.



ZeRoberto

unread,
Feb 6, 2023, 8:29:58 PM2/6/23
to publice...@googlegroups.com
Ahora están de moda los colores oscuros, hazlo como el de la segunda imagen del ejemplo de Victor Hugo si es posible que se asemeje a los formularios de windows 10 o 11

Saludos

Ze




--
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.

Javier lugo

unread,
Feb 7, 2023, 12:39:13 PM2/7/23
to Comunidad de Visual Foxpro en Español
Preguntando a Chat GPT. Me escribe esta funcion...
FUNCTION IsColorLight(cColor)
    LOCAL nRed, nGreen, nBlue, nBrightness
    nRed = Rgb(cColor,0)
    nGreen = Rgb(cColor,1)
    nBlue = Rgb(cColor,2)
    nBrightness = nRed + nGreen + nBlue
    IF nBrightness > 382
        RETURN .T.
    ELSE
        RETURN .F.
    ENDIF
ENDIF

pero no me funciona..

ZeRoberto

unread,
Feb 7, 2023, 8:24:10 PM2/7/23
to publice...@googlegroups.com
Hola Javier Lugo, el ejemplo deberia ser asi

Function IsColorLight(tnColor)
Local loColor, lnBrightness
    loColor = RgbToObj(tnColor)
    lnBrightness = loColor.Red + loColor.Green + loColor.Blue
    If lnBrightness > 382
        Return .T.
     Else
        Return .F.
    EndIf
EndFunc

Function RGBToObj
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)

Saludos

Ze






ZeRoberto

unread,
Feb 7, 2023, 10:37:20 PM2/7/23
to publice...@googlegroups.com
También pudiera ser asi, aunque no se que tanta diferencia hay con la anterior

? IsColorLight2(GetColor())

Function IsColorLight2(tnColor)
Local loColor, lnGrayScale
    loColor = RgbToObj(tnColor)
    lnGrayScale = (loColor.Red + loColor.Green + loColor.Blue) / 3
    If lnGrayScale > 127

        Return .T.
     Else
        Return .F.
    EndIf
EndFunc

Saludos

Ze


Ivan Martinez

unread,
Feb 7, 2023, 11:46:27 PM2/7/23
to publice...@googlegroups.com
El colores y sabores no han nacido los autores.
Cualquier coló es bueno sino fíjate cuando has visto un libro con Paginas negras sin embargo es el color que se ha impuesto para programar. Lo que sí hay que tener en cuenta es que se pueda leer claramente cualquier texto, no debe por default lanzar demasiada iluminación la pantalla no debe ser tan tenue ni tampoco tan apagado ya si el usuario quiere ajustar un poco el monitor a sus gustos que lo haga. Me gustan los tonos pasteles para los fondos o sea colores suavizados. Los tamaños de las letras importantísimo. Bueno , prueba y hay mucha literatura que lo complica todo. Lo más importante es el resultado que la gente se sienta bien cómoda con tu diseño, porque no escuchar sugerencias.
Ivan Martínez von Halle 



Enviado desde mi iPad
--

Javier lugo

unread,
Feb 8, 2023, 2:04:58 AM2/8/23
to Comunidad de Visual Foxpro en Español
Gracias ZeRoberto... la IA no iba mal encaminada. pero aun le falta el toque de un maestro.. gracias por ayudar a los necesitados jejeje, un abrazo desde Vigo
Reply all
Reply to author
Forward
0 new messages