Discussion :

[adelneo]

Bonjour,

J'ai voulu reprendre ce code :

Code non testé mais qui peut te donner des pistes pour ce que tu veux faire

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
31
32
33
34
35
36
37
38
39
 
procedure TFrm_MainForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
 
begin
  if GdSelected in State then
  begin
     With TDBGrid(Sender) do
     begin
       Canvas.Pen.Color := clBlue;
 
       // trace la ligne du haut
       Canvas.MoveTo(Rect.TopLeft);
       Canvas.LineTo(Point(Rect.Right,Rect.Top));
 
       // trace la ligne du bas
       Canvas.MoveTo(Point(Rect.Left,Rect.Bottom));
       Canvas.LineTo(Point(Rect.Right,Rect.Top));
 
       // cas de la première cellule
       if DataCol = 0 then
       begin
         // on trace la coté gauche
         Canvas.MoveTo(Rect.TopLeft);
         Canvas.LineTo(Point(Rect.Left,Rect.Bottom));
       end;
 
       // Cas de la dernière colonne
       if DataCol = Columns.Count -1 then
       begin
         // On trace le coté droit
         Canvas.MoveTo(Point(Rect.Right,Rect.Top);
         Canvas.LineTo(Rect.BottomRight);
       end;
     end;
  end else
   TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
 
end;

Contrairement à ce que dit RedOran ce code est plein de faute:

1. Les fonctions MoveTo et LineTo doivent s'argumenter avec deux paramètres
2. Les paramètres doivent être de type entier et pas de type TPoint.

J’ai essayé de faire les modifications nécessaire pour corriger ce code mais en vain. Je continue à rechercher.

[adelneo]

J'ai réussis à corriger le code, mais l'affichage du contour est erroné lorsque les couleurs des lignes sont modifiées (la bordure supérieure devient invisible), sachant que j'utilise des couleurs altérnées.

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
31
32
33
34
35
36
37
38
procedure TFrm_MainForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
 
begin
  if GdSelected in State then
  begin
     With TDBGrid(Sender) do
     begin
       Canvas.Pen.Color := clBlue;
 
       // trace la ligne du haut
       Canvas.MoveTo(Rect.Left,Rect.Top);
       Canvas.LineTo(Rect.Right,Rect.Top);
 
       // trace la ligne du bas
       Canvas.MoveTo(Rect.Left,Rect.Bottom);
       Canvas.LineTo(Rect.Right,Rect.Bottom);
 
       // cas de la première cellule
       if DataCol = 0 then
       begin
         // on trace la coté gauche
         Canvas.MoveTo(Rect.Left,Rect.Top);
         Canvas.LineTo(Rect.Left,Rect.Bottom);
       end;
 
       // Cas de la dernière colonne
       if DataCol = Columns.Count -1 then
       begin
         // On trace le coté droit
         Canvas.MoveTo(Rect.Right,Rect.Top);
         Canvas.LineTo(Rect.Right,Rect.Bottom);
       end;
     end;
  end else
   TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
 
end;

[Renaud°]

J'ai réussis à corriger le code, mais l'affichage du contour est erroné lorsque les couleurs des lignes sont modifiées (la bordure supérieure devient invisible), sachant que j'utilise des couleurs altérnées.

La ligne supérieure de contour ne se ferait-elle pas justement écraser la mise en couleur des lignes ? il me semble me souvenir que le focus sur la nouvelle ligne est dessiné avant que la ligne sélectionnée précédente ne soit redessinée, un moyen simple de s'en rendre compte serait de sélectionner une ligne qui ne soit pas concomitante.

Ce qui voudrait dire qu'il faudrait retarder le dessin de ton contour ... mais au débotté, comme ça, je ne vois pas de solution élégante