Thanks Andreas.
It works although not perfectly as it leaves an empty grey panel there
where the yellow was. But it is a lot less annoying. :)
Keith
On 05/05/15 19:22, Andreas Säger wrote:
Sub hidePanelWindows(e)
>Dim CompWin, acRole, cHeight, wins, i, w, ac
>wait(1000)
>CompWin = e.Source.CurrentController.Frame.ComponentWindow
>acRole = com.sun.star.accessibility.AccessibleRole.PANEL
>cHeight = com.sun.star.awt.PosSize.HEIGHT
>wins() = CompWin.getWindows()
>for i = 1 to uBound(wins())
> w = wins(i)
> ac = w.AccessibleContext
> if ac.AccessibleRole = acRole then
> w.setPosSize(0,0,0,0,cHeight)
> endif
>next
>End Sub
--
God bless you
Keith Bates
4 Mooloobar St
Narrabri NSW
Ph 02 67924890
Jesus is the Way
the Truth and the Life
--
To unsubscribe e-mail to: [email protected]
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted
