Recent

Author Topic: Saber qual a primeira e a ultima linha visivel do grid  (Read 505 times)

andersonscinfo

  • Full Member
  • ***
  • Posts: 112
Saber qual a primeira e a ultima linha visivel do grid
« on: April 23, 2020, 07:15:12 pm »
Ola pessoal, sabem dizer se é possivel saber qual a primeira e a ultima linha visivel no grid?

Att.

andersonscinfo

  • Full Member
  • ***
  • Posts: 112
Re: Saber qual a primeira e a ultima linha visivel do grid
« Reply #1 on: April 25, 2020, 04:41:17 pm »
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

 

TinyPortal © 2005-2018