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