StringGrid
ataeallah
Messages postés
37
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
17 juin 2010
-
21 mai 2004 à 11:00
Loulibier Messages postés 309 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 24 septembre 2008 - 21 mai 2004 à 22:41
Loulibier Messages postés 309 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 24 septembre 2008 - 21 mai 2004 à 22:41
A voir également:
- StringGrid
- Stringgrid delphi ✓ - Forum Delphi / Pascal
- Delphi stringgrid selected row - Forum Delphi / Pascal
- Stringgrid lazarus ✓ - Forum Delphi / Pascal
- Selection stringgrid ✓ - Forum Delphi / Pascal
- Comment colorier une ligne de StringGrid quand la veluer d'une de ses cellules d ✓ - Forum Delphi / Pascal
1 réponse
Loulibier
Messages postés
309
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
24 septembre 2008
2
21 mai 2004 à 22:41
21 mai 2004 à 22:41
salut Abda,
voici un petit bout de reponse à ta question :
procedure TForm1.StringGridDblClick(Sender: TObject);
var
iRow : integer;
iCol : integer;
iWidth : integer;
begin
for iCol := 0 to StringGrid.ColCount - 1 do
begin
iWidth := 0;
for iRow := 0 to StringGrid.RowCount - 1 do
begin
if StringGrid.Canvas.TextWidth(StringGrid.Cells[iCol,iRow]) > iWidth then
iWidth := StringGrid.Canvas.TextWidth(StringGrid.Cells[iCol,iRow]);
end;
StringGrid.ColWidths[iCol] := iWidth + 5;
end;
end;
reste plus qu'a ameliorer le code faire exactement ce que tu veux !
loulibier
voici un petit bout de reponse à ta question :
procedure TForm1.StringGridDblClick(Sender: TObject);
var
iRow : integer;
iCol : integer;
iWidth : integer;
begin
for iCol := 0 to StringGrid.ColCount - 1 do
begin
iWidth := 0;
for iRow := 0 to StringGrid.RowCount - 1 do
begin
if StringGrid.Canvas.TextWidth(StringGrid.Cells[iCol,iRow]) > iWidth then
iWidth := StringGrid.Canvas.TextWidth(StringGrid.Cells[iCol,iRow]);
end;
StringGrid.ColWidths[iCol] := iWidth + 5;
end;
end;
reste plus qu'a ameliorer le code faire exactement ce que tu veux !
loulibier
