Récupérer la taille du titre d'un DBGridRésolu

Question

Bonjour

J'ai fais une fonction qui permet de redimentionner automatiquement la largeur des colonnes d'une DBGrid en fonction de son contenu.
J'aimerai aussi pouvoir tenir en compte la taille du titre de la colonne mais je ne sais pas comment r&#233;cup&#233;rer la valeur du titre.

Voici mon code :

procedure ResizeColumns();
var
J,MaxTextWidth, fieldwith : Integer;
begin
   Form1.GridFic.datasource.DataSet.DisableControls;
   // On fait toutes les colonnes du TDBGrid
   For J:=0 to Form1.GridFic.FieldCount-1 do
   begin
      // Initialisation (largeur du titre)
      MaxTextWidth := comment r&#233;cup&#233;rer la largeur du titre de la colonne sur laquelle on pointe ?
      // On recupere la longueur la plus grande contenu dans la colonne
      Form1.GridFic.DataSource.DataSet.First;
      while not form1.GridFic.DataSource.DataSet.Eof do
      begin
          fieldwith := Form1.GridFic.Canvas.TextWidth(form1.GridFic.datasource.DataSet.Fields.Fields[J].AsString);
          if (fieldwith > MaxTextWidth) then MaxTextWidth := fieldwith;
          Form1.GridFic.DataSource.DataSet.Next;
      end;
      // On applique la nouvelle taille a condition que la colonne n'&#233;tait pas vide
      If MaxTextWidth > 0 then form1.GridFic.Columns[J].Width := MaxTextWidth + 20;
   end;
   Form1.GridFic.datasource.DataSet.EnableControls;
end;

cs_oluha · Answer

Ah ben je crois que je viens de trouver :

Form1.GridFic.Canvas.TextWidth(form1.GridFic.Columns[J].Title.Caption)

cs_oluha · Answer

Ben ma fonction ne me pose pas probl&#232;me dans mon cas puisque je n'affiche pas l'int&#233;gralit&#233; de ma table mais uniquement les 200 premiers enregistrements dans mon DBGrid.

Par contre je ne pense pas pouvoir vous aider avec paradox, je ne connais pas du tout ce type de base de donn&#233;es, j'utilise sql server et access.

Bon courage

Récupérer la taille du titre d'un DBGrid

2 réponses

Votre réponse

Discussions similaires