Save on exit of designer..

rbuser

Hi Team,

In my End User App, when I exit the Designer to Explorer from some of my reports, 3 of 6, I ALWAYS get the Confirm
dialog asking me if I wat to save changes to the report. Even though no changes have been made. Yet on the other 3
reports, no issue/question.

Any thoughts/suggestions?

Regards & TIA,
Ian

nardmoseley

Hi Ian,

Try loading and re-saving each of the reports. Then load them again and test
whether the Designer displays the confirm dialog.

The Version is saved as a hidden report property. It might be the reports
were created with an older version. For example, if you create a report with
17.02 and then load it using 17.03, the confirm dialog will be displayed.



Best regards,

-
Nard Moseley
Digital Metaphors
www.digital-metaphors.com

rbuser

Hi Nard,

Thank you for the reply.

Tried two routes..
1. Save back to Explorer under a different name. - No good, same issue.
2. Save to a file, ceate a new report, load the file and save into Explorer - Same problem.

It doesn't affect the actual use of the reports, just an annoyance when saving.

Regards,
Ian

nardmoseley

Hi Ian,

Try adding RBuilder\Source o to the Delphi library path and build the
project with debugging turned on.

Open ppClass.pas, find the method TppCustomReport.SetModified and place a
break point on the line

FModified := Value;

Run the project, when the debugger stops, check whether Value is True and if
so, review the call stack. Perhaps that will provide a clue.



Best regards,

-
Nard Moseley
Digital Metaphors
www.digital-metaphors.com

rbuser

Hi Nard,
Is False going into the report opening.
Doing nothing and exit the designer..
Is True when exiting..
Call Stack says..
ppClass.TppCustomReport.SetModified(True)
ppDesignLayoutManager.TppDesignLayoutManager.ehComponent_AfterPropertyChange($8AC39A0,nil)
ppMulticast.TppMulticastEvent.Notify($8AC39A0,nil)
ppComm.TppCommunicator.AfterPropertyChange
ppPrnabl.TppPrintable.PropertyChange
ppPrnabl.TppPrintable.BoundsChange
ppCtrls.TppCustomText.BoundsChange
ppPrnabl.TppPrintable.mmSetBounds(4233,29633,44186,4763)
ppClass.TppComponent.mmSetBounds(4233,29633,44186,4763)
ppCtrls.TppCustomText.CalcStandardBounds
ppCtrls.TppCustomText.AdjustBounds
ppPrnabl.TppPrintable.FontChanged($89A2D30)
ppCtrls.TppCustomText.FontChanged($89A2D30)
:005e4d3a TGraphicsObject.Changed + $12
:004f0c62 TWriter.WriteComponent + $EA
ppClass.TppBand.GetChildren((System.Classes.TWriter.WriteComponent,$8A8CC60),$68FD580)
:004f0faf TWriter.WriteData + $2E3
:004fb1d2 TComponent.WriteState + $6
ppClass.TppCustomReport.GetChildren((System.Classes.TWriter.WriteComponent,$8A8CC60),$68FD580)
ppReport.TppReport.GetChildren((System.Classes.TWriter.WriteComponent,$8A8CC60),$68FD580)
:004f0faf TWriter.WriteData + $2E3
:004fb1d2 TComponent.WriteState + $6
ppTmplat.TppTemplate.WriteToStream($8A14840)
ppTmplat.TppTemplate.SaveToSource(stDatabase)

Regards,
Ian

rbuser

Found it!

I had a Company logo in the report. It was a .jpg. I noticed in the 'good' reports I had a different logo and they
were .bmp.

Converted the first logo to .bmp, replaced it into the problematic reports & all good now.

Don't know if this is expected behaviour for .jpg files but there you have it.

All fixed now.

Regards & Tks,
Ian

nardmoseley

Hi Ian,

Please create a simple .rtm I can load using the end-user demo. Email in
zip format to support@ and I'll check it out.


Best regards,

-
Nard Moseley
Digital Metaphors
www.digital-metaphors.com

rbuser

HI Nard,
Sorry, been away for a while.
Sample sent as requested. eMail titled 'Ian's sample rtm file.'
Regards,
Ian