Discussion :

[Charly910]

Bonjour à tous,

je voudrais mettre en couleur les lignes d'un StrinGrid :

- Une ligne sur 2 de couleur différente (ça c'est OK)
- la ligne qui contient la cellule active d'une troisième couleur mais sans mettre la propriété goRowSelect à True car je veux pouvoir sélectionner une cellule (là je n'y arrive pas !)

voici mon code qui produit des résultats bizarres :

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 TF_ImportVisulag.GrilleDrawCell(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 (Arow = Row)                       // C'est ici que ce n'est pas bon
        Then Brush.Color := 16762508
        Else If Odd(ARow)
          Then Brush.Color := 16777190
          Else Brush.Color := 14548991;
 
    { Dessin du texte }
    TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
  End;
end;
{ ============================================================================= }

Quelqu'un peut il m'aider ?

merci

Charly

[mick605]

Salut

Que vaut cette valeur Row ? Parce que ton code me semble bon ...

[Montor]

Que vaut cette valeur Row ? Parce que ton code me semble bon ...

C'est la ligne active
c'est bizarre chez moi le code ne marche pas sans

Code :

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

FillRect(Rect);

peut-être du au XPMan

Ajoute ACol :=Col

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;
  Rect: TRect; State: TGridDrawState);
begin
  With TStringGrid(Sender),Canvas  Do
  Begin
    { sélection de la couleur de fond }
    If gdFixed in State Then
      Brush.Color := clBtnFace
    Else If (Arow = Row)and(ACol=Col) Then                      // C'est ici que ce n'est pas bon
       Brush.Color := 16762508
   Else If Odd(ARow)Then
       Brush.Color := 16777190
    Else Brush.Color := 14548991;
 
    FillRect(Rect);
    { Dessin du texte }
    TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
  End;
 
end;

[Franck SORIANO]

c'est bizarre chez moi le code ne marche pas sans

Code :

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

FillRect(Rect);

C'est normal, TextOut dessine du text, mais ne remplit pas le fond de la cellule pour autant. Selon le mode de dessin du texte, le fond du text sera transparent ou de la couleur du pochoir, mais ne remplira pas toute la cellule.

Si tu fais un FillRect en premier, tu dessines d'abord le fond de la cellule, puis le texte.

Personnellement, quand je dessines une grille à la main (c'est à dire très souvent), j'utilise TextRect.
Cette méthode fait tout à la fois : Elle dessine le fond du rectangle indiqué, elle définit le clipping pour que le texte ne sorte pas de la cellule, et en plus on peut même lui demander de gérer l'alignement de texte (gauche, droite, centré...).

[Andnotor]

Et pour avoir la ligne complète d'une couleur sans goRowSelect, il faut aussi un Invalidate dans OnSelectCell.

[Montor]

@Franck SORIANO
Merci pour les explications

[Charly910]

Bonjour,

Merci à tous pour vos réponses (désolé, je n'était pas là ce matin)

En ajoutant (Acol = col), ça fonctionne, mais du coup je n'ai que la cellule sélectionné qui est bleu plus foncé et non la ligne entière (on peux le faire aussi avec la propriété State)

Même avec le FillRect (sans ACol = Col) j'ai toujours le problème lorsque l'on se déplace avec l'ascenceur vertical

@Andnotor comment on fait un invalidate ?

A+ Charly