vbahelper/source/msforms/vbacombobox.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 "vbacombobox.hxx"
  21 #include <filter/msfilter/msvbahelper.hxx>
  22 #include <basic/sbstar.hxx>
  23 #include <basic/sbmod.hxx>
  24 #include "vbanewfont.hxx"
  25 #include <ooo/vba/msforms/fmStyle.hpp>
  26 #include <ooo/vba/msforms/fmDropButtonStyle.hpp>
  27 #include <ooo/vba/msforms/fmDragBehavior.hpp>
  28 #include <ooo/vba/msforms/fmEnterFieldBehavior.hpp>
  29 #include <ooo/vba/msforms/fmListStyle.hpp>
  30 #include <ooo/vba/msforms/fmTextAlign.hpp>
  31 #include <sal/log.hxx>
  32
  33 using namespace com::sun::star;
  34 using namespace ooo::vba;
  35
  36
  37 //SelectedItems list of integer indexes
  38 //StringItemList list of items
  39
  40 ScVbaComboBox::ScVbaComboBox( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< uno::XInterface >& xControl, const uno::Reference< frame::XModel >& xModel, std::unique_ptr<ov::AbstractGeometryAttributes> pGeomHelper )
  41     : ComboBoxImpl_BASE( xParent, xContext, xControl, xModel, std::move(pGeomHelper) )
  42 {
  43     mpListHelper.reset( new ListControlHelper( m_xProps ) );
  44     try
  45     {
  46        // grab the default value property name
  47        m_xProps->getPropertyValue( "DataFieldProperty" ) >>= sSourceName;
  48     }
  49     catch( uno::Exception& )
  50     {
  51     }
  52     if( sSourceName.isEmpty() )
  53         sSourceName = "Text";
  54 }
  55
  56 // Attributes
  57
  58
  59 // Value, [read] e.g. getValue returns the value of ooo Text property e.g. the value in
  60 // the drop down
  61 uno::Any SAL_CALL
  62 ScVbaComboBox::getValue()
  63 {
  64     return m_xProps->getPropertyValue( sSourceName );
  65 }
  66
  67 void SAL_CALL
  68 ScVbaComboBox::setListIndex( const uno::Any& _value )
  69 {
  70     sal_Int16 nIndex = 0;
  71     if( _value >>= nIndex )
  72     {
  73         sal_Int32 nOldIndex = -1;
  74         getListIndex() >>= nOldIndex;
  75         uno::Sequence< OUString > sItems;
  76         m_xProps->getPropertyValue( "StringItemList" ) >>= sItems;
  77         if( ( nIndex >= 0 ) && ( sItems.getLength() > nIndex ) )
  78         {
  79             OUString sText = sItems[ nIndex ];
  80             m_xProps->setPropertyValue( "Text", uno::makeAny( sText ) );
  81
  82             // fire the _Change event
  83             if( nOldIndex != nIndex )
  84                 fireClickEvent();
  85         }
  86     }
  87 }
  88
  89 uno::Any SAL_CALL
  90 ScVbaComboBox::getListIndex()
  91 {
  92     uno::Sequence< OUString > sItems;
  93     m_xProps->getPropertyValue( "StringItemList" ) >>= sItems;
  94     // should really return the item that has focus regardless of
  95     // it been selected
  96     if ( sItems.hasElements() )
  97     {
  98         OUString sText = getText();
  99         sal_Int32 nLen = sItems.getLength();
 100         for ( sal_Int32 index = 0; !sText.isEmpty() && index < nLen; ++index )
 101         {
 102             if ( sItems[ index ] == sText )
 103             {
 104                 SAL_INFO("vbahelper", "getListIndex returning " << index );
 105                 return uno::makeAny( index );
 106             }
 107
 108         }
 109     }
 110     SAL_INFO("vbahelper", "getListIndex returning -1" );
 111     return uno::makeAny( sal_Int32( -1 ) );
 112 }
 113
 114 // Value, [write]e.g. setValue sets the value in the drop down, and if the value is one
 115 // of the values in the list then the selection is also set
 116 void SAL_CALL
 117 ScVbaComboBox::setValue( const uno::Any& _value )
 118 {
 119     // booleans are converted to uppercase strings
 120     OUString oldValue = extractStringFromAny( getValue(), OUString(), true );
 121     m_xProps->setPropertyValue( sSourceName, uno::Any( extractStringFromAny( _value, OUString(), true ) ) );
 122     OUString newValue = extractStringFromAny( getValue(), OUString(), true );
 123     if ( oldValue != newValue )
 124     {
 125         sal_Int32 index = 0;
 126         uno::Any aIndex = getListIndex();
 127         aIndex >>= index;
 128         if ( index < 0 )
 129             fireChangeEvent();
 130         else
 131             fireClickEvent();
 132     }
 133 }
 134
 135 // see Value
 136
 137 OUString SAL_CALL
 138 ScVbaComboBox::getText()
 139 {
 140     OUString result;
 141     getValue() >>= result;
 142     return result;
 143 }
 144
 145 void SAL_CALL
 146 ScVbaComboBox::setText( const OUString& _text )
 147 {
 148     setValue( uno::makeAny( _text ) ); // seems the same
 149 }
 150
 151 // Methods
 152 void SAL_CALL
 153 ScVbaComboBox::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex )
 154 {
 155     mpListHelper->AddItem( pvargItem, pvargIndex );
 156 }
 157
 158 void SAL_CALL
 159 ScVbaComboBox::removeItem( const uno::Any& index )
 160 {
 161     mpListHelper->removeItem( index );
 162 }
 163
 164 void SAL_CALL
 165 ScVbaComboBox::Clear(  )
 166 {
 167     mpListHelper->Clear();
 168 }
 169
 170 void SAL_CALL
 171 ScVbaComboBox::setRowSource( const OUString& _rowsource )
 172 {
 173     ScVbaControl::setRowSource( _rowsource );
 174     mpListHelper->setRowSource( _rowsource );
 175 }
 176
 177 sal_Int32 SAL_CALL
 178 ScVbaComboBox::getListCount()
 179 {
 180     return mpListHelper->getListCount();
 181 }
 182
 183 uno::Any SAL_CALL
 184 ScVbaComboBox::List( const ::uno::Any& pvargIndex, const uno::Any& pvarColumn )
 185 {
 186     return mpListHelper->List( pvargIndex, pvarColumn );
 187 }
 188
 189 sal_Int32 SAL_CALL ScVbaComboBox::getStyle()
 190 {
 191     return msforms::fmStyle::fmStyleDropDownCombo;
 192 }
 193
 194 void SAL_CALL ScVbaComboBox::setStyle( sal_Int32 /*nStyle*/ )
 195 {
 196 }
 197
 198 sal_Int32 SAL_CALL ScVbaComboBox::getDropButtonStyle()
 199 {
 200     return msforms::fmDropButtonStyle::fmDropButtonStyleArrow;
 201 }
 202
 203 void SAL_CALL ScVbaComboBox::setDropButtonStyle( sal_Int32 /*nDropButtonStyle*/ )
 204 {
 205 }
 206
 207 sal_Int32 SAL_CALL ScVbaComboBox::getDragBehavior()
 208 {
 209     return msforms::fmDragBehavior::fmDragBehaviorDisabled;
 210 }
 211
 212 void SAL_CALL ScVbaComboBox::setDragBehavior( sal_Int32 /*nDragBehavior*/ )
 213 {
 214 }
 215
 216 sal_Int32 SAL_CALL ScVbaComboBox::getEnterFieldBehavior()
 217 {
 218     return msforms::fmEnterFieldBehavior::fmEnterFieldBehaviorSelectAll;
 219 }
 220
 221 void SAL_CALL ScVbaComboBox::setEnterFieldBehavior( sal_Int32 /*nEnterFieldBehavior*/ )
 222 {
 223 }
 224
 225 sal_Int32 SAL_CALL ScVbaComboBox::getListStyle()
 226 {
 227     return msforms::fmListStyle::fmListStylePlain;
 228 }
 229
 230 void SAL_CALL ScVbaComboBox::setListStyle( sal_Int32 /*nListStyle*/ )
 231 {
 232 }
 233
 234 sal_Int32 SAL_CALL ScVbaComboBox::getTextAlign()
 235 {
 236     return msforms::fmTextAlign::fmTextAlignLeft;
 237 }
 238
 239 void SAL_CALL ScVbaComboBox::setTextAlign( sal_Int32 /*nTextAlign*/ )
 240 {
 241 }
 242
 243 sal_Int32 SAL_CALL ScVbaComboBox::getTextLength()
 244 {
 245     return getText().getLength();
 246 }
 247
 248 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaComboBox::getFont()
 249 {
 250     return new VbaNewFont( m_xProps );
 251 }
 252
 253 OUString
 254 ScVbaComboBox::getServiceImplName()
 255 {
 256     return OUString("ScVbaComboBox");
 257 }
 258
 259 sal_Int32 SAL_CALL ScVbaComboBox::getBackColor()
 260 {
 261     return ScVbaControl::getBackColor();
 262 }
 263
 264 void SAL_CALL ScVbaComboBox::setBackColor( sal_Int32 nBackColor )
 265 {
 266     ScVbaControl::setBackColor( nBackColor );
 267 }
 268
 269 sal_Bool SAL_CALL ScVbaComboBox::getAutoSize()
 270 {
 271     return ScVbaControl::getAutoSize();
 272 }
 273
 274 void SAL_CALL ScVbaComboBox::setAutoSize( sal_Bool bAutoSize )
 275 {
 276     ScVbaControl::setAutoSize( bAutoSize );
 277 }
 278
 279 sal_Bool SAL_CALL ScVbaComboBox::getLocked()
 280 {
 281     return ScVbaControl::getLocked();
 282 }
 283
 284 void SAL_CALL ScVbaComboBox::setLocked( sal_Bool bLocked )
 285 {
 286     ScVbaControl::setLocked( bLocked );
 287 }
 288
 289 OUString SAL_CALL ScVbaComboBox::getLinkedCell()
 290 {
 291     return ScVbaControl::getControlSource();
 292 }
 293
 294 void SAL_CALL ScVbaComboBox::setLinkedCell( const OUString& _linkedcell )
 295 {
 296     ScVbaControl::setControlSource( _linkedcell );
 297 }
 298
 299 uno::Sequence< OUString >
 300 ScVbaComboBox::getServiceNames()
 301 {
 302     static uno::Sequence< OUString > const aServiceNames
 303     {
 304         "ooo.vba.msforms.ComboBox"
 305     };
 306     return aServiceNames;
 307 }
 308
 309 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */