Discussion :

[pepi22]

Bonsoir,

J'ai un problème avec une fonction de redimensionnement de colonne.

J'ai fait une petite fonction pour faire le travail (qui fonctionne très bien d'ailleurs) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
procedure AutoSizeCol(Col: integer);
var
  Width : integer;
  Max   : integer;
  i     : integer;
begin
  Max := 0;
 
  for i := 0 to fStringGrid.RowCount - 1 do
   begin
     Width := fStringGrid.Canvas.TextWidth(fStringGrid.Cells[Col,i]);
 
     if Width > Max then
      begin
        Max := Width;
      end;
   end;
 
  fStringGrid.ColWidths[Col] := Max + 15;
end;

Donc cette procedure redimensionne automatiquement la colonne passé en paramètre ...

Le problème est que lors de l'appelle de celle-ci au FormShow ou FormCreate et lors d'un appel à l'aide d'un bouton, les valeurs sont différentes.

Par exemple : OnShow : Max + 15 = 106; OnButton1Click : Max + 15 = 116;

Comment est-ce possible?

[LeGEC]

Salut,

Plein de raisons :
FormShow ou FormCreate sont des évènements appelés avant le premier OnDrawCell/OnSelectCell de ta grille, or ces autres évènements peuvent modifier le contenu de la grille, ou le style de la police (et du coup le textwidth), alors que ton OnButtonClick sera appelé après.

Regarde plus en détail dans quel ordre tu initialises le contenu de ta StringGrid.

[pepi22]

J'ai cité FormCreate comme exemple mais j'avoue que ce n'était pas réfléchis ...

Pour le FormShow, je ne touche pas au StringGrid par la suite donc, il ne devrait pas y avoir de problème. (Du moins, pas par ma faute).

Sinon, comment pourrais-je contourner le problème? (De façon propre)

Merci de votre réponse.

[Andnotor]

Ta procedure AutoSizeCol doit être appelée depuis l'événement OnResize de la fiche.

[pepi22]

Pour ce qui est de l'évènement OnResize, après test, aucun changement.
J'ai encore une largeur différente une fois la fenêtre affiché vs le button.
De plus, l'évènement OnResize se déclenche 4 fois à la création de la fiche...

Si vous avez d'autres idées, je suis preneur.

Merci à vous Andnotor et LeGEC

[LeGEC]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
     Width := fStringGrid.Canvas.TextWidth(fStringGrid.Cells[Col,i]);

Cette ligne de code te renvoie la taille du texte avec la configuration en cours du Canvas. En particulier, si Delphi exécute ce code avant d'affecter la propriété Font de ton fStringGrid, la taille ne sera pas la même.

Si tu as des lignes qui ont des styles différents - par exemple une ligne de titre en [fsBold] et les autres lignes en [] - les valeurs du Canvas au moment où tu appelles ta fonction AutoWidth ne s'adapteront pas aux différents styles.

Tu as vérifié, en mettant un point d'arrêt ici, si le fStringGrid et le fStringGrid.Canvas avaient bien les propriétés que tu voulais au moment où tu calcules ta largeur?

A priori, le contenu du dfm (donc en particulier la valeur fStringGrid.Font) est assigné avant l'appel à ton FormShow. Par contre, je ne sais pas comment est établi le lien entre "fStringGrid.Font" et "fStringGrid.Canvas.Font" ...

Je te suggèrerais d'utiliser un Canvas local pour être sûr qu'il corresponde à ce que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  lCanvas := TCanvas.Create;
  lCanvas.Font := laFontQueJeVeuxUtiliser; //y compris Taille, Style...
 
  Max := 0;
 
  for i := 0 to fStringGrid.RowCount - 1 do
  begin
    lCanvas.Font.Style := modifDeStylePropreACetteLigne;
    Width := lCanvas.TextWidth(fStringGrid.Cells[Col,i]);
 
    if Width > Max then
     begin
       Max := Width;
     end;
  end;
 
  lCanvas.Destroy;

[pepi22]

Merci pour cette très brillante idée ...

Je test aussitôt arrivé chez moi

[pepi22]

Finalement tout fonctionne ...

La différence venait du TFont de fStringGrid ...

Donc j'ai seulement ajouté les deux lignes suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
fStringGrid.Canvas.Font.Name='NomDeLaFont';
fStringGrid.Canvas.Font.Size=9;

Merci LeGEC pour vos précieux conseils

[LeGEC]

De rien