dbgrid

bonjours j'ai utilisé ce code mais l'image ne parré pas quand je veux la positionner sur le titre de la colonne elle est mise en dessou donc on ne la voie pas!!!!!

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
 
procedure DrawFlecheorder(Sender: TObject;Afont : Tfont;Rect : Trect;Sort : TSortDirection);
var
  BitMap1 :TBitMap;
begin
BitMap1 :=TBitMap.Create;
try
  with (Sender as TDBGrid) do
  begin
    if sort = sdAscending Then
    begin
      Bitmap1.LoadFromFile('C:\Program Files\Borland\Delphi7\Projects\testmysql\fléches\fléche2 copie.bmp');
    end
    else
     if sort = sdDescending Then
     begin
     Bitmap1.LoadFromFile('C:\Program Files\Borland\Delphi7\Projects\testmysql\fléches\fléche1 copie.bmp');
     end;
   if (fdatamodule.col=0) then begin
                                        fgrid.Canvas.Draw(rect.Right,rect.Bottom ,BitMap1);
                               end;
  end;
finally
      BitMap1.Free;
end;

merci pour votre aide.