Disegnare in una DrawingArea un carattere punto per punto

Da Gambas-it.org - Wikipedia.

E' possibile disegnare un carattere (ad esempio una lettera dell'alfabeto) punto per punto su una DrawingArea mediante il metodo .FillRect() della Classe Paint.


Nell'esempio che segue sarà disegnata la lettera "p" dell'alfabeto:

Public Sub Form_Open()  

 Me.Center

 DrawingArea1.Background = Color.White  

End

Public Sub DrawingArea1_Draw()
 
 Dim t, b, j, i As Byte
 Dim ii As Integer[] = [&FFFFFF, &FFFFFF, &000000, &000000, &000000, &FFFFFF, &FFFFFF, &FFFFFF,
                        &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF,
                        &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF,
                        &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF,
                        &FFFFFF, &FFFFFF, &000000, &000000, &000000, &FFFFFF, &FFFFFF, &FFFFFF,
                        &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF,
                        &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF,
                        &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF]

  t = 100
   
  With Paint
    For j = 0 To 7
      For b = 0 To 7
        .FillRect(t + b, t + j, 1, 1, ii[i])
' oppure:.Brush = .Color(ii[i])
       ' .Arc(t + b, t + j, 1, Rad(0), Rad(360), False)
       ' .Fill
        Inc i
      Next
    Next
    .End
  End With  

End