Visualizza wikitesto di Istruzioni essenziali per disegnare su una DrawingArea

La [https://gambaswiki.org/wiki/comp/gb.qt4/drawingarea DrawingArea] esercita il suo precipuo compito di area di disegno mediante e all'interno del suo Evento "'''_Draw()'''".
<BR><U>E' nella routine dell'Evento "_Draw()", dunque, che si devono porre le istruzione necessarie per disegnare sulla superficie della ''DrawingArea''</u>.
<BR>La funzione utilizzata per disegnare sulla ''DrawingArea'' è [https://gambaswiki.org/wiki/comp/gb.qt4/paint PAINT].

In via generale all'attivarsi del Contenitore (ad esempio un ''Form'' ) che ospita la ''DrawingArea'', si solleva automaticamente l'Evento "_Draw()" della ''DrawingArea''.

Mostriamo un semplice esempio pratico, nel quale si disegnerà un cerchio al centro della ''DrawingArea'':
 Public Sub DrawingArea1<FONT Color=red><B>_Draw()</b></font>
 
 <FONT Color=gray>' ''Si disegna con le risorse della Classe "Paint":''</font>
  With <FONT Color=green>Paint</font>
    .Arc(DrawingArea1.W / 2, DrawingArea1.H / 2,  DrawingArea1.W * 0.2, Rad(0), Rad(360), False)
    .Stroke
 <FONT Color=gray>' ''Alla fine si chiude l'attività del disegno:''</font>
    .End
  End With
 
 End
Può accadere che si intenda richiamare arbitrariamente, secondo le necessità del codice o dell'utente, la funzione del disegno, che - come sappiamo - avviene con la sollevazione dell'Evento "_Draw()" della Classe ''DrawingArea''.
<BR>Per far sollevare arbitrariamente (su richiesta) l'Evento "_Draw()" della ''DrawingArea'' si utilizza il Metodo ".Refresh()" della ''DrawingArea''.

Mostriamo un esempio, nel quale all'apertura del ''Form'' principale si disegnerà sulla superficie della ''DrawingArea'' un cerchio rosso; cliccando poi su un ''Button'', anch'esso posto sul ''Form'', si ridisegnerà il cerchio, ma con circonferenza di colore blu.
 Private clr As Integer = Color.Red
 
 
 Public Sub DrawingArea1_Draw()
 
  With Paint
    .Brush = .Color(clr)
    .LineWidth = 2.0
    .Arc(DrawingArea1.W / 2, DrawingArea1.H / 2,  DrawingArea1.W * 0.2, Rad(0), Rad(360), False)
    .Stroke
    .End
  End With
 
 End
 
 
 Public Sub Button1_Click()
  
  clr = Color.Blue
 
 <FONT Color=gray>' ''Il Metodo ".Refresh()" della "DrawingArea" invoca l'Evento "_Draw()" determinando così la ripetizione del disegno:''</font>
  DrawingArea1<FONT Color=blue><B>.Refresh</b></font>
 
 End