Home Component Writing

List index out of bounds in inherited form

edited February 2012 in Component Writing
?I want migrate a old Delphi 6 project to Delphi XE2 and ReportBuilder 14.

In my project I have a user component TReportBase inherited from
TppReport, there are 4 or 5 new properties I need. I have too a base form
TBaseForm with a TReportBase component and some other controls used in
many reports in the project.

This behaviour worked for me in Delphi 6, and, I tested too with good
results in Delphi 7 and Delphi 2007. But in Delphi XE2 I found problems in
Preview and in the Design.

When I add a Tpplabel I receive a List Index out of bounds error and this:


[500A3234]{rtl160.bpl } System.Classes.TList.Insert (Line 3932,
"System.Classes.pas" + 5) + $1
[11CF1E98]{rbRCL1416.bpl} Ppclass.TppBand.AddObject + $84
[11CF5700]{rbRCL1416.bpl} Ppclass.TppComponent.SetBand + $54
[11BDCC80]{rbRCL1416.bpl} Ppctrls.TppCustomText.SetBand + $0
[11ED079A]{rbIDE1416.bpl}
Ppdesignworkspacecontroller.TppDesignWorkspaceController.AddComponent + $E6
[11ED17CA]{rbIDE1416.bpl}
Ppdesignworkspacecontroller.TppDesignWorkspaceController.ehWorkspace_MouseUp
+ $BA
[11AD6627]{rbRTL1416.bpl} Ppmulticast.TppMulticastEvent.Notify + $27
[11EBEF56]{rbIDE1416.bpl} Ppdesignerworkspace.TppWorkspace.MouseUp + $4A
[503331A8]{vcl160.bpl } Vcl.Controls.TControl.DoMouseUp (Line 7448,
"Vcl.Controls.pas" + 2) + $28
[50333224]{vcl160.bpl } Vcl.Controls.TControl.WMLButtonUp (Line 7461,
"Vcl.Controls.pas" + 9) + $6
[50332814]{vcl160.bpl } Vcl.Controls.TControl.WndProc (Line 7204,
"Vcl.Controls.pas" + 91) + $6
[11FC6660]{rbIDE1416.bpl} Ppsynuedit.TSynEditPlugin + $70
[503369AB]{vcl160.bpl } Vcl.Controls.TWinControl.IsControlMouseMsg (Line
9745, "Vcl.Controls.pas" + 1) + $9
[50337163]{vcl160.bpl } Vcl.Controls.TWinControl.WndProc (Line 9976,
"Vcl.Controls.pas" + 152) + $6
[503367B8]{vcl160.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9689,
"Vcl.Controls.pas" + 3) + $6
[500B5FCC]{rtl160.bpl } System.Classes.MakeObjectInstance (Line 13921,
"System.Classes.pas" + 0) + $0
[504524EF]{vcl160.bpl } Vcl.Forms.TApplication.ProcessMessage (Line
10164, "Vcl.Forms.pas" + 23) + $1
[50452532]{vcl160.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10194,
"Vcl.Forms.pas" + 1) + $4
[50452865]{vcl160.bpl } Vcl.Forms.TApplication.Run (Line 10331,
"Vcl.Forms.pas" + 26) + $3

Can anybody help???

Thanks in advance.

lmir




--- posted by geoForum on http://www.newswhat.com

Comments

  • edited February 2012
    Hi Lmir,

    When you test this with Delphi 7 and Delphi 2007, which version of
    ReportBuilder are you using?

    Are you able to recreate this without using your custom report object?
    If not, perhaps you can look how this is working for clues to why your
    descendent is causing the error.

    Are you able to recreate this with a simple application I could run here
    (without sending me your entire code base)? If so, please send an
    example to support@digital-metaphors.com in .zip format and I'll take a
    look at it for you.

    Best Regards,

    Nico Cizik
    Digital Metaphors
    http://www.digital-metaphors.com
  • edited February 2012
    ?Hello Nico

    Thank you by your quick answer. I cant remember now RBuilder versions I
    tested with Delphi 7 and Delphi 2007. I could install yesterday trials
    versions of Delphi XE and RBuilder 12.03 and the mentioned forms seems work.

    I am trying to prepare a tiny example.

    lmir




    --- posted by geoForum on http://www.newswhat.com
This discussion has been closed.