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

LCL: fixed range error with fpc >= 3.0.4

Browse Source 
git-svn-id: trunk@55800 -
This commit is contained in:
zeljko 2017-09-08 12:49:39 +00:00
parent 520a347095
commit 59f97ca1b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/cursorimage.inc
View File

@ -92,8 +92,8 @@ begin
// hot spots are stored in the local header of cursor // hot spots are stored in the local header of cursor
CursorStream.Read(LocalHeader, SizeOf(LocalHeader)); CursorStream.Read(LocalHeader, SizeOf(LocalHeader));
IconEntry.bWidth := DirEntry^.wWidth; IconEntry.bWidth := Byte(DirEntry^.wWidth);
IconEntry.bHeight := DirEntry^.wHeight div 2; // in cursor resource the height is doubled IconEntry.bHeight := Byte(DirEntry^.wHeight) div 2; // in cursor resource the height is doubled
IconEntry.bColorCount := 0; IconEntry.bColorCount := 0;
IconEntry.bReserved := 0; IconEntry.bReserved := 0;
IconEntry.wXHotSpot := LocalHeader.xHotSpot; IconEntry.wXHotSpot := LocalHeader.xHotSpot;