Can I disable and/or hide the Data tabsheet in the RptDesigner from users?
Fellow Report Builder Staff and/or Developers,
I am currently using Delphi 6 and Report Builder 9.01.
Can I disable and/or hide the Data tabsheet in the RptDesigner from users?
I want to define and provide data through the Data tabsheet in the
RptDesigner, but I don't want the users to be able to modify the data
defined on the Data tabsheet.
If not, can I assign an external DBPipeline to a report and disable
and/or hide the Data tabsheet in the RptDesigner from them?
Thanks,
George Spicka
Software Developer - VISTA
Ticketmaster, Inc.
George.Spicka@Ticketmaster.com
--- posted by geoForum on http://delphi.newswhat.com
I am currently using Delphi 6 and Report Builder 9.01.
Can I disable and/or hide the Data tabsheet in the RptDesigner from users?
I want to define and provide data through the Data tabsheet in the
RptDesigner, but I don't want the users to be able to modify the data
defined on the Data tabsheet.
If not, can I assign an external DBPipeline to a report and disable
and/or hide the Data tabsheet in the RptDesigner from them?
Thanks,
George Spicka
Software Developer - VISTA
Ticketmaster, Inc.
George.Spicka@Ticketmaster.com
--- posted by geoForum on http://delphi.newswhat.com
This discussion has been closed.
Comments
The easiest way to remove DADE from the designer is to either exclude daIDE
from your uses clause (preventing it from ever registering) or unregistering
it manually before the designer is loaded. Take a look at the Finalization
section of the daIDE.pas file for how this is done.
If you want to keep DADE registered you will need to take a different
approach.
For RB 9, the TppDesigner.Notebook property gives you access to the
TPageControl object that controls the designer. I believe page 0 is the
data workspace. Something like the following should remove the data tab.
Note that I did not test this code as it would be different for RB 10.x.
FDataTabSheet: TTabSheet;
ppDesigner1Show(Sender: TObject);
begin
FDataTabSheet := ppDesigner1.Notebook.Pages[0];
FDataTabSheet .PageControl := nil;
end;
pDesigner1Close(Sender: TObject; var Action: TCloseAction);
begin
FDataTabSheet .PageControl := ppDesigner1.Notebook;
end;
--
Regards,
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com