Discussion :

[dleu]

Bonsoir,

Dans mon dbGrid, lorsque je clique sur le titre d'une colonne, cela provoque le tri de cette colonne (ascendant ou descendant).

Je voudrais dessiner à côté du titre de la colonne une petite flèche qui indiique le sens du tri.

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
 
  with TCustomADODataSet(DBGridLivres.DataSource.DataSet) do
  begin
    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then //si le tri est descendant
    begin
      DrawRect:=Rect;
      left:=Rect.Right-20;
      vpos:=Rect.Top+8;
      with dbGrid1.Canvas do  //--> c'est ici que je dois mettre le canvas du titre. Mais comment ?
      begin
        Pen.Color:=clWhite;
        Pen.Width:=1;
        MoveTo(left+4,vpos-4);
        LineTo(left,vpos+4);
        pen.Color:=clGray;
        LineTo(left-4,vpos-4);
        LineTo(left+4,vpos-4);
        pen.Color:=clBlack;
      end;
    end;

Le code ci-dessus placé dans l'évènement OnDrawColumnCell, affiche bien une petite flèche quand le sens est descendant mais dans chaque ligne de mon dbGrid et pas dans le titre. Or je veux l'inverse : dans le titre et pas à chaque ligne.

Ma question est : comment a-t'on accès au canvas du titre. Autrement dit : que dois-je mettre à la place de

Code :

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

with dbGrid1.Canvas do

pour que la flèche s'affiche dans le titre et non dans la grille ?

Merci de m'aider.

dleu

[portu]

Mets ton code dans cette condition.

Code :

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

1
2
3
4
5
6
 
 
If (gdFixed In State) AND (Rect.top = 0) then  
Begin
////ton code
end;

GdFixed vise les cellules vides.
Mais , comme on peut en avoir sur le coté, j'ai remis Rect.top = 0 pour
en plus prendre celles qui sont en première ligne.

[dleu]

Merci,

mais j'obtiens une erreur :

[Erreur] Unit1.pas(891): Opérateur non applicable à ce type d'opérande

Autre solution ? Ou correction ?

[portu]

L'erreur ne vient pas de mon code.

Montre moi la ligne où il y a l' erreur si tu veux.

[dleu]

Voilà où je l'ai mis :

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
  with TCustomADODataSet(DBGridLivres.DataSource.DataSet) do
  begin
    //test du sens du tri
    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
      If (gdFixed In State) AND (Rect.top = 0) then
    begin
      DrawRect:=Rect;
      left:=Rect.Right-20;
      vpos:=Rect.Top+8;
      with dbGrid1.Canvas do
      begin
        Pen.Color:=clWhite;
        Pen.Width:=1;
        MoveTo(left+4,vpos-4);
        LineTo(left,vpos+4);
        pen.Color:=clGray;
        // etc .....................

Mais le problème qui se pose, à mon avis, c'est que je travaille dans le mauvais canvas : dbGrid1.Canvas donne le canevas des lignes de la grille et pas le canevas de la ligne des titres.

dleu

[dleu]

Voilà mon code actuellement :

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
 
  If (gdFixed In State) AND (Rect.top = 0) then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin
    //test du sens du tri
    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
    begin
      DrawRect:=Rect;
      left:=Rect.Right-20;
      vpos:=Rect.Top+8;
      with dbGrid1.Canvas do
      begin
        Pen.Color:=clWhite;
        Pen.Width:=1;
        //   .../...

Je n'ai plus d'erreur à l'exécution, mais je n'ai plus l'affichage de ma flèche.

Y a-t'il quelqu'un qui aurait la réponse à mon problème ?

[dleu]

Eh bien ?????

Tout le monde est parti ?

Sans blague, j'ai passé tout le week-end là-dessus. Je ne trouve aucune solution. J'ai vraiment besoin d'aide.

[portu]

En fait, le composant TDbGrid n'est pas tres approprié pour dessiner dedans.

Je viens de remarquer aussi que je n'arrive pas à aller dans le Canvas des cellules fixes.

J'espère que quelqu'un poura mieux t'aider que moi.

Sorry.

Ps : Essaie peut être un autre compo DbGrid mieux adapté pour cela.
Ou alors, pas tres propre, mettre un TImage sur chaque colonne et gérer les flêches par là...

[dleu]

Merci pour ton aide.

J'espère que quelqu'un va avoir une idée car je crois bien avoir tout essayé.