toolkit/source/controls/tabpagemodel.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <controls/tabpagemodel.hxx>
  21
  22 #include <vcl/svapp.hxx>
  23 #include <helper/property.hxx>
  24 #include <com/sun/star/awt/UnoControlDialogModelProvider.hpp>
  25 #include <com/sun/star/awt/tab/XTabPage.hpp>
  26 #include <com/sun/star/beans/XPropertySet.hpp>
  27 #include <com/sun/star/uno/XComponentContext.hpp>
  28 #include <cppuhelper/supportsservice.hxx>
  29 #include <tools/debug.hxx>
  30 #include <vcl/outdev.hxx>
  31
  32 #include <controls/controlmodelcontainerbase.hxx>
  33 #include <controls/unocontrolcontainer.hxx>
  34
  35 #include <helper/unopropertyarrayhelper.hxx>
  36
  37 using namespace ::com::sun::star;
  38 using namespace ::com::sun::star::uno;
  39 using namespace ::com::sun::star::awt;
  40
  41 UnoControlTabPageModel::UnoControlTabPageModel( Reference< XComponentContext > const & i_factory )
  42     :ControlModelContainerBase( i_factory )
  43 {
  44     ImplRegisterProperty( BASEPROPERTY_DEFAULTCONTROL );
  45     ImplRegisterProperty( BASEPROPERTY_TITLE );
  46     ImplRegisterProperty( BASEPROPERTY_HELPTEXT );
  47     ImplRegisterProperty( BASEPROPERTY_HELPURL );
  48     ImplRegisterProperty( BASEPROPERTY_USERFORMCONTAINEES );
  49     ImplRegisterProperty( BASEPROPERTY_HSCROLL );
  50     ImplRegisterProperty( BASEPROPERTY_VSCROLL );
  51     ImplRegisterProperty( BASEPROPERTY_SCROLLWIDTH );
  52     ImplRegisterProperty( BASEPROPERTY_SCROLLHEIGHT );
  53     ImplRegisterProperty( BASEPROPERTY_SCROLLTOP );
  54     ImplRegisterProperty( BASEPROPERTY_SCROLLLEFT );
  55     ImplRegisterProperty( BASEPROPERTY_IMAGEURL );
  56 }
  57
  58 OUString SAL_CALL UnoControlTabPageModel::getImplementationName()
  59 {
  60     return "stardiv.Toolkit.UnoControlTabPageModel";
  61 }
  62
  63 css::uno::Sequence< OUString > SAL_CALL UnoControlTabPageModel::getSupportedServiceNames()
  64 {
  65     css::uno::Sequence< OUString > aNames = ControlModelContainerBase::getSupportedServiceNames( );
  66     aNames.realloc( aNames.getLength() + 1 );
  67     aNames.getArray()[ aNames.getLength() - 1 ] = "com.sun.star.awt.tab.UnoControlTabPageModel";
  68     return aNames;
  69 }
  70
  71 OUString UnoControlTabPageModel::getServiceName( )
  72 {
  73     return "com.sun.star.awt.tab.UnoControlTabPageModel";
  74 }
  75
  76 Any UnoControlTabPageModel::ImplGetDefaultValue( sal_uInt16 nPropId ) const
  77 {
  78     Any aAny;
  79
  80     switch ( nPropId )
  81     {
  82         case BASEPROPERTY_DEFAULTCONTROL:
  83             aAny <<= OUString("com.sun.star.awt.tab.UnoControlTabPage");
  84             break;
  85         case BASEPROPERTY_USERFORMCONTAINEES:
  86         {
  87             // We do not have here any usercontainers (yet?), but let's return empty container back
  88             // so normal properties could be set without triggering UnknownPropertyException
  89             aAny <<= uno::Reference< XNameContainer >();
  90             break;
  91         }
  92         default:
  93             aAny = UnoControlModel::ImplGetDefaultValue( nPropId );
  94     }
  95
  96     return aAny;
  97 }
  98
  99 ::cppu::IPropertyArrayHelper& UnoControlTabPageModel::getInfoHelper()
 100 {
 101     static UnoPropertyArrayHelper aHelper( ImplGetPropertyIds() );
 102     return aHelper;
 103 }
 104 // beans::XMultiPropertySet
 105 uno::Reference< beans::XPropertySetInfo > UnoControlTabPageModel::getPropertySetInfo(  )
 106 {
 107     static uno::Reference< beans::XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) );
 108     return xInfo;
 109 }
 110 ////----- XInitialization -------------------------------------------------------------------
 111 void SAL_CALL UnoControlTabPageModel::initialize (const Sequence<Any>& rArguments)
 112 {
 113     sal_Int16 nPageId = -1;
 114     if ( rArguments.getLength() == 1 )
 115     {
 116         if ( !( rArguments[ 0 ] >>= nPageId ))
 117              throw lang::IllegalArgumentException();
 118         m_nTabPageId = nPageId;
 119     }
 120     else if ( rArguments.getLength() == 2 )
 121     {
 122         if ( !( rArguments[ 0 ] >>= nPageId ))
 123              throw lang::IllegalArgumentException();
 124         m_nTabPageId = nPageId;
 125         OUString sURL;
 126         if ( !( rArguments[ 1 ] >>= sURL ))
 127             throw lang::IllegalArgumentException();
 128         Reference<container::XNameContainer > xDialogModel = awt::UnoControlDialogModelProvider::create( m_xContext, sURL );
 129         if ( xDialogModel.is() )
 130         {
 131             const Sequence< OUString> aNames = xDialogModel->getElementNames();
 132             for(const OUString& rName : aNames)
 133             {
 134                 try
 135                 {
 136                     Any aElement(xDialogModel->getByName(rName));
 137                     xDialogModel->removeByName(rName);
 138                     insertByName(rName,aElement);
 139                 }
 140                 catch(const Exception&) {}
 141             }
 142             Reference<XPropertySet> xDialogProp(xDialogModel,UNO_QUERY);
 143             if ( xDialogProp.is() )
 144             {
 145                 static constexpr OUString s_sResourceResolver = u"ResourceResolver"_ustr;
 146                 setPropertyValue(s_sResourceResolver,xDialogProp->getPropertyValue(s_sResourceResolver));
 147                 setPropertyValue(GetPropertyName(BASEPROPERTY_TITLE),xDialogProp->getPropertyValue(GetPropertyName(BASEPROPERTY_TITLE)));
 148                 setPropertyValue(GetPropertyName(BASEPROPERTY_HELPTEXT),xDialogProp->getPropertyValue(GetPropertyName(BASEPROPERTY_HELPTEXT)));
 149                 setPropertyValue(GetPropertyName(BASEPROPERTY_HELPURL),xDialogProp->getPropertyValue(GetPropertyName(BASEPROPERTY_HELPURL)));
 150             }
 151         }
 152     }
 153     else
 154         m_nTabPageId = -1;
 155 }
 156
 157
 158 UnoControlTabPage::UnoControlTabPage( const uno::Reference< uno::XComponentContext >& rxContext )
 159     :UnoControlTabPage_Base(rxContext)
 160     ,m_bWindowListener(false)
 161 {
 162     maComponentInfos.nWidth = 280;
 163     maComponentInfos.nHeight = 400;
 164 }
 165 UnoControlTabPage::~UnoControlTabPage()
 166 {
 167 }
 168
 169 OUString UnoControlTabPage::GetComponentServiceName() const
 170 {
 171     return "TabPageModel";
 172 }
 173
 174 OUString SAL_CALL UnoControlTabPage::getImplementationName()
 175 {
 176     return "stardiv.Toolkit.UnoControlTabPage";
 177 }
 178
 179 sal_Bool SAL_CALL UnoControlTabPage::supportsService(OUString const & ServiceName)
 180 {
 181     return cppu::supportsService(this, ServiceName);
 182 }
 183
 184 css::uno::Sequence<OUString> SAL_CALL UnoControlTabPage::getSupportedServiceNames()
 185 {
 186     return { "com.sun.star.awt.tab.UnoControlTabPage" };
 187 }
 188
 189 void SAL_CALL UnoControlTabPage::disposing( const lang::EventObject& Source )
 190 {
 191      ControlContainerBase::disposing( Source );
 192 }
 193
 194 void UnoControlTabPage::createPeer( const Reference< XToolkit > & rxToolkit, const Reference< XWindowPeer >  & rParentPeer )
 195 {
 196     SolarMutexGuard aSolarGuard;
 197     ImplUpdateResourceResolver();
 198
 199     UnoControlContainer::createPeer( rxToolkit, rParentPeer );
 200
 201     Reference < tab::XTabPage > xTabPage( getPeer(), UNO_QUERY );
 202     if ( xTabPage.is() )
 203     {
 204         if ( !m_bWindowListener )
 205         {
 206             Reference< XWindowListener > xWL(this);
 207             addWindowListener( xWL );
 208             m_bWindowListener = true;
 209         }
 210     }
 211 }
 212
 213 static ::Size ImplMapPixelToAppFont( OutputDevice const * pOutDev, const ::Size& aSize )
 214 {
 215     ::Size aTmp = pOutDev->PixelToLogic(aSize, MapMode(MapUnit::MapAppFont));
 216     return aTmp;
 217 }
 218 // css::awt::XWindowListener
 219 void SAL_CALL UnoControlTabPage::windowResized( const css::awt::WindowEvent& e )
 220 {
 221     OutputDevice*pOutDev = Application::GetDefaultDevice();
 222     DBG_ASSERT( pOutDev, "Missing Default Device!" );
 223     if ( !pOutDev || mbSizeModified )
 224         return;
 225
 226     // Currently we are simply using MapUnit::MapAppFont
 227     ::Size aAppFontSize( e.Width, e.Height );
 228
 229     Reference< XControl > xDialogControl( *this, UNO_QUERY_THROW );
 230     Reference< XDevice > xDialogDevice( xDialogControl->getPeer(), UNO_QUERY );
 231     OSL_ENSURE( xDialogDevice.is(), "UnoDialogControl::windowResized: no peer, but a windowResized event?" );
 232     if ( xDialogDevice.is() )
 233     {
 234         DeviceInfo aDeviceInfo( xDialogDevice->getInfo() );
 235         aAppFontSize.AdjustWidth( -(aDeviceInfo.LeftInset + aDeviceInfo.RightInset) );
 236         aAppFontSize.AdjustHeight( -(aDeviceInfo.TopInset + aDeviceInfo.BottomInset) );
 237     }
 238
 239     aAppFontSize = ImplMapPixelToAppFont( pOutDev, aAppFontSize );
 240
 241     // Remember that changes have been done by listener. No need to
 242     // update the position because of property change event.
 243     mbSizeModified = true;
 244     // Properties in a sequence must be sorted!
 245     Sequence< OUString > aProps{ "Height", "Width" };
 246     Sequence< Any > aValues{ Any(aAppFontSize.Height()), Any(aAppFontSize.Width()) };
 247
 248     ImplSetPropertyValues( aProps, aValues, true );
 249     mbSizeModified = false;
 250
 251 }
 252
 253 void SAL_CALL UnoControlTabPage::windowMoved( const css::awt::WindowEvent& e )
 254 {
 255     OutputDevice*pOutDev = Application::GetDefaultDevice();
 256     DBG_ASSERT( pOutDev, "Missing Default Device!" );
 257     if ( !pOutDev || mbPosModified )
 258         return;
 259
 260     // Currently we are simply using MapUnit::MapAppFont
 261     ::Size aTmp( e.X, e.Y );
 262     aTmp = ImplMapPixelToAppFont( pOutDev, aTmp );
 263
 264     // Remember that changes have been done by listener. No need to
 265     // update the position because of property change event.
 266     mbPosModified = true;
 267     Sequence< OUString > aProps{ "PositionX", "PositionY" };
 268     Sequence< Any > aValues{ Any(aTmp.Width()), Any(aTmp.Height()) };
 269
 270     ImplSetPropertyValues( aProps, aValues, true );
 271     mbPosModified = false;
 272
 273 }
 274
 275 void SAL_CALL UnoControlTabPage::windowShown( const css::lang::EventObject& ) {}
 276
 277 void SAL_CALL UnoControlTabPage::windowHidden( const css::lang::EventObject& ) {}
 278
 279 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface *
 280 stardiv_Toolkit_UnoControlTabPageModel_get_implementation(
 281     css::uno::XComponentContext *context,
 282     css::uno::Sequence<css::uno::Any> const &)
 283 {
 284     return cppu::acquire(new UnoControlTabPageModel(context));
 285 }
 286
 287 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface *
 288 stardiv_Toolkit_UnoControlTabPage_get_implementation(
 289     css::uno::XComponentContext *context,
 290     css::uno::Sequence<css::uno::Any> const &)
 291 {
 292     return cppu::acquire(new UnoControlTabPage(context));
 293 }
 294
 295 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */