Discussion :

[michel71]

Bonjour,

j'ai ce bout de code

Code :

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

1
2
3
4
5
6
7
           for j:=1 to qt do
            begin
               seek(fich_cave,j);read(fich_cave,enregvin);
               Gril_visu.Cells[0,j-1]:=enregvin.vignoble;
               Gril_visu.Cells[1,j-1]:=enregvin.legende;
               gril_visu.Canvas.Brush.Color:=enregvin.leg_couleur;
            end;

et je n'arrive pas à mettre la couleur de fond issue de mon fichier dans la cellule repérée en rouge. (la ligne en bleu ne marche pas).

Pour info je récupère bien les valeurs de mon fichier donc le problème se situe dans le code

si quelqu'un peut m'aider d'avance merci

[Nono40]

http://delphi.developpez.com/faq/?pa...leurstringgrid

[LadyWasky]

Je rajouterais aussi qu'une recherche dans le forum peut aussi aider...

[michel71]

Merci, j'avais déjà lu et vu ce code

http://delphi.developpez.com/faq/?pa...leurstringgrid

que j'utilise par ailleurs. Mais soit je ne suis pas doué (ce que je soupçonne), soit je me suis mal expliqué, soit ce que je cherche n'est pas réalisable.
Je m'explique :

J'ai une grille (Stringgird) avec deux colonnes
dans les cellules de la première colonne je charge une valeur string issue d'un fichier (pas de problème)
dans les cellules de la seconde colonne je charge également une valeur string toujours issue de mon fichier mais je veux également de modifier à chaque fois la couleur de fond également issue d'un champ Tcolor de mon fichier.
Donc à chaque ligne je dois avoir une cellule fond blanc et texte noir et une cellule fond coloré (définie par mon fichier) et texte noir.

Jusque maintenant je n'ai réussi a avoir que toutes les cellules de toutes les lignes de la même couleur (la dernière couleur issue de mon fichier)

merci

[dem]

Normalement il te suffit juste d'adapter la partie de code (indiquée dans la FAQ)

Code :

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

1
2
3
4
5
6
7
8
 { 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;

pour en faire ce que tu veux. Ici les lignes paires et impaires ont des couleurs différentes mais à toi de changer la couleur du fond comme tu veux en fonction de valeurs de variables affectées ailleurs dans ton code.

Je l'avais fait il y a longtemps (un dev que je n'ai plus sur mon disque ) pour donner une couleur de plus en plus vive au fond en fonction de la valeur de la cellule, faudrait que je retombe sur ce bout de code mais c'est tout à fait possible.

Si tu ne t'en sors pas j'essaierai de le retrouver dans mes sauvegardes.

[Franck SORIANO]

En fait, le composant TStringGrid ne permet pas de définir directement l'apparence de chaque cellule indépendemment des autres.

Pour avoir une cellule qui s'affiche différemment, il faut la dessiner soit-même grâce à l'événement OnDrawCell. C'est ce que font tous les exemples qui ont été donnés précédemment.

Dans ton cas, il faut que tu mémorises la couleur de fond de chaque ligne (dans une autre structure de données), pour ensuite dessiner la cellule correctement.

A ta place, j'utiliserais carrément une TDrawGrid plutôt qu'une TStringGrid :

Au chargement, tu lis les données dans un tableau de enregvin, avec un code du genre :

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
var  tbenregvin : array of enregvin;
    qt : integer;
    fich_cave : file of enregvin;
    i : integer;
begin
  qt := 20;
 
  SetLength(tbenregvin, qt);
  seek(fich_cave, 1);
  for i := 0 to qt-1 do
  begin
    read(fich_cave, tbenregvin[i]); // lecture de l'enregistrement
  end;
  gril_visu.RowCount := qt;
end;

Puis tu code l'événement OnDrawCell de la TDrawGrid avec un truc du genre :

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 TForm2.gril_visuDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var grd : TDrawGrid;
begin
  grd := TDrawGrid(sender);
  case ACol of
  0 : grd.Canvas.TextOut(Rect.Left, Rect.Top, tbenregvin[ARow].vignoble);
  1 : begin
        grd.Canvas.Brush.Color := tbenregvin[ARow].leg_couleur;
        grd.Canvas.FillRect(Rect);
        grd.Canvas.TextRect(Rect, Rect.Left, Rect.Top, tbenregvin[ARow].legende);
      end;
  end;
end;

L'important c'est de dessiner le texte de la cellule avec TextRect pour ne pas déborder dans la cellule suivante...

Il faut comprendre le principe mais ensuite on peut se permettre les présentations les plus foles.

[michel71]

Merci c'est exatement ce que je voulais, mais j'avoue que j'ai recopié bêtement sans trop comprendre ce que je faisais.
Je vais essayé de me pencher sur le code pour comprendre.

Encore merci

[dem]

Pour ceux que ça intéresse, voici un petit exemple :

StringGrid.rar

J'utilise une StringGrid standard et j'ai réutilisé les codes de la FAQ en ne modifiant que le stricte nécessaire pour "faire joli".

PS : michel71, tu as peut-être déjà trouvé ton bonheur entre temps, mais comme je l'avais déjà fait et téléchargé, alors je réponds quand même..