Range Check Error in 7.03

rbuser

Hi

I know 7.03 is a bit old now - but we have too much going on at the moment
to look at upgrades.

However any help or ideas would be very much appreciated. I have a very
strange problem.

I have just moved to a new computer and rebuilt my Delphi6 environment.
The differences that I can think of are
New Old
WIN2KSP4 WIN2KSP3
RB7.03 RB7.02

When printing a report that contains a certain ppImage it works fine on the
old machine but crashes on the new.
In all cases the preview is fine - the error only occurs when printing to
the printer.

The report crashes with a 'Range Check Error' in ppUtils, line 3206,
procedure ppGetDIBitmapInfo(aHBitmap: HBITMAP; var aBitmapInfoHeader:
TBitmapInfoHeader);
the line is
aBitmapInfoHeader.biBitCount := lBitmapDescription.bmBitsPixel *
lBitmapDescription.bmPlanes;

bmPlanes seems to have a very high value (62920) and bmBitsPixel is 160.

there are other images on the report that work fine. The image in question
is 1-bit black and white bmp about 300 pixels square, stretched into a
ppImage about 1/4" square.

Any ideas?

Regards
Paul

nicocizik

Hi Paul,

This routine was enhanced for RB 7.04 and I believe the problem was fixed.
If you cannot upgrade to RB 7.04, you may try installing RB 7.02 on your new
machine and seeing if that helps.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com