paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 19:19:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

lclextensions package: fixed range check error.

Browse Source
This commit is contained in:
zeljan1 2025-01-23 18:58:54 +01:00
parent 80b7b1fa95
commit b38335ac9a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lclextensions/include/generic/independentfunctions.inc
View File

@ -18,7 +18,7 @@ begin
PPoint(@lpPoints)[i].x := XOffset + PPoint(@lpPoints)[i].x;
PPoint(@lpPoints)[i].y := YOffset + PPoint(@lpPoints)[i].y;
end;
Result := MakeLong(XOffset, YOffset);
Result := Integer(MakeLong(Word(XOffset), Word(YOffset)));
end;
{$ifndef HAS_GETDOUBLECLICKTIME}