Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Jueves, 17 Noviembre 2011, 10:45
Os pongo un ejemplo.
Tenemos un DrawingArea y un botón para dibujar la letra.
PUBLIC SUB Form_Open()
END
PUBLIC SUB btnDibuja_Click()
DIM anchopizarra, altopizarra, centopizarraX, centropizarraY AS Integer
anchopizarra = Pizarra.Width
altopizarra = Pizarra.Height
centopizarraX = anchopizarra / 2
centropizarraY = altopizarra / 2
Pizarra.Clear
Draw.Begin(Pizarra)
Draw.Font.Size = 240
'Usamos la letra por defecto.
Draw.Text("A", centopizarraX, centropizarraY, 10, 10, Align.Center) 'Aqui podemos jugar a cambiar el ancho y el alto
Draw.End
Pizarra.Refresh
END
Con ancho y alto de dibujar texto, no cambia el tamaño de la letra.
Pruebas. Cambie el tamaño de la fuente a grande y en dibujar su ancho y alto a pequeño.
No creáis que poniendo alineación al centro, se centra siempre.
Teniendo en cuenta que si comienza a dibujar en el centro de la pizarra, la letra ira mas abajo.
Letra grande con propiedades ancho y alto pequeñas, la letra se centro mejor.
Si pongo el mismo tamaño de letra y aumento el ancho y el alto de dibujar la letra, esta se descentra.
¿ Es como si tuviéramos un cuadrado dentro de otro (el de dibujar la letra) y este aumenta (la letra no) ?. (Un área donde se dibuja la letra).
Puse un tamaño en el ancho y el alto a 1000 cada uno (se sale del área de dibujo), pero no toque el tamaño de la fuente.
El área de dibujo es de unos 300 x 300.
Saludos.