[JM-DG]

Hi!

I have had this error for a few versions. Using delphi 7. With any new project with simply a TsSkinManager on a form.

The default scale mode when I drop this control is smAuto. (See screenshot)

I get a range check error at line 1522 in the sCommonData file when I compile.

Code:

case SkinManager.Options.ScaleMode of
smVCL: Result := SkinManager.CommonSkinData(GetControlPPI(FOwnerControl));
smOldMode: Result := SkinManager.CommonSkinData(96);
smCustomPPI: Result := SkinManager.CommonSkinData(SkinManager.Options.PixelsPerInch);
else Result := SkinManager.CommonSkinData(aPPIArray[ord(SkinManager.Options.ScaleMode)]); // <== This line
end;

I simply added smAuto to the checks

smAuto: Result := SkinManager.CommonSkinData(GetControlPPI(FOwnerControl));

but I have to edit it every new version. :/

[Support]

Thank you for report, this issue will be solved in the nearest release.

[Author]

Posts