Hi Matthias,
>>One could manually de-register certain UNO services, so that certain
>>functionality becomes unavailable.
>
> How do I do that?
The following snippet exemplarily disables the query design, but
de-registering the service which implements it:
Dim oPathSubst as Object
oPathSubst = createUnoService( "com.sun.star.util.PathSubstitution" )
Dim sRegistryLocation As String
sRegistryLocation = oPathSubst.substituteVariables( _
"$(prog)/services.rdb", true )
Dim oRegistry as Object
oRegistry = createUnoService( "com.sun.star.registry.SimpleRegistry" )
oRegistry.open( sRegistryLocation, false, false )
Dim oKey as Object
oKey = oRegistry.getRootKey()
oKey.deleteKey("/SERVICES/com.sun.star.sdb.QueryDesign")
oKey.deleteKey("/IMPLEMENTATIONS/org.openoffice.comp.dbu.OQueryDesign")
oRegistry.close()
After this, clicking onto the "Create Query in Design View..." task does
nothing - which isn't really what I would call good usability, but since
this is kind of an unsupported workaround only, the best I can offer ...
The above should work equally well for the table/relation design, and
for the usual wizards (table/query/form/report). However, disabling the
dialogs for changing the database properties is not possible this way.
But the DispatchInterceptors mentioned elsewhere in the thread should
allow you to disable the respective menu items.
Ciao
Frank
--
- Frank Schönheit, Software Engineer [EMAIL PROTECTED] -
- Sun Microsystems http://www.sun.com/staroffice -
- OpenOffice.org Database http://dba.openoffice.org -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
