Description


La méthode ajuste automatiquement la hauteur de la ligne en fonction du contenu des cellules de la ligne donnée.


En règle générale, cette méthode doit être appelée en cas d'évènement OnChange.

En outre, les colonnes doivent avoir la propriété WrapKind : = wkWordWrap pour permettre l'habillage de texte dans les cellules.




Exemple


// Ajuste automatiquement la hauteur de toutes les lignes du composant
procedure Form1_TableGrid1_OnChange (Sender: string);
var  i, c: integer;
begin
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
    begin
        Form1.TableGrid1.Columns[i].VerticalAlignment := taAlignTop; // Définit l'alignement vertical dans les cellules de colonne
        Form1.TableGrid1.Columns[i].WrapKind := wkWordWrap; // Active la possibilité d'habiller des lignes dans des cellules des colonne
    end;


    c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do Form1.TableGrid1.BestFitRow(i); // Pour chaque ligne, nous appelons la méthode afin d'en ajuster automatiquement la hauteur
end;



// Met également à jour les hauteurs de ligne lorsque les colonnes sont redimensionnées
procedure Form1_TableGrid1_OnColumnResize (Sender: TObject; ACol: Integer);
var    i, c: integer;
begin
    c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do Form1.TableGrid1.BestFitRow(i); // Pour chaque ligne, nous appelons la méthode pour ajuster automatiquement la hauteur
end;