|
B4A en español - Juan Antonio Villalpando
(BASIC4Android)
-- Tutorial de B4A --
Volver al índice del tutorial
____________________________
79.- Cambiar tipo de fuente. Letras.
Vamos a cambiar el tipo de letra. Para ello vamos a la carpeta Windows de nuestro ordenador y luego a su carpeta Fonts.
C:\Windows\Fonts
También puedes llegar a esa carpeta desde el Panel de control de Windows.
En esa carpeta están las Fuentes, es decir los tipos de letras que podemos utilizar en nuestro Windows.
Vamos a copiar el archivo comic.ttf y lo pegaremos en la carpeta Files de nuestra aplicación:
|
|
|
También en la carpeta Files pegamos este archivo de imagen:
info.png
|
|
Sub Process_Globals
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim fuente As Typeface
fuente = Typeface.LoadFromAssets("comic.ttf")
Dim dialog As CustomDialog
Dim lb As Label
lb.Initialize("dialog")
lb.Typeface = fuente
lb.TextSize = 16
lb.Text = "Este texto está realizado con tipo de letra Comic Sans MS." & CRLF
lb.Text= lb.Text & "Puedes obtener más archivos de fuentes en la carpeta Fonts de Windows." & CRLF
lb.Text= lb.Text & "Debes copiar los archivos de fuentes en la carpeta Files de tu aplicación." & CRLF
dialog.AddView(lb, 0dip, 0dip, 100%x, 100%y)
dialog.Show("Título", "Aceptar", "Cancelar", "No", LoadBitmap(File.DirAssets, "info.png"))
End Sub
|
- Prueba con este tipo de fuente de Walt Disney.
________________________________
|
