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