TDBGrid et largeur de colonnes

Version imprimable

14/09/2013, 21h43
Papy214

TDBGrid et largeur de colonnes

Hello,

Je travaille sur une application qui utilise pas mal de TDBGrid.
Une demande client est qu'il voudrait redimensionner les colonnes de la DBGrid et que ces largeurs soient enregistrées (peu importe où) pour être réutilisées à chaque nouvelle utilisation.

Je sais qu'il existe des grilles améliorées qui font ça mais le changement de composant n'est pas envisageable pour le moment. Il faut que ça soit une solution qui ne bidouille pas trop le code.

D'après vous, quels événements faudrait-il surcharger pour réaliser cette chose qui parait si simple mais pour laquelle je ne vois pas de solution immédiate.

Papy !
15/09/2013, 07h47
seabs

Bonjour,

Je pense qu'il convient d'enregistrer la largeur de chaque colonne de ton DBGrid dans un fichier ini ou xml. Cet enregistrement peut se faire avec l'évènement OnColumnMoved du DBGrid. Attention l'indicateur dgColumnResize dans options doit être True.

A l'ouverture de la fiche, tu fais la lecture de ton fichier ini ou xml pour positionner la largeur de tes colonnes.

Pour éviter l'enregistrement à chaque mouvement d'une colonne, tu peux simplement faire un enregistrement lors de la fermeture de la fiche ou de l'application.

Pour accéder à la largeur des colonnes, il te faudra peut être surcharger ton dbGrid avec TDrawGrid. Voir la documentation suivant les versions de Delphi. J'ai pris la version Delphi 7 pour répondre à message.

L'accès à la largeur de la colonne, en lecteur ou en écriture, se fait

Code:

TDrawGrid(dbGrid_).ColWidths [n° Colonne]

Ces informations doivent, après adaptation à ton produit, permettre de résoudre ta difficulté.

A+
15/09/2013, 09h34
Papy214
Merci de ta réponse mais OnColumnMoved ne semble pas être déclenché quand on redimensionne une colonne.
Code:

1 2 3 4 5 6 procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer); begin Caption := IntToStr(TDrawGrid(DBGrid1).ColWidths[0]); end;
Le code ne passe jamais la-dedans.

Solution à moindre coût

J'ai trouvé.

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
 
  TDBGrid = class(DBGrids.TDBGrid)
  protected
    procedure ColWidthsChanged; override;
  end;
 
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    ClientDataSet1Age: TIntegerField;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TDBGrid.ColWidthsChanged;
begin
  inherited;
  // Ici on a accès à Columns[n].Width après redimensionnement
end;