Scrivere del testo in una DrawingArea: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
 
(8 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Mostreremo di seguito le modalità per scrivere del testo con il metodo ''Paint'' all'interno di una DrawingArea.
Per scrivere del testo in una ''DrawingArea'' si potranno usare almeno tre Metodi della Classe ''Paint'': ".RichText()", ".Text()" e ".DrawText()".


  '''Public''' Sub DrawingArea1_Draw()
Mostreremo di seguito tali modalità:.
 
  Public Sub DrawingArea1_Draw()
  <FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font>
  <FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font>
   With Paint
   With Paint
  <FONT color=gray>' ''imposta il colore dei caratteri:''</font>
  <FONT color=gray>' ''imposta il colore dei caratteri:''</font>
     .Brush = Paint.Color(Color.Red)  <SUP>&#091;[[#Note|Nota 1]]&#093;</sup>
     .Brush = Paint.Color(Color.Red)  <FONT color=gray>'</font><SUP>&#091;[[#Note|nota 1]]&#093;</sup>
  <FONT color=gray>' ''imposta il tipo di carattere:''</font>
  <FONT color=gray>' ''imposta il tipo di carattere:''</font>
     .Font.Name = "Arial"  
     .Font.Name = "Arial"  
  <FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font>
  <FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font>
     .Font.Size = 16
     .Font.Size = 16
  <FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>&#091;[[#Note|Nota 2]]&#093;</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''", ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>
  <FONT color=gray>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y all'interno di un quadrilatero virtuale W, H</font>'' <SUP>&#091;[[#Note|nota 2]]&#093;</sup> <FONT color=gray>''con i Metodi "'''.RichText'''" e "'''.Text'''".''
     .RichText("Testo con RichText", 200, 20, 16, 100)
' ''Per far mostrare il disegno del testo, sarà necessario inserire anche il Metodo ".Fill" a seguire oppure ".Stroke" (però ".Stroke" tende a dare l'effetto del grassetto):''</font>
     .Text("Testo con Text", 10, 30, 20, 20)
     '''.RichText'''("Testo con RichText", 200, 20, 16, 100)
     .Stroke
  <FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''</font> <SUP>&#091;[[#Note|Nota 2]]&#093;</sup>
     '''.Text'''("Testo con Text", 10, 30, 20, 20)
  <FONT color=gray>'  .Fill</font>
     .Fill
  <FONT color=gray>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
  <FONT color=gray>' ''...oppure (sebbene dia però l'effetto del grassetto) ".Stroke":''
     .DrawText("Testo con DrawText", 10, 10, 20, 20)
  '  .Stroke</font>
    .End
  <FONT color=gray>' ''con il Metodo "'''.DrawText'''" non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
     '''.DrawText'''("Testo con DrawText", 10, 10, 20, 20)
   End With
   End With
   
   
  '''End'''
  End






----
=Note=
=Note=
[1] Con la classe ''Paint'' si potrà impostare il colore in questi modi:
[1] Con la Classe ''Paint'' si potrà impostare il colore in questi modi:
  Paint.Brush = Paint.Color(''numero_del_colore'')
  Paint.Brush = Paint.Color(<FONT color=gray>''numero_del_colore''</font>)
 
Paint.Brush = Paint.Color(Color.''nome_colore'')


  Paint.Brush = Paint.Color(Color.RGB(''n.'', ''n.'', ''n.''))
  Paint.Brush = Paint.Color(Color.<FONT color=gray>''nome_colore''</font>)


[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.
Paint.Brush = Paint.Color(Color.RGB(<FONT color=gray>''n.''</font>, <FONT color=gray>''n.''</font>, <FONT color=gray>''n.''</font>))


[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.'' ».
[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 disposizione del testo.

Versione attuale delle 15:02, 25 lug 2025

Per scrivere del testo in una DrawingArea si potranno usare almeno tre Metodi della Classe Paint: ".RichText()", ".Text()" e ".DrawText()".

Mostreremo di seguito tali modalità:. 

Public Sub DrawingArea1_Draw()

' Attiva la funzione disegno nell'Area di disegno con Paint:
  With Paint

' imposta il colore dei caratteri:
    .Brush = Paint.Color(Color.Red)   '[nota 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 [nota 2] con i Metodi ".RichText" e ".Text".
' Per far mostrare il disegno del testo, sarà necessario inserire anche il Metodo ".Fill" a seguire oppure ".Stroke" (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)
    .Fill
' ...oppure (sebbene dia però l'effetto del grassetto) ".Stroke":
'   .Stroke

' con il Metodo ".DrawText" non è necessario l'uso di ".Stroke", né di ".Fill":
    .DrawText("Testo con DrawText", 10, 10, 20, 20)

  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 disposizione del testo.

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Scrivere_del_testo_in_una_DrawingArea&oldid=41783"