Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Nuevo Control DayButton
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Nuevo Control DayButton 
 
Mirando las capturas que nos pasaba Shell de una aplicación sobre hoteles, me fije en un botón donde aparecía la información de la fecha indicando el dia de la semana, y mes,  en letras. He hecho un nuevo control para que haga lo mismo:

 daybutton_ejemplo

Con la propiedad "fecha", se asignamos el dia que queremos que se muestre. Si no ponemos ningun valor, pone la fecha actual.


http://jsbsan.blogspot.com.es/2017/...-daybutton.html


Link

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Lunes, 17 Abril 2017, 21:16; editado 1 vez 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Nuevo Control DayButton 
 
Inc Jsbsan.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Nuevo Control DayButton 
 
Ta chulo.    
Una sugerencia, si cambias ésto:

Public Sub da_Draw()

  Dim hImage As New Image
  Dim iFlag As Integer = Style.StateOf(Me)
 
  Style.PaintButton(0, 0, $hDA.W, $hDA.H, $bState, iFlag, False)

  If Me.W > Me.H Then
    Me.H = Me.W
  Else
    Me.W = Me.H
  Endif

  Style.PaintButton(0, 0, $hDA.W, $hDA.H, $bState, iFlag, False)
  ''''''''''''''''''''''''''''
  Draw.Font.Size = Int(Draw.Height / 7) 'Un séptimo es más o menos la proporción correcta
  '''''''''''''''''''''''''
  Draw.RichText(Html(WeekDatText(Me.fecha)), 0, 0, Me.W, Me.H / 3, Align.Center)
  Draw.RichText(Html(Day(Me.fecha)), 0, Me.H / 3, Me.W, Me.H * 1 / 3, Align.Center)
  Draw.RichText(Html(MonthText(Me.fecha)), 0, Me.H * 2 / 3, Me.W, Me.H / 3, Align.Center)

End


Tendrás el texto porporcional al tamaño del botón. Más o menos así:
 captura_de_pantalla_de_2017_04_18_13_57_18
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Nuevo Control DayButton 
 
Shordi:

Citar:
Una sugerencia, si cambias ésto.......Tendrás el texto porporcional al tamaño del botón.

Ok, buena sugerencia. Ya la he incluido en la version 0.0.6


Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Creación De Un Nuevo Control En Gambas3: ... jsbsan Videotutoriales 3 Viernes, 06 Febrero 2015, 12:44 Ver último mensaje
jsbsan
No hay nuevos mensajes Nuevo Control: TableEdit shordi Controles/Librerías/Componentes 13 Viernes, 19 May 2017, 13:08 Ver último mensaje
tercoIDE
No hay nuevos mensajes Nuevo Control: Gb.estado jsbsan Aplicaciones/Fragmentos de Código 3 Lunes, 17 Octobre 2016, 23:34 Ver último mensaje
Grandamakulo
No hay nuevos mensajes Un Nuevo Control: RtEdit shordi Aplicaciones/Fragmentos de Código 5 Lunes, 30 May 2016, 13:38 Ver último mensaje
tercoIDE
 

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

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
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
No puede descargar archivos
No puede publicar eventos en el calendario