Delphi XE + RB 12.03 + TppDesigner in a DataModule

rbuser

Hi, I have a datamodule containing some TppDBPipeline (with ClientDatasets),
a TppReport ad a TppDesigner, this is used for print all the report needed
in the application. With the Designer I can also give to the user the modify
feature for the reports.

I migrate the project from D2010 (no modification needed...) to DXE, all
work perfect until I open a report in the designer, I can modify without any
problem any report and save it... but when i close the program i have an
exception, an "ETreeViewError - List index out of bounds (199)"...

This happens only on DXE not with the D2010, and only if I open the
designer; if I use the reportbuilder to print reports I haven't.

The applicazion is an MDI Application, but the datamodule, containing all
the RBuilder components was created in auto.

I have another application, where the designer is in a MDI form and I
haven't any problem..

Someone have any ideas? I checked for destruction of my object but are all
destroyed in the right time... I cannot debug the error becouse is out of my
code.

Many thanks in advance,

Cristiano.

rbuser

I have some additional information, i added the source directory of
reportbuilder to see where is the error in the code, and I found something,
is the line 1334 of the ppTreeVw who generate the error:

for liIndex := lComponentNode.Count-1 downto 0 do
begin
lChildNode := lComponentNode.Item[liIndex]; <<<<< --- this
line...

if (TObject(lChildNode.Data) is TComponent) then
TreeView.RemoveComponent(TComponent(lChildNode.Data));
end;

If I continue, I have an access violation, at address 00000, at line 2406 of
ppTBX

VT := GetWinViewType(TppTBXToolbar(Owner));
if (VT and VT_TOOLBAR) = VT_TOOLBAR then
begin
if AOrientation = tbvoFloating then VT := VT or TVT_FLOATING
else VT := VT and not TVT_FLOATING
end
else if (VT and VT_DOCKPANEL) = VT_DOCKPANEL then
begin
if AOrientation = tbvoFloating then VT := VT or DPVT_FLOATING
else VT := VT and not DPVT_FLOATING
end;
CurrentTheme.GetViewMargins(VT, M); <<<< - This line
Margins.Left := M.LeftWidth;
Margins.Top := M.TopHeight;
Margins.Right := M.RightWidth;

and if I continue again the program, after much time, have a "runtime error
216"...

Thanks in advance.

Cristiano




"Cristiano Narcisi" <cristiano.narcisi@alfagomma.com> ha scritto nel

nicocizik

Hi Cristiano,

We have not seen this behavior before. Are you able to recreate the issue
with a simple demo app? If so, please send the example in .zip format to
support@digital-metaphors.com in .zip format and we'll take a look at it for
you.



Regards,

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

rbuser

This is a multi-part message in MIME format.

nicocizik

Hi Cristiano,

For future reference, please send all attachments to
support@digital-metaphors.com rather than posting them here.

I tested your example with Delphi XE Update 1 and RB 12.03 but was not able
to recreate the issue. Below are the steps I took.

1. Ran your application.
2. Clicked the Simple Test Designer button.
3. Tabbed from Design to Preview, then to Calc, and back to Design.
4. Closed the designer and application.


Regards,

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