Differenze tra le versioni di "Scrivere del testo in una DrawingArea"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: Mostreremo di seguito le modalità per scrivere del testo con il metodo ''Paint'' all'interno di una DrawingArea. '''Public''' Sub DrawingArea1_Draw() <FONT color=#006400>' ''At...)
 
 
(9 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.
 
Mostreremo di seguito le modalità per scrivere del testo con il metodo ''Paint'' all'interno di una DrawingArea.
−
 
+
  Public Sub DrawingArea1_Draw()
−
  '''Public''' Sub DrawingArea1_Draw()
+
−
 
+
  <FONT color=gray>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint''':''</font>
−
  <FONT color=#006400>' ''Attiva la funzione disegno nell'Area di disegno con '''Paint'''''</font>
 
 
   With Paint
 
   With Paint
−
    .Begin(DrawingArea1)
+
  <FONT color=gray>' ''imposta il colore dei caratteri:''</font>
−
  <FONT color=#006400>' ''imposta il colore dei caratteri:''</font>
+
     .Brush = Paint.Color(Color.Red)   <FONT color=gray>'</font><SUP>&#091;[[#Note|nota 1]]&#093;</sup>
−
     .Brush = Paint.Color(Color.Red)
+
  <FONT color=gray>' ''imposta il tipo di carattere:''</font>
−
  <FONT color=#006400>' ''imposta il tipo di carattere:''</font>
 
 
     .Font.Name = "Arial"  
 
     .Font.Name = "Arial"  
−
  <FONT color=#006400>' ''Imposta la dimensione dei caratteri:''</font>
+
  <FONT color=gray>' ''Imposta la dimensione dei caratteri:''</font>
 
     .Font.Size = 16
 
     .Font.Size = 16
−
  <FONT color=#006400>' ''Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y''
+
  <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>
−
' ''all'interno di un quadrilatero virtuale W, H</font>'' {[[#Note|1]]}<FONT color=#006400>''con i metodi '''.RichText''' e '''.Text''',''
 
−
' ''ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):''</font>
 
 
     .RichText("Testo con RichText", 200, 20, 16, 100)
 
     .RichText("Testo con RichText", 200, 20, 16, 100)
 
     .Text("Testo con Text", 10, 30, 20, 20)
 
     .Text("Testo con Text", 10, 30, 20, 20)
 
     .Stroke
 
     .Stroke
−
  <FONT color=#006400>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''</font> {[[#Note|2]]}
+
  <FONT color=gray>' ''...oppure (meglio, perché non dà l'effetto del grassetto) ".fill":''  '</font><SUP>&#091;[[#Note|nota 3]]&#093;</sup>
−
  <FONT color=#006400>   .Fill</font>
+
  <FONT color=gray>'  .Fill</font>
−
  <FONT color=#006400>' ''con il metodo '''.DrawText''' non è necessario l'uso di ".Stroke", né di ".Fill":''</font>
+
  <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)
 
     .DrawText("Testo con DrawText", 10, 10, 20, 20)
 
     .End
 
     .End
 
   End With
 
   End With
 
   
 
   
−
  '''End'''
+
  End
 +
 
 +
 
  
 +
=Note=
 +
[1] Con la classe ''Paint'' si potrà impostare il colore in questi modi:
 +
Paint.Brush = Paint.Color(<FONT color=gray>''numero_del_colore''</font>)
  
 +
Paint.Brush = Paint.Color(Color.<FONT color=gray>''nome_colore''</font>)
  
−
----
+
Paint.Brush = Paint.Color(Color.RGB(<FONT color=gray>''n.''</font>, <FONT color=gray>''n.''</font>, <FONT color=gray>''n.''</font>))
  
−
==Note==
+
[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.
−
[1] 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.
 
  
−
[2] 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.'' ».
+
[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.'' ».

Versione attuale delle 13:43, 27 giu 2024

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
' 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", 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":  '[nota 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 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. ».

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