AV in TppCustomReport.SetColumns with RB 5.56

rbuser

Hello,

I am using RB 5.56 with Delphi 5 E and I am getting an AV in the
report designer when I use the label wizard.

Steps to create the AV.

Create a new form
drop a TppReport component on the form
double click on the TppReport component to invoke the designer
Select "New..." from the File menu
Select "Label Templates" and press the OK button
Select a 2 column label format. I used "5066 - File Folder" from the
"Avery Standard" list, but any multiple column layout should work
Press the OK button to select the label format and return back to the
report designer.
Select "New..." from the File menu
Select "Label Templates" and press the OK button
Select a 1 column label format. I used "2160 - Mini - AddressFolder"
from the "Avery Standard" list, but any single column layout should
work
Press the OK button to select the label format and return back to the
report designer.

At this point at I get an access violation. At design time, it
complains about rbrcl55.bpl. At runtime, it ends up in the
TppCustomReport.SetColumns method in ppclass. It is checking
lColumnHeader.ObjectCount and at this point in the code, lColumnHeader
is nil.

In TppLabelTemplateWizard.WizardToReport, the code is freeing all of
the bands. It then calls TppLabelSet.AssignLabelDefToReport, which in
turn, triggers the call to SetColumns.

If you change line 3478 in the TppCustomReport.SetColumns im
ppClass.pas from
if (liOldColumns > 1) then
to
if (liOldColumns > 1) and Assigned(lColumnHeader) then
that should fix the problem

Chris Miller
VersaTrans Solutions Inc

nardmoseley

Thanks for reporting this issue. I was able to duplicate this issue
based upon your direction. Thisis fixed for the next mainteance release.

rbuser

Thanks for the prompt response. Will the next maintenance release be
for RB 6 or will it be 5.57?

On Fri, 27 Jul 2001 18:47:06 -0500, "Nard Moseley (Digital Metaphors)"

digitalmetaphors

Most likely our next maintenance release will be RB 6.01 for Delphi 4,5 and
6. It's a free upgrade from RB 5.x


Cheers,

Jim Bennett
Digital Metaphors