Tutoriel sur le StringGrid : méthode onDrawCell

Version imprimable

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:

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

J'ai trouvé ce qui semble une solution.
Mais je ne sais pas si cela est la réponse.
Cela a le mérite de fonctionner

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
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);
      Font.Color := clDefault;
      TextOut(aRect.Left, aRect.Top, Magrille.Cells[aCol, aRow]);
    end;
  end;
end;

Jazz

Bonjour,
Autre possibilité.

Code:

1
2
3
4
5
6
7
8
9
procedure TMonFormulaire.DessinGrille(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
    If ((aCol=sCol) And (aRow=sLig)) Then
    begin
        MaGrille.Canvas.Brush.Color := clYellow;
        MaGrille.DefaultDrawCell(aCol, aRow, aRect, aState);
    end;
end;

Merci Philippe :ccool:
Citation:
Envoyé par Ph. B.
Bonjour,
Autre possibilité.
Code:

1 2 3 4 5 6 7 8 9 procedure TMonFormulaire.DessinGrille(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState); begin If ((aCol=sCol) And (aRow=sLig)) Then begin MaGrille.Canvas.Brush.Color := clYellow; MaGrille.DefaultDrawCell(aCol, aRow, aRect, aState); end; end;
Je viens d'essayer ton code et c'est nikel.
Et cela semble aussi un poil plus rapide.

Je vais pouvoir continuer l'esprit plus tranquille le fameux tutoriel de Dimanche2003