Discussion :

[raoulmania]

Lusa,

Est il possible d'attribuer différentes couleurs à plusieurs cellules d'un TStringGrid suivant leur contenu.

Exemple : si le contenu est 'h21' alors attribuer la couleur bleu à la cellule
Si le contenu est 'p32' affecter la couleur jaune, etc...

Et est il possible de la mettre dans un évènement tel modify pour que la TStringGrid affecte d'elle même les couleurs quand il y a une modif du text???

Merci

Anthony

[raoulmania]

Désolé j'ai oublié de mettre le titre ...!!!

[bjl]

Bonjour, quand tu parles de changement de contenu, il s'agit de la saisie du texte ?


sinon, si c'est à la sortie de la cellule ou si le texte est change par une copie de texte, en utilisant l'évènement OnDrawCell, on peut faire quelque chose comme çà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure Tform1.Stringgrid1DrawCell( Sender : TObject; ACol, ARow : Integer; Rect : Trect; State : TgridDrawState);
var 
  Atext : String;
  Acolor : Tcolor;
Begin
  AText := StringGrid1.Cells[Acol, Arow];
  If AText = 'h21' then Acolor := ClYellow
  else if AText = 'p32' then AColor := ClYellow
  else Acolor := StringGrid1.Color;
 
  StringGrid1.Canvas.Brush.Color := AColor; // recopie la couleur voulue dans le canevas de la stringgrid
  StringGrid1.Canvas.FillRect(Rect); // colore la cellule voulue
  StringGrid1.Canvas.TextOut(Rect.left + 2, Rect.top + 2, Atext); // écrit le texte dans la cellule
End;

[raoulmania]

Dernière petite question

pour conserver les cellules fixed avec la couleurs par défaut (ex: ClBtnFace), comment je peux faire sachant que j'ai 2 lignes et 1 colonnes fixed.

C'est là qu'intervient la propriété state je suppose, je me trompes ou pas

et encore merci

[bjl]

pour les cellules fixed, state renvoie gdfixed.


sélectionne "TGridDrawState" avec le curseur dans la déclaration de la procédure et fait F1 : tu sauras tout ce qu'il faut savoir sur state.

[raoulmania]

c ok ca marche

merci