Exceptions with Range Checking

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • #38108
    Holger
    Participant

    When Range Checking is activated, Alphaskins 14.13 throws exceptions, because some value is casted to ACNativeInt instead of ACNativeUInt:

    Index: acSBUtils.pas

    ===================================================================

    — acSBUtils.pas (revision 30)

    +++ acSBUtils.pas (working copy)

    @@ -1852,7 +1852,7 @@

    UpdateLeftScroll;

    dwCurStyle := GetWindowLong(CtrlHandle, GWL_STYLE);

    – SetProp(CtrlHandle, acPropStr, ACNativeInt(sw));

    + SetProp(CtrlHandle, acPropStr, ACNativeUInt(sw));

    if dwCurStyle and WS_HSCROLL <> 0 then

    sw.sBarHorz.fScrollFlags := CSBS_VISIBLE;

    Index: sCommonData.pas

    ===================================================================

    — sCommonData.pas (revision 30)

    +++ sCommonData.pas (working copy)

    @@ -3377,7 +3377,7 @@

    else

    WndProc := nil;

    – SetProp(h, acPropStr, ACNativeInt(Self));

    + SetProp(h, acPropStr, ACNativeUInt(Self));

    end;

    end;

    #58878
    Support
    Keymaster

    Thank you for the message, changes will be added in the nearest release.

Viewing 2 posts - 1 through 2 (of 2 total)
  • You must be logged in to reply to this topic.