Redimenssionner les colonnes d'un stringgridRésolu

Question

Bonjour,

Je souhaite ajuster automatiquement les colonnes d'un StringGrid au contenu des cellules.

existerai t il une propriété ou quelqu'un aurai t il une idée de code ?

Merci d'avance pour vos réponses
guy

guy jeuniaux · Accepted Answer

kenavo

Merci pour ta réponse mais entretemps et à force de chercher j'ai trouvé la solution :
srtinggrid1.colsWidths[i]:=xx;

Encore Merci
guy

cs_Kenavo · Answer

Salut,
 
Tu peux essayer ça :


Uses
  Math;

procedure TForm1.FormActivate(Sender: TObject);
var
  i, j, Largeur, LargeurMax : integer;
begin
  for i:=0 to  StringGrid1.ColCount-1 do
    begin
      LargeurMax := 64;
      for j:=0 to  StringGrid1.RowCount-1 do
        begin
          Largeur := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[i,j]);
          LargeurMax := Max(LargeurMax, Largeur);
        end;
      StringGrid1.ColWidths[i] := LargeurMax + 6;
    end;
end;

LargeurMax := 64;
C'est pour fixer une largeur minimum

Ken@vo
____________________
Code, Code, Codec !

Redimenssionner les colonnes d'un stringgrid

2 réponses

Votre réponse

Discussions similaires