Differenze tra le versioni di "Disegnare un cerchio con le Classi "Draw" e "Paint""
Da Gambas-it.org - Wikipedia.
Riga 16: | Riga 16: | ||
'''End''' | '''End''' | ||
− | oppure mediante il metodo "''Ellipse()''": | + | oppure anche mediante il metodo "''Ellipse()''" impostando ovviamente uguali valori al 3° ed al 4° parametro: |
'''Public''' Sub DrawingArea1_Draw() | '''Public''' Sub DrawingArea1_Draw() | ||
Riga 23: | Riga 23: | ||
.FillStyle = Fill.Solid | .FillStyle = Fill.Solid | ||
.FillColor = Color.Red | .FillColor = Color.Red | ||
− | .Ellipse(100, 100, DrawingArea1.W / 6, DrawingArea1.W /, Rad(0), Rad(360)) | + | .Ellipse(100, 100, DrawingArea1.W / 6, DrawingArea1.W / 6, Rad(0), Rad(360)) |
.End | .End | ||
End With | End With |
Versione delle 03:32, 22 mag 2015
Per disegnare un cerchio all'interno di una DrawingArea, è possibile utilizzare sia la Classe "Draw" che la Classe "Paint".
Disegnare un cerchio con la Classe "Draw"
La Classe Draw ci consente di disegnare un cerchio mediante il metodo "Circle()".
Esempio:
Public Sub DrawingArea1_Draw() With Draw .Begin(DrawingArea1) .FillStyle = Fill.Dense12 .FillColor = Color.Red .Circle(100, 100, DrawingArea1.W / 6, Rad(0), Rad(360)) .End End With End
oppure anche mediante il metodo "Ellipse()" impostando ovviamente uguali valori al 3° ed al 4° parametro:
Public Sub DrawingArea1_Draw() With Draw .Begin(DrawingArea1) .FillStyle = Fill.Solid .FillColor = Color.Red .Ellipse(100, 100, DrawingArea1.W / 6, DrawingArea1.W / 6, Rad(0), Rad(360)) .End End With End
Disegnare un cerchio con la Classe "Paint"
La Classe Paint ci consente di disegnare un cerchio mediante il metodo "Ellipse()".
Per ottenere un cerchio vuoto, ossia nel quale sia visibile soltanto la circonferenza, si utilizzerà anche il metodo .Stroke :
Public Sub DrawingArea1_Draw() With Paint .Begin(DrawingArea1) .Brush = Paint.Color(Color.Red) .Ellipse(100, 10, 100, 100) .Stroke .End End With End
Per ottenere invece un cerchio pieno, ossia colorato anche al suo interno, si dovrà utilizzare il metodo .Fill:
Public Sub DrawingArea1_Draw() With Paint .Begin(DrawingArea1) .Brush = Paint.Color(Color.Red) .Ellipse(100, 10, 100, 100) .Fill .End End With End