Podemos crear una brocha de una imagen con la que dibujar y tratar esa imagen convertida a brocha.
Pero. ¿ Y al revés ?. ¿ Se puede crear una imagen de una brocha ?. ¿ Tiene sentido ?.
Const ESCALA As Float = 1.5
Private gambasimagen As Image
Private brochaimagengambas As PaintBrush
Public Sub Form_Open()
gambasimagen = Image.Load("Gambas3.png")
End
Public Sub Dibujar()
brochaimagengambas = Paint.Image(gambasimagen)
brochaimagengambas.Translate(0, 0)
brochaimagengambas.Scale(ESCALA, ESCALA)
Paint.Brush = brochaimagengambas
Paint.Rectangle(0, 0, gambasimagen.W * ESCALA, gambasimagen.H * ESCALA)
Paint.Fill
End
Public Sub Pizarra_Draw()
Dibujar()
End
Private gambasimagen As Image
Private brochaimagengambas As PaintBrush
Public Sub Form_Open()
gambasimagen = Image.Load("Gambas3.png")
End
Public Sub Dibujar()
brochaimagengambas = Paint.Image(gambasimagen)
brochaimagengambas.Translate(0, 0)
brochaimagengambas.Scale(ESCALA, ESCALA)
Paint.Brush = brochaimagengambas
Paint.Rectangle(0, 0, gambasimagen.W * ESCALA, gambasimagen.H * ESCALA)
Paint.Fill
End
Public Sub Pizarra_Draw()
Dibujar()
End
De imagen a brocha, es bien sencillo.
brochaimagengambas = Paint.Image(gambasimagen)
Continuara...
Saludos