toolkit/source/controls/tkscrollbar.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 "toolkit/controls/tkscrollbar.hxx"
  21 #include "toolkit/helper/property.hxx"
  22 #include <com/sun/star/uno/XComponentContext.hpp>
  23 #include <cppuhelper/typeprovider.hxx>
  24 #include <cppuhelper/queryinterface.hxx>
  25
  26 #include <toolkit/awt/vclxwindows.hxx>
  27
  28 #include "helper/unopropertyarrayhelper.hxx"
  29
  30 namespace toolkit
  31 {
  32
  33
  34     using namespace ::com::sun::star;
  35
  36
  37     //= UnoControlScrollBarModel
  38
  39
  40     UnoControlScrollBarModel::UnoControlScrollBarModel( const uno::Reference< uno::XComponentContext >& i_factory )
  41         :UnoControlModel( i_factory )
  42     {
  43         UNO_CONTROL_MODEL_REGISTER_PROPERTIES( VCLXScrollBar );
  44     }
  45
  46
  47     OUString UnoControlScrollBarModel::getServiceName( )
  48     {
  49         return OUString::createFromAscii( szServiceName_UnoControlScrollBarModel );
  50     }
  51
  52     OUString UnoControlScrollBarModel::getImplementationName()
  53     {
  54         return OUString("stardiv.Toolkit.UnoControlScrollBarModel");
  55     }
  56
  57     css::uno::Sequence<OUString>
  58     UnoControlScrollBarModel::getSupportedServiceNames()
  59     {
  60         auto s(UnoControlModel::getSupportedServiceNames());
  61         s.realloc(s.getLength() + 2);
  62         s[s.getLength() - 2] = "com.sun.star.awt.UnoControlScrollBarModel";
  63         s[s.getLength() - 1] = "stardiv.vcl.controlmodel.ScrollBar";
  64         return s;
  65     }
  66
  67     uno::Any UnoControlScrollBarModel::ImplGetDefaultValue( sal_uInt16 nPropId ) const
  68     {
  69         switch ( nPropId )
  70         {
  71         case BASEPROPERTY_LIVE_SCROLL:
  72             return uno::makeAny( false );
  73         case BASEPROPERTY_DEFAULTCONTROL:
  74             return uno::makeAny( OUString::createFromAscii( szServiceName_UnoControlScrollBar ) );
  75
  76         default:
  77             return UnoControlModel::ImplGetDefaultValue( nPropId );
  78         }
  79     }
  80
  81
  82     ::cppu::IPropertyArrayHelper& UnoControlScrollBarModel::getInfoHelper()
  83     {
  84         static UnoPropertyArrayHelper* pHelper = nullptr;
  85         if ( !pHelper )
  86         {
  87             uno::Sequence<sal_Int32>    aIDs = ImplGetPropertyIds();
  88             pHelper = new UnoPropertyArrayHelper( aIDs );
  89         }
  90         return *pHelper;
  91     }
  92
  93
  94     uno::Reference< beans::XPropertySetInfo > UnoControlScrollBarModel::getPropertySetInfo(  )
  95     {
  96         static uno::Reference< beans::XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) );
  97         return xInfo;
  98     }
  99
 100
 101     //= UnoControlScrollBarModel
 102
 103     UnoScrollBarControl::UnoScrollBarControl()
 104         :UnoControlBase()
 105         ,maAdjustmentListeners( *this )
 106     {
 107     }
 108
 109     OUString UnoScrollBarControl::GetComponentServiceName()
 110     {
 111         return OUString("ScrollBar");
 112     }
 113
 114     // css::uno::XInterface
 115     uno::Any UnoScrollBarControl::queryAggregation( const uno::Type & rType )
 116     {
 117         uno::Any aRet = ::cppu::queryInterface( rType,
 118                                             (static_cast< awt::XAdjustmentListener* >(this)),
 119                                             (static_cast< awt::XScrollBar* >(this)) );
 120         return (aRet.hasValue() ? aRet : UnoControlBase::queryAggregation( rType ));
 121     }
 122
 123     // css::lang::XTypeProvider
 124     IMPL_XTYPEPROVIDER_START( UnoScrollBarControl )
 125         cppu::UnoType<awt::XAdjustmentListener>::get(),
 126         cppu::UnoType<awt::XScrollBar>::get(),
 127         UnoControlBase::getTypes()
 128     IMPL_XTYPEPROVIDER_END
 129
 130     void UnoScrollBarControl::dispose()
 131     {
 132         lang::EventObject aEvt;
 133         aEvt.Source = static_cast<cppu::OWeakObject*>(this);
 134         maAdjustmentListeners.disposeAndClear( aEvt );
 135         UnoControl::dispose();
 136     }
 137
 138     void UnoScrollBarControl::createPeer( const uno::Reference< awt::XToolkit > & rxToolkit, const uno::Reference< awt::XWindowPeer >  & rParentPeer )
 139     {
 140         UnoControl::createPeer( rxToolkit, rParentPeer );
 141
 142         uno::Reference < awt::XScrollBar >  xScrollBar( getPeer(), uno::UNO_QUERY );
 143         xScrollBar->addAdjustmentListener( this );
 144     }
 145
 146     // css::awt::XAdjustmentListener
 147     void UnoScrollBarControl::adjustmentValueChanged( const css::awt::AdjustmentEvent& rEvent )
 148     {
 149         switch ( rEvent.Type )
 150         {
 151             case css::awt::AdjustmentType_ADJUST_LINE:
 152             case css::awt::AdjustmentType_ADJUST_PAGE:
 153             case css::awt::AdjustmentType_ADJUST_ABS:
 154             {
 155                 uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 156
 157                 if ( xScrollBar.is() )
 158                 {
 159                     ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE ), uno::Any(xScrollBar->getValue()), false );
 160                 }
 161             }
 162             break;
 163             default:
 164             {
 165                 OSL_FAIL( "UnoScrollBarControl::adjustmentValueChanged - unknown Type" );
 166
 167             }
 168         }
 169
 170         if ( maAdjustmentListeners.getLength() )
 171             maAdjustmentListeners.adjustmentValueChanged( rEvent );
 172     }
 173
 174     // css::awt::XScrollBar
 175     void UnoScrollBarControl::addAdjustmentListener( const css::uno::Reference< css::awt::XAdjustmentListener > & l )
 176     {
 177         maAdjustmentListeners.addInterface( l );
 178     }
 179
 180     void UnoScrollBarControl::removeAdjustmentListener( const css::uno::Reference< css::awt::XAdjustmentListener > & l )
 181     {
 182         maAdjustmentListeners.removeInterface( l );
 183     }
 184
 185     void UnoScrollBarControl::setValue( sal_Int32 n )
 186     {
 187         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE ), uno::makeAny( n ), true );
 188     }
 189
 190     void UnoScrollBarControl::setValues( sal_Int32 nValue, sal_Int32 nVisible, sal_Int32 nMax )
 191     {
 192         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE ), uno::Any(nValue), true );
 193         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_VISIBLESIZE ), uno::Any(nVisible), true );
 194         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE_MAX ), uno::Any(nMax), true );
 195     }
 196
 197     sal_Int32 UnoScrollBarControl::getValue()
 198     {
 199         sal_Int32 n = 0;
 200         if ( getPeer().is() )
 201         {
 202             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 203             n = xScrollBar->getValue();
 204         }
 205         return n;
 206     }
 207
 208     void UnoScrollBarControl::setMaximum( sal_Int32 n )
 209     {
 210         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE_MAX ), uno::makeAny( n ), true );
 211     }
 212
 213     sal_Int32 UnoScrollBarControl::getMaximum()
 214     {
 215         sal_Int32 n = 0;
 216         if ( getPeer().is() )
 217         {
 218             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 219             n = xScrollBar->getMaximum();
 220         }
 221         return n;
 222     }
 223
 224     void UnoScrollBarControl::setLineIncrement( sal_Int32 n )
 225     {
 226         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_LINEINCREMENT ), uno::makeAny( n ), true );
 227     }
 228
 229     sal_Int32 UnoScrollBarControl::getLineIncrement()
 230     {
 231         sal_Int32 n = 0;
 232         if ( getPeer().is() )
 233         {
 234             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 235             n = xScrollBar->getLineIncrement();
 236         }
 237         return n;
 238     }
 239
 240     void UnoScrollBarControl::setBlockIncrement( sal_Int32 n )
 241     {
 242         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_BLOCKINCREMENT ), uno::makeAny( n ), true );
 243     }
 244
 245     sal_Int32 UnoScrollBarControl::getBlockIncrement()
 246     {
 247         sal_Int32 n = 0;
 248         if ( getPeer().is() )
 249         {
 250             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 251             n = xScrollBar->getBlockIncrement();
 252         }
 253         return n;
 254     }
 255
 256     void UnoScrollBarControl::setVisibleSize( sal_Int32 n )
 257     {
 258         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_VISIBLESIZE ), uno::makeAny( n ), true );
 259     }
 260
 261     sal_Int32 UnoScrollBarControl::getVisibleSize()
 262     {
 263         sal_Int32 n = 0;
 264         if ( getPeer().is() )
 265         {
 266             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 267             n = xScrollBar->getVisibleSize();
 268         }
 269         return n;
 270     }
 271
 272     void UnoScrollBarControl::setOrientation( sal_Int32 n )
 273     {
 274         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_ORIENTATION ), uno::makeAny( n ), true );
 275     }
 276
 277     sal_Int32 UnoScrollBarControl::getOrientation()
 278     {
 279         sal_Int32 n = 0;
 280         if ( getPeer().is() )
 281         {
 282             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 283             n = xScrollBar->getOrientation();
 284         }
 285         return n;
 286     }
 287
 288     OUString UnoScrollBarControl::getImplementationName()
 289     {
 290         return OUString("stardiv.Toolkit.UnoScrollBarControl");
 291     }
 292
 293     css::uno::Sequence<OUString> UnoScrollBarControl::getSupportedServiceNames()
 294     {
 295         auto s(UnoControlBase::getSupportedServiceNames());
 296         s.realloc(s.getLength() + 2);
 297         s[s.getLength() - 2] = "com.sun.star.awt.UnoControlScrollBar";
 298         s[s.getLength() - 1] = "stardiv.vcl.control.ScrollBar";
 299         return s;
 300     }
 301
 302 }  // namespace toolkit
 303
 304
 305 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface * SAL_CALL
 306 stardiv_Toolkit_UnoControlScrollBarModel_get_implementation(
 307     css::uno::XComponentContext *context,
 308     css::uno::Sequence<css::uno::Any> const &)
 309 {
 310     return cppu::acquire(new toolkit::UnoControlScrollBarModel(context));
 311 }
 312
 313 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface * SAL_CALL
 314 stardiv_Toolkit_UnoScrollBarControl_get_implementation(
 315     css::uno::XComponentContext *,
 316     css::uno::Sequence<css::uno::Any> const &)
 317 {
 318     return cppu::acquire(new toolkit::UnoScrollBarControl());
 319 }
 320
 321 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */