Discussion :

[SergioMaster]

Objectif : Mettre par exemple une flèche selon l'ordre de tri de la colonne

Constatation : Une colonne d'une DBGrid a les propriétés Imageindex , ImageLayout (normal puisque dérivée de TCustomDBgrid elle même de TCustomGrid etc...)

par contre, et c'est là ma question , pas de possibilité de lier ces colonnes à un TImageList (TitleImageList d'un Tdrawgrid par exemple) est-ce en prévision pour la prochaine version (je suis en 0.9.27) ou un "oubli" du concepteur à signaler, corriger ou .....

quelqu'un a t'il une soluce ?

[SergioMaster]

Peut être pas élégante mais efficace !

j'ai créer une classe dérivée de TDBGrid , l'objectif étant d'accéder au propriétés/méthodes protégées ("protected")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses
  LCLIntf, .... DBGrids, Grids;
 
type
  {dérivée de TDBGrid}
  TMaGrid = Class(TDBGrid);  
 
  { TForm1 }
  TForm1 = class(TForm) 
      Button1: TButton;
      DBGrid1: TDBGrid;  
     ImageList1: TImageList;

puis au moment de la création de la form j'accède à la propriété protégée en transtypant la grille , de façon a accéder à la propriété TitleImagelist

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  TMagrid(DBgrid1).titleImagelist:=Imagelist1;
end;

Ensuite, eh bien , il ne me reste plus qu'a jouer sur la propriété
ImageIndex du titre de la colonne

Code :

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

1
2
3
4
 
  DBGrid1.Columns[0].Title.ImageIndex:=-1;  // pas d'image
  DBGrid1.Columns[0].Title.ImageIndex:= 0;   // image indice 0 
  etc ...

ce qui donne pour l'objectif préalablement indiqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if Column=nil then Exit;  // ne pas oublié ceci au cas ou l'indicateur (dgindicator=true) est visible
if Column.Index<0 then exit;
case DBGrid1.Columns[Column.Index].Title.ImageIndex of
  0 : DBGrid1.Columns[Column.Index].Title.ImageIndex:=1;
  1 : DBGrid1.Columns[Column.Index].Title.ImageIndex:=-1;
  else DBGrid1.Columns[Column.Index].Title.ImageIndex:=0;
end;
{Prise en compte des  tris demandés}  
end;