Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Pasar Colores A Formato RGB Y Viceversa. [Solucionado]
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Pasar Colores A Formato RGB Y Viceversa. [Solucionado] 
 
A ver, que tengo la picha hecha un lío.

1) He hecho un calendario de Eventos relacionados con una base de datos.

2) Según el tipo de evento, se le asignaq un color que se almacena en la base de datos. Este código de color es el integer que devuelve el colorchooser.

3) Este código funciona genial con los objetos de gambas, pero al intentar asignarlo al Richtext de la celda, como que no (de hecho cuando lo ponía yo mismo me decía "Esto no me suena nada")

4) Me sonaba una función de gambas2 rgb(canal1,canal2,canal3) y demás... pero no sé cómo descomponer el integer del color, tal como lo usa gambas en los canales de marras... o en otro código que entienda el "parseador" de HTML.

Resumiendo: ¿Cómo meter el código de color de gambas en un Richtext?

¿Alguna pista o algo? Supongo que la pregunta tiene algo de html elemental y cosas así... decídmelo y yo solito me diré eso de "Jorge, querido, ¿Estás tonto o qué?"

Saludos
 



 
última edición por shordi el Miercoles, 20 Marzo 2013, 00:33; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: A Vueltas Con Los Colores. 
 
Hola Shordi.

A ver si no me equivoco con la cabeza que tengo.  

DIM uncolor as Interger
DIM quecolores as ColorInfo

uncolor = Color.RGB(100,200,100)

quecolores=Color[uncolor]

Print quecolores.Red
Print quecolores.Green
Print quecolores.Blue

 


¿ Era eso ?.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: A Vueltas Con Los Colores. 
 
Ah, hace poco estuve liado con los colores.

Hice un ejemplo de una rejilla rellena de cuadrados de colores.

 rejillacolor

Tienes que hacer click en cuadrados y luego en una celda.
Lo curioso del dibujo es la actualización que hace el componente DrawingArea,
si usa gtk le pasas una ventana por encima y hace cosas rara, si eliges el
componente gb.qt4, no hace ese efecto.

Aquí esta el ejemplo, por complementar.

Saludos

RejillaColor.tar.gz
Descripción:  
Descargar
Nombre del archivo: RejillaColor.tar.gz
Tamaño: 7.55 KB
Descargado: 53 veces
RejillaColor.tar.gz
Descripción:  
Descargar
Nombre del archivo: RejillaColor.tar.gz
Tamaño: 7.55 KB
Descargado: 53 veces
RejillaColor.tar.gz
Descripción:  
Descargar
Nombre del archivo: RejillaColor.tar.gz
Tamaño: 7.55 KB
Descargado: 53 veces

 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: A Vueltas Con Los Colores. 
 
Sí, pero si almacenas el valor del color de un background, por ejemplo, lo que te sale es un número entre 0 y porrón de dígitos. ¿Cómo descomponer eso en RGB?
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: A Vueltas Con Los Colores. 
 
shordi escribió: [Ver mensaje]
Sí, pero si almacenas el valor del color de un background, por ejemplo, lo que te sale es un número entre 0 y porrón de dígitos. ¿Cómo descomponer eso en RGB?


Hola Shordi,

RGB tiene la forma hexadecimal R*10000+G*100+B. Es decir RGB(20,10,30)= 20*(256*256)+10*256+30=1313310.

Ahora si lo hacemos a la inversa:
R=int(1313310/(256*256))
G=int (1313310-(R*256*256)/256)
B=1313310-R*256*256-G*256

Espero que te sirva   .

Sebas
 



 
Sebas - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: A Vueltas Con Los Colores. 
 
Gracias Sebas. Process in progres...
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: A Vueltas Con Los Colores. 
 
...Como que no me sale... algo va mal con el G... Qué plasta esto de ser de letras.
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: A Vueltas Con Los Colores. 
 
Shordi:

G=int ( (1313310-(R*256*256))/256)

Saludos

Nota:
Añado una pequeña aplicación para hacer la conversión en ambos sentidos

 rgbconversion

RGBconversion-0.0.1.tar.gz
Descripción: Convierte de Numero a RGB y de RGB a Numero 
Descargar
Nombre del archivo: RGBconversion-0.0.1.tar.gz
Tamaño: 5.21 KB
Descargado: 61 veces
RGBconversion-0.0.1.tar.gz
Descripción: Convierte de Numero a RGB y de RGB a Numero 
Descargar
Nombre del archivo: RGBconversion-0.0.1.tar.gz
Tamaño: 5.21 KB
Descargado: 61 veces
RGBconversion-0.0.1.tar.gz
Descripción: Convierte de Numero a RGB y de RGB a Numero 
Descargar
Nombre del archivo: RGBconversion-0.0.1.tar.gz
Tamaño: 5.21 KB
Descargado: 61 veces

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Martes, 19 Marzo 2013, 22:54; editado 2 veces 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: A Vueltas Con Los Colores. 
 
Perfecto. Era un tema de paréntesis del pijo.

La manera que parece funcionar es el númerito de marras (por cierto ¿cómo se llama esa forma de almacenar colores? se pasa a sus valores rgb y después cada valor se pasa a hexadecimal. Esa cadena se pasa al Richtext en la etiqueta html font color=#aabbcc y todo el mundo contento.

Gracias a Sebas y a Julio. Es genial la potencia de una mente colectiva y algo de buena voluntad...

La solución integrada en mi aplicación se reduce a esta funcioncita:

Public Function colorNumtoHex(numero As Integer) As String
  
 Dim r, g, b As Integer  
 
 r = Int(numero / (256 * 256))
 g = Int((numero - (r * 256 * 256)) / 256)
 b = numero - r * 256 * 256 - g * 256
 Return Hex(Str(r), 2) & Hex(Str(g), 2) & Hex(Str(b), 2)
 
End    
 

 



 
última edición por shordi el Miercoles, 20 Marzo 2013, 09:51; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Pasar Colores A Formato RGB Y Viceversa. [Solucionado] 
 
Cambio el título al hilo, para que se vea de qué va.
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Colores. Basico.[Solucionado] Shell General 3 Jueves, 10 Noviembre 2011, 00:08 Ver último mensaje
Shell
No hay nuevos mensajes Sobre Los Colores De Listbox [Solucionado] shordi General 8 Martes, 07 Enero 2014, 20:28 Ver último mensaje
shordi
No hay nuevos mensajes Como Pasar Base De Datos Sqlite3 A Excel O... drojas Bases de Datos 3 Martes, 21 Febrero 2017, 17:33 Ver último mensaje
tincho
No hay nuevos mensajes Pasar De Xls A Sqlite [Solucionado] shordi General 3 Viernes, 12 Julio 2019, 18:37 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron