Discussion :

[messahel]

bsr a tous;
je veux colorer une ligne d'une stringgrid a chaque changement d'une cellule, j'ai mis le code ci-dessous dans l'evenement OnDrawCell mais le changement de couleur s'applique que sur la cellule active et pour que le reste soit colorer je dois les selectionnees une par une, voici le code:

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
 
With Sender As TStringGrid Do With Canvas Do
  Begin
    If gdFixed in State
      Then Brush.Color := clBtnFace
      Else If gdSelected In State
        Then Brush.Color := clNavy
         else if Cells[4,arow]='Non' then Brush.Color := $FFE0FF
                  else Brush.Color := $FFFFE0;
    FillRect(Rect);
     If gdSelected In State
      Then Font.Color:=clWhite
      Else Font.Color:=clBlack;
    DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect ,
              DT_CENTER or DT_NOPREFIX or DT_WORDBREAK );
  End;

Merci pour vos aides.

[ShaiLeTroll]

Ton code semble cohérent, c'est celui de la FAQ Comment avoir des lignes de couleur sur un TStringGrid ?

Es-tu en XE2 ?
Il y a une nouvelle gestion de thème, je sais qu'il y a des subtilités à gérer pour la transparence

Pour les anciennes versions, cela devrait fonctionner !

OnDrawCell se produit dès que nécessaire, ce n'est pas forcément la cellule active, c'est toute cellule devant être dessiné, par exemple, si tu passe une fenêtre par dessus la grille, au moment, ou la cellule redevient visible, cela appelle OnDrawCell

[messahel]

bjr ShaiLeTroll;
je suis en delphi 2009, t 'as raison, si je minimise la fenetre par exemple et l'activer aprés toute la ligne prend la couleur, mais mon probleme c'est que je veux en fonction d'un click sur une cellule toute la ligne prend la couleur instantanement.

j'ai meme appele "Refresh" aprés le changement de couleur mais sans resultat

Merci encore.

[Ph. B.]

Bonjour,

Pourriez vous mieux expliciter ce que vous souhaitez obtenir, car actuellement cela ne me parait pas très clair...

Je pourrais vous dire de regarder la propriété Options de la TStringGrid qui permet de sélectionner toute la ligne, mais je ne suis pas certain que cela réponde à votre besoin !

Code :

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

1
2
// à paramétrer une fois ou à paramétrer à la conception
StringGrid1.Options := StringGrid1.Options + [goRowSelect];

--
Philippe.

[ShaiLeTroll]

Aaaah !
Si c'est juste avoir toute la ligne colorée, oui goRowSelect est suffisant !
Même pas besoin de OnDrawCell

OnDrawCell c'est pour colorer TOUTES les cellules en fonction de la donnée ou une ligne sur deux pour faciliter la lecture !

[messahel]

ton idée est bonne mais pas idéal, car, toute la ligne prend la couleur si et seulement si elle est selectionnee, mais le probleme se pose tjr si on essaie de colorer une ligne non selectionnee.

[Ph. B.]

ton idée est bonne mais pas idéal, car, toute la ligne prend la couleur si et seulement si elle est selectionnee, mais le probleme se pose tjr si on essaie de colorer une ligne non selectionnee.

J'avais un peu de temps à perdre et j'ai repris votre bout de code sous D7 et D2006 avec une StringGrid remplie "simplement". Je ne vois pas de problème visuellement. (cf. captures d'écran avec ou sans l'option goRowSelect)...
Donc, je repose ma question : Pouvez vous décrire plus précisément ce que vous voulez obtenir ?
--
Philippe.

[messahel]

Voici ce que je cherche:


si je clique sur une cellule qui contient "Non" elle devient "Oui" et la ligne prend une couleur differente

[ShaiLeTroll]

Ok, donc au clic, tu n'as que la Cellule à changer ainsi

Code :

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

1
2
Grid.Cells[4, ARow] := IfThen(Grid.Cells[4, ARow] = 'Oui', 'Non', 'Oui');
Grid.InvalidateRow(ARow);

InvalidateRow, va réclamer le Dessin juste de la ligne concernée, un peu moins brutal que Repaint !

[messahel]

Merci beaucoup ShaiLeTroll et Ph. B.
le probleme est resolu avec Grid.Invalidate.

[ShaiLeTroll]

Attention Invalidate et InvalidateRow, c'est différent !

Le Premier redessine tout, le second juste la ligne !

[messahel]

bonsoir,
j'ai trouvé que Invalidate et pour InvalidateRow(arow) il m'affiche cette erreur:
E2362 Impossible d'accéder au symbole protected TCustomGrid.InvalidateRow

[Ph. B.]

Merci beaucoup ShaiLeTroll et Ph. B.
le probleme est resolu avec Grid.Invalidate.

Je viens de reprendre le fil et effectivement il faut indiquer à l'application que
le composant doit être redessiné:

Code :

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

TStringGrid(Sender).Invalidate;

A rajouter dans le gestionnaire d'évènement OnClick qui change le contenu de la cellule de 'Oui' à 'Non' et vice versa...

@ShaiLeTroll : une remarque ou une question : Sous D7 ou D2006, la méthode InvalidateRow est protected donc non appelable directement, à priori elle serait devenu publique avec des versions plus récentes de Delphi, mais lesquelles ?
--
Philippe.

[ShaiLeTroll]

C'est toujours protected même en XE2, mais "hacker" une fonction protégée c'est l'enfance de l'art

il est toujours possible, d'appeler Windows.InvalidateRect, l'API à la main, suffit de pomper le code de InvalidateRow et InvalidateRect