B4A en español - Juan Antonio Villalpando
(BASIC4Android)
-- Tutorial de B4A --
Volver al índice del tutorial
____________________________
67.- Dibujar trazos en la pantalla.
- Vamos a dibujar líneas en la pantalla. En este caso en un dibujo de fondo.
- Normalmente se crea un Panel y dentro del Panel un Canvas que será el elemento donde se pueda dibujar.
- Cuando "Toquemos - Touch" el Panel, se podrán hacer varias actividades, pulsar, mover o dejar de pulsar.
- En este proyecto podriamos quitar la parte de Select Action, la he puesto para que se vea que tiene varias posibilidades.
Designer - Layout
|
|
cartadeajuste.jpg
Baja esta imagen y cópiala en la carpeta Files del proyecto.
|
_______________
- Código.
Copia y pega este código en un nuevo proyecto |
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
' marzo 2013
End Sub
Sub Globals
Dim Panel1 As Panel
Dim Canvas1 As Canvas
Dim rectangulo As Rect
Dim boton As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
' Crea el Panel1 con un fondo
Panel1.Initialize("Panel1")
Activity.AddView(Panel1, 0, 0, 100%x, 100%y)
Panel1.SetBackgroundImage(LoadBitmap(File.DirAssets, "cartadeajuste.jpg"))
' Crea un Canvas y un rectangulo
rectangulo.Initialize(0, 0, Panel1.Width, Panel1.Height)
Canvas1.Initialize(Panel1)
' Crea Botón (Button)
boton.Initialize("boton")
boton.TextColor = Colors.Red
boton.Text = "Pulsa para borrar"
Activity.AddView(boton, 0dip, 10dip, 100%x, 10%y)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Panel1_Touch (Action As Int, x As Float, y As Float)
Select Action
Case Activity.ACTION_DOWN
' Cuando Pulsa
' ............
Case Activity.ACTION_MOVE
' Cuando Mueve
Canvas1.DrawCircle(x, y, 6dip, Colors.Blue, True, 3dip)
Panel1.Invalidate
Case Activity.ACTION_UP
' Cuando Deja de pulsar
' ..............
End Select
End Sub
Sub boton_Click
' Borra el Canvas1
Canvas1.DrawRect(rectangulo, Colors.Transparent, True, 1dip)
Panel1.SetBackgroundImage(LoadBitmap(File.DirAssets, "cartadeajuste.jpg"))
Canvas1.Initialize(Panel1)
End Sub
|
- Ver:
Drawing - Core de Basic4android
________________________________
|