Colorier une cellule d'un StringGrid

Version imprimable

31/03/2017, 15h01
Xanley

Colorier une cellule d'un StringGrid

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 !
31/03/2017, 15h32
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

Bonjour,

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

Code:

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

Bonjour !

Dans ce cas, on pourrait écrire simplement :
Code:

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

01/04/2017, 13h06
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
01/04/2017, 14h19
Roland Chastain

Citation:

Envoyé par ThWilliam

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.
02/04/2017, 12h22
Xanley

Merci pour vos réponses!

Juste une question: une fois ce code écrit, comment lancer la procédure correctement (via un bouton par exemple)?
Comment définir au préalable le rectangle? Que faut-il écrire pour le paramètre aState? (désolé si ces questions paraissent bêtes)
02/04/2017, 12h57
ThWilliam

Bonjour.

La procédure DrawCell s'exécute automatiquement puisque c'est un événement qui va se déclencher lorsqu'une cellule doit être redessinée (et notamment par le changement de son texte).
Pour attribuer cet événement au stringgrid :
- sélection de l'objet stringgrid
- dans l'inspecteur d'objets : onglet événement, double clic sur OnDrawCell.

Le paramètre aRect donne le rectangle occupé par la cellule qui doit être redessinée.

Le paramètre aState donne l'état actuel de la cellule : cellule fixe ? cellule sélectionnée ? ...

Cordialement
Thierry
02/04/2017, 17h04
Roland Chastain

@Thierry

J'ai retouché l'article de la FAQ :

https://lazarus.developpez.com/faq/?...un-TStringGrid

Si tu as le temps, j'aimerais que tu me dises s'il te paraît bon comme ça. ;)
02/04/2017, 18h24
ThWilliam

@Roland

Tout bon, il manque juste le dernier "end;" dans la 2° procédure.
02/04/2017, 19h02
tourlourou

Bonjour Roland,

Si on veut se servir de la même méthode pour une autre grille, il faudrait qu'elle ne s'adresse pas qu'à StringGrid1, et remplacer with StringGrid1 do par with Sender as TStringGrid do.

Mais ça n'améliore pas la compréhension du sujet, qui doit surtout répondre simplement et directement à la question...
02/04/2017, 19h17
Roland Chastain

@ThWilliam, tourlourou

Merci pour vos remarques. J'ai modifié l'article.
03/04/2017, 10h42
Andnotor

Un détail mais...

Si le texte ne tient pas dans la case et que seule celle-ci doit être redessinée, le texte va déborder sur la case suivante. Il vaudrait mieux utiliser TextRect.
Cela permettrait aussi de centrer le texte verticalement. Il ne le sera plus avec Top +2 si la hauteur par défaut est modifiée.
03/04/2017, 11h45
ThWilliam
Bonjour Andnotor.

TextRect est beaucoup plus judicieux, tu as raison, sauf sur un point : même avec TextOut, un texte trop long ne déborde pas sur la case suivante.

Comme TextRect utilise DrawText (unités lcltype et lclintf), on peut aussi directement l'utiliser :

Exemple pour un texte singleline, centré verticalement et éventuellement complété par 3 points :
Code:

1 2 aRect.Left:= aRect.Left + 2; DrawText(Canvas.Handle, PChar(Cells[aCol, ARow]), -1, aRect, DT_SINGLELINE or DT_VCENTER or DT_END_ELLIPSIS);
Cordialement
Thierry
03/04/2017, 12h21
Andnotor

2 pièce(s) jointe(s)
Oui et non ;)

Oui :
Tu as raison pour les suivantes...

Non :
... mais pas pour les précédentes.

De plus, Rect correspond uniquement à l'intérieur de la cellule, bordures non comprises. Ces dernières ne sont pas rafraîchies (ou plutôt dessinées avant).
Ici, elles ont été volontairement fixées à 10px pour que le phénomène soit bien visible.

Pièce jointe 260429

Et si on aligne à droite (c'est toujours la case 1,1 qui est remplie) :
Code:

1 2 with StringGrid1 do Canvas.TextOut(Rect.Right -Canvas.TextWidth(Cells[aCol,aRow]), Rect.Top, Cells[aCol,aRow]);
Pièce jointe 260444
03/04/2017, 13h04
ThWilliam

J'ai repris ton test avec bordures de 10px, alignement gauche ou droit.
Sous Windows, je n'ai pas de problèmes avec les textes longs, les bordures restent correctes.
Différence avec Linux ?
Dans ton code alignement à droite, je suppose que Rect est à remplacer par aRect.

Quoiqu'il en soit, nous sommes bien d'accord que LA bonne méthode c'est TextRect ou DrawText.

TextOut a été utilisé ici pour répondre le plus simplement possible à la question (texte = '0' ou '1').

Cordialement
Thierry
03/04/2017, 14h09
Andnotor

Citation:

Envoyé par ThWilliam

TextOut a été utilisé ici pour répondre le plus simplement possible à la question (texte = '0' ou '1').

J'en conviens. C'est plus sur la FAQ que je réagissais ;)
03/04/2017, 16h59
Roland Chastain

@Andnotor

Merci pour ta contribution. Content de te voir intervenir dans le forum Pascal. :ave:

J'ai ajouté une phrase à la fin de la QR pour conseiller l'emploi de la méthode TextRect.
04/04/2017, 12h13
Andnotor

Citation:

Envoyé par Roland Chastain

Content de te voir intervenir dans le forum Pascal. :ave:

N'utilisant pas ces outils-là(zarus), ma contribution restera anecdotique ;)
05/04/2017, 11h14
Xanley

Merci pour votre aide, c'est bon ;)