In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Función RGBInverse

Foro de Xailer profesional en español
Responder
CapelSoft
Mensajes: 137
Registrado: Vie Jul 29, 2005 8:49 am
Ubicación: Valencia - España
Contactar:

Función RGBInverse

Mensaje por CapelSoft »

Hola amigos,

Andaba yo buscando en Xailer una función que dado un color me devolviera el complementario.. que no la he encontrado. Sin embargo, he visto que está la función RGBInverse. Y no acabo de ver qué devuelve... es decir... no comprendo el resultado.

¿Alguien la ha usado?

Por ejemplo:

RgInverse( clRed ) devuelve 65791.

Si un bevel hacemos:
::oBevel1:nClrPane := clRed

Se muestra el bevel en rojo.

Si hacemos :
::oBevel1:nClrPane := RgbInverse( clRed )

Yo veo el bevel del mismo color :o

En fin... si alguien me puede aclarar para qué sirve esta función... agradecimiento eterno :-)
updown.zip
Proyecto con ejemplo de visualización color clRed y color RGBInverse( clRed )
(2.26 KiB) Descargado 164 veces
--
José Luis Capel
http://www.CapelBlog.es
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: Función RGBInverse

Mensaje por ignacio »

Buenos días,

Veo el código de la función RGBInverse() y la verdad no parece que se correcta. Prueba simplemente con esto:

nInverseColor := RGB(255,255,255) - nOldColor

Saludos
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
CapelSoft
Mensajes: 137
Registrado: Vie Jul 29, 2005 8:49 am
Ubicación: Valencia - España
Contactar:

Re: Función RGBInverse

Mensaje por CapelSoft »

Hola Ignacio,

Lo que has indicado funciona perfectamente. Supongo que en la próxima versión de Xailer estará corregida la función.
nInverseColor := RGB(255,255,255) - nOldColor
Gracias!
--
José Luis Capel
http://www.CapelBlog.es
Avatar de Usuario
bingen
Mensajes: 581
Registrado: Lun Jul 07, 2014 8:17 pm
Ubicación: Bilbao
Contactar:

Re: Función RGBInverse

Mensaje por bingen »

Confirmo que ya está corregida para la próxima versión de Windows.
BiSoft Desarrollo de software profesional
http://www.bisoft.es
Responder