Saber qual a primeira e a ultima linha visivel do grid

[andersonscinfo]

Ola pessoal, sabem dizer se é possivel saber qual a primeira e a ultima linha visivel no grid?

Att.

[andersonscinfo]

Segue uma forma de conseguir oque eu precisava:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   I: Integer;
4. begin
5.   for I := 0 to Pred(StringGrid1.RowCount) do
6.   begin
7.     if StringGrid1.IsCellVisible(StringGrid1.FixedCols, I) then
8.     begin
9.       Break;
10.     end;
11.   end;
12.   Label1.Caption:='Primeira visivel: '+IntToStr(I);
13.   Label2.Caption:='Ultima visivel:   '+IntToStr(StringGrid1.VisibleRowCount+I);
14. end;
15.  

Att