Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Ayuda Con ColorChooser
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Ayuda Con ColorChooser 
 
Saludos a todos,      he usado ya el buscador del foro y nada figura por "color"     así que decidí plantear mi duda acá en
controles/librerías/componentes.

Mi dilema es que vi el siguiente ejemplo para insertar la fecha de un control Calendar en un control Editor:

Public Sub almanaque_MouseDown()
  TextEdit1.Insert(Format(almanaque.Value, " dddd, dd mmmm yyyy "))  
  TextEdit1.SetFocus
End


Esto funciona correctamente, pero quisiera saber cómo hacer lo propio con el control ColorChooser, para que al darle clic donde muestra el color, pueda pasarlo al TextEditor, me parece más cómodo que copiar y pegar.

o sea, donde el ColorChooser muestra el código del color, darle clic a ese recuadro para que me lo pase al TextEdit, así como antes coloqué el ejemplo del control Calendar.

Pensaba que será algo así como :

Public Sub ColorChooser1_DblClick()

  Editor1.Insert(Format(ColorChooser1.SelectedColor))    

End

(O algo similar, pero EEEEEEEEE, Error....    )

Mientras sigo lanzando flechas a la ventura a ver si le atino al Rey entre las junturas de su armadura, espero me puedan ayudar...  
 



 
atacarlos - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con ColorChooser 
 
No funciona esto ?

(Hace falta hacer click al menos una vez sobre el Slider a la derecha en el ColorChooser)
Private sh As Short


Public Sub ColorChooser1_Change()

 Editor1.Insert(CStr(ColorChooser1.SelectedColor), sh, 0)
 
 Inc sh

End

 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con ColorChooser 
 
No entiendo muy bien lo que quieres hacer.... al hacer click en el colorchooser quieres que se ponga de ese color ¿el fondo de las letras?¿el fondo del textedit?¿toda la letra?¿lo que escribas a partir del click?¿el texto seleccionado?.

Elabora un poco la cuestión...
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con ColorChooser 
 
Ok Shordi me disculpo por ser tan disperso, tengo un control "Editor" en un Form, desde dicho Form, llamo al control ChooseColor desde un formulario modal.

Código: [Descargar] [Ocultar]
  1.  
  2. Public Sub b1_Click()
  3.  
  4. fColor.Show
  5. End
  6.  
  7.  


Luego, se me ocurrió colocar esto:

Código: [Descargar] [Ocultar]
  1.  
  2. Public Sub btnOK_Click()
  3.  
  4.  ' ColorChooser
  5.  '  FMain.Editor.insert(ColorChooser1.SelectedColor)
  6.  ' Me.Close(True)
  7.  
  8.  

 
Eso fue lo más cercano que se me ocurrió, pero no me devuelve el valor que haya elegido en el selector de color, sino un valor muy diferente por ejemplo; si elijo un azul que sería tal vez 00003FFF, se inserta en el control "editor" el siguiente código: 16383

voy a probar la sugerencia que me respondieron, no había respondido porque pensaba que eran automáticas las notificaciones de respuestas del foro al correo, luego veo si configuro eso.

¡Gracias a todos por responder!
 



 
atacarlos - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con ColorChooser 
 
Hola vuott,      he intentado con la sugerencia que me das, pero curiosamente el resultado sigue siendo exactamente el mismo que el obtenido con lo que yo había hecho anteriormente...  
 



 
atacarlos - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con ColorChooser 
 
Los colores se acostumbran a representar en formato RGB hexadecimal, son 6 digitos hexadecimales, donde los primeros dos son el componente rojo (Red), los siguientes dos el verde (Green), y los ultimo dos el azul (Blue). Más info: https://es.wikipedia.org/wiki/RGB

Un número hexadecimal no es más que un numero entero, así que el valor 0x003FFF (representación hexadecimal) es lo mismo que el número 16383 (representación decimal).

Para solventar tu problema puedes hacer uso de la función Hex$(). Más info: http://gambaswiki.org/wiki/lang/hex

Saludos.
 



 
razaAztk - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuarioVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con ColorChooser 
 
Muchas gracias  razaAztk, voy a revisar esa documentación...
 



 
atacarlos - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con ColorChooser 
 
atacarlos escribió: [Ver mensaje]
Muchas gracias  razaAztk, voy a revisar esa documentación...


Dale chamo, tu puedes
 



 
imiguelsalcedo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Con ColorChooser 
 
Supongo que ésto es lo que buscas:

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    


El por qué lo tienes aquí:
http://foro.gambas-es.org/viewtopic...ight=rgb#p16946
 




===================
No podemos regresar
 
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 Ayuda Y Mas Ayuda, Con Programar Fecha luisrel Controles/Librerías/Componentes 2 Viernes, 03 Diciembre 2010, 15:50 Ver último mensaje
luisrel
No hay nuevos mensajes Gambas3.4(Casi).Ventana De Ayuda Y Ayuda O... Shell Instalación 3 Martes, 22 Enero 2013, 00:23 Ver último mensaje
Shell
No hay nuevos mensajes Ayuda. mauricio785 Controles/Librerías/Componentes 4 Miercoles, 12 Octobre 2016, 00:42 Ver último mensaje
vuott
No hay nuevos mensajes Ayuda Online, Ayuda Offline Shell General 1 Jueves, 20 Octobre 2016, 13:30 Ver último mensaje
Shell
 

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