paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 03:49:41 +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

4
lcl/include/cursorimage.inc
View File

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