Discussion :

[tomy_libre]

salut à tous,
Quand je fait une DBGrid avec un TTable , qui affiche un tableau d'une base de donnée, cela marche , mais meme que je diminue la taille des colomne, en exécution les colomne seront tres large , de tell facon que je peut pas voir tous mon tableau, esqu'il y a une méthode pour ajuster le DBGrid pour que je peut voir tous mon taleau en un seul vue,


et merci d'avance.

[rsc]

Il y a en gros 2 solutions :
- soit au niveau des champs, en jouant sur la propriété DisplayWidth,
- soit en créant toi-même les colonnes de ta grille (clic droit et Editeur de colonnes), et tu peux leur donner la largeur que tu veux.

[tomy_libre]

merci pour ta réponse, mais le proleme que mon BDGrid affiche beaucoup de tab de différent nombre de colomne selon le chois, et je veut que la DBGrid à le meme largeur de table , au niveau affichage , c plus chik non ?

[NABIL74]

salut,

Quand je fait une DBGrid avec un TTable , qui affiche un tableau d'une base de donnée, cela marche , mais meme que je diminue la taille des colomne, en exécution les colomne seront tres large , de tell facon que je peut pas voir tous mon tableau, esqu'il y a une méthode pour ajuster le DBGrid pour que je peut voir tous mon taleau en un seul vue,

Je pense que donner une même largeur à toutes les colonnes de ta DBGrid pour l'afficher en une seule vue c'est pas génial, car si t'as un champ qui possède une donnée avec un "width=300",et si tu régleras le "Width" de ta grille par exemple à "100", tu vas masquer cette donnée non?

Voici ce que je te propose: tu peux ajuster les colonnes de ta DBGrid selon le contenu de chaque champ de ta table(la largeur de la colonne correspond à la plus longue chaine de l'enregistrement):

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
26
27
28
procedure AutoSizeDesColonnesDBGrid(Grid: Tdbgrid);
const
  DEFBORDER = 10;
var
  temp, n: Integer;
  lmax: array [0..30] of Integer;
begin
  with Grid do
  begin
    Canvas.Font := Font;
    for n := 0 to Columns.Count - 1 do
      lmax[n] := Canvas.TextWidth(Fields[n].FieldName) + DEFBORDER;
    grid.DataSource.DataSet.First;
    while not grid.DataSource.DataSet.EOF do
    begin
      for n := 0 to Columns.Count - 1 do
      begin
        temp := Canvas.TextWidth(trim(Columns[n].Field.DisplayText)) + DEFBORDER;
        if temp > lmax[n] then lmax[n] := temp;
      end;
      grid.DataSource.DataSet.Next;
    end;
    grid.DataSource.DataSet.First;
    for n := 0 to Columns.Count - 1 do
      if lmax[n] > 0 then
        Columns[n].Width := lmax[n];
  end;
end;

pour l'appeler, tu fais:

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
 AutoSizeDesColonnesDBGrid(DBGrid1);
end;

A+

NABIL74

[RURU.Alli]

Je me suis trompé.

Désolé

[tomy_libre]

wi , g trouvé un procédure qui ajuste la taille de colomne suivant son contenu, mais moi je veut ajuster les colomne de telle sorte que tous le table sera afficher , et meme si le tableau soit < à la taille de DBGrid , je veut pas avoir les espace blanc a coté tu vois !!!,
merci