Discussion :

[frantzgac]

bjr

j'affiche à l'aide d'un TDBGrid le résultat d'une requête (TIBQuery). Je dimensionne d'abord dans le FormShow les colonnes du TDBGrid à l'aide de la taille des Title :

Code :

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

1
2
3
for I := 0 to dbgCampagne.Columns.Count - 1 do begin
     dbgCampagne.Columns[i].Width := 5 + dbgCampagne.Canvas.TextWidth(dbgCampagne.Columns[i].title.caption);;
     end;

puis dans l’évènement OnDrawColumCell j'ajuste si nécessaire la colonne en l'agrandissant en fonction du contenu de la cellule.

Code :

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

1
2
3
w := 5+dbgCampagne.Canvas.TextWidth(Column.Field.DisplayText);
  if w>column.Width then
    Column.Width := w;

Tout ceci fonctionne sauf que :

Dès que le code ci-dessus est terminé et que l'application rend la main le curseur du TDBGrid est positionné sur la dernière ligne (première colonne). Il est impossible de sélectionner une cellule ou une ligne du TDBGrid avec la souris.Pour y parvenir il faut soit redimensionner la fenêtre (ce qui active à nouveau OnDrawColumCell) soit utiliser la touche TAB (ce qui fait la même chose). Ensuite seulement la souris peut être utilisée pour sélectionner des lignes. C'est ergonomiquement assez gênant. La responsabilité du code du OnDrawColumCell est certaine. Si je le retire les colonnes sont ajustées au titre mais le TDBGrid est sensible à la souris.

Les options du TDBGrid sont celles par défaut.

La propriété SQL de TIBQuery contient des agrégats (précision à toutes fins utiles)

[SergioMaster]

Bonjour,

ne serait-il pas plus simple (en tout cas certainement plus rapide) de rechercher la taille max des données dans le FormShow et donc de calculer la largeur à ce moment là ?
Puisqu'il y a IBQuery c'est donc Interbase ou Firebird une requête du Style

Code :

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

SELECT MAX(CHAR_LENGTH(:champ)) AS N FROM table

et un calcul du style

Code :

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

1
2
3
4
5
6
7
8
9
 
// Fait à l'arrache 
IBQuery.ParamByName('Champ').asString:=dbgCampagne.Columns[i].FieldName;
IBQUery.Active:=True;
n:=IBQuery.FieldByName('n').asINteger; 
IBQuery.Active:=False;
n  := 5+dbgCampagne.Canvas.TextWidth(StringOfChar('W',n);  // j'ai utilisé W car il me semble que c'est le char le plus 'large'
w := 5 + dbgCampagne.Canvas.TextWidth(dbgCampagne.Columns[i].title.caption);
dbgCampagne.Columns[i].Width :=MaxInt(n,w);

[frantzgac]

Il y a sûrement des moyens divers pour ajuster la taille des colonnes et je note celle que tu me proposes qui est intéressante pour les tables ayant peu de lignes (et peu de variation de taille de champs donc).

Si on doit la généraliser cela me parait peut être un peu lourd de doubler toute utilisation d'un ensemble de données par un autre, chargé uniquement de repérer la taille maximum des champs affichés. Mais j'y vois un autre inconvénient c'est que la taille maximale des champs peut être assez variable en balayant la table et que le procédé fixe une fois pour toute la taille maximale de tous les champs. L'intérêt d'un ajustement à la volée est précisément de jouer sur la répartition aléatoire des grandes chaines pour maximiser le contenu visible.

Et puis cela ne règle aucunement ce qui me semble être un dysfonctionnement.

Merci tout de même de cette idée.

[frantzgac]

Cette méthode de réglage dynamique des colonnes est fortement déconseillée dans la mesure où elle entraîne des appels récursifs à l'évènement OnDrawColumnCell. Le dysfonctionnement constaté, en apparence aléatoire, dépend de la taille des contenus des champs de la table affichée.
A ce sujet j'attire l'attention sur la propriété DataLink du TDBGrid qui donne accès aux enregistrements actuellement affichés dans le TDBGRID cela ouvre l'accès à un ajustement dynamique de colonnes qui ne passe pas par l'utilisation de l'évènement cité.