ScrollBar proportional zu StringGrid?

[cosypanther]

Danke! Manchmal sieht man den Wald vor lauter Bäumen nicht.

So sieht die Lösung aus:

Zitat:

Problem/Question/Abstract:

How to make the scrollbar of a TStringGrid show a proportional thumb

Answer:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  info: TScrollInfo;
begin
  fillchar(info, sizeof(info), 0);
  with info do
  begin
    cbsize := sizeof(info);
    fmask := SIF_ALL;
    GetScrollInfo(stringgrid1.handle, SB_VERT, info);
    fmask := fmask or SIF_PAGE;
    nPage := 5 * (nmax - nmin) div stringgrid1.rowcount;
    {whatever number of cells you consider a "page"}
  end;
  setscrollinfo(stringgrid1.handle, SB_VERT, info, True);
end;

Quelle: http://delphicikk.atw.hu/listaz.php?id=360&oldal=43

Funktioniert wunderbar!

Liebe Grüße!
cosypanther