lok: add rendering and input for form controls in Calc

Until now the form controls were nto rendered to a tile when
drawing tiles for LOKit usage (online). This change adds
LokControlHandler that is responsible for rendering of the
form controls on the tiles (currently implemented only for Calc)
and handles mouse input events that come through LOKit.

Change-Id: Ifcecc9a320a7836b76b0a10771b06c15339baed2
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/114635
Tested-by: Jenkins
Reviewed-by: Tomaž Vajngerl <quikee@gmail.com>

1 files changed, 151 insertions, 0 deletions

diff --git a/include/sfx2/LokControlHandler.hxx b/include/sfx2/LokControlHandler.hxx
new file mode 100644
index 000000000000..5617dae4b2f8
--- /dev/null
+++ b/include/sfx2/LokControlHandler.hxx
@@ -0,0 +1,151 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+#pragma once
+
+#include <sfx2/dllapi.h>
+#include <svx/svdouno.hxx>
+#include <vcl/window.hxx>
+#include <com/sun/star/awt/PosSize.hpp>
+#include <com/sun/star/awt/XControl.hpp>
+#include <com/sun/star/awt/XWindow.hpp>
+#include <com/sun/star/awt/XWindowPeer.hpp>
+#include <com/sun/star/awt/XGraphics.hpp>
+#include <com/sun/star/awt/XView.hpp>
+#include <toolkit/helper/vclunohelper.hxx>
+
+class LokControlHandler
+{
+public:
+    static bool postMouseEvent(SdrPage* pPage, SdrView* pDrawView, vcl::Window const& rMainWindow,
+                               int nType, Point aPointHmm, int nCount, int nButtons, int nModifier)
+    {
+        SdrObjListIter aIterator(pPage, SdrIterMode::Flat);
+        while (aIterator.IsMore())
+        {
+            SdrObject* pObject = aIterator.Next();
+            SdrUnoObj* pUnoObect = dynamic_cast<SdrUnoObj*>(pObject);
+            if (pUnoObect)
+            {
+                tools::Rectangle aControlRectHMM = pUnoObect->GetLogicRect();
+                if (aControlRectHMM.IsInside(aPointHmm))
+                {
+                    css::uno::Reference<css::awt::XControl> xControl
+                        = pUnoObect->GetUnoControl(*pDrawView, rMainWindow);
+                    if (!xControl.is())
+                        return false;
+
+                    css::uno::Reference<css::awt::XWindow> xControlWindow(xControl,
+                                                                          css::uno::UNO_QUERY);
+                    if (!xControlWindow.is())
+                        return false;
+
+                    css::uno::Reference<css::awt::XWindowPeer> xWindowPeer(xControl->getPeer());
+
+                    VclPtr<vcl::Window> pWindow = VCLUnoHelper::GetWindow(xWindowPeer);
+                    if (pWindow)
+                    {
+                        Point aControlRelativePositionHMM = aPointHmm - aControlRectHMM.TopLeft();
+                        Point aControlRelativePosition = o3tl::convert(
+                            aControlRelativePositionHMM, o3tl::Length::mm100, o3tl::Length::px);
+
+                        LokMouseEventData aMouseEventData(nType, aControlRelativePosition, nCount,
+                                                          MouseEventModifiers::SIMPLECLICK,
+                                                          nButtons, nModifier);
+
+                        SfxLokHelper::postMouseEventAsync(pWindow, aMouseEventData);
+                        return true;
+                    }
+                }
+            }
+        }
+        return false;
+    }
+
+    static void drawUnoControl(SdrView* pDrawView, SdrUnoObj* pUnoObect,
+                               vcl::Window const& rMainWindow, VirtualDevice& rDevice,
+                               tools::Rectangle const& rTileRectHMM, double scaleX, double scaleY)
+    {
+        css::uno::Reference<css::awt::XControl> xControl
+            = pUnoObect->GetUnoControl(*pDrawView, rMainWindow);
+        if (!xControl.is())
+            return;
+
+        css::uno::Reference<css::awt::XWindow> xControlWindow(xControl, css::uno::UNO_QUERY);
+        if (!xControlWindow.is())
+            return;
+
+        css::uno::Reference<css::awt::XGraphics> xGraphics(rDevice.CreateUnoGraphics());
+        if (!xGraphics.is())
+            return;
+
+        css::uno::Reference<css::awt::XView> xControlView(xControl, css::uno::UNO_QUERY);
+        if (!xControlView.is())
+            return;
+
+        tools::Rectangle aObjectRectHMM = pUnoObect->GetLogicRect();
+        Point aOffsetFromTile(aObjectRectHMM.Left() - rTileRectHMM.Left(),
+                              aObjectRectHMM.Top() - rTileRectHMM.Top());
+        tools::Rectangle aRectangleHMM(aOffsetFromTile, aObjectRectHMM.GetSize());
+        tools::Rectangle aRectanglePx
+            = o3tl::convert(aRectangleHMM, o3tl::Length::mm100, o3tl::Length::px);
+
+        xControlWindow->setPosSize(0, 0, aRectanglePx.GetWidth(), aRectanglePx.GetHeight(),
+                                   css::awt::PosSize::POSSIZE);
+
+        xControlView->setGraphics(xGraphics);
+
+        xControlView->draw(aRectanglePx.Left() * scaleX, aRectanglePx.Top() * scaleY);
+    }
+
+    static void paintControlTile(SdrPage* pPage, SdrView* pDrawView, vcl::Window const& rMainWindow,
+                                 VirtualDevice& rDevice, Size aOutputSize,
+                                 tools::Rectangle const& rTileRect)
+    {
+        tools::Rectangle aTileRectHMM
+            = o3tl::convert(rTileRect, o3tl::Length::twip, o3tl::Length::mm100);
+
+        // Resizes the virtual device so to contain the entries context
+        rDevice.SetOutputSizePixel(aOutputSize);
+
+        rDevice.Push(PushFlags::MAPMODE);
+        MapMode aDeviceMapMode(rDevice.GetMapMode());
+
+        const Fraction scale = conversionFract(o3tl::Length::px, o3tl::Length::mm100);
+        Fraction scaleX = Fraction(aOutputSize.Width(), aTileRectHMM.GetWidth()) * scale;
+        Fraction scaleY = Fraction(aOutputSize.Height(), aTileRectHMM.GetHeight()) * scale;
+        aDeviceMapMode.SetScaleX(scaleX);
+        aDeviceMapMode.SetScaleY(scaleY);
+        rDevice.SetMapMode(aDeviceMapMode);
+
+        SdrObjListIter aIterator(pPage, SdrIterMode::Flat);
+
+        while (aIterator.IsMore())
+        {
+            SdrObject* pObject = aIterator.Next();
+            SdrUnoObj* pUnoObect = dynamic_cast<SdrUnoObj*>(pObject);
+            if (pUnoObect)
+            {
+                tools::Rectangle aObjectRectHMM = pUnoObect->GetLogicRect();
+
+                // Check if we intersect with the tile rectangle and we
+                // need to draw the control.
+                if (aObjectRectHMM.IsOver(aTileRectHMM))
+                {
+                    drawUnoControl(pDrawView, pUnoObect, rMainWindow, rDevice, aTileRectHMM,
+                                   double(scaleX), double(scaleY));
+                }
+            }
+        }
+
+        rDevice.Pop();
+    }
+};
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */