Riempire una cella di GridView

[Picavbg]

Qualcuno ricorderà certamente questa discussione riguardante "come centrare una stringa nella testata della GridView". Ora mi si è presentato un'altra necessità: riempire una o più celle di una GridView con valore costante.
Ho risolto, richiamando di volta in volta la classe seguente classe:

Codice: gambas [Seleziona]

PRIVATE i_LunCasel AS Integer
PRIVATE i_LunSpazio AS Integer
PRIVATE i_LunTesto AS Integer
PRIVATE i_Risult AS Integer

PUBLIC SUB _new(hObject AS GridView, i_NumRg AS Integer, i_NumCol AS Integer, $_Testo AS String)
'-------------------------------------------------------  
'  i_LunTesto = hObject.Font.Width($_Testo)   
  i_LunCasel = hObject.Columns[i_NumCol].Width
  hObject[i_NumRg, i_NumCol].text = String$(i_LunCasel, $_Testo)
END 

Ho pensato che possa tornare utile, quindi ...  Buona befana a tutti!