TStringGrid, MakeVisible-Ersatz

[hoika]

Hallo #,

ich suche sowas wie MakeVisible für TStringGrid.
TopRow möchte ich nicht nehmen.
Ist die gewünschte Zeile aktuell sichtbar im Grid, reicht ein Grid.Row.
Ist sie nicht sichtbar, sollte halt gescrollt werden,
so dass sie als letzte Zeile sichtbar wird.

Hat das jemand schon mal gemacht ?


Danke


Heiko

[Lannes]

Hallo,

so ganz ohne TopRow wird es nicht gehen, aber Du siehst es ja nicht, ist in der Prozedur versteckt

Delphi-Quellcode:

procedure MakeVisible(SG: TStringGrid; Row: Integer);
var i, x, TargetRow: Integer;
begin
  if Row > Pred(SG.RowCount) then
    TargetRow := Pred(SG.RowCount)
    else
    if Row < 0 then
      TargetRow := 0
      else
        TargetRow := Row;
  x := SG.ClientHeight;
  i := TargetRow;
  while (i > 0) and (x < SG.RowHeights[i]) do
    begin
    dec(x, SG.RowHeights[i]);
    dec(i);
    end;
  if x > SG.RowHeights[0] then
    SG.TopRow := 0
    else
      SG.TopRow := i;
  SG.Row := TargetRow;
end;

[hoika]

Hallo,

wau, der Code sieht schick aus !!!
(und klappt sogar perfekt


Danke


Heiko