Controlli all'interno di una cella di una GridView

[vuott]

https://gambas-es.org/showthread.php?tid=854

[Gianluigi]

C'è anche un'altra possibilità: *

Codice: [Seleziona]

Private hGrid As GridView
Private aValue As Integer[] = [-1, -1, -1, 0, 0, -1, -1, 0, 0, -1, -1, 0, 0, 0, -1, 0, 0, -1, -1, 0]


Public Sub Form_Open()

  With Me
    .Arrangement = Arrange.Vertical
    .Margin = True
  End With
  With hGrid = New GridView(Me) As "GridView1"
    .Expand = True
    .Columns.Count = 2
    .Rows.Count = aValue.Count
    .Rows.Height = 24
    .Columns.Width = 24
  End With

End

Public Sub GridView1_Draw(X As Integer, Y As Integer, Width As Integer, Height As Integer, Row As Integer, Column As Integer)

  If Column = 0 Then
    Style.PaintCheck(x, y, Width, height, aValue[Row])
  Endif

End

Public Sub GridView1_Data(Row As Integer, Column As Integer)
  
  hGrid.Refresh
  
End

 

* Tratto da un esempio di Fabien Bodard

[vuott]

Sì, come giustamente dici, c'è anche la possibilità dell'uso della Classe "Style":

   https://www.gambas-it.org/wiki/index.php/Disegnare_un_Button_contenente_un%27icona_e_un_testo_mediante_la_DrawingArea

Avevo pure pensato di segnalarglielo, ma poi pigramente mi sono detto: «Va be'... non fa niente.»