Problème avec ScrollBar d'une StringGrid

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. :mrgreen:
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. :D

J'ai fait le test en XE10 sous VCL
Composant

Code:

---

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:

---

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

Ajoute goThumbTracking aux options.

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.:ptdr:
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+:D

Binjour Andnotor,

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

Pièce jointe 410547

Mais cela ne change rien.:mrgreen:

Merci quand même. A+. :D

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

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

R-bonjour AndnotOr,

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

"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+. :D

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)

Citation:

---

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.:ptdr:
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+:D

---

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

Bonjour SergioMaster,

Citation:

---

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+.:D

Bonjour ALWEBER,

Citation:

---

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+.:D

Bonjour Gilbert,

ton soucis vient de la ligne 80 Height := RowCount * (DefaultRowHeight + GriDLineWidth);si tu la mets en commentaire ça fonctionne ;)

Cordialement,

@+

Bonjour Cirec,

Citation:

---

ton soucis vient de la ligne 80 Height := RowCount * (DefaultRowHeight + GriDLineWidth);si tu la mets en commentaire ça fonctionne

---

Merci mille fois Cirec :roi: J'avais cherché partout et je ne m'attendais pas à ce que une telle ligne pouvait empêcher le schmillblick de fonctionner ! :ptdr:

A+.:D