Bonjour,

Je suis en train d'étudier l'excellent tutoriel de Dimanche2003 sur les StringGrid.

Dans le chapitre V.2, j'ai un souci avec la méthode onDrawCell nommée "DessinGrille".

Elle a la fonction de colorer en jaune le fond de la case survolée par la souris.
Elle le fait bien, mais le souci est que tout est effacé dans la cellule sélectionnée. Tout passe en jaune.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
procedure TMonFormulaire.DessinGrille(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
With MaGrille.Canvas do
   begin
        If ((aCol=sCol) And (aRow=sLig)) Then
          begin
             Brush.Color:=clYellow;
             FillRect(aRect);
          end;
    end;
end;
J'ai modifié la méthode décrite dans le tutoriel, sinon aucune cellule n'était remplie.

Et là je sèche.
j'ai parcouru de nouveau le tutoriel mais sans résultat.

Merci d'avance,

Jazz