[Libreoffice-bugs] [Bug 111998] New: BASIC-Laufzeitfehler. Eigenschaft oder Methode nicht gefunden: isFormDesignMode.
bugzilla-daemon at bugs.documentfoundation.org
bugzilla-daemon at bugs.documentfoundation.org
Thu Aug 24 06:50:43 UTC 2017
https://bugs.documentfoundation.org/show_bug.cgi?id=111998
Bug ID: 111998
Summary: BASIC-Laufzeitfehler. Eigenschaft oder Methode nicht
gefunden: isFormDesignMode.
Product: LibreOffice
Version: 5.3.5.2 release
Hardware: x86-64 (AMD64)
OS: Windows (All)
Status: UNCONFIRMED
Severity: normal
Priority: medium
Component: Base
Assignee: libreoffice-bugs at lists.freedesktop.org
Reporter: martin.schwarz at gundlach.de
Description:
Wehen I use this code:
Dim xLayoutManager as Object
' If Design mode, just exit the routine and display standard menu and toolbars'
xCurrentController = thisComponent.CurrentController
If xCurrentController.isFormDesignMode Then
Exit Sub
End If
I get an error message that the method ".isFormDesignMode" cant be found.
This happens with Version LO 5.3 and 5.4, It works with LO 5.1.6.2 perfectly on
Windows 7.
Also I can say that the same behaviour happens on Linux Mint 18.1.
Can anybody let me know what library is missing this method ?
Thanks Martin
Steps to Reproduce:
1. Install LO Version 5.1.6.2 => this works
2. Install LO Version 5.3 or greater it does not work
3. Important is not to use the same file, always create with the version
installed. Call this code with a simple form1 button:
Sub OnOpenDocument()
Dim oController
oController = ThisDatabaseDocument.CurrentController
If not ( oController.isConnected() ) Then oController.connect() ' Connect to
the database, if necessary
oController.loadComponent( com.sun.star.sdb.application.DatabaseObject.FORM, _
"Formular1", FALSE ) ' Parameters: ObjectType, Parameter ObjectName, ForEditing
Dim xCurrentController as Object
Dim xLayoutManager as Object
' If Design mode, just exit the routine and display standard menu and toolbars'
xCurrentController = thisComponent.CurrentController
If xCurrentController.isFormDesignMode Then
Exit Sub
End If
xLayoutManager = thisComponent.CurrentController.Frame.LayoutManager
xLayoutManager.visible = false
end sub
Actual Results:
Just install Version 5.3 or 5.4 and create a new form
Expected Results:
I works with Version 5.1.6.2 on both Linux and Window system.
Reproducible: Always
User Profile Reset: No
Additional Info:
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:55.0) Gecko/20100101
Firefox/55.0
--
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20170824/5bcec636/attachment.html>
More information about the Libreoffice-bugs
mailing list