Discussion :

[Jazz77]

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

[Jazz77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ph. B.]

Bonjour,
Autre possibilité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Jazz77]

Merci Philippe

Bonjour,
Autre possibilité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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