CheckBox dans TAdvStringGrid
Bonjour à tous, j'utilise le composant TMS TAdvStringGrid afin d'ajouter des checkbox très facilement dans une colonne de ma grille via la méthode
Code:
MaStringGrid.AddCheckBox(Col,Row,Etat,False)
Ce code fonctionne bien jusqu'au moment où je définit l'évènement OnDrawCell de ma grille.
Voici en simplifié ce que contient mon évènement OnDrawCell:
Code:
1 2 3 4 5 6
|
Format:=DT_NOPREFIX Or DT_VCENTER Or DT_SINGLELINE;
If ARow > 0 Then StringGrid1.Canvas.Brush.Color:=clRed;
StringGrid1.Canvas.FillRect(Rect);
InflateRect(Rect,-4,-4);
DrawText(StringGrid1.Canvas.Handle,PChar(StringGrid1.Cells[ACol,ARow]),-1,Rect,Format); |
A partir de là, mes checkbox ne sont plus affichées et la colonne 3 de ma grille ne contient que des cases vide.
Comment dois-je définir la méthode OnDrawCell pour que mes checkbox soient redessinnées?
Merci d'avance