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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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