Le composant TStringGrid

Bonjour à tous,

Je suis actuellement en train de regarder comment changer les couleurs d'une StringGrid. Pour celà, la FAQ propose un petit bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin With Sender As TStringGrid Do With Canvas Do Begin { sélection de la couleur de fond } If gdFixed in State Then Brush.Color := clBtnFace Else If gdSelected In State Then Brush.Color := clNavy Else If Odd(ARow) Then Brush.Color := $FFE0FF Else Brush.Color := $FFFFE0; { Dessin du fond } FillRect(Rect); { Sélection de la couleur d'écriture } If gdSelected In State Then Font.Color:=clWhite Else Font.Color:=clBlack; { Dessin du texte } TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]); End; end;

---

j'ai essayé de comprendre un peu le fonctionnement, mais je me heurt a quelques incompréhensions.

Code:

---

1 2 3

Else If Odd(ARow) Then Brush.Color := $FFE0FF Else Brush.Color := $FFFFE0;

---

Ici, je suppose que l'on test si on se trouve sur une ligne paire ou impaire via un booléen.

Code:

---

1 2	Else If gdSelected In State Then Brush.Color := clNavy

---

Ici, si la case est active (auqel cas on lui attribut la couleur clNavy).

La portion de code me posant problème est la suivante :

Code:

---

1 2	If gdFixed in State Then Brush.Color := clBtnFace

---

Dans la doc, il est dit que le gdFixed correspond à la cellule qui est dans une région fixe de la grille

Je suppose qu'il s'agit de la colonne 0 étant donné qu'elle n'est pas atteinte par les changements de couleur lors de l'exécution. Le problème c'est que je ne comprend pas pas pourquoi.. :oops: Ceci-étant, en supprimant ce test, le résultat obtenu est le bon.

Autre soucis, je voudrais que le clique sur une case provoque la sélection de la ligne complète (que la ligne complète prenne la couleur clNavy dans notre cas), mais je ne voit pas comment faire... J'ai essayer de changer le gdSelected (Cellulle active) par gdRowSelected (Ligne active), mais le résultat est non concluant...

Merci par avance pour vos éclaircissements,

Cordialement,

ZenZiTone.

Bonjour,

la (ou les) lignes et colonnes fixes sont gérées par les propriétés FixedCols et FixedRows : =0 sans ligne ou colonne fixe >= 1 une ou plusieurs lignes et colonnes fixes

Pour pouvoir sélectionner une ligne entière, il faut mettre la propriété Options/GoRowSelect de la grille à True

A+

Charly

Bonjour Charly910,

En effet, je n'avais pas prêté attention aux propriétés FixedCols et FixedRows. Soit-dit en passant, les deux propriétés était à 1 et seul la première colonne était fixe (Cells[2,0] était non fixe..).

Pour la goRowSelect à true je n'avais pas essayé étant donné que la grille était dessiné colonnes par colonnes et non lignes par lignes... Mais ça fonctionne bien, merci :)

Citation:

---

Envoyé par ZenZiTone

En effet, je n'avais pas prêté attention aux propriétés FixedCols et FixedRows. Soit-dit en passant, les deux propriétés était à 1 et seul la première colonne était fixe (Cells[2,0] était non fixe..).

---

Il me semble que tu as forcément une row non fixed (et pareil pour les col). Donc, si à un moment tu mets FixedRows à 1, et qu'a un moment tu mets le RowCount à 1, il te passe automatiquement les FixedRows à 0 car il n'y a plus de ligne non fixe.