Discussion :

[free07]

Bonjour,

Avec Delphi 10.2 j'utilise une dbGrid et je constate que TopRow est toujours égal à 1 même lorsque l'utilisateur fait un scroll vertical et que la première ligne affichée est supérieure à 1.

Est ce qu'il y a une option ou une propriété qui empêcherait TopRow d'indiquer le numéro de la ligne qui est la première affichée ( visible ) ?

[ShaiLeTroll]

Une DBGrid ne contient pas de données, c'est une visualisation comme une TDrawGrid différent du fonctionnement du TStringGrid
TopRow est protégé et y accéder implique un hack du protected.

Il faut exploiter le curseur du DataSet et non la Grille
Row est protégé aussi, toujours via un hack on peut savoir la ligne en cours dans la grille par rapport à la ligne dans le DataSet, cela peut permettre via un WM_VSCROLL de réafficher une grille à la même position après un Refresh par exemple

tu peux à partir de Row + RecNo, trouver le RecNo du premier enregistrement visible.
Un petit calcul sur DefaultRowHeigth permet aussi en fonction du CellRect de s'y retrouver.

[free07]

Bonjour,

TopRow est protégé et y accéder implique un hack du protected.

Pourtant si j'en crois l'aide, on peut y accéder en lecture ( Vcl.Grids.TCustomGrid.TopRow )

Merci pour ta réponse mais la propriété Row et RecNo ne m'intéressent pas car je dois afficher certaines valeurs lors du passage de la souris sur les lignes du tableau, j'utilise donc pour cela le OnMouseMove du tableau.
Cela fonctionne bien jusqu'à ce que un scroll est effectué. Normal car j'arrive pas à connaitre le numéro de la première ligne affichée...

[ShaiLeTroll]

...la propriété Row et RecNo ne m'intéressent pas

Justement si !
Si tu sais quelle est la ligne active en Row du DBGrid qui correspond à un RecNo ou Bookmark d'un DataSet, tu peux donc trouver le RecNo du Row = 1* qui sera la première visible
C'est une sorte de règle de 3.
De plus, comment tu récupères tes données au mouvement de la souris ?
Est-ce les données d'un autre DataSet ?
ça serait préférable car vouloir lire les données du DataSet liée au DBGrid, tu fais un Locate\Next\Prior ce qui décale le visuel et ça partirait totalement en vrille quoi qu'avec DisableControls, tu dois pouvoir gérer cela, en lisant le code du TDBGrid, on peut d'ailleurs voir comme en interne lui-même lit un lot d'enregistrement sans déplacer le curseur dans la DataSet pour afficher par exemple les 20 premiers tout restant au début du DataSet.

Ayant donc trouver l'offset entre Row et RecNo, via CellRect tu peux trouver le Row et ainsi calculé le RecNo
Evidemment le terme RecNo est un concept, certains DataSet ne le gère pas, tu dois donc le voir comme étant une valeur de décalage à utiliser avec MoveBy pour te déplacer selon une formule MoveBy(Row@Mouse - RowOfCurrent).
RowOfCurrent devant être recalculé durant chaque AfterScroll.


1*, FixedRows est à 1 pour les titres.


Si ta grille n'est pas trop longue, genre 5000 lignes, tu peux te permettre une TListView sans trop de perte de performance liée au remplissage.
Plus, faudrait gérer manuellement une pagination et ce n'est pas si évident que ça

[free07]

Justement si !

Effectivement, je viens de voir que le RecNo - Row = Nombre de lignes en début de grille qui ne sont pas affichées. donc le résultat de cette différence me donne la première ligne affichée.

Si tu sais quelle est la ligne active en Row du DBGrid qui correspond à un RecNo ou Bookmark d'un DataSet, tu peux donc trouver le RecNo du Row = 1* qui sera la première visible
C'est une sorte de règle de 3.
De plus, comment tu récupères tes données au mouvement de la souris ?
Est-ce les données d'un autre DataSet ?

C'est le dataset de la grille en question mais je gère effectivement le Disable et EnableControls avec le BookMark pour me remettre sur la ligne en cours.

Merci pour ton aide.