Scrollbar für große Textdateien

[tomkupitz]

Hallo,

das scheint für große Textdateien (Linienanzahl>High(Integer)) nicht zu funktionieren:

Delphi-Quellcode:

 ScrollInfo.cbSize:=SizeOf(ScrollInfo);
  ScrollInfo.fMask:=SIF_ALL;
  ScrollInfo.nMin:=0;
  ScrollInfo.nTrackPos:=0;

  if FItemCount<=High(SmallInt) then
  begin
    ScrollInfo.nMax:=FLinesCount-1;
    ScrollInfo.nPage:=FShowLines;
    ScrollInfo.nPos:=FTopLine;
  end
  else
  begin
    ScrollInfo.nMax:=High(SmallInt);
    ScrollInfo.nPage:=MulDiv(High(SmallInt), FShowLines, FLinesCount);
    ScrollInfo.nPos:=MulDiv(High(SmallInt), FTopLine, FLinesCount);
  end;

Wie kann man das anpassen?

Danke und beste Grüße