question sur Dbgrid

Un truc de ce genre ?

Code:

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
 
procedure TMainForm.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
   procedure FlecheTri;
   var
      i: Integer;
   begin
      DBGridDevis.Canvas.Pen.Color := clNavy;
      for i:=13 downto 5 do
      begin
         DBGridDevis.Canvas.MoveTo(Rect.Right - 9, 12);
         DBGridDevis.Canvas.LineTo(Rect.Right - i, 4);
      end;
   end;
begin
...
 
   Column.Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 
...
 
   //.Si tri
   if TriSurUneColonne then
   begin
      //.Si première colonne.
      if DataCol = 0 then
         FlecheTri;
   end;
end;

C'est pas génial, mais ça peut de donner des idées ...

;)