basctl/source/dlged/dlgedobj.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 <sal/config.h>
  21 #include <sal/log.hxx>
  22
  23 #include <cassert>
  24
  25 #include <dlged.hxx>
  26 #include <dlgeddef.hxx>
  27 #include <dlgedlist.hxx>
  28 #include <dlgedobj.hxx>
  29 #include <dlgedpage.hxx>
  30 #include <dlgedview.hxx>
  31 #include <localizationmgr.hxx>
  32 #include <strings.hxx>
  33
  34 #include <com/sun/star/beans/NamedValue.hpp>
  35 #include <com/sun/star/form/binding/XBindableValue.hpp>
  36 #include <com/sun/star/form/binding/XValueBinding.hpp>
  37 #include <com/sun/star/form/binding/XListEntrySink.hpp>
  38 #include <com/sun/star/awt/XUnoControlContainer.hpp>
  39 #include <com/sun/star/awt/XVclContainerPeer.hpp>
  40 #include <com/sun/star/container/XContainer.hpp>
  41 #include <com/sun/star/lang/XServiceInfo.hpp>
  42 #include <com/sun/star/lang/WrappedTargetRuntimeException.hpp>
  43 #include <com/sun/star/script/XScriptEventsSupplier.hpp>
  44 #include <com/sun/star/table/CellAddress.hpp>
  45 #include <com/sun/star/table/CellRangeAddress.hpp>
  46 #include <cppuhelper/exc_hlp.hxx>
  47 #include <o3tl/functional.hxx>
  48 #include <svx/svdpagv.hxx>
  49 #include <unotools/sharedunocomponent.hxx>
  50 #include <vcl/svapp.hxx>
  51 #include <tools/debug.hxx>
  52
  53 namespace basctl
  54 {
  55
  56 using namespace ::com::sun::star;
  57 using namespace ::com::sun::star::uno;
  58 using namespace ::com::sun::star::beans;
  59 using namespace ::com::sun::star::container;
  60 using namespace ::com::sun::star::script;
  61
  62
  63 DlgEditor& DlgEdObj::GetDialogEditor ()
  64 {
  65     if (DlgEdForm* pFormThis = dynamic_cast<DlgEdForm*>(this))
  66         return pFormThis->GetDlgEditor();
  67     else
  68         return pDlgEdForm->GetDlgEditor();
  69 }
  70
  71 DlgEdObj::DlgEdObj(SdrModel& rSdrModel)
  72 :   SdrUnoObj(rSdrModel, OUString())
  73     ,bIsListening(false)
  74 {
  75 }
  76
  77 DlgEdObj::DlgEdObj(SdrModel& rSdrModel, DlgEdObj const & rSource)
  78 :   SdrUnoObj(rSdrModel, rSource)
  79     ,bIsListening(false)
  80 {
  81     // set parent form
  82     pDlgEdForm = rSource.pDlgEdForm;
  83
  84     // add child to parent form
  85     pDlgEdForm->AddChild( this );
  86
  87     Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY );
  88     if ( xPSet.is() )
  89     {
  90         // set new name
  91         OUString aOUniqueName( GetUniqueName() );
  92         Any aUniqueName;
  93         aUniqueName <<= aOUniqueName;
  94         xPSet->setPropertyValue( DLGED_PROP_NAME, aUniqueName );
  95
  96         Reference< container::XNameContainer > xCont( GetDlgEdForm()->GetUnoControlModel() , UNO_QUERY );
  97         if ( xCont.is() )
  98         {
  99             // set tabindex
 100             Sequence< OUString > aNames = xCont->getElementNames();
 101             xPSet->setPropertyValue( DLGED_PROP_TABINDEX, Any(static_cast<sal_Int16>(aNames.getLength())) );
 102
 103             // insert control model in dialog model
 104             Reference< awt::XControlModel > xCtrl( xPSet , UNO_QUERY );
 105             xCont->insertByName( aOUniqueName, Any(xCtrl) );
 106
 107             pDlgEdForm->UpdateTabOrderAndGroups();
 108         }
 109     }
 110
 111     // start listening
 112     StartListening();
 113 }
 114
 115 DlgEdObj::DlgEdObj(
 116     SdrModel& rSdrModel,
 117     const OUString& rModelName,
 118     const css::uno::Reference< css::lang::XMultiServiceFactory >& rxSFac)
 119 :   SdrUnoObj(rSdrModel, rModelName, rxSFac)
 120     ,bIsListening(false)
 121 {
 122 }
 123
 124 DlgEdObj::~DlgEdObj()
 125 {
 126     if ( isListening() )
 127         EndListening(true);
 128 }
 129
 130 namespace
 131 {
 132     /* returns the DlgEdForm which the given DlgEdObj belongs to
 133         (which might in fact be the object itself)
 134
 135         Failure to obtain the form will be reported with an assertion in the non-product
 136         version.
 137      */
 138     bool lcl_getDlgEdForm( DlgEdObj* _pObject, DlgEdForm*& _out_pDlgEdForm )
 139     {
 140         _out_pDlgEdForm = dynamic_cast< DlgEdForm* >( _pObject );
 141         if ( !_out_pDlgEdForm )
 142             _out_pDlgEdForm = _pObject->GetDlgEdForm();
 143         DBG_ASSERT( _out_pDlgEdForm, "lcl_getDlgEdForm: no form!" );
 144         return ( _out_pDlgEdForm != nullptr );
 145     }
 146 }
 147
 148 uno::Reference< awt::XControl > DlgEdObj::GetControl() const
 149 {
 150     uno::Reference< awt::XControl > xControl;
 151     if (DlgEdForm const* pForm = GetDlgEdForm())
 152     {
 153         DlgEditor const& rEditor = pForm->GetDlgEditor();
 154         xControl = GetUnoControl(rEditor.GetView(), *rEditor.GetWindow().GetOutDev());
 155     }
 156     return xControl;
 157 }
 158
 159 bool DlgEdObj::TransformSdrToControlCoordinates(
 160     sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn,
 161     sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut )
 162 {
 163     // input position and size
 164     Size aPos( nXIn, nYIn );
 165     Size aSize( nWidthIn, nHeightIn );
 166
 167     // form position
 168     DlgEdForm* pForm = nullptr;
 169     if ( !lcl_getDlgEdForm( this, pForm ) )
 170         return false;
 171     tools::Rectangle aFormRect = pForm->GetSnapRect();
 172     Size aFormPos( aFormRect.Left(), aFormRect.Top() );
 173
 174     // convert 100th_mm to pixel
 175     OutputDevice* pDevice = Application::GetDefaultDevice();
 176     DBG_ASSERT( pDevice, "DlgEdObj::TransformSdrToControlCoordinates: missing default device!" );
 177     if ( !pDevice )
 178         return false;
 179     aPos = pDevice->LogicToPixel( aPos, MapMode( MapUnit::Map100thMM ) );
 180     aSize = pDevice->LogicToPixel( aSize, MapMode( MapUnit::Map100thMM ) );
 181     aFormPos = pDevice->LogicToPixel( aFormPos, MapMode( MapUnit::Map100thMM ) );
 182
 183     // subtract form position
 184     aPos.AdjustWidth( -(aFormPos.Width()) );
 185     aPos.AdjustHeight( -(aFormPos.Height()) );
 186
 187     // take window borders into account
 188     Reference< beans::XPropertySet > xPSetForm( pForm->GetUnoControlModel(), UNO_QUERY );
 189     DBG_ASSERT( xPSetForm.is(), "DlgEdObj::TransformFormToSdrCoordinates: no form property set!" );
 190     if ( !xPSetForm.is() )
 191         return false;
 192     bool bDecoration = true;
 193     xPSetForm->getPropertyValue( DLGED_PROP_DECORATION ) >>= bDecoration;
 194     if( bDecoration )
 195     {
 196         awt::DeviceInfo aDeviceInfo = pForm->getDeviceInfo();
 197         aPos.AdjustWidth( -(aDeviceInfo.LeftInset) );
 198         aPos.AdjustHeight( -(aDeviceInfo.TopInset) );
 199     }
 200
 201     // convert pixel to logic units
 202     aPos = pDevice->PixelToLogic(aPos, MapMode(MapUnit::MapAppFont));
 203     aSize = pDevice->PixelToLogic(aSize, MapMode(MapUnit::MapAppFont));
 204
 205     // set out parameters
 206     nXOut = aPos.Width();
 207     nYOut = aPos.Height();
 208     nWidthOut = aSize.Width();
 209     nHeightOut = aSize.Height();
 210
 211     return true;
 212 }
 213
 214 bool DlgEdObj::TransformSdrToFormCoordinates(
 215     sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn,
 216     sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut )
 217 {
 218     // input position and size
 219     Size aPos( nXIn, nYIn );
 220     Size aSize( nWidthIn, nHeightIn );
 221
 222     // convert 100th_mm to pixel
 223     OutputDevice* pDevice = Application::GetDefaultDevice();
 224     DBG_ASSERT( pDevice, "DlgEdObj::TransformSdrToFormCoordinates: missing default device!" );
 225     if ( !pDevice )
 226         return false;
 227     aPos = pDevice->LogicToPixel( aPos, MapMode( MapUnit::Map100thMM ) );
 228     aSize = pDevice->LogicToPixel( aSize, MapMode( MapUnit::Map100thMM ) );
 229
 230     // take window borders into account
 231     DlgEdForm* pForm = nullptr;
 232     if ( !lcl_getDlgEdForm( this, pForm ) )
 233         return false;
 234
 235     // take window borders into account
 236     Reference< beans::XPropertySet > xPSetForm( pForm->GetUnoControlModel(), UNO_QUERY );
 237     DBG_ASSERT( xPSetForm.is(), "DlgEdObj::TransformFormToSdrCoordinates: no form property set!" );
 238     if ( !xPSetForm.is() )
 239         return false;
 240     bool bDecoration = true;
 241     xPSetForm->getPropertyValue( DLGED_PROP_DECORATION ) >>= bDecoration;
 242     if( bDecoration )
 243     {
 244         awt::DeviceInfo aDeviceInfo = pForm->getDeviceInfo();
 245         aSize.AdjustWidth( -(aDeviceInfo.LeftInset + aDeviceInfo.RightInset) );
 246         aSize.AdjustHeight( -(aDeviceInfo.TopInset + aDeviceInfo.BottomInset) );
 247     }
 248     // convert pixel to logic units
 249     aPos = pDevice->PixelToLogic(aPos, MapMode(MapUnit::MapAppFont));
 250     aSize = pDevice->PixelToLogic(aSize, MapMode(MapUnit::MapAppFont));
 251
 252     // set out parameters
 253     nXOut = aPos.Width();
 254     nYOut = aPos.Height();
 255     nWidthOut = aSize.Width();
 256     nHeightOut = aSize.Height();
 257
 258     return true;
 259 }
 260
 261 bool DlgEdObj::TransformControlToSdrCoordinates(
 262     sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn,
 263     sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut )
 264 {
 265     // input position and size
 266     Size aPos( nXIn, nYIn );
 267     Size aSize( nWidthIn, nHeightIn );
 268
 269     // form position
 270     DlgEdForm* pForm = nullptr;
 271     if ( !lcl_getDlgEdForm( this, pForm ) )
 272         return false;
 273
 274     Reference< beans::XPropertySet > xPSetForm( pForm->GetUnoControlModel(), UNO_QUERY );
 275     DBG_ASSERT( xPSetForm.is(), "DlgEdObj::TransformControlToSdrCoordinates: no form property set!" );
 276     if ( !xPSetForm.is() )
 277         return false;
 278     sal_Int32 nFormX = 0, nFormY = 0;
 279     xPSetForm->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nFormX;
 280     xPSetForm->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nFormY;
 281     Size aFormPos( nFormX, nFormY );
 282
 283     // convert logic units to pixel
 284     OutputDevice* pDevice = Application::GetDefaultDevice();
 285     DBG_ASSERT( pDevice, "DlgEdObj::TransformControlToSdrCoordinates: missing default device!" );
 286     if ( !pDevice )
 287         return false;
 288     aPos = pDevice->LogicToPixel(aPos, MapMode(MapUnit::MapAppFont));
 289     aSize = pDevice->LogicToPixel(aSize, MapMode(MapUnit::MapAppFont));
 290     aFormPos = pDevice->LogicToPixel(aFormPos, MapMode(MapUnit::MapAppFont));
 291
 292     // add form position
 293     aPos.AdjustWidth(aFormPos.Width() );
 294     aPos.AdjustHeight(aFormPos.Height() );
 295
 296     // take window borders into account
 297     bool bDecoration = true;
 298     xPSetForm->getPropertyValue( DLGED_PROP_DECORATION ) >>= bDecoration;
 299     if( bDecoration )
 300     {
 301         awt::DeviceInfo aDeviceInfo = pForm->getDeviceInfo();
 302         aPos.AdjustWidth(aDeviceInfo.LeftInset );
 303         aPos.AdjustHeight(aDeviceInfo.TopInset );
 304     }
 305
 306     // convert pixel to 100th_mm
 307     aPos = pDevice->PixelToLogic( aPos, MapMode( MapUnit::Map100thMM ) );
 308     aSize = pDevice->PixelToLogic( aSize, MapMode( MapUnit::Map100thMM ) );
 309
 310     // set out parameters
 311     nXOut = aPos.Width();
 312     nYOut = aPos.Height();
 313     nWidthOut = aSize.Width();
 314     nHeightOut = aSize.Height();
 315
 316     return true;
 317 }
 318
 319 bool DlgEdObj::TransformFormToSdrCoordinates(
 320     sal_Int32 nXIn, sal_Int32 nYIn, sal_Int32 nWidthIn, sal_Int32 nHeightIn,
 321     sal_Int32& nXOut, sal_Int32& nYOut, sal_Int32& nWidthOut, sal_Int32& nHeightOut )
 322 {
 323     // input position and size
 324     Size aPos( nXIn, nYIn );
 325     Size aSize( nWidthIn, nHeightIn );
 326
 327     // convert logic units to pixel
 328     OutputDevice* pDevice = Application::GetDefaultDevice();
 329     DBG_ASSERT( pDevice, "DlgEdObj::TransformFormToSdrCoordinates: missing default device!" );
 330     if ( !pDevice )
 331         return false;
 332
 333     // take window borders into account
 334     DlgEdForm* pForm = nullptr;
 335     if ( !lcl_getDlgEdForm( this, pForm ) )
 336         return false;
 337
 338     aPos = pDevice->LogicToPixel(aPos, MapMode(MapUnit::MapAppFont));
 339     aSize = pDevice->LogicToPixel(aSize, MapMode(MapUnit::MapAppFont));
 340
 341     // take window borders into account
 342     Reference< beans::XPropertySet > xPSetForm( pForm->GetUnoControlModel(), UNO_QUERY );
 343     DBG_ASSERT( xPSetForm.is(), "DlgEdObj::TransformFormToSdrCoordinates: no form property set!" );
 344     if ( !xPSetForm.is() )
 345         return false;
 346     bool bDecoration = true;
 347     xPSetForm->getPropertyValue( DLGED_PROP_DECORATION ) >>= bDecoration;
 348     if( bDecoration )
 349     {
 350         awt::DeviceInfo aDeviceInfo = pForm->getDeviceInfo();
 351         aSize.AdjustWidth(aDeviceInfo.LeftInset + aDeviceInfo.RightInset );
 352         aSize.AdjustHeight(aDeviceInfo.TopInset + aDeviceInfo.BottomInset );
 353     }
 354
 355     // convert pixel to 100th_mm
 356     aPos = pDevice->PixelToLogic( aPos, MapMode( MapUnit::Map100thMM ) );
 357     aSize = pDevice->PixelToLogic( aSize, MapMode( MapUnit::Map100thMM ) );
 358
 359     // set out parameters
 360     nXOut = aPos.Width();
 361     nYOut = aPos.Height();
 362     nWidthOut = aSize.Width();
 363     nHeightOut = aSize.Height();
 364
 365     return true;
 366 }
 367
 368 void DlgEdObj::SetRectFromProps()
 369 {
 370     // get control position and size from properties
 371     Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY );
 372     if ( !xPSet.is() )
 373         return;
 374
 375     sal_Int32 nXIn = 0, nYIn = 0, nWidthIn = 0, nHeightIn = 0;
 376     xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nXIn;
 377     xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nYIn;
 378     xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidthIn;
 379     xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeightIn;
 380
 381     // transform coordinates
 382     sal_Int32 nXOut, nYOut, nWidthOut, nHeightOut;
 383     if ( TransformControlToSdrCoordinates( nXIn, nYIn, nWidthIn, nHeightIn, nXOut, nYOut, nWidthOut, nHeightOut ) )
 384     {
 385         // set rectangle position and size
 386         Point aPoint( nXOut, nYOut );
 387         Size aSize( nWidthOut, nHeightOut );
 388         SetSnapRect( tools::Rectangle( aPoint, aSize ) );
 389     }
 390 }
 391
 392 void DlgEdObj::SetPropsFromRect()
 393 {
 394     // get control position and size from rectangle
 395     tools::Rectangle aRect_ = GetSnapRect();
 396     sal_Int32 nXIn = aRect_.Left();
 397     sal_Int32 nYIn = aRect_.Top();
 398     sal_Int32 nWidthIn = aRect_.GetWidth();
 399     sal_Int32 nHeightIn = aRect_.GetHeight();
 400
 401     // transform coordinates
 402     sal_Int32 nXOut, nYOut, nWidthOut, nHeightOut;
 403     if ( TransformSdrToControlCoordinates( nXIn, nYIn, nWidthIn, nHeightIn, nXOut, nYOut, nWidthOut, nHeightOut ) )
 404     {
 405         // set properties
 406         Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY );
 407         if ( xPSet.is() )
 408         {
 409             xPSet->setPropertyValue( DLGED_PROP_POSITIONX, Any(nXOut) );
 410             xPSet->setPropertyValue( DLGED_PROP_POSITIONY, Any(nYOut) );
 411             xPSet->setPropertyValue( DLGED_PROP_WIDTH, Any(nWidthOut) );
 412             xPSet->setPropertyValue( DLGED_PROP_HEIGHT, Any(nHeightOut) );
 413         }
 414     }
 415 }
 416
 417 void DlgEdObj::PositionAndSizeChange( const beans::PropertyChangeEvent& evt )
 418 {
 419     DBG_ASSERT( pDlgEdForm, "DlgEdObj::PositionAndSizeChange: no form!" );
 420     DlgEdPage& rPage = pDlgEdForm->GetDlgEditor().GetPage();
 421     {
 422         Size aPageSize = rPage.GetSize();
 423         sal_Int32 nPageWidthIn = aPageSize.Width();
 424         sal_Int32 nPageHeightIn = aPageSize.Height();
 425         sal_Int32 nPageX, nPageY, nPageWidth, nPageHeight;
 426         if ( TransformSdrToControlCoordinates( 0/*nPageXIn*/, 0/*nPageYIn*/, nPageWidthIn, nPageHeightIn, nPageX, nPageY, nPageWidth, nPageHeight ) )
 427         {
 428             Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY );
 429             if ( xPSet.is() )
 430             {
 431                 sal_Int32 nX = 0, nY = 0, nWidth = 0, nHeight = 0;
 432                 xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nX;
 433                 xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nY;
 434                 xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidth;
 435                 xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeight;
 436
 437                 sal_Int32 nValue = 0;
 438                 evt.NewValue >>= nValue;
 439                 sal_Int32 nNewValue = nValue;
 440
 441                 if ( evt.PropertyName == DLGED_PROP_POSITIONX )
 442                 {
 443                     if ( nNewValue + nWidth > nPageX + nPageWidth )
 444                         nNewValue = nPageX + nPageWidth - nWidth;
 445                     if ( nNewValue < nPageX )
 446                         nNewValue = nPageX;
 447                 }
 448                 else if ( evt.PropertyName == DLGED_PROP_POSITIONY )
 449                 {
 450                     if ( nNewValue + nHeight > nPageY + nPageHeight )
 451                         nNewValue = nPageY + nPageHeight - nHeight;
 452                     if ( nNewValue < nPageY )
 453                         nNewValue = nPageY;
 454                 }
 455                 else if ( evt.PropertyName == DLGED_PROP_WIDTH )
 456                 {
 457                     if ( nX + nNewValue > nPageX + nPageWidth )
 458                         nNewValue = nPageX + nPageWidth - nX;
 459                     if ( nNewValue < 1 )
 460                         nNewValue = 1;
 461                 }
 462                 else if ( evt.PropertyName == DLGED_PROP_HEIGHT )
 463                 {
 464                     if ( nY + nNewValue > nPageY + nPageHeight )
 465                         nNewValue = nPageY + nPageHeight - nY;
 466                     if ( nNewValue < 1 )
 467                         nNewValue = 1;
 468                 }
 469
 470                 if ( nNewValue != nValue )
 471                 {
 472                     EndListening( false );
 473                     xPSet->setPropertyValue( evt.PropertyName, Any(nNewValue) );
 474                     StartListening();
 475                 }
 476             }
 477         }
 478     }
 479
 480     SetRectFromProps();
 481 }
 482
 483 void DlgEdObj::NameChange( const  css::beans::PropertyChangeEvent& evt )
 484 {
 485     // get old name
 486     OUString aOldName;
 487     evt.OldValue >>= aOldName;
 488
 489     // get new name
 490     OUString aNewName;
 491     evt.NewValue >>= aNewName;
 492
 493     if ( aNewName == aOldName )
 494         return;
 495
 496     Reference< container::XNameAccess > xNameAcc((GetDlgEdForm()->GetUnoControlModel()), UNO_QUERY);
 497     if ( !(xNameAcc.is() && xNameAcc->hasByName(aOldName)) )
 498         return;
 499
 500     if (!xNameAcc->hasByName(aNewName) && !aNewName.isEmpty())
 501     {
 502         // remove the control by the old name and insert the control by the new name in the container
 503         Reference< container::XNameContainer > xCont(xNameAcc, UNO_QUERY );
 504         if ( xCont.is() )
 505         {
 506             Reference< awt::XControlModel > xCtrl = GetUnoControlModel();
 507             Any aAny;
 508             aAny <<= xCtrl;
 509             xCont->removeByName( aOldName );
 510             xCont->insertByName( aNewName , aAny );
 511
 512             LocalizationMgr::renameControlResourceIDsForEditorObject(
 513                 &GetDialogEditor(), aAny, aNewName
 514             );
 515         }
 516     }
 517     else
 518     {
 519         // set old name property
 520         EndListening(false);
 521         Reference< beans::XPropertySet >  xPSet(GetUnoControlModel(), UNO_QUERY);
 522         xPSet->setPropertyValue( DLGED_PROP_NAME, Any(aOldName) );
 523         StartListening();
 524     }
 525 }
 526
 527 sal_Int32 DlgEdObj::GetStep() const
 528 {
 529     // get step property
 530     sal_Int32 nStep = 0;
 531     uno::Reference< beans::XPropertySet >  xPSet( GetUnoControlModel(), uno::UNO_QUERY );
 532     if (xPSet.is())
 533     {
 534         xPSet->getPropertyValue( DLGED_PROP_STEP ) >>= nStep;
 535     }
 536     return nStep;
 537 }
 538
 539 void DlgEdObj::UpdateStep()
 540 {
 541     sal_Int32 nCurStep = GetDlgEdForm()->GetStep();
 542     sal_Int32 nStep = GetStep();
 543
 544     SdrLayerAdmin& rLayerAdmin(getSdrModelFromSdrObject().GetLayerAdmin());
 545     SdrLayerID nHiddenLayerId   = rLayerAdmin.GetLayerID( u"HiddenLayer"_ustr );
 546     SdrLayerID nControlLayerId   = rLayerAdmin.GetLayerID( rLayerAdmin.GetControlLayerName() );
 547
 548     if( nCurStep )
 549     {
 550         if ( nStep && (nStep != nCurStep) )
 551         {
 552             SetLayer( nHiddenLayerId );
 553         }
 554         else
 555         {
 556             SetLayer( nControlLayerId );
 557         }
 558     }
 559     else
 560     {
 561         SetLayer( nControlLayerId );
 562     }
 563 }
 564
 565 void DlgEdObj::TabIndexChange( const beans::PropertyChangeEvent& evt )
 566 {
 567     DlgEdForm* pForm = GetDlgEdForm();
 568     if ( !pForm )
 569         return;
 570
 571     // stop listening with all children
 572     std::vector<DlgEdObj*> aChildList = pForm->GetChildren();
 573     for (auto const& child : aChildList)
 574     {
 575         child->EndListening( false );
 576     }
 577
 578     Reference< container::XNameAccess > xNameAcc( pForm->GetUnoControlModel() , UNO_QUERY );
 579     if ( xNameAcc.is() )
 580     {
 581         // get sequence of control names
 582         Sequence< OUString > aNames = xNameAcc->getElementNames();
 583         sal_Int32 nCtrls = aNames.getLength();
 584
 585         // create a map of tab indices and control names, sorted by tab index
 586         IndexToNameMap aIndexToNameMap;
 587         for (auto& aName : aNames)
 588         {
 589             // get tab index
 590             sal_Int16 nTabIndex = -1;
 591             Any aCtrl = xNameAcc->getByName( aName );
 592             Reference< beans::XPropertySet > xPSet;
 593             aCtrl >>= xPSet;
 594             if ( xPSet.is() && xPSet == Reference< beans::XPropertySet >( evt.Source, UNO_QUERY ) )
 595                 evt.OldValue >>= nTabIndex;
 596             else if ( xPSet.is() )
 597                 xPSet->getPropertyValue( DLGED_PROP_TABINDEX ) >>= nTabIndex;
 598
 599             // insert into map
 600             aIndexToNameMap.emplace( nTabIndex, aName );
 601         }
 602
 603         // create a helper list of control names, sorted by tab index
 604         std::vector< OUString > aNameList( aIndexToNameMap.size() );
 605         std::transform(
 606                 aIndexToNameMap.begin(), aIndexToNameMap.end(),
 607                 aNameList.begin(),
 608                 ::o3tl::select2nd< IndexToNameMap::value_type >( )
 609             );
 610
 611         // check tab index
 612         sal_Int16 nOldTabIndex = 0;
 613         evt.OldValue >>= nOldTabIndex;
 614         sal_Int16 nNewTabIndex = 0;
 615         evt.NewValue >>= nNewTabIndex;
 616         if ( nNewTabIndex < 0 )
 617             nNewTabIndex = 0;
 618         else if ( nNewTabIndex > nCtrls - 1 )
 619             nNewTabIndex = sal::static_int_cast<sal_Int16>( nCtrls - 1 );
 620
 621         // reorder helper list
 622         OUString aCtrlName = aNameList[nOldTabIndex];
 623         aNameList.erase( aNameList.begin() + nOldTabIndex );
 624         aNameList.insert( aNameList.begin() + nNewTabIndex , aCtrlName );
 625
 626         // set new tab indices
 627         for ( sal_Int32 i = 0; i < nCtrls; ++i )
 628         {
 629             Any aCtrl = xNameAcc->getByName( aNameList[i] );
 630             Reference< beans::XPropertySet > xPSet;
 631             aCtrl >>= xPSet;
 632             if ( xPSet.is() )
 633             {
 634                 assert(i >= SAL_MIN_INT16);
 635                 if (i > SAL_MAX_INT16)
 636                 {
 637                     SAL_WARN("basctl", "tab " << i << " > SAL_MAX_INT16");
 638                     continue;
 639                 }
 640                 xPSet->setPropertyValue( DLGED_PROP_TABINDEX, Any(static_cast<sal_Int16>(i)) );
 641             }
 642         }
 643
 644         // reorder objects in drawing page
 645         getSdrModelFromSdrObject().GetPage(0)->SetObjectOrdNum( nOldTabIndex + 1, nNewTabIndex + 1 );
 646
 647         pForm->UpdateTabOrderAndGroups();
 648     }
 649
 650     // start listening with all children
 651     for (auto const& child : aChildList)
 652     {
 653         child->StartListening();
 654     }
 655 }
 656
 657 bool DlgEdObj::supportsService( OUString const & serviceName ) const
 658 {
 659     bool bSupports = false;
 660
 661     Reference< lang::XServiceInfo > xServiceInfo( GetUnoControlModel() , UNO_QUERY );
 662         // TODO: cache xServiceInfo as member?
 663     if ( xServiceInfo.is() )
 664         bSupports = xServiceInfo->supportsService( serviceName );
 665
 666     return bSupports;
 667 }
 668
 669 OUString DlgEdObj::GetDefaultName() const
 670 {
 671     OUString sResId;
 672     OUString aDefaultName;
 673     if ( supportsService( u"com.sun.star.awt.UnoControlDialogModel"_ustr ) )
 674     {
 675         sResId = RID_STR_CLASS_DIALOG;
 676     }
 677     else if ( supportsService( u"com.sun.star.awt.UnoControlButtonModel"_ustr ) )
 678     {
 679         sResId = RID_STR_CLASS_BUTTON;
 680     }
 681     else if ( supportsService( u"com.sun.star.awt.UnoControlRadioButtonModel"_ustr ) )
 682     {
 683         sResId = RID_STR_CLASS_RADIOBUTTON;
 684     }
 685     else if ( supportsService( u"com.sun.star.awt.UnoControlCheckBoxModel"_ustr ) )
 686     {
 687         sResId = RID_STR_CLASS_CHECKBOX;
 688     }
 689     else if ( supportsService( u"com.sun.star.awt.UnoControlListBoxModel"_ustr ) )
 690     {
 691         sResId = RID_STR_CLASS_LISTBOX;
 692     }
 693     else if ( supportsService( u"com.sun.star.awt.UnoControlComboBoxModel"_ustr ) )
 694     {
 695         sResId = RID_STR_CLASS_COMBOBOX;
 696     }
 697     else if ( supportsService( u"com.sun.star.awt.UnoControlGroupBoxModel"_ustr ) )
 698     {
 699         sResId = RID_STR_CLASS_GROUPBOX;
 700     }
 701     else if ( supportsService( u"com.sun.star.awt.UnoControlEditModel"_ustr ) )
 702     {
 703         sResId = RID_STR_CLASS_EDIT;
 704     }
 705     else if ( supportsService( u"com.sun.star.awt.UnoControlFixedTextModel"_ustr ) )
 706     {
 707         sResId = RID_STR_CLASS_FIXEDTEXT;
 708     }
 709     else if ( supportsService( u"com.sun.star.awt.UnoControlImageControlModel"_ustr ) )
 710     {
 711         sResId = RID_STR_CLASS_IMAGECONTROL;
 712     }
 713     else if ( supportsService( u"com.sun.star.awt.UnoControlProgressBarModel"_ustr ) )
 714     {
 715         sResId = RID_STR_CLASS_PROGRESSBAR;
 716     }
 717     else if ( supportsService( u"com.sun.star.awt.UnoControlScrollBarModel"_ustr ) )
 718     {
 719         sResId = RID_STR_CLASS_SCROLLBAR;
 720     }
 721     else if ( supportsService( u"com.sun.star.awt.UnoControlFixedLineModel"_ustr ) )
 722     {
 723         sResId = RID_STR_CLASS_FIXEDLINE;
 724     }
 725     else if ( supportsService( u"com.sun.star.awt.UnoControlDateFieldModel"_ustr ) )
 726     {
 727         sResId = RID_STR_CLASS_DATEFIELD;
 728     }
 729     else if ( supportsService( u"com.sun.star.awt.UnoControlTimeFieldModel"_ustr ) )
 730     {
 731         sResId = RID_STR_CLASS_TIMEFIELD;
 732     }
 733     else if ( supportsService( u"com.sun.star.awt.UnoControlNumericFieldModel"_ustr ) )
 734     {
 735         sResId = RID_STR_CLASS_NUMERICFIELD;
 736     }
 737     else if ( supportsService( u"com.sun.star.awt.UnoControlCurrencyFieldModel"_ustr ) )
 738     {
 739         sResId = RID_STR_CLASS_CURRENCYFIELD;
 740     }
 741     else if ( supportsService( u"com.sun.star.awt.UnoControlFormattedFieldModel"_ustr ) )
 742     {
 743         sResId = RID_STR_CLASS_FORMATTEDFIELD;
 744     }
 745     else if ( supportsService( u"com.sun.star.awt.UnoControlPatternFieldModel"_ustr ) )
 746     {
 747         sResId = RID_STR_CLASS_PATTERNFIELD;
 748     }
 749     else if ( supportsService( u"com.sun.star.awt.UnoControlFileControlModel"_ustr ) )
 750     {
 751         sResId = RID_STR_CLASS_FILECONTROL;
 752     }
 753     else if ( supportsService( u"com.sun.star.awt.tree.TreeControlModel"_ustr ) )
 754     {
 755         sResId = RID_STR_CLASS_TREECONTROL;
 756     }
 757     else if ( supportsService( u"com.sun.star.awt.grid.UnoControlGridModel"_ustr ) )
 758     {
 759         sResId = RID_STR_CLASS_GRIDCONTROL;
 760     }
 761     else if ( supportsService( u"com.sun.star.awt.UnoControlFixedHyperlinkModel"_ustr ) )
 762     {
 763         sResId = RID_STR_CLASS_HYPERLINKCONTROL;
 764     }
 765     else if ( supportsService( u"com.sun.star.awt.UnoControlSpinButtonModel"_ustr ) )
 766     {
 767         sResId = RID_STR_CLASS_SPINCONTROL;
 768     }
 769     else
 770     {
 771         sResId = RID_STR_CLASS_CONTROL;
 772     }
 773
 774     if (!sResId.isEmpty())
 775         aDefaultName = sResId;
 776
 777     return aDefaultName;
 778 }
 779
 780 OUString DlgEdObj::GetUniqueName() const
 781 {
 782     OUString aUniqueName;
 783     uno::Reference< container::XNameAccess > xNameAcc((GetDlgEdForm()->GetUnoControlModel()), uno::UNO_QUERY);
 784
 785     if ( xNameAcc.is() )
 786     {
 787         sal_Int32 n = 0;
 788         OUString aDefaultName = GetDefaultName();
 789
 790         do
 791         {
 792             aUniqueName = aDefaultName + OUString::number(++n);
 793         }   while (xNameAcc->hasByName(aUniqueName));
 794     }
 795
 796     return aUniqueName;
 797 }
 798
 799 SdrInventor DlgEdObj::GetObjInventor()   const
 800 {
 801     return SdrInventor::BasicDialog;
 802 }
 803
 804 SdrObjKind DlgEdObj::GetObjIdentifier() const
 805 {
 806     if ( supportsService( u"com.sun.star.awt.UnoControlDialogModel"_ustr ))
 807     {
 808         return SdrObjKind::BasicDialogDialog;
 809     }
 810     else if ( supportsService( u"com.sun.star.awt.UnoControlButtonModel"_ustr ))
 811     {
 812         return SdrObjKind::BasicDialogPushButton;
 813     }
 814     else if ( supportsService( u"com.sun.star.awt.UnoControlRadioButtonModel"_ustr ))
 815     {
 816         return SdrObjKind::BasicDialogRadioButton;
 817     }
 818     else if ( supportsService( u"com.sun.star.awt.UnoControlCheckBoxModel"_ustr ))
 819     {
 820         return SdrObjKind::BasicDialogCheckbox;
 821     }
 822     else if ( supportsService( u"com.sun.star.awt.UnoControlListBoxModel"_ustr ))
 823     {
 824         return SdrObjKind::BasicDialogListbox;
 825     }
 826     else if ( supportsService( u"com.sun.star.awt.UnoControlComboBoxModel"_ustr ))
 827     {
 828         return SdrObjKind::BasicDialogCombobox;
 829     }
 830     else if ( supportsService( u"com.sun.star.awt.UnoControlGroupBoxModel"_ustr ))
 831     {
 832         return SdrObjKind::BasicDialogGroupBox;
 833     }
 834     else if ( supportsService( u"com.sun.star.awt.UnoControlEditModel"_ustr ))
 835     {
 836         return SdrObjKind::BasicDialogEdit;
 837     }
 838     else if ( supportsService( u"com.sun.star.awt.UnoControlFixedTextModel"_ustr ))
 839     {
 840         return SdrObjKind::BasicDialogFixedText;
 841     }
 842     else if ( supportsService( u"com.sun.star.awt.UnoControlImageControlModel"_ustr ))
 843     {
 844         return SdrObjKind::BasicDialogImageControl;
 845     }
 846     else if ( supportsService( u"com.sun.star.awt.UnoControlProgressBarModel"_ustr ))
 847     {
 848         return SdrObjKind::BasicDialogProgressbar;
 849     }
 850     else if ( supportsService( u"com.sun.star.awt.UnoControlScrollBarModel"_ustr ))
 851     {
 852         return SdrObjKind::BasicDialogHorizontalScrollbar;
 853     }
 854     else if ( supportsService( u"com.sun.star.awt.UnoControlFixedLineModel"_ustr ))
 855     {
 856         return SdrObjKind::BasicDialogHorizontalFixedLine;
 857     }
 858     else if ( supportsService( u"com.sun.star.awt.UnoControlDateFieldModel"_ustr ))
 859     {
 860         return SdrObjKind::BasicDialogDateField;
 861     }
 862     else if ( supportsService( u"com.sun.star.awt.UnoControlTimeFieldModel"_ustr ))
 863     {
 864         return SdrObjKind::BasicDialogTimeField;
 865     }
 866     else if ( supportsService( u"com.sun.star.awt.UnoControlNumericFieldModel"_ustr ))
 867     {
 868         return SdrObjKind::BasicDialogNumericField;
 869     }
 870     else if ( supportsService( u"com.sun.star.awt.UnoControlCurrencyFieldModel"_ustr ))
 871     {
 872         return SdrObjKind::BasicDialogCurencyField;
 873     }
 874     else if ( supportsService( u"com.sun.star.awt.UnoControlFormattedFieldModel"_ustr ))
 875     {
 876         return SdrObjKind::BasicDialogFormattedField;
 877     }
 878     else if ( supportsService( u"com.sun.star.awt.UnoControlPatternFieldModel"_ustr ))
 879     {
 880         return SdrObjKind::BasicDialogPatternField;
 881     }
 882     else if ( supportsService( u"com.sun.star.awt.UnoControlFileControlModel"_ustr ))
 883     {
 884         return SdrObjKind::BasicDialogFileControl;
 885     }
 886     else if ( supportsService( u"com.sun.star.awt.tree.TreeControlModel"_ustr ))
 887     {
 888         return SdrObjKind::BasicDialogTreeControl;
 889     }
 890     else if ( supportsService( u"com.sun.star.awt.grid.UnoControlGridModel"_ustr ))
 891     {
 892         return SdrObjKind::BasicDialogGridControl;
 893     }
 894     else if ( supportsService( u"com.sun.star.awt.UnoControlFixedHyperlinkModel"_ustr ))
 895     {
 896         return SdrObjKind::BasicDialogHyperlinkControl;
 897     }
 898     else
 899     {
 900         return SdrObjKind::BasicDialogControl;
 901     }
 902 }
 903
 904 rtl::Reference<SdrObject> DlgEdObj::CloneSdrObject(SdrModel& rTargetModel) const
 905 {
 906     return new DlgEdObj(rTargetModel, *this);
 907 }
 908
 909 rtl::Reference<SdrObject> DlgEdObj::getFullDragClone() const
 910 {
 911     // no need to really add the clone for dragging, it's a temporary
 912     // object
 913     return rtl::Reference<SdrObject>(new SdrUnoObj(getSdrModelFromSdrObject(), *this));
 914 }
 915
 916 void DlgEdObj::NbcMove( const Size& rSize )
 917 {
 918     SdrUnoObj::NbcMove( rSize );
 919
 920     // stop listening
 921     EndListening(false);
 922
 923     // set geometry properties
 924     SetPropsFromRect();
 925
 926     // start listening
 927     StartListening();
 928
 929     // dialog model changed
 930     GetDlgEdForm()->GetDlgEditor().SetDialogModelChanged();
 931 }
 932
 933 void DlgEdObj::NbcResize(const Point& rRef, const Fraction& xFract, const Fraction& yFract)
 934 {
 935     SdrUnoObj::NbcResize( rRef, xFract, yFract );
 936
 937     // stop listening
 938     EndListening(false);
 939
 940     // set geometry properties
 941     SetPropsFromRect();
 942
 943     // start listening
 944     StartListening();
 945
 946     // dialog model changed
 947     GetDlgEdForm()->GetDlgEditor().SetDialogModelChanged();
 948 }
 949
 950 bool DlgEdObj::EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd)
 951 {
 952     bool bResult = SdrUnoObj::EndCreate(rStat, eCmd);
 953
 954     // tdf#120674 after interactive creation, the SdrObject (this) has no SdrPage yet
 955     // due to not being inserted. Usually this should be handled in a ::handlePageChange
 956     // implementation. For historical reasons, the SdrPage (which is the DlgEdPage) was
 957     // already set. For now, get it from the SdrDragStat and use it to access and set
 958     // the local pDlgEdForm
 959     if(!pDlgEdForm && nullptr != rStat.GetPageView())
 960     {
 961         const DlgEdPage* pDlgEdPage(dynamic_cast<const DlgEdPage*>(rStat.GetPageView()->GetPage()));
 962
 963         if(nullptr != pDlgEdPage)
 964         {
 965             // set parent form
 966             pDlgEdForm = pDlgEdPage->GetDlgEdForm();
 967         }
 968     }
 969
 970     SetDefaults();
 971     StartListening();
 972
 973     return bResult;
 974 }
 975
 976 void DlgEdObj::SetDefaults()
 977 {
 978     if ( !pDlgEdForm )
 979         return;
 980
 981     // add child to parent form
 982     pDlgEdForm->AddChild( this );
 983
 984     Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY );
 985     if ( xPSet.is() )
 986     {
 987         // get unique name
 988         OUString aOUniqueName( GetUniqueName() );
 989
 990         // set name property
 991         xPSet->setPropertyValue( DLGED_PROP_NAME, Any(aOUniqueName) );
 992
 993         // set labels
 994         if ( supportsService( u"com.sun.star.awt.UnoControlButtonModel"_ustr ) ||
 995             supportsService( u"com.sun.star.awt.UnoControlRadioButtonModel"_ustr ) ||
 996             supportsService( u"com.sun.star.awt.UnoControlCheckBoxModel"_ustr ) ||
 997             supportsService( u"com.sun.star.awt.UnoControlGroupBoxModel"_ustr ) ||
 998             supportsService( u"com.sun.star.awt.UnoControlFixedTextModel"_ustr ) )
 999         {
1000             xPSet->setPropertyValue( DLGED_PROP_LABEL, Any(aOUniqueName) );
1001         }
1002
1003         // set number formats supplier for formatted field
1004         if ( supportsService( u"com.sun.star.awt.UnoControlFormattedFieldModel"_ustr ) )
1005         {
1006             Reference< util::XNumberFormatsSupplier > xSupplier = GetDlgEdForm()->GetDlgEditor().GetNumberFormatsSupplier();
1007             if ( xSupplier.is() )
1008             {
1009                 xPSet->setPropertyValue( DLGED_PROP_FORMATSSUPPLIER, Any(xSupplier) );
1010             }
1011         }
1012
1013         // set geometry properties
1014         SetPropsFromRect();
1015
1016         Reference< container::XNameContainer > xCont( GetDlgEdForm()->GetUnoControlModel() , UNO_QUERY );
1017         if ( xCont.is() )
1018         {
1019             // set tabindex
1020             Sequence< OUString > aNames = xCont->getElementNames();
1021             uno::Any aTabIndex;
1022             aTabIndex <<= static_cast<sal_Int16>(aNames.getLength());
1023             xPSet->setPropertyValue( DLGED_PROP_TABINDEX, aTabIndex );
1024
1025             // set step
1026             Reference< beans::XPropertySet > xPSetForm( xCont, UNO_QUERY );
1027             if ( xPSetForm.is() )
1028             {
1029                 Any aStep = xPSetForm->getPropertyValue( DLGED_PROP_STEP );
1030                 xPSet->setPropertyValue( DLGED_PROP_STEP, aStep );
1031             }
1032
1033             // insert control model in dialog model
1034             Reference< awt::XControlModel > xCtrl( xPSet , UNO_QUERY );
1035             Any aAny;
1036             aAny <<= xCtrl;
1037             xCont->insertByName( aOUniqueName , aAny );
1038
1039             LocalizationMgr::setControlResourceIDsForNewEditorObject(
1040                 &GetDialogEditor(), aAny, aOUniqueName
1041             );
1042
1043             pDlgEdForm->UpdateTabOrderAndGroups();
1044         }
1045     }
1046
1047     // dialog model changed
1048     pDlgEdForm->GetDlgEditor().SetDialogModelChanged();
1049 }
1050
1051 void DlgEdObj::StartListening()
1052 {
1053     DBG_ASSERT(!isListening(), "DlgEdObj::StartListening: already listening!");
1054
1055     if (isListening())
1056         return;
1057
1058     bIsListening = true;
1059
1060     // XPropertyChangeListener
1061     Reference< XPropertySet > xControlModel( GetUnoControlModel() , UNO_QUERY );
1062     if (!m_xPropertyChangeListener.is() && xControlModel.is())
1063     {
1064         // create listener
1065         m_xPropertyChangeListener = new DlgEdPropListenerImpl(*this);
1066
1067         // register listener to properties
1068         xControlModel->addPropertyChangeListener( OUString() , m_xPropertyChangeListener );
1069     }
1070
1071     // XContainerListener
1072     Reference< XScriptEventsSupplier > xEventsSupplier( GetUnoControlModel() , UNO_QUERY );
1073     if( !m_xContainerListener.is() && xEventsSupplier.is() )
1074     {
1075         // create listener
1076         m_xContainerListener = new DlgEdEvtContListenerImpl(*this);
1077
1078         // register listener to script event container
1079         Reference< XNameContainer > xEventCont = xEventsSupplier->getEvents();
1080         DBG_ASSERT(xEventCont.is(), "DlgEdObj::StartListening: control model has no script event container!");
1081         Reference< XContainer > xCont( xEventCont , UNO_QUERY );
1082         if (xCont.is())
1083             xCont->addContainerListener( m_xContainerListener );
1084     }
1085 }
1086
1087 void DlgEdObj::EndListening(bool bRemoveListener)
1088 {
1089     DBG_ASSERT(isListening(), "DlgEdObj::EndListening: not listening currently!");
1090
1091     if (!isListening())
1092         return;
1093
1094     bIsListening = false;
1095
1096     if (!bRemoveListener)
1097         return;
1098
1099     // XPropertyChangeListener
1100     Reference< XPropertySet > xControlModel(GetUnoControlModel(), UNO_QUERY);
1101     if ( m_xPropertyChangeListener.is() && xControlModel.is() )
1102     {
1103         // remove listener
1104         xControlModel->removePropertyChangeListener( OUString() , m_xPropertyChangeListener );
1105     }
1106     m_xPropertyChangeListener.clear();
1107
1108     // XContainerListener
1109     Reference< XScriptEventsSupplier > xEventsSupplier( GetUnoControlModel() , UNO_QUERY );
1110     if( m_xContainerListener.is() && xEventsSupplier.is() )
1111     {
1112         // remove listener
1113         Reference< XNameContainer > xEventCont = xEventsSupplier->getEvents();
1114         DBG_ASSERT(xEventCont.is(), "DlgEdObj::EndListening: control model has no script event container!");
1115         Reference< XContainer > xCont( xEventCont , UNO_QUERY );
1116         if (xCont.is())
1117             xCont->removeContainerListener( m_xContainerListener );
1118     }
1119     m_xContainerListener.clear();
1120 }
1121
1122 void DlgEdObj::_propertyChange( const  css::beans::PropertyChangeEvent& evt )
1123 {
1124     if (!isListening())
1125         return;
1126
1127     DlgEdForm* pRealDlgEdForm = dynamic_cast<DlgEdForm*>(this);
1128     if (!pRealDlgEdForm)
1129         pRealDlgEdForm = GetDlgEdForm();
1130     if (!pRealDlgEdForm)
1131         return;
1132     DlgEditor& rDlgEditor = pRealDlgEdForm->GetDlgEditor();
1133     if (rDlgEditor.isInPaint())
1134         return;
1135
1136     // dialog model changed
1137     rDlgEditor.SetDialogModelChanged();
1138
1139     // update position and size
1140     if ( evt.PropertyName == DLGED_PROP_POSITIONX || evt.PropertyName == DLGED_PROP_POSITIONY ||
1141          evt.PropertyName == DLGED_PROP_WIDTH || evt.PropertyName == DLGED_PROP_HEIGHT ||
1142          evt.PropertyName == DLGED_PROP_DECORATION )
1143     {
1144         PositionAndSizeChange( evt );
1145
1146         if ( evt.PropertyName == DLGED_PROP_DECORATION )
1147             GetDialogEditor().ResetDialog();
1148     }
1149     // change name of control in dialog model
1150     else if ( evt.PropertyName == DLGED_PROP_NAME )
1151     {
1152         if (!dynamic_cast<DlgEdForm*>(this))
1153         {
1154             try
1155             {
1156                 NameChange(evt);
1157             }
1158             catch (container::NoSuchElementException const&)
1159             {
1160                 css::uno::Any anyEx = cppu::getCaughtException();
1161                 throw lang::WrappedTargetRuntimeException(u""_ustr, nullptr,
1162                         anyEx);
1163             }
1164         }
1165     }
1166     // update step
1167     else if ( evt.PropertyName == DLGED_PROP_STEP )
1168     {
1169         UpdateStep();
1170     }
1171     // change tabindex
1172     else if ( evt.PropertyName == DLGED_PROP_TABINDEX )
1173     {
1174         if (!dynamic_cast<DlgEdForm*>(this))
1175             TabIndexChange(evt);
1176     }
1177 }
1178
1179 void DlgEdObj::_elementInserted()
1180 {
1181     if (isListening())
1182     {
1183         // dialog model changed
1184         GetDialogEditor().SetDialogModelChanged();
1185     }
1186 }
1187
1188 void DlgEdObj::_elementReplaced()
1189 {
1190     if (isListening())
1191     {
1192         // dialog model changed
1193         GetDialogEditor().SetDialogModelChanged();
1194     }
1195 }
1196
1197 void DlgEdObj::_elementRemoved()
1198 {
1199     if (isListening())
1200     {
1201         // dialog model changed
1202         GetDialogEditor().SetDialogModelChanged();
1203     }
1204 }
1205
1206 void DlgEdObj::SetLayer(SdrLayerID nLayer)
1207 {
1208     SdrLayerID nOldLayer = GetLayer();
1209
1210     if ( nLayer != nOldLayer )
1211     {
1212         SdrUnoObj::SetLayer( nLayer );
1213
1214         DlgEdHint aHint( DlgEdHint::LAYERCHANGED, this );
1215         GetDlgEdForm()->GetDlgEditor().Broadcast( aHint );
1216     }
1217 }
1218
1219 DlgEdForm::DlgEdForm(
1220     SdrModel& rSdrModel,
1221     DlgEditor& rDlgEditor_)
1222 :   DlgEdObj(rSdrModel),
1223     rDlgEditor(rDlgEditor_)
1224 {
1225 }
1226
1227 DlgEdForm::~DlgEdForm()
1228 {
1229 }
1230
1231 void DlgEdForm::SetRectFromProps()
1232 {
1233     // get form position and size from properties
1234     Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY );
1235     if ( !xPSet.is() )
1236         return;
1237
1238     sal_Int32 nXIn = 0, nYIn = 0, nWidthIn = 0, nHeightIn = 0;
1239     xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nXIn;
1240     xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nYIn;
1241     xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidthIn;
1242     xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeightIn;
1243
1244     // transform coordinates
1245     sal_Int32 nXOut, nYOut, nWidthOut, nHeightOut;
1246     if ( TransformFormToSdrCoordinates( nXIn, nYIn, nWidthIn, nHeightIn, nXOut, nYOut, nWidthOut, nHeightOut ) )
1247     {
1248         // set rectangle position and size
1249         Point aPoint( nXOut, nYOut );
1250         Size aSize( nWidthOut, nHeightOut );
1251         SetSnapRect( tools::Rectangle( aPoint, aSize ) );
1252     }
1253 }
1254
1255 void DlgEdForm::SetPropsFromRect()
1256 {
1257     // get form position and size from rectangle
1258     tools::Rectangle aRect_ = GetSnapRect();
1259     sal_Int32 nXIn = aRect_.Left();
1260     sal_Int32 nYIn = aRect_.Top();
1261     sal_Int32 nWidthIn = aRect_.GetWidth();
1262     sal_Int32 nHeightIn = aRect_.GetHeight();
1263
1264     // transform coordinates
1265     sal_Int32 nXOut, nYOut, nWidthOut, nHeightOut;
1266     if ( TransformSdrToFormCoordinates( nXIn, nYIn, nWidthIn, nHeightIn, nXOut, nYOut, nWidthOut, nHeightOut ) )
1267     {
1268         // set properties
1269         Reference< beans::XPropertySet > xPSet( GetUnoControlModel(), UNO_QUERY );
1270         if ( xPSet.is() )
1271         {
1272             xPSet->setPropertyValue( DLGED_PROP_POSITIONX, Any(nXOut) );
1273             xPSet->setPropertyValue( DLGED_PROP_POSITIONY, Any(nYOut) );
1274             xPSet->setPropertyValue( DLGED_PROP_WIDTH, Any(nWidthOut) );
1275             xPSet->setPropertyValue( DLGED_PROP_HEIGHT, Any(nHeightOut) );
1276         }
1277     }
1278 }
1279
1280 void DlgEdForm::AddChild( DlgEdObj* pDlgEdObj )
1281 {
1282     pChildren.push_back( pDlgEdObj );
1283 }
1284
1285 void DlgEdForm::RemoveChild( DlgEdObj* pDlgEdObj )
1286 {
1287     std::erase(pChildren, pDlgEdObj);
1288 }
1289
1290 void DlgEdForm::PositionAndSizeChange( const beans::PropertyChangeEvent& evt )
1291 {
1292     DlgEditor& rEditor = GetDlgEditor();
1293     DlgEdPage& rPage = rEditor.GetPage();
1294
1295     sal_Int32 nPageXIn = 0;
1296     sal_Int32 nPageYIn = 0;
1297     Size aPageSize = rPage.GetSize();
1298     sal_Int32 nPageWidthIn = aPageSize.Width();
1299     sal_Int32 nPageHeightIn = aPageSize.Height();
1300     sal_Int32 nPageX, nPageY, nPageWidth, nPageHeight;
1301     if ( TransformSdrToFormCoordinates( nPageXIn, nPageYIn, nPageWidthIn, nPageHeightIn, nPageX, nPageY, nPageWidth, nPageHeight ) )
1302     {
1303         Reference< beans::XPropertySet > xPSetForm( GetUnoControlModel(), UNO_QUERY );
1304         if ( xPSetForm.is() )
1305         {
1306             sal_Int32 nValue = 0;
1307             evt.NewValue >>= nValue;
1308             sal_Int32 nNewValue = nValue;
1309
1310             if ( evt.PropertyName == DLGED_PROP_POSITIONX )
1311             {
1312                 if ( nNewValue < nPageX )
1313                     nNewValue = nPageX;
1314             }
1315             else if ( evt.PropertyName == DLGED_PROP_POSITIONY )
1316             {
1317                 if ( nNewValue < nPageY )
1318                     nNewValue = nPageY;
1319             }
1320             else if ( evt.PropertyName == DLGED_PROP_WIDTH )
1321             {
1322                 if ( nNewValue < 1 )
1323                     nNewValue = 1;
1324             }
1325             else if ( evt.PropertyName == DLGED_PROP_HEIGHT )
1326             {
1327                 if ( nNewValue < 1 )
1328                     nNewValue = 1;
1329             }
1330
1331             if ( nNewValue != nValue )
1332             {
1333                 EndListening( false );
1334                 xPSetForm->setPropertyValue( evt.PropertyName, Any(nNewValue) );
1335                 StartListening();
1336             }
1337         }
1338     }
1339
1340     bool bAdjustedPageSize = rEditor.AdjustPageSize();
1341     SetRectFromProps();
1342     std::vector<DlgEdObj*> const& aChildList = GetChildren();
1343
1344     if ( bAdjustedPageSize )
1345     {
1346         rEditor.InitScrollBars();
1347         aPageSize = rPage.GetSize();
1348         nPageWidthIn = aPageSize.Width();
1349         nPageHeightIn = aPageSize.Height();
1350         if ( TransformSdrToControlCoordinates( nPageXIn, nPageYIn, nPageWidthIn, nPageHeightIn, nPageX, nPageY, nPageWidth, nPageHeight ) )
1351         {
1352             for (auto const& child : aChildList)
1353             {
1354                 Reference< beans::XPropertySet > xPSet( child->GetUnoControlModel(), UNO_QUERY );
1355                 if ( xPSet.is() )
1356                 {
1357                     sal_Int32 nX = 0, nY = 0, nWidth = 0, nHeight = 0;
1358                     xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nX;
1359                     xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nY;
1360                     xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidth;
1361                     xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeight;
1362
1363                     sal_Int32 nNewX = nX;
1364                     if ( nX + nWidth > nPageX + nPageWidth )
1365                     {
1366                         nNewX = nPageX + nPageWidth - nWidth;
1367                         if ( nNewX < nPageX )
1368                             nNewX = nPageX;
1369                     }
1370                     if ( nNewX != nX )
1371                     {
1372                         EndListening( false );
1373                         xPSet->setPropertyValue( DLGED_PROP_POSITIONX, Any(nNewX) );
1374                         StartListening();
1375                     }
1376
1377                     sal_Int32 nNewY = nY;
1378                     if ( nY + nHeight > nPageY + nPageHeight )
1379                     {
1380                         nNewY = nPageY + nPageHeight - nHeight;
1381                         if ( nNewY < nPageY )
1382                             nNewY = nPageY;
1383                     }
1384                     if ( nNewY != nY )
1385                     {
1386                         EndListening( false );
1387                         xPSet->setPropertyValue( DLGED_PROP_POSITIONY, Any(nNewY) );
1388                         StartListening();
1389                     }
1390                 }
1391             }
1392         }
1393     }
1394
1395     for (auto const& child : aChildList)
1396         child->SetRectFromProps();
1397 }
1398
1399 void DlgEdForm::UpdateStep()
1400 {
1401     SdrPage* pSdrPage = getSdrPageFromSdrObject();
1402
1403     if ( pSdrPage )
1404     {
1405         for (const rtl::Reference<SdrObject>& pObj : *pSdrPage)
1406         {
1407             DlgEdObj* pDlgEdObj = dynamic_cast<DlgEdObj*>(pObj.get());
1408             if (pDlgEdObj && !dynamic_cast<DlgEdForm*>(pDlgEdObj))
1409                 pDlgEdObj->UpdateStep();
1410         }
1411     }
1412 }
1413
1414 void DlgEdForm::UpdateTabIndices()
1415 {
1416     // stop listening with all children
1417     for (auto const& child : pChildren)
1418     {
1419         child->EndListening( false );
1420     }
1421
1422     Reference< css::container::XNameAccess > xNameAcc( GetUnoControlModel() , UNO_QUERY );
1423     if ( xNameAcc.is() )
1424     {
1425         // get sequence of control names
1426         // create a map of tab indices and control names, sorted by tab index
1427         IndexToNameMap aIndexToNameMap;
1428         for (auto& aName : xNameAcc->getElementNames())
1429         {
1430             // get tab index
1431             sal_Int16 nTabIndex = -1;
1432             Any aCtrl = xNameAcc->getByName( aName );
1433             Reference< css::beans::XPropertySet > xPSet;
1434             aCtrl >>= xPSet;
1435             if ( xPSet.is() )
1436                 xPSet->getPropertyValue( DLGED_PROP_TABINDEX ) >>= nTabIndex;
1437
1438             // insert into map
1439             aIndexToNameMap.emplace( nTabIndex, aName );
1440         }
1441
1442         // set new tab indices
1443         sal_Int16 nNewTabIndex = 0;
1444         for (auto const& indexToName : aIndexToNameMap)
1445         {
1446             Any aCtrl = xNameAcc->getByName( indexToName.second );
1447             Reference< beans::XPropertySet > xPSet;
1448             aCtrl >>= xPSet;
1449             if ( xPSet.is() )
1450             {
1451                 xPSet->setPropertyValue( DLGED_PROP_TABINDEX, Any(nNewTabIndex) );
1452                 nNewTabIndex++;
1453             }
1454         }
1455
1456         UpdateTabOrderAndGroups();
1457     }
1458
1459     // start listening with all children
1460     for (auto const& child : pChildren)
1461     {
1462         child->StartListening();
1463     }
1464 }
1465
1466 void DlgEdForm::UpdateTabOrder()
1467 {
1468     // When the tabindex of a control model changes, the dialog control is
1469     // notified about those changes. Due to #109067# (bad performance of
1470     // dialog editor) the dialog control doesn't activate the tab order
1471     // in design mode. When the dialog editor has reordered all
1472     // tabindices, this method allows to activate the taborder afterwards.
1473
1474     Reference< awt::XUnoControlContainer > xCont( GetControl(), UNO_QUERY );
1475     if ( xCont.is() )
1476     {
1477         for (auto& xTabController : xCont->getTabControllers())
1478             xTabController->activateTabOrder();
1479     }
1480 }
1481
1482 void DlgEdForm::UpdateGroups()
1483 {
1484     // The grouping of radio buttons in a dialog is done by vcl.
1485     // In the dialog editor we have two views (=controls) for one
1486     // radio button model. One control is owned by the dialog control,
1487     // but not visible in design mode. The other control is owned by
1488     // the drawing layer object. Whereas the grouping of the first
1489     // control is done by vcl, the grouping of the control in the
1490     // drawing layer has to be done here.
1491
1492     Reference< awt::XTabControllerModel > xTabModel( GetUnoControlModel() , UNO_QUERY );
1493     if ( !xTabModel.is() )
1494         return;
1495
1496     // create a global list of controls that belong to the dialog
1497     std::vector<DlgEdObj*> aChildList = GetChildren();
1498     sal_uInt32 nSize = aChildList.size();
1499     Sequence< Reference< awt::XControl > > aSeqControls( nSize );
1500     auto* pSeqControlsData = aSeqControls.getArray();
1501     for ( sal_uInt32 i = 0; i < nSize; ++i )
1502         pSeqControlsData[i] = aChildList[i]->GetControl();
1503
1504     sal_Int32 nGroupCount = xTabModel->getGroupCount();
1505     for ( sal_Int32 nGroup = 0; nGroup < nGroupCount; ++nGroup )
1506     {
1507         // get a list of control models that belong to this group
1508         OUString aName;
1509         Sequence< Reference< awt::XControlModel > > aSeqModels;
1510         xTabModel->getGroup( nGroup, aSeqModels, aName );
1511         sal_Int32 nModelCount = aSeqModels.getLength();
1512
1513         // create a list of peers that belong to this group
1514         Sequence< Reference< awt::XWindow > > aSeqPeers( nModelCount );
1515         auto* pSeqPeersData = aSeqPeers.getArray();
1516         for ( sal_Int32 nModel = 0; nModel < nModelCount; ++nModel )
1517         {
1518             // for each control model find the corresponding control in the global list
1519             for (auto& xCtrl : aSeqControls)
1520             {
1521                 if ( xCtrl.is() )
1522                 {
1523                     Reference< awt::XControlModel > xCtrlModel( xCtrl->getModel() );
1524                     if (xCtrlModel.get() == aSeqModels[nModel].get())
1525                     {
1526                         // get the control peer and insert into the list of peers
1527                         pSeqPeersData[nModel].set(xCtrl->getPeer(), UNO_QUERY);
1528                         break;
1529                     }
1530                 }
1531             }
1532         }
1533
1534         // set the group at the dialog peer
1535         Reference< awt::XControl > xDlg = GetControl();
1536         if ( xDlg.is() )
1537         {
1538             Reference< awt::XVclContainerPeer > xDlgPeer( xDlg->getPeer(), UNO_QUERY );
1539             if ( xDlgPeer.is() )
1540                 xDlgPeer->setGroup( aSeqPeers );
1541         }
1542     }
1543 }
1544
1545 void DlgEdForm::UpdateTabOrderAndGroups()
1546 {
1547     UpdateTabOrder();
1548     UpdateGroups();
1549 }
1550
1551 void DlgEdForm::NbcMove( const Size& rSize )
1552 {
1553     SdrUnoObj::NbcMove( rSize );
1554
1555     // set geometry properties of form
1556     EndListening(false);
1557     SetPropsFromRect();
1558     StartListening();
1559
1560     // set geometry properties of all children
1561     for (auto const& child : pChildren)
1562     {
1563         child->EndListening(false);
1564         child->SetPropsFromRect();
1565         child->StartListening();
1566     }
1567
1568     // dialog model changed
1569     GetDlgEditor().SetDialogModelChanged();
1570 }
1571
1572 void DlgEdForm::NbcResize(const Point& rRef, const Fraction& xFract, const Fraction& yFract)
1573 {
1574     SdrUnoObj::NbcResize( rRef, xFract, yFract );
1575
1576     // set geometry properties of form
1577     EndListening(false);
1578     SetPropsFromRect();
1579     StartListening();
1580
1581     // set geometry properties of all children
1582     for (auto const& child : pChildren)
1583     {
1584         child->EndListening(false);
1585         child->SetPropsFromRect();
1586         child->StartListening();
1587     }
1588
1589     // dialog model changed
1590     GetDlgEditor().SetDialogModelChanged();
1591 }
1592
1593 bool DlgEdForm::EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd)
1594 {
1595     bool bResult = SdrUnoObj::EndCreate(rStat, eCmd);
1596
1597     // stop listening
1598     EndListening(false);
1599
1600     // set geometry properties
1601     SetPropsFromRect();
1602
1603     // dialog model changed
1604     GetDlgEditor().SetDialogModelChanged();
1605
1606     // start listening
1607     StartListening();
1608
1609     return bResult;
1610 }
1611
1612 awt::DeviceInfo DlgEdForm::getDeviceInfo() const
1613 {
1614     awt::DeviceInfo aDeviceInfo;
1615
1616     DlgEditor& rEditor = GetDlgEditor();
1617     vcl::Window& rWindow = rEditor.GetWindow();
1618
1619     // obtain an XControl
1620     ::utl::SharedUNOComponent< awt::XControl > xDialogControl; // ensures auto-disposal, if needed
1621     xDialogControl.reset( GetControl(), ::utl::SharedUNOComponent< awt::XControl >::NoTakeOwnership );
1622     if ( !xDialogControl.is() )
1623     {
1624         // don't create a temporary control all the time, this method here is called
1625         // way too often. Instead, use a cached DeviceInfo.
1626         // #i74065#
1627         if ( !!mpDeviceInfo )
1628             return *mpDeviceInfo;
1629
1630         Reference< awt::XControlContainer > xEditorControlContainer( rEditor.GetWindowControlContainer() );
1631         xDialogControl.reset(
1632             GetTemporaryControlForWindow(rWindow, xEditorControlContainer),
1633             utl::SharedUNOComponent< awt::XControl >::TakeOwnership
1634         );
1635     }
1636
1637     Reference< awt::XDevice > xDialogDevice;
1638     if ( xDialogControl.is() )
1639         xDialogDevice.set( xDialogControl->getPeer(), UNO_QUERY );
1640     DBG_ASSERT( xDialogDevice.is(), "DlgEdForm::getDeviceInfo: no device!" );
1641     if ( xDialogDevice.is() )
1642         aDeviceInfo = xDialogDevice->getInfo();
1643
1644     mpDeviceInfo = aDeviceInfo;
1645
1646     return aDeviceInfo;
1647 }
1648 void DlgEdObj::MakeDataAware( const Reference< frame::XModel >& xModel )
1649 {
1650     // Need to flesh this out, currently we will only support data-aware controls for calc
1651     // and only handle a subset of functionality e.g. linked-cell and cell range data source. Of course later
1652     // we need to disambiguate for writer ( and others ? ) and also support the generic form (db) bindings
1653     // we need some more work in xmlscript to be able to handle that
1654     Reference< lang::XMultiServiceFactory > xFac( xModel, UNO_QUERY );
1655     Reference< form::binding::XBindableValue > xBindable( GetUnoControlModel(), UNO_QUERY );
1656     Reference< form::binding::XListEntrySink  > xListEntrySink( GetUnoControlModel(), UNO_QUERY );
1657     if ( !xFac.is() )
1658         return;
1659
1660     //tdf#90361 and tdf#104011 CellValueBinding and CellRangeListSource are unusable
1661     //without being initialized, so use createInstanceWithArguments with a
1662     //dummy BoundCell and CellRange instead of createInstance. This at least results in
1663     //the dialog editor not falling.
1664     css::beans::NamedValue aCellValue;
1665     aCellValue.Name = "BoundCell";
1666     css::table::CellAddress aCellAddress;
1667     aCellValue.Value <<= aCellAddress;
1668
1669     css::beans::NamedValue aCellRange;
1670     aCellRange.Name = "CellRange";
1671     css::table::CellRangeAddress aRangeAddress;
1672     aCellRange.Value <<= aRangeAddress;
1673
1674     Sequence< Any > aArgs{ Any(aCellValue), Any(aCellRange) };
1675
1676     if ( xBindable.is() )
1677     {
1678         Reference< form::binding::XValueBinding > xBinding( xFac->createInstanceWithArguments( u"com.sun.star.table.CellValueBinding"_ustr, aArgs ), UNO_QUERY );
1679         xBindable->setValueBinding( xBinding );
1680     }
1681     if ( xListEntrySink.is() )
1682     {
1683         Reference< form::binding::XListEntrySource > xSource( xFac->createInstanceWithArguments( u"com.sun.star.table.CellRangeListSource"_ustr, aArgs ), UNO_QUERY );
1684         xListEntrySink->setListEntrySource( xSource );
1685     }
1686 }
1687 } // namespace basctl
1688
1689 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */