Discussion :

[TicTacToe]

+1 Je rejoins EricBoisVert, et Andry.

Peut etre sur le OnChange des Fields, plutot que sur le OnGetText.
Mais c'est un détail...

Plus l'utilisateur va naviguer dans la BD, plus la valeur de la longueur max. de la colonne va être précise.

Ca peut être un bon compromis.

[freestyler]

c'est très prometteur tout ça..
mais juste un détail..
sur quels champs tu vas faire ton OnGetText??
Comment accèder à cet évènement alors que mes champs ne sont pas encore crées??

[Eric Boisvert]

sur quels champs tu vas faire ton OnGetText??
Comment accèder à cet évènement alors que mes champs ne sont pas encore crées??

Tu peux associer dynamiquement la routine OnGetText...et pourquoi pas sur tout les champs?

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
//=====================================================================
//=== Fonction de Resize column Selectionnee
procedure ResizeColumn(Grid: TDbGrid);
var
    DS:TDataSet;
begin
    DS:=Grid.DataSource.DataSet;
    with Grid do
    begin
        Columns[SelectedIndex].Width:=DS.FieldByName(SelectedField.FieldName).Tag;
    end;
end;
//=====================================================================
//=== Fonction de Resize de Toutes Les colones
procedure ResizeAllColumns(Grid: TDbGrid);
var
    DS:TDataSet;
    i:integer;
begin
    DS:=Grid.DataSource.DataSet;
    for i:=0 to DS.FieldCount-1 do
    begin
        with Grid do
        begin
            Columns[i].Width:=DS.FieldList.Fields[i].Tag;
        end;
    end;
end;
 
//=====================================================================
//== Fonction GenericOnGetText
procedure TForm1.GenericOnGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
    Text:=Sender.AsString ;
    //Memorise rapidement le text le plus large affiché dans la colonne
    Sender.Tag:=Max(Sender.tag,DBGrid1.Canvas.TextWidth(Text)+5);
end;
 
 
//=====================================================================
//== Fonction AfterOpen (d'une table ou d'un query)
procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
var
    i:integer;
begin
    for i:=0 to DataSet.FieldCount-1 do
    begin
        with DataSet.FieldList.Fields[i] do
        begin
            //Met deja le .tag à la largeur du titre
            Tag:=DBGrid1.Canvas.TextWidth(DisplayName)+5;
            //Associe OnGetText Generique au champs
            OnGetText:=GenericOnGetText;
        end;
    end;
end;

En plus, maintenant on prend aussi en considération le titre des champs....
En fait, là... c'est presque Plug and Play!

[kase74]

mais comment font ils sous EXCEL?? ou sous Access?? ou sur n'importe quelle application qui gère l'affichage de tableaux??

un double-clic sur la bordure et la colonne se redimensionne par rapport au champ le plus large...

Bonjour !

Comment font-ils ? Sans pretention, j'ai peut etre une idee : ils doivent stocker la longueur maxi de chaque champ quelque part lors des INSERT ! Et ils se referent a ca pour redimensionner instantanement les colonnes.

[Sunchaser]

Bonsoir,

Est ce que quelquechose a été essayé dans le OnDrawColumnCell ?
On pourrait peut être tenter qqchose comme :

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
 
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//
DBGrid1.DoubleBuffered := true;
  if DataCol = 0 then
  begin
    //
    twidth := DBGrid1.Canvas.TextWidth(DBGrid1.Fields[DataCol].AsString );
    if twidth > taille then
    begin
      taille := twidth + 5;
    end;
    //
  end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
if DBGrid1.DataSource.DataSet.RecNo = Query1.RecordCount then
begin
  DBGrid1.Columns.Items[0].Width := taille;
end;
 
//
end;

ou 'taille' et 'twidth' sont des integer déclarées dans 'var' ...
(et DefaultDrawing a false).

En espérant t'aider,
@ +


//EDIT : dans ce cas, je teste pour une colonne bien sur ...

[freestyler]

Eric t'es génial.. Merci bp..

j'ai réussi à adapter ton code et ça fonctionne Nickel..

Je le conseille vivement.. c très rapide..
on peut même récupérer la somme des tailles de toutes les colonnes pour que la taille du form qui contient la Grid soit idéale!

[Arrown]

Tant mieux que tu ai trouvé
Mais en vous lisant je me demande si faire une pré requete ne serai pas plus rapide ?

Code :

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

select max(champ1), max(champ2) etc... from TABLE

et le tour serai jouer en travaillant sur la taille de cette requete.
Bon par contre c'est une requete pas simple en plus sur le serveur alors que l'on peut l'éviter. Mais c'est une simle sugestion.

[Eric Boisvert]

J'ai des doutes avec un champs texte...

Si le champs Prenom de la table Employes contient ces 3 enregistrements:
'LePlusLongPrenomAuxMonde'
'Yvon'
'Eric'

la requete:
select max(Prenom) from Employes

retourne 'Yvon'

ce n'est pas exactement l'effet désiré...

[Arrown]

Oui effectivement, j'avais zappé ça.

Dans ce cas il faut peut jouer sur le length, mais donc faire des sous requete. C'est effectivement pas le plus simple et galère à écrire.