Aplicaciones/Fragmentos de Código :: Nuevo Control DayButton

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Martes, 30 Abril 2024, 15:52 • Todas las horas son UTC + 1 Hora

Nuevo Control DayButton

Página 1 de 1

Nuevo Control DayButton

Autor	Mensaje
jsbsan Analista Programador Registrado: Septiembre 2009 Mensajes: 4175 Edad: 51 Ubicación: dos hermanas, sevilla	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: 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, 20:16; editado 1 vez
#1 Lunes, 17 Abril 2017, 18:06

tincho Analista Programador Registrado: Noviembre 2014 Mensajes: 2565 Edad: 48 Ubicación:	Re: Nuevo Control DayButton Inc Jsbsan.
#2 Lunes, 17 Abril 2017, 22:56

shordi Analista Programador Registrado: Septiembre 2009 Mensajes: 4982 Edad: 64 Ubicación: Albacete	Re: Nuevo Control DayButton Ta chulo. Una sugerencia, si cambias ésto: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] 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í: =================== No podemos regresar
#3 Martes, 18 Abril 2017, 12:57

jsbsan Analista Programador Registrado: Septiembre 2009 Mensajes: 4175 Edad: 51 Ubicación: dos hermanas, sevilla	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!!!
#4 Martes, 18 Abril 2017, 20:51

Mostrar mensajes anteriores:

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Creación De Un Nuevo Control En Gambas3: ...	jsbsan	Videotutoriales	3	Viernes, 06 Febrero 2015, 12:44 jsbsan
Nuevo Control: TableEdit	shordi	Controles/Librerías/Componentes	13	Viernes, 19 May 2017, 12:08 tercoIDE
Un Nuevo Control: FTPView	shordi	Controles/Librerías/Componentes	5	Martes, 27 Agosto 2019, 19:10 shordi
Nuevo Control: GvColumnFixer	shordi	Controles/Librerías/Componentes	11	Martes, 10 Septiembre 2019, 09:09 Grandamakulo

Página 1 de 1

Fecha y hora actual: Martes, 30 Abril 2024, 15:52 • Todas las horas son UTC + 1 Hora

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

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.8344s (PHP: -91% SQL: 191%)
Consultas SQL: 46 - Debug off - GZIP Activado

Design by Mighty Gorgon