mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-22 10:39:31 +02:00
LCL: fixed range error with fpc >= 3.0.4
git-svn-id: trunk@55800 -
This commit is contained in:
parent
520a347095
commit
59f97ca1b5
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user