Report Explorer Access Violation Error
Hi,
We just recently upgraded to RB V. 11.02. Our environment is Windows XP
Service Pack 3 and we are using Delphi 2009.
Our software uses the Report Explorer to allows customers to add and edit
reports. Ever since the upgrade, however we
have been experiencing Access Violations whenever the customer opens the
Report Explorer and then shuts the program down at some later
point. The only command we are using to bring the explorer up is
ReportExplorer.Execute. I have traced the error and found that it occurs
in the file ppTBX.pas in the following procedure at the indicated line:
procedure TppTBXToolbarView.GetMargins(AOrientation: TppTBViewOrientation;
var Margins: TRect);
var
VT: Integer;
M: TppTBXMargins;
begin
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); <--------(Error Occurs Here)
Margins.Left := M.LeftWidth;
Margins.Top := M.TopHeight;
Margins.Right := M.RightWidth;
Margins.Bottom := M.BottomHeight;
We have tried creating a sample project that only has the ReportExplorer
with the same settings, but we cannot get the error to repeat.
Any help or insight would be greatly appreciated.
Thanks,
Justin
We just recently upgraded to RB V. 11.02. Our environment is Windows XP
Service Pack 3 and we are using Delphi 2009.
Our software uses the Report Explorer to allows customers to add and edit
reports. Ever since the upgrade, however we
have been experiencing Access Violations whenever the customer opens the
Report Explorer and then shuts the program down at some later
point. The only command we are using to bring the explorer up is
ReportExplorer.Execute. I have traced the error and found that it occurs
in the file ppTBX.pas in the following procedure at the indicated line:
procedure TppTBXToolbarView.GetMargins(AOrientation: TppTBViewOrientation;
var Margins: TRect);
var
VT: Integer;
M: TppTBXMargins;
begin
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); <--------(Error Occurs Here)
Margins.Left := M.LeftWidth;
Margins.Top := M.TopHeight;
Margins.Right := M.RightWidth;
Margins.Bottom := M.BottomHeight;
We have tried creating a sample project that only has the ReportExplorer
with the same settings, but we cannot get the error to repeat.
Any help or insight would be greatly appreciated.
Thanks,
Justin
This discussion has been closed.
Comments
I have been seeing the same thing but have been unable to reproduce it in a
test case.
Regards, Paul.
I just emailed patch files that should fix this issue.
--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com
Justin
Yes
--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com