[Lazarus] crDrag cursor is now 2x bigger

Zeljko zeljko at holobit.net
Thu Sep 7 09:02:33 CEST 2017



On 09/07/2017 08:42 AM, Alexey via Lazarus wrote:
> with crNoDrop cursor. On Linux gtk2 I see cursor is 2x-3x bigger than I
> seen it before, 2-3 months ago.
>

Maybe not related but this is my yesterday post to lazdevel list:

cursorimage.inc
TCursorImage.LoadFromResourceHandle()
Line 95

IconEntry.bWidth := DirEntry^.wWidth;
IconEntry.bHeight := DirEntry^.wHeight;

IconEntry members are byte, but DirEntry members are word, so range 
error occurs.

Note that range error does not occur with fpc-3.0.2 , but it happens 
with 3.0.4rc1.

So, maybe cast can fix your problem:
IconEntry.bWidth := Byte(DirEntry^.wWidth);
IconEntry.bHeight := Byte(DirEntry^.wHeight);

zeljko


More information about the Lazarus mailing list