Discussion :

[Jipété]

Bonjour,

piqué une bricolette chez les voisins de Delphi, il y a juste une bête et simple boucle et déjà ça part en sucette :


Design à gauche avec les params W et H volontairement en-dessous des valeurs prévues (pour voir si ça s'adapte), Runtime à droite avec une vérif des valeurs dans la caption, qui sont ok.
Comme je ne voulais pas y passer trop de temps, j'ai commenté une ligne (trucs introuvables) et modifié deux calculs dans la proc FormCreate :

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
{delphi    DefaultRowHeight := MulDiv(DefaultSizeCell, CurrentPPI,
      USER_DEFAULT_SCREEN_DPI);
 
    DefaultColWidth := MulDiv(DefaultSizeCell, CurrentPPI,
      USER_DEFAULT_SCREEN_DPI);      }
 
//    Form1.Height := (DefaultRowHeight * RowCount) + DefaultRowHeight +
// + GetSystemMetrics(SM_CYCAPTION);
    Form1.ClientHeight := (DefaultRowHeight * RowCount) + DefaultRowHeight;
// ligne dessus peut être remplacée par 
    Form1.ClientHeight := (DefaultRowHeight * (RowCount+1));
// mais ça ne change rien, toujours rien que 9 lignes affichées, même si la place pour la dixième est présente
 
//    Form1.Width  := (DefaultColWidth * ColCount) + DefaultColWidth;
    Form1.ClientWidth  := (DefaultColWidth  * ColCount);

Quelqu'un aura une idée ? J'ai utilisé ClientWidth et Height mais sans c'est pareil, de toute façon je n'ai jamais vu de différence entre avec et sans "Client", un autre mystère, ça....
Laz 2.2.6 et FPC 3.2 dans une Debian 11.7 64bits.
Ah, pour Lazarus, pensez à rajouter LCLIntf, LCLType, dans la section uses (c'est quand qu'ils vont le mettre par défaut, cet ajout de + en + nécessaire ?)

Merci pour les retours éclairés,

[tourlourou]

Bonsoir Jean-Pierre,
Ce que tu fais est un tantinet différent : le code d'origine déduit la hauteur de cellule nécessaire pour que ça tienne dans la fiche, alors que tu essayes de modifier la hauteur de fiche pour que ta grille tienne dedans.
Il me semble que le Create n'est pas le meilleur endroit pour modifier la hauteur d'une fiche, mais je n'ai pas le temps de chercher la référence dans l'aide de Lazarus... Ou alors de ses composants, pas forcément encore créés ?
Que se passe-t-il si tu mets ton code dans un bouton ?

[Andnotor]

Et qu'est-ce que ça donne avec Align := alClient

Sinon pas lieu de faire +DefaultRowHeight.

Les différences que je constate avec Delphi est que la largeur de cellule inclus les lignes de séparation, en Delphi il faut les ajouter.
Et effectivement les fonctions ClientXXX sont dans les choux, font appel à GetClientRect qui retourne juste 0 à Width / 0 à Height (donc un pixel de trop) sans déduire les bordures.

[Jipété]

Bonsoir les copains !

Et qu'est-ce que ça donne avec Align := alClient

C'est beaucoup mieux, mais

Sinon pas lieu de faire +DefaultRowHeight.

obligatoire de le rajouter pour avoir 10 lignes,
Et j'ai un affreux scrollbar horizontal inutile !

Que se passe-t-il si tu mets ton code dans un bouton ?

C'est pire !


C'est quand même incroyable qu'un truc aussi simple que ça ne puisse pas être rendu correctement !

[Andnotor]

obligatoire de le rajouter pour avoir 10 lignes

Non, c'est juste pour (plus ou moins) compenser la taille d'une scrollbar.

Le problème que je constate est vraiment la zone cliente qui n'est pas calculée correctement ; la bordure n'est pas prise en compte et le composant se retrouve systématiquement trop petit de deux fois sa taille (2x 2 pixels), d'où les scrollbars.
En supprimant la bordure (BorderStyle := bsNone), pas de barre de défilement et un rendu correct.

[Jipété]

Bonjour,

En supprimant la bordure (BorderStyle := bsNone), pas de barre de défilement et un rendu correct.

Mais toi tu es sous Windows, c'est ça ?

Parce que moi, je cumule les emm...es, sous Linux :



Bon, ce n'ai pas très beau, c'est du test, mais tu y retrouveras exactement ce que tu as publié ici, et si rien ne s'affiche dans la fenêtre du ShowMessage, c'est parce que c'est comme ça et pas autrement, la copie d'écran est laborieuse et mal rafraichie.
Mais je peux te dire ce qu'il y avait d'écrit : "pause 157" parce qu'après, la boucle essaie d'accéder à l'adresse 158, et paf dans les dents !
Un truc de malade...

Et si je tente ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
begin
  Show;
  Application.ProcessMessages;
 
  with StringGrid1 do
  begin
    for y := 0 to RowCount - 1 do
      for x := 0 to ColCount - 1 do begin
        Cells[x, y] := TabStrSp1[y * ColCount + x];
        Form1.Caption:=IntToStr(y * ColCount + x);
        Application.ProcessMessages;
//        ShowMessage('pause '+IntToStr(y * ColCount + x));
      end;

1) je ne vois pas la fiche s'afficher ;
2) je me prends le message d'erreur sans avoir vu la Caption de la fiche...

Pour savoir où ça plante, il faut y aller en pas-à-pas et se taper 157 fois F8, une horreur...

[Andnotor]

C'est sûr que le tableau devrait contenir 160 entrées (0..159) et bizarrement ça ne plante pas chez moi.
Sinon ajouter un test de validité if y *ColCount +x > high(TabStrSpl) then Break;

[Jipété]

Bon, sous Linux, j'enlève l'AutoSize de la fiche, et je rajoute 2 lignes dans le Create :

Code :

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

1
2
3
4
5
6
...
    Width  := DefaultColWidth  * ColCount + GridLineWidth;
    Height := DefaultRowHeight * RowCount + GridLineWidth;
    Form1.Width  := Width  + BorderSpacing.Around; // new
    Form1.Height := Height + BorderSpacing.Around; // new
  end;

Et je suis passé à 160 caractères :