Scrivere del testo in una DrawingArea

Da Gambas-it.org - Wikipedia.

Mostreremo di seguito le modalità per scrivere del testo con il metodo Paint all'interno di una DrawingArea.

Public Sub DrawingArea1_Draw()
  
' Attiva la funzione disegno nell'Area di disegno con Paint
  With Paint
    .Begin(DrawingArea1)
' imposta il colore dei caratteri:
    .Brush = Paint.Color(Color.Red)   |1|
' imposta il tipo di carattere:
    .Font.Name = "Arial" 
' Imposta la dimensione dei caratteri:
    .Font.Size = 16
' Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y
' all'interno di un quadrilatero virtuale W, H  |2|  con i metodi .RichText  e .Text,
' ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):
    .RichText("Testo con RichText", 200, 20, 16, 100)
    .Text("Testo con Text", 10, 30, 20, 20)
    .Stroke
' ...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":   |3|
    .Fill
' con il metodo .DrawText non è necessario l'uso di ".Stroke", né di ".Fill":
    .DrawText("Testo con DrawText", 10, 10, 20, 20)
    .End
  End With

End



Note

[1] Con la classe Paint si potrà impostare il colore in questi modi:

Paint.Brush = Paint.Color(numero_del_colore)
Paint.Brush = Paint.Color(Color.nome_colore)
Paint.Brush = Paint.Color(Color.RGB(n., n., n.))

[2] Le impostazioni dei parametri relativi al quadrilatero virtuale, nel quale viene scritto il testo, non sono obbligatorie, ma la loro assenza può determinare l'impossibilità di dare una particolare della disposizione del testo.

[3] Come sottolineato dall'Utente fsurfing del Forum Gambas-it.org, « con "Stroke" viene disegnato solo il contorno che quindi con un size piccolo sembra quasi un grassetto, con "Fill" viene fatto il riempimento e quindi si vede normale. ».