Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Letra Que Ocupe Todo El Alto Del Area De Dibujo
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Letra Que Ocupe Todo El Alto Del Area De Dibujo 
 
Hola!.

¿ Como harías para que la letra dentro de un DrawingArea ocupase todo el alto ?.

En este caso el ancho y el alto es el mismo y es par.No se si el problema es de alineación.

Sin rejilla.

 letra

Con rejilla.

 letrayrejilla

Aquí tenéis el código:

Private caracter As Boolean
Private rejilla As Boolean

Public Sub _new()

End

Public Sub Form_Open()
  
  Me.Center
  Me.Title = "Letra"
  
End

Public Sub DibujaCaracter()
  
  With Paint
    .Brush = Paint.Color(Color.Blue)
    .Font.Name = "Lucida"  
    .Font.Size = Pizarra.Width
    .Text("A", 0, 0, Pizarra.Width, Pizarra.Height, Align.Center)  
    .Stroke 'Cambiar por .Fill y vereis el cambio
  End With
  
End

Public Sub DibujaRejilla()
  Dim tamcelda As Integer
  Dim x As Integer
  Dim y As Integer
  
  tamcelda = Pizarra.Width / 16 'Ancho y alto son iguales  
  
  With Paint
    .LineWidth = 1
    .Brush = Paint.Color(Color.Black)
    For y = 0 To Pizarra.Height Step tamcelda
      .MoveTo(0, y)
      .LineTo(Pizarra.Width, y)        
    Next
    For x = 0 To Pizarra.Width Step tamcelda
      .MoveTo(x, 0)
      .LineTo(x, Pizarra.Height)
    Next
    .Stroke
  End With

End

Public Sub Pizarra_Draw()
  
  Paint.Reset  
  If caracter Then DibujaCaracter
  If rejilla Then DibujaRejilla
  
End


Public Sub btnDibujar_Click()

  caracter = Not caracter
  Pizarra.Refresh

End

Public Sub btnDibujaRejilla_Click()

  rejilla = Not rejilla
  Pizarra.Refresh
  
End
 


Y aquí el ejemplo para bajar. Se supone que donde dibuja la letra lo hace dentro de un recuadro.

http://gambasdoc.org/help/comp/gb.qt4/paint/text?v3

Aunque es de qt, estoy usando gtk. Cambia mucho de uno a otro luego.

Saludos
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Letra Que Ocupe Todo El Alto Del Area De Dibujo 
 
Vaya, así que en su día ya escribí algo parecido y el problema sigue igual.
Como esta vez lo hice con la clase Paint.

http://www.gambas-es.org/viewtopic....ght=drawingarea

No daba con la pregunta.Y probé la búsqueda mas general, ni letras, ni fuentes,drawingarea.  

Me leeré a mi mismo, espero que no produzca una paradoja temporal.  Si empieza a
rasgarse el cielo, yo no he sido.  

Saludos
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
Shell - 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 Efecto Del Metodo Resize Con Un Dibujo Shell Aplicaciones/Fragmentos de Código 2 Domingo, 09 Junio 2013, 20:47 Ver último mensaje
jguardon
No hay nuevos mensajes Limpiar El Area De Dibujo Shell General 3 Martes, 23 Febrero 2016, 12:51 Ver último mensaje
Shell
No hay nuevos mensajes Ejemplo De Busqueda En Un Listbox, Letra A... Shell Aplicaciones/Fragmentos de Código 1 Viernes, 25 Marzo 2016, 22:07 Ver último mensaje
reyes
No hay nuevos mensajes Orientacion Sobre Programa De Dibujo Vecto... Clinxer General 8 Lunes, 29 Agosto 2016, 12:18 Ver último mensaje
Clinxer
 

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
No puede descargar archivos
No puede publicar eventos en el calendario