Discussion :

[Xanley]

Bonjour,

j'aimerais connaître la procédure complète pour colorier une case donnée d'un StringGrid lorsque l'on clique dessus, avec une condition sur la couleur en fonction du texte (par exemple 0 = noir et 1 = blanc). J'ai pas mal cherché sur différents forums mais les solutions données ne fonctionnaient pas. (aucun changement de couleur, la procédure ne se déclenchait pas).

Si j'ai bien compris le principe il faudrait définir un rectangle, puis le remplir avec l'objet Brush du canvas, mais lorsque j'essaye de le coder cela ne fonctionne pas non plus.

Je n'ai pas vraiment de code à vous donner en exemple, la plupart de mes essais découlant de copier-coller venant de différentes sources, aucun ne fonctionnant.

Merci d'avance !

[Jon Shannow]

Bonjour,

Je ne suis pas spécialiste des gestions graphiques dans les tables, mais ce genre de choses se gère au niveau de l'évènement OnDrawCell.

Bon courage

JS

[ThWilliam]

Bonjour,

exemple d'utilisation de l'événement OnDrawCell :

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
16
17
18
19
20
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
   if (gdFixed in aState) then Exit;
   with StringGrid1 do
   begin
       if Cells[aCol, aRow] = '0' then
       begin
         Canvas.Brush.Color:= clBlack; //couleur du fond
         Canvas.Font.Color:= clWhite;  // couleur du texte
       end
       else
       begin
         Canvas.Brush.Color:= clWhite;
         Canvas.Font.Color:= clBlack;
       end;
       Canvas.FillRect(aRect);
       Canvas.TextOut(aRect.left + 2, aRect.Top + 2,  Cells[aCol,ARow]);
   end;
end;

Cordialement
Thierry

[Roland Chastain]

Bonjour !

Dans ce cas, on pourrait écrire simplement :

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
16
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: integer;
  aRect: TRect; aState: TGridDrawState);
begin
  if (gdFixed in aState) then
    Exit;
  with StringGrid1 do
  begin
    if Cells[aCol, aRow] = '0' then
    begin
      Canvas.Brush.Color := clBlack; // couleur du fond
      Canvas.Font.Color := clWhite;  // couleur du texte
      Canvas.FillRect(aRect);
      Canvas.TextOut(aRect.Left + 2, aRect.Top + 2, Cells[aCol, ARow]);
    end;
  end;
end;

Autrement les cases blanches seront dessinées deux fois.

Ou alors il faut régler la propriété DefaultDrawing à FALSE : ce qui veut dire qu'on se charge de dessiner toutes les cases (ce que fait le code proposé par Thierry).

P.-S. J'ai ajouté cette QR dans la FAQ :
https://lazarus.developpez.com/faq/?...un-TStringGrid

[ThWilliam]

Bonjour Roland.

Bonne idée d'avoir ajouté ceci dans la FAQ.

Juste une remarque :
Si DefaultDrawing = false et si le StringGrid contient des cellules fixes : il faut traiter le cas du gdFixed in aState.
Sinon le texte éventuel de ces cellules ne s'affichera plus. Alors que la couleur de fond reste grisée ! (ce qui d'ailleurs me paraît un peu paradoxal)
Je n'ai testé que sous Windows, le comportement est peut-être différent sous Linux.

Amicalement
Thierry

[Roland Chastain]

Juste une remarque :
Si DefaultDrawing = false et si le StringGrid contient des cellules fixes : il faut traiter le cas du gdFixed in aState.
Sinon le texte éventuel de ces cellules ne s'affichera plus. Alors que la couleur de fond reste grisée ! (ce qui d'ailleurs me paraît un peu paradoxal)

Ah oui, tiens, je n'avais pas pensé à ça. Merci pour cette remarque. Du coup il faudra que je reformule l'article de la FAQ.