StringGrid.RowCount = 10 mais n'en affiche que 9

Version imprimable

1 pièce(s) jointe(s)

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 :

Pièce jointe 644810
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:

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,

03/10/2023, 18h56
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 ?
03/10/2023, 19h14
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.
03/10/2023, 23h14
Jipété

1 pièce(s) jointe(s)

Bonsoir les copains !

Citation:

Envoyé par Andnotor

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

C'est beaucoup mieux, mais

Citation:

Envoyé par Andnotor

Sinon pas lieu de faire +DefaultRowHeight.

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

Citation:

Envoyé par tourlourou

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

C'est pire !
Pièce jointe 644821

C'est quand même incroyable qu'un truc aussi simple que ça ne puisse pas être rendu correctement ! :cry: :furax:
04/10/2023, 08h49
Andnotor

1 pièce(s) jointe(s)

Citation:

Envoyé par Jipété

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.

Pièce jointe 644831

1 pièce(s) jointe(s)

Bonjour,

Citation:

Envoyé par Andnotor

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 :

Pièce jointe 644837

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:

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...

04/10/2023, 10h38
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;
04/10/2023, 11h13
Jipété

2 pièce(s) jointe(s)
Citation:

Envoyé par Andnotor

C'est sûr que le tableau devrait contenir 160 entrées (0..159) ...

Ça, ce n'est pas le plus important.
EDIT : j'en profite et passe à 160, je vais utiliser les deux dernières cases pour deux ligatures dont une m'a posé un problème esthétique récemment :
Pièce jointe 644844
Les valeurs à rajouter : , 'Æ', 'Œ' tout à la fin de l'array.
/EDIT

Citation:

Envoyé par Andnotor

Sinon ajouter un test de validité if y *ColCount +x > high(TabStrSpl) then Break;

Et ça, ça change la vie ! J'en avais tenté d'autres sans plus de résultats.
Bien vu et merci !

Cependant, il me reste le mystère insondable du nombre de lignes affichées... F9 :
Pièce jointe 644843

et en tirant le bas de la fiche, je vois la 10^e ligne.

Le gag c'est que même en rajoutant +1 à Self.ClientHeight:= DefaultRowHeight * RowCount; et/ou à Self.Height:= DefaultRowHeight * RowCount; ça ne change rien !

En fait, pour avoir tout d'affiché, il me faut faire ça :
Code:

1 2 3 4 5 Self.ClientWidth := (DefaultColWidth * ColCount); Self.Height:= (DefaultRowHeight * RowCount) + DefaultRowHeight; end; end;
ou
Code:

1 2 3 4 Self.ClientWidth := (DefaultColWidth * ColCount); Self.ClientHeight:= (DefaultRowHeight * RowCount) + DefaultRowHeight; end; end;
ce qui pour moi n'a pas de sens.

Bon, j'ai encore la scrollbar horizontale, mais ce n'est pas bien grave (sauf que ça démontre une autre embrouille dans le code de la StringGrid, mais on ne va pas passer l'hiver là-dessus, parce qu'on peut ajouter n'importe quelle valeur après Self.ClientWidth := (DefaultColWidth * ColCount), ça agrandit la zone client mais la scrollbar reste là et s'agrandit avec.

Bon, allez, je vais cliquer sur :resolu:, je vais remercier Andnotor the cador et faire un coucou amical à Yves, et à bientôt pour de nouvelles aventures, :coucou:
04/10/2023, 11h42
Jon Shannow

Bonjour,

Je vais surement dire une connerie, mais si tu mets la propriété "ScrollBars" à ssNone, normalement tu n'as plus d'ascenseurs ? Si ?

JS

2 pièce(s) jointe(s)

Concernant la taille de la fenêtre, j'opterais pour une autre approche : assigner une valeur à la propriété BorderSpacing.Around de la grille (8 par exemple) et mettre la propriété AutoSize de la fiche à TRUE (de préférence dans le code).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure TForm1.FormCreate(Sender: TObject); const DefaultSizeCell = 24; begin with StringGrid1 do begin ColCount := 16; RowCount := 10; DefaultRowHeight := DefaultSizeCell; DefaultColWidth := DefaultSizeCell; Width := DefaultColWidth * ColCount + GridLineWidth; Height := DefaultRowHeight * RowCount + GridLineWidth; end; GetCharTab; AutoSize := TRUE; Caption := 'Caractères spéciaux'; end;
Pièce jointe 644846

04/10/2023, 12h05
Roland Chastain

Citation:

Envoyé par Jon Shannow

si tu mets la propriété "ScrollBars" à ssNone, normalement tu n'as plus d'ascenseurs ?

Normalement, mais en fait ça ne fonctionne pas toujours : ça dépend de l'ordre dans lequel on fait les choses.
04/10/2023, 12h24
Jipété

2 pièce(s) jointe(s)

Citation:

Envoyé par Jon Shannow

Je vais surement dire une connerie, mais si tu mets la propriété "ScrollBars" à ssNone, normalement tu n'as plus d'ascenseurs ? Si ?

Exact :
Pièce jointe 644852

Mais c'est dommage d'utiliser cette propriété "définitive" alors que j'utilisais une ssAutoBoth -- bon, le Auto c'est pas vraiment ça, quoi.
Àmha, il y a tromperie sur la marchandise...

Citation:

Envoyé par Roland Chastain

Concernant la taille de la fenêtre, j'opterais pour une autre approche : assigner une valeur à la propriété BorderSpacing.Around de la grille (8 par exemple) et mettre la propriété AutoSize de la fiche à TRUE (de préférence dans le code).

Code:

...

J'ai fait tout bien comme tu as dit, j'ai pris ton FormCreate et voilà le résultat :
Pièce jointe 644851
:koi:
PS : si j'agrandis manuellement la fenêtre après F9, les 160 (16x10) cases sont là EDIT ~~mais vides~~ une ligne avait sauté /EDIT. Par contre, la caption de la fiche écrit bien Caractères spéciaux.

Citation:

Envoyé par Roland Chastain

Normalement, mais en fait ça ne fonctionne pas toujours : ça dépend de l'ordre dans lequel on fait les choses.

Si ça continue, je balance tout par la fenêtre et j'achète un food-truck, vous viendrez manger des frites à midi, :mouarf:
04/10/2023, 13h06
Jon Shannow

Citation:

Envoyé par Roland Chastain

Normalement, mais en fait ça ne fonctionne pas toujours : ça dépend de l'ordre dans lequel on fait les choses.

Ha ! Je ne savais pas. Je n'utilise pas cette fonctionnalité, je laisse en ssAutoBoth. Mais je n'aurais pas imaginer que l'ordre dans lequel on procède ait une importance sur l'effet d'une telle propriété. :weird:

JS

1 pièce(s) jointe(s)

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

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 :
Pièce jointe 644856