Problème avec ScrollBar d'une StringGrid

**Gilbert Geyer** · 10/09/2018, 15h46

Bonjour,

J'ai une fiche qui contient une StringGrid qui à son tour contient 220 lignes dont seules 20 sont visibles.
Sa propriété ScrollBars en ssVertical ... mais quand j'essaye de scroller aucune ligne ne se déplace verticalement.

C'est probablement dû au fait que c'est la première fois que j'utilise une StringGrid : lol
Quelqu'un voudrait-il ou elle me sortir de cet embarras.

Par avance : Merci.

**ALWEBER** · 10/09/2018, 16h32

J'ai fait le test en XE10 sous VCL
Composant

Code :

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

1
2
3
4
5
6
7
8
9
10
 
object StringGrid1: TStringGrid
  Left = 128
  Top = 128
  Width = 409
  Height = 185
  RowCount = 200
  ScrollBars = ssVertical
  TabOrder = 0
end

avec le code suivant

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.FormActivate(Sender: TObject);
var
  i1 : integer ;
begin
  for i1 := 1 to 200 do
    StringGrid1.Cells[1,i1] := i1.ToString ;
end;

Le recalcul de la position se fait au mouseup sur le scrollbar
A noter des anomalies sous FMX lorsque le stringGrid est placé sur sur un objet 3D

Je suis sous Delphi XE10 2

**Andnotor** · 10/09/2018, 16h39

Ajoute goThumbTracking aux options.

**Gilbert Geyer** · 10/09/2018, 16h53

Re-bonjour,

Merci ALWEBER, mais :
- votre 1er code se trouve chez moi remplacé par la déclaration des propriétés du StringGrid dans l'inspecteur d'objets,
- et votre 2ième code consiste à remplir les cases de la colonne 1 avec une numérotation et ça ne me pose aucun problème.
Par contre comme vous dites "Le recalcul de la position se fait au mouseup sur le scrollbar" et ça je le découvre sans savoir calculer cette position.

En plus dans je n'ai pas trouvé l'évènement onMouseUp du Scrollbar vu qu'il s'agit d'une simple propriété de ma StringGrid.
Mais merci quand même.

A+

**Gilbert Geyer** · 10/09/2018, 17h09

Binjour Andnotor,

"Ajoute goThumbTracking aux options". C'était fait :

Nom : cop-SG.jpg
Affichages : 529
Taille : 38,7 Ko

Mais cela ne change rien.

Merci quand même. A+.

**Andnotor** · 10/09/2018, 17h25

Un p'tit essai et... il n'y a que cette option à activer

Un dessin personnalisé avec l'utilisation d'un mauvais indice de ligne peut-être ?

**Gilbert Geyer** · 10/09/2018, 21h23

R-bonjour AndnotOr,

"Un p'tit essai et... il n'y a que cette option à activer" : OK c'est fait, mais rien ne bouge.

"Un dessin personnalisé avec l'utilisation d'un mauvais indice de ligne peut-être ?" : Il n'y a aucun dessin j'utilise le StringGrid dans son état standard à l'état brut sans fioritures.

A+.

**SergioMaster** · 11/09/2018, 09h04

Bonjour,

j'ai un problème avec cette discussion à savoir de quelle version de Delphi il s'agit et aussi de quel framework ? (je penche vers VCL)
De tout les stringgrids que j'ai pu créer depuis Delphi 3 aucun ne m'a jamais poser ce genre de soucis (même, depuis peu, ceux avec livebindings)

Si on pouvait avoir ces renseignements (et même un simple zip joint qui présente ce problème)

**ALWEBER** · 11/09/2018, 09h19

Envoyé par Gilbert Geyer

Re-bonjour,
Merci ALWEBER, mais :
- votre 1er code se trouve chez moi remplacé par la déclaration des propriétés du StringGrid dans l'inspecteur d'objets,
- et votre 2ième code consiste à remplir les cases de la colonne 1 avec une numérotation et ça ne me pose aucun problème.
Par contre comme vous dites "Le recalcul de la position se fait au mouseup sur le scrollbar" et ça je le découvre sans savoir calculer cette position.

En plus dans je n'ai pas trouvé l'évènement onMouseUp du Scrollbar vu qu'il s'agit d'une simple propriété de ma StringGrid.
Mais merci quand même.
A+

Mon objectif en répondant à ce post était d'isoler le problème par un petit programme exemple
Si tu reproduit l'exemple que je t'ai proposé sur un nouveau programme VCL et que tu ajoutes goThumbTracking à true (remarque efficace de Andnotor) tout semble fonctionner parfaitement.
Donc peut être que ton problème est ailleurs.
Je rappelle que je suis en Tokyo 10.2

**Gilbert Geyer** · 11/09/2018, 11h30

Bonjour SergioMaster,

j'ai un problème avec cette discussion à savoir de quelle version de Delphi il s'agit et aussi de quel framework ? (je penche vers VCL)
De tout les stringgrids que j'ai pu créer depuis Delphi 3 aucun ne m'a jamais poser ce genre de soucis (même, depuis peu, ceux avec livebindings)

Si on pouvait avoir ces renseignements (et même un simple zip joint qui présente ce problème)

J'utilise Delphi 7 (version standard téléchargée ici) sous Windows 7 Edition Familiale Premium.
Pour le reste (framework ?) je vous joins simplement un zip qui contient uniquement la partie du code qui au lancement charge le fichier _Coll_Ingredients.dat de 221 + 1 lignes dans la StringGrid.
J'espère que ma réponse vous conviendra.

A+.

**Gilbert Geyer** · 11/09/2018, 11h41

Bonjour ALWEBER,

Mon objectif en répondant à ce post était d'isoler le problème par un petit programme exemple
Si tu reproduit l'exemple que je t'ai proposé sur un nouveau programme VCL et que tu ajoutes goThumbTracking à true (remarque efficace de Andnotor) tout semble fonctionner parfaitement.
Donc peut être que ton problème est ailleurs.
Je rappelle que je suis en Tokyo 10.2

OK, mais je n'utilise pas Tokyo ... mon problème vient certainement d'ailleurs car l'option goThumbTracking de ma StringGrid SG1 est à true.(voir le zip joint à mon message de 11h30 en réponse à SergioMaster)

A+.