Wie viele Rows sind im TStringGrid gescrollt?

**Nersgatt**

Hallo,

ich versuche herrauszufinden, wie viele Rows in einem TStringGrid NICHT sichtbar sind, weil das Grid gescrollt ist. Also, wenn ich einen Schritt nach unten scrolle, ist eine Reihe nicht sichtbar, scrolle ich noch einen Schritt sind 2 Reihen nicht sichtbar, usw.

Hier mein Ansatz:

zusammenfalten · markieren

Delphi-Quellcode:

			    
var 

  si : TScrollInfo;

  yOffset : integer;

begin

  {Offset berechnen, falls das Grid gescrollt ist}

  si.cbSize := sizeof(si);

  si.fMask := SIF_ALL;

  If GetScrollInfo(grd.Handle,SB_VERT,si) Then

  begin

    yOffset := Trunc((si.nPos / si.nMax) * (grd.RowCount - grd.FixedRows));

  end

  else

    yOffset := 0;

end;

Für die ersten beiden Schrollschritte stimmt mein Ergebnis noch. Ich bekomme 1 oder 2 raus. Beim 3. Schritt kommt aber schon 4 raus, obwohl nur 3 Rows weggescrollt sind.
Durch (si.nPos / si.nMax) bekomme ich raus, um wie viel Prozent das Grid gescrollt ist. Das multipliziert mit der Gesamtanzahl Rows in dem Grid müsste doch die Anzahl der weggescrollten Rows geben, oder??

Wo ist mein Denkfehler?

Danke!
Jens

Wie viele Rows sind im TStringGrid gescrollt?

Wie viele Rows sind im TStringGrid gescrollt?

Forumregeln