Discussion :

[taleb]

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 :

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
 
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.

[anapurna]

salut

c'est logique regarde ce que tu fait dans le draw

Code :

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

fgrid.Canvas.Draw(rect.Right,rect.Bottom ,BitMap1);

@+ Phil