Discussion :

[chekkal]

Bonjour à tous,

pour afficher les lignes dans un Tdbgrid avec des couleurs différentes j'utilise ce 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
procedure TForm1.dbgDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If gdSelected In State Then
    TDBGrid(Sender).canvas.Brush.color := clblue;
  Else
  Begin
    IF TDBGrid(Sender).datasource.dataset.fieldvalues[column.fieldname] =1 then
      TDBGrid(Sender).canvas.Brush.color := clLime
    Else
      TDBGrid(Sender).canvas.Brush.color := clWhite;
  End;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
 
end;

jusqu'a là c'est bon. Maintenant, j'ai un champs année ,qui peut prendre la même valeur sur plusieurs enregistrement et je voudrais pouvoir mettre la première ligne avec un changement d'année en une couleur différente.

[SergioMaster]

Voilà une solution :

• Utilisez une variable privée de la forme.
• Initialisez là (emptystr) au moment du create (ou à l'ouverture de la table).

Dans OnDrawColumncell

• testez la valeur du champ Annee en fonction de cette variable.
  Si elles sont différentes :
• changer la couleur, mémorisez la nouvelle valeur dans la variable

[chekkal]

Bonjour,

je l'ai déja testé, et ça marche pas, du fait que si on fait défiler le Tdbgrid la valeur change et la ligne qui plus haut prend la couleur.

[SergioMaster]

Si vous l'avez fait ce n'est pas indiqué dans le code que vous avez montré.
Si ça ne fonctionne pas, c'est à un niveau au dessus (c'est à dire au niveau des données) qu'il faut travailler

[chekkal]

Je pense que vous m'avez pas compris, voila un exple de ce que peut contenir le table

année affection valeur
2017 Axe sur voie 25 000.00 //ligne 1
2017 Bille ronde 13 000.00
2018 Axe sur voie 24 700.00 //ligne 3
2018 Ligne en vrac 17 850.00
2019 Bille ronde 14 000.00
ect..

,
si il ya pas de manipulation dans le Tdbgrid l'exple que vous m'avez donné fera tout à fait l'affaire. Maintenant, imagine je suis sur la 3eme ligne et je repasse à la 2eme ligne, le Tdbgrid va automatiquement changer l'affichage.

[SergioMaster]

Je pense que vous m'avez pas compris,

vous me prenez pour un débile ?

l'exemple que vous m'avez donné fera tout à fait l'affaire.

je ne vous ai pas fourni d'exemple mais un début de démarche.

De plus, je vous ai écrit que si cela ne fonctionnait pas il fallait travailler en amont, c'est à dire sur les données
par exemple :

Code :

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

1
2
3
SELECT ANNEE,AFFECTION,VALEUR FROM TABLETEST
JOIN 
SELECT ANNEE,NULL,NULL FROM TABLETEST GROUP BY ANNEE

Permet d'obtenir une ligne de groupe ANNEE, un test sur la colonne affection ou valeur permet alors de savoir s'il s'agit d'un groupe ou pas. Et ça, ça fonctionne

Cela écrit, il y a des composants de grilles qui gére ça sans.
exemple SMDBGrid permet de faire un "datagrouping"
TMS advDBGrid permet de faire des groupes type dossiers

je suis sur la 3eme ligne et je repasse à la 2eme ligne, le Tdbgrid va automatiquement changer l'affichage.

Depuis presque 5 ans je n'utilise plus de DBGrid et déjà avant je n'étais pas très chaud à l'utiliser sur mes formes. Il faut remonter aux années de début du siècle pour retrouver dans mes programmes, une utilisation intensive des DBGrids dans mes formes. Malgré tout je me demande si vous avez totalement raison, comme vous n'avez pas fourni le code de votre soit-disant essai, je reste sceptique.

d'ailleurs une mémorisation un peu plus pointue : dans un TDictionary, et ça fonctionne.
ça c'est un exemple, pas une démarche

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
21
22
23
24
25
26
27
28
29
30
uses ... system.generics.collections;
 
var
  Form1: TForm1;
  g : TDictionary<Integer,Integer>;
.....
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var ligne : integer;
begin
   if g.TryGetValue(TDBGrid(Sender).datasource.dataset.fieldvalues['ANNEE'],ligne)
     then begin
        if ligne=TDBGrid(Sender).datasource.dataset.Recno
          then TDBGrid(Sender).canvas.Brush.color := clLime
          else TDBGrid(Sender).canvas.Brush.color := clwhite;
      end
   else begin
       g.Add(TDBGrid(Sender).datasource.dataset.fieldvalues['ANNEE'],
                 TDBGrid(Sender).datasource.dataset.Recno);
       TDBGrid(Sender).canvas.Brush.color := clLime;
   end;
   TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
...
initialization
 g:=TDictionary<Integer,Integer>.Create;
finalization
 g.Free;
end.