BeRo1985/pasvulkan
1
0
Fork 0
Code Issues 10 Pull requests 1 Projects Releases Packages Wiki Activity Actions

More work

Browse source
This commit is contained in:
Benjamin Rosseaux 2026-07-10 16:58:53 +02:00
commit 95a6836a65
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
projects/markdownviewertest/src/UnitScreenMarkdown.pas
View file

@ -592,7 +592,7 @@ begin
end;
// clamp the scroll offset to the actual content height
MaxScrollY:=Max(0.0,(fContentHeight+(Margin*2.0))-fVulkanCanvas.Height);
MaxScrollY:=Math.Max(0.0,(fContentHeight+(Margin*2.0))-fVulkanCanvas.Height);
if fKeyUp<>fKeyDown then begin
fScrollY:=fScrollY+((aDeltaTime*128.0)*(((ord(fKeyDown) and 1)*2)-1));
end else if fKeyPageUp<>fKeyPageDown then begin