https://foro.gambas-es.org/viewtopic.php?f=5&t=6291
-----------------------------------
jsbsan
Lunes, 17 Abril 2017, 18:06

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:

 [img]https://foro.gambas-es.org/files/images/6/daybutton_ejemplo.jpg[/img] 

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/04/gambas3-nuevo-control-daybutton.html

[youtube]y94XB7C5bMA[/youtube]


-----------------------------------
tincho
Lunes, 17 Abril 2017, 22:56

Re: Nuevo Control DayButton
-----------------------------------
Inc Jsbsan.


-----------------------------------
shordi
Martes, 18 Abril 2017, 12:57

Re: Nuevo Control DayButton
-----------------------------------
Ta chulo.  :mryellow:  :mryellow: 
Una sugerencia, si cambias ésto:

[code linenumbers=false syntax=gambas]
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[/code]

Tendrás el texto porporcional al tamaño del botón. Más o menos así:
 [img]https://foro.gambas-es.org/files/images/38/captura_de_pantalla_de_2017_04_18_13_57_18.png[/img]


-----------------------------------
jsbsan
Martes, 18 Abril 2017, 20:51

Re: Nuevo Control DayButton
-----------------------------------
Shordi:

[quote]Una sugerencia, si cambias ésto.......Tendrás el texto porporcional al tamaño del botón.[/quote]
Ok, buena sugerencia. Ya la he incluido en la version 0.0.6


Saludos


