oumatout
Messages postés1Date d'inscriptiondimanche 28 mars 2004StatutMembreDernière intervention19 août 2004 19 août 2004 à 11:33
procedure ResizeColumn(strGrd : TstringGrid; Col :integer);
var i,nbRows, maxTextWidth :integer;
begin
maxTextWidth:=0;
nbRows:=StrGrd.RowCount;
For i:=0 to nbRows - 1 do
begin
maxTextWidth:=max(maxTextWidth,
StrGrd.Canvas.TextWidth(StrGrd.Cells[Col,i]));
end;
StrGrd.ColWidths[Col]:=maxTextWidth+5;
end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
furax13
Messages postés90Date d'inscriptionmardi 28 octobre 2003StatutMembreDernière intervention24 avril 2008 10 janv. 2006 à 11:10
bonjour,
j'ai un tableau composé de 2 colonnes et de 10 lignes.
J'ai modifié le comportement du TStringGrid pour avoir l'affichage suivant :
- 1ere colonne : écrit en noir et largeur fixe
- 2ème colonne : écrit en bleu et en gras et largeur fixe
- 1ère colonne : si le texte est trop long, j'écris sur 2 lignes
- toutes les lignes ont une hauteur identique
J'aimerais que dynamiquement, pour les lignes dont le texte est écrit sur 2 lignes modifier la hauteur de ligne.
comment faire pour modifier la hauteur d'une ligne dynamiquement?