/************************************************************** * * Licensed to the Apache Software Foundation (ASF) under one * or more contributor license agreements. See the NOTICE file * distributed with this work for additional information * regarding copyright ownership. The ASF licenses this file * to you under the Apache License, Version 2.0 (the * "License"); you may not use this file except in compliance * with the License. You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, * software distributed under the License is distributed on an * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY * KIND, either express or implied. See the License for the * specific language governing permissions and limitations * under the License. * *************************************************************/ // MARKER(update_precomp.py): autogen include statement, do not remove #include "precompiled_svx.hxx" #include "fmvwimp.hxx" #include #include "svx/fmtools.hxx" #include "fmservs.hxx" #ifndef _SVX_FMPROP_HRC #include "fmprop.hrc" #endif #include "fmpgeimp.hxx" #include "fmitems.hxx" #include "fmundo.hxx" #include #include #include #ifndef _COM_SUN_STAR_SDDB_PRIVILEGE_HPP_ #include #endif #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "svx/svditer.hxx" #include "fmobj.hxx" #ifndef _SVX_SVXIDS_HRC #include #endif #ifndef _SVX_FMRESIDS_HRC #include "svx/fmresids.hrc" #endif #include "fmexch.hxx" #include #include #include #include #include #include #include #include "fmshimp.hxx" #include #include #include #include #include "fmexpl.hxx" #include "formcontrolling.hxx" #include #include #include #include #include "fmdocumentclassification.hxx" #include "formtoolbars.hxx" #include //CHINA001 #include //CHINA001 #include "svx/sdrobjectfilter.hxx" #define HANDLE_SQL_ERRORS( action, successflag, context, message ) \ try \ { \ successflag = sal_False; \ action; \ successflag = sal_True; \ } \ catch(::com::sun::star::sdbc::SQLException& e) \ { \ ::com::sun::star::sdb::SQLContext eExtendedInfo = \ GetImpl()->prependContextInfo(e, Reference< XInterface > (), context, ::rtl::OUString()); \ displayException(eExtendedInfo); \ } \ catch(Exception&) \ { \ DBG_ERROR(message); \ } \ #define DO_SAFE_WITH_ERROR( action, message ) try { action; } catch(Exception&) { DBG_ERROR(message); } #define FmFormShell #include "svxslots.hxx" #ifndef _SVX_SVXIDS_HRC #include #endif #include "tbxform.hxx" #include #include // wird fuer Invalidate verwendet -> mitpflegen // aufsteigend sortieren !!!!!! sal_uInt16 ControllerSlotMap[] = // slots des Controllers { SID_FM_CONFIG, SID_FM_PUSHBUTTON, SID_FM_RADIOBUTTON, SID_FM_CHECKBOX, SID_FM_FIXEDTEXT, SID_FM_GROUPBOX, SID_FM_EDIT, SID_FM_LISTBOX, SID_FM_COMBOBOX, SID_FM_DBGRID, SID_FM_IMAGEBUTTON, SID_FM_FILECONTROL, SID_FM_NAVIGATIONBAR, SID_FM_CTL_PROPERTIES, SID_FM_PROPERTIES, SID_FM_TAB_DIALOG, SID_FM_ADD_FIELD, SID_FM_DESIGN_MODE, SID_FM_SHOW_FMEXPLORER, SID_FM_SHOW_PROPERTIES, SID_FM_FMEXPLORER_CONTROL, SID_FM_DATEFIELD, SID_FM_TIMEFIELD, SID_FM_NUMERICFIELD, SID_FM_CURRENCYFIELD, SID_FM_PATTERNFIELD, SID_FM_OPEN_READONLY, SID_FM_IMAGECONTROL, SID_FM_USE_WIZARDS, SID_FM_FORMATTEDFIELD, SID_FM_FILTER_NAVIGATOR, SID_FM_AUTOCONTROLFOCUS, SID_FM_SCROLLBAR, SID_FM_SPINBUTTON, SID_FM_SHOW_DATANAVIGATOR, SID_FM_DATANAVIGATOR_CONTROL, 0 }; using namespace ::com::sun::star::uno; using namespace ::com::sun::star::awt; using namespace ::com::sun::star::sdbc; using namespace ::com::sun::star::sdbcx; using namespace ::com::sun::star::beans; using namespace ::com::sun::star::form; using namespace ::com::sun::star::form::runtime; using namespace ::com::sun::star::frame; using namespace ::svxform; //======================================================================== // class FmDesignModeChangedHint //======================================================================== TYPEINIT1( FmDesignModeChangedHint, SfxHint ); //------------------------------------------------------------------------ FmDesignModeChangedHint::FmDesignModeChangedHint( sal_Bool bDesMode ) :m_bDesignMode( bDesMode ) { } //------------------------------------------------------------------------ FmDesignModeChangedHint::~FmDesignModeChangedHint() { } //======================================================================== const sal_uInt32 FM_UI_FEATURE_SHOW_DATABASEBAR = 0x00000001; const sal_uInt32 FM_UI_FEATURE_SHOW_FIELD = 0x00000002; const sal_uInt32 FM_UI_FEATURE_SHOW_PROPERTIES = 0x00000004; const sal_uInt32 FM_UI_FEATURE_SHOW_EXPLORER = 0x00000008; const sal_uInt32 FM_UI_FEATURE_SHOW_FILTERBAR = 0x00000010; const sal_uInt32 FM_UI_FEATURE_SHOW_FILTERNAVIGATOR = 0x00000020; const sal_uInt32 FM_UI_FEATURE_SHOW_TEXT_CONTROL_BAR = 0x00000040; const sal_uInt32 FM_UI_FEATURE_TB_CONTROLS = 0x00000080; const sal_uInt32 FM_UI_FEATURE_TB_MORECONTROLS = 0x00000100; const sal_uInt32 FM_UI_FEATURE_TB_FORMDESIGN = 0x00000200; const sal_uInt32 FM_UI_FEATURE_SHOW_DATANAVIGATOR = 0x00000400; SFX_IMPL_INTERFACE(FmFormShell, SfxShell, SVX_RES(RID_STR_FORMSHELL)) { SFX_FEATURED_OBJECTBAR_REGISTRATION( SFX_OBJECTBAR_NAVIGATION|SFX_VISIBILITY_STANDARD|SFX_VISIBILITY_READONLYDOC, SVX_RES(RID_SVXTBX_FORM_NAVIGATION), FM_UI_FEATURE_SHOW_DATABASEBAR ); SFX_FEATURED_OBJECTBAR_REGISTRATION( SFX_OBJECTBAR_NAVIGATION|SFX_VISIBILITY_STANDARD|SFX_VISIBILITY_READONLYDOC, SVX_RES(RID_SVXTBX_FORM_FILTER), FM_UI_FEATURE_SHOW_FILTERBAR ); SFX_FEATURED_OBJECTBAR_REGISTRATION( SFX_OBJECTBAR_OBJECT | SFX_VISIBILITY_STANDARD | SFX_VISIBILITY_READONLYDOC, SVX_RES( RID_SVXTBX_TEXT_CONTROL_ATTRIBUTES ), FM_UI_FEATURE_SHOW_TEXT_CONTROL_BAR ); SFX_FEATURED_CHILDWINDOW_REGISTRATION(SID_FM_ADD_FIELD, FM_UI_FEATURE_SHOW_FIELD); SFX_FEATURED_CHILDWINDOW_REGISTRATION(SID_FM_SHOW_PROPERTIES, FM_UI_FEATURE_SHOW_PROPERTIES); SFX_FEATURED_CHILDWINDOW_REGISTRATION(SID_FM_SHOW_FMEXPLORER, FM_UI_FEATURE_SHOW_EXPLORER); SFX_FEATURED_CHILDWINDOW_REGISTRATION(SID_FM_FILTER_NAVIGATOR, FM_UI_FEATURE_SHOW_FILTERNAVIGATOR); SFX_FEATURED_CHILDWINDOW_REGISTRATION(SID_FM_SHOW_DATANAVIGATOR, FM_UI_FEATURE_SHOW_DATANAVIGATOR); SFX_FEATURED_OBJECTBAR_REGISTRATION( SFX_OBJECTBAR_OBJECT | SFX_VISIBILITY_STANDARD, SVX_RES( RID_SVXTBX_CONTROLS ), FM_UI_FEATURE_TB_CONTROLS ); SFX_FEATURED_OBJECTBAR_REGISTRATION( SFX_OBJECTBAR_OBJECT | SFX_VISIBILITY_STANDARD, SVX_RES( RID_SVXTBX_MORECONTROLS ), FM_UI_FEATURE_TB_MORECONTROLS ); SFX_FEATURED_OBJECTBAR_REGISTRATION( SFX_OBJECTBAR_OBJECT | SFX_VISIBILITY_STANDARD, SVX_RES( RID_SVXTBX_FORMDESIGN ), FM_UI_FEATURE_TB_FORMDESIGN ); } //======================================================================== TYPEINIT1(FmFormShell,SfxShell) //------------------------------------------------------------------------ FmFormShell::FmFormShell( SfxViewShell* _pParent, FmFormView* pView ) :SfxShell(_pParent) ,m_pImpl(new FmXFormShell(*this, _pParent->GetViewFrame())) ,m_pFormView( pView ) ,m_pFormModel( NULL ) ,m_pParentShell(_pParent) ,m_nLastSlot( 0 ) ,m_bDesignMode( sal_True ) ,m_bHasForms(sal_False) { m_pImpl->acquire(); SetPool( &SFX_APP()->GetPool() ); SetName( String::CreateFromAscii( "Form" ) ); SetView(m_pFormView); } //------------------------------------------------------------------------ FmFormShell::~FmFormShell() { if ( m_pFormView ) SetView( NULL ); m_pImpl->dispose(); m_pImpl->release(); m_pImpl = NULL; } //------------------------------------------------------------------------ void FmFormShell::NotifyMarkListChanged(FmFormView* pWhichView) { FmNavViewMarksChanged aChangeNotification(pWhichView); Broadcast(aChangeNotification); } //------------------------------------------------------------------------ sal_uInt16 FmFormShell::PrepareClose(sal_Bool bUI, sal_Bool /*bForBrowsing*/) { if ( GetImpl()->didPrepareClose() ) // we already did a PrepareClose for the current modifications of the current form // 2002-11-12 #104702# - fs@openoffice.org return sal_True; sal_Bool bResult = sal_True; // Save the data records, not in DesignMode and FilterMode if (!m_bDesignMode && !GetImpl()->isInFilterMode() && m_pFormView && m_pFormView->GetActualOutDev() && m_pFormView->GetActualOutDev()->GetOutDevType() == OUTDEV_WINDOW) { SdrPageView* pCurPageView = m_pFormView->GetSdrPageView(); // sal_uInt16 nPos = pCurPageView ? pCurPageView->GetWinList().Find((OutputDevice*)m_pFormView->GetActualOutDev()) : SDRPAGEVIEWWIN_NOTFOUND; SdrPageWindow* pWindow = pCurPageView ? pCurPageView->FindPageWindow(*((OutputDevice*)m_pFormView->GetActualOutDev())) : 0L; if(pWindow) { // Zunaechst werden die aktuellen Inhalte der Controls gespeichert // Wenn alles glatt gelaufen ist, werden die modifizierten Datensaetze gespeichert if ( GetImpl()->getActiveController().is() ) { const ::svx::ControllerFeatures& rController = GetImpl()->getActiveControllerFeatures(); if ( rController->commitCurrentControl() ) { sal_Bool bModified = rController->isModifiedRow(); if ( bModified && bUI ) { QueryBox aQry(NULL, SVX_RES(RID_QRY_SAVEMODIFIED)); switch (aQry.Execute()) { case RET_NO: bModified = sal_False; GetImpl()->didPrepareClose( sal_True ); break; case RET_CANCEL: return sal_False; case RET_NEWTASK: return RET_NEWTASK; } if ( bModified ) bResult = rController->commitCurrentRecord( ); } } } } } return bResult; } //------------------------------------------------------------------------ void FmFormShell::impl_setDesignMode(sal_Bool bDesign) { if (m_pFormView) { if (!bDesign) m_nLastSlot = SID_FM_DESIGN_MODE; GetImpl()->SetDesignMode(bDesign); // mein m_bDesignMode wird auch von der Impl gesetzt ... } else { m_bHasForms = sal_False; m_bDesignMode = bDesign; UIFeatureChanged(); } GetViewShell()->GetViewFrame()->GetBindings().Invalidate(ControllerSlotMap); } //------------------------------------------------------------------------ sal_Bool FmFormShell::HasUIFeature( sal_uInt32 nFeature ) { sal_Bool bResult = sal_False; if ((nFeature & FM_UI_FEATURE_SHOW_DATABASEBAR) == FM_UI_FEATURE_SHOW_DATABASEBAR) { // nur wenn auch formulare verfuegbar bResult = !m_bDesignMode && GetImpl()->hasDatabaseBar() && !GetImpl()->isInFilterMode(); } else if ((nFeature & FM_UI_FEATURE_SHOW_FILTERBAR) == FM_UI_FEATURE_SHOW_FILTERBAR) { // nur wenn auch formulare verfuegbar bResult = !m_bDesignMode && GetImpl()->hasDatabaseBar() && GetImpl()->isInFilterMode(); } else if ((nFeature & FM_UI_FEATURE_SHOW_FILTERNAVIGATOR) == FM_UI_FEATURE_SHOW_FILTERNAVIGATOR) { bResult = !m_bDesignMode && GetImpl()->hasDatabaseBar() && GetImpl()->isInFilterMode(); } else if ((nFeature & FM_UI_FEATURE_SHOW_FIELD) == FM_UI_FEATURE_SHOW_FIELD) { bResult = m_bDesignMode && m_pFormView && m_bHasForms; } else if ((nFeature & FM_UI_FEATURE_SHOW_PROPERTIES) == FM_UI_FEATURE_SHOW_PROPERTIES) { bResult = m_bDesignMode && m_pFormView && m_bHasForms; } else if ((nFeature & FM_UI_FEATURE_SHOW_EXPLORER) == FM_UI_FEATURE_SHOW_EXPLORER) { bResult = m_bDesignMode; // OJ #101593# && m_pFormView && m_bHasForms; } else if ( ( nFeature & FM_UI_FEATURE_SHOW_TEXT_CONTROL_BAR ) == FM_UI_FEATURE_SHOW_TEXT_CONTROL_BAR ) { bResult = !GetImpl()->IsReadonlyDoc() && m_pImpl->IsActiveControl( true ); } else if ((nFeature & FM_UI_FEATURE_SHOW_DATANAVIGATOR) == FM_UI_FEATURE_SHOW_DATANAVIGATOR) { bResult = GetImpl()->isEnhancedForm(); } else if ( ( ( nFeature & FM_UI_FEATURE_TB_CONTROLS ) == FM_UI_FEATURE_TB_CONTROLS ) || ( ( nFeature & FM_UI_FEATURE_TB_MORECONTROLS ) == FM_UI_FEATURE_TB_MORECONTROLS ) || ( ( nFeature & FM_UI_FEATURE_TB_FORMDESIGN ) == FM_UI_FEATURE_TB_FORMDESIGN ) ) { bResult = sal_True; } return bResult; } //------------------------------------------------------------------------ void FmFormShell::Execute(SfxRequest &rReq) { sal_uInt16 nSlot = rReq.GetSlot(); ////////////////////////////////////////////////////////////////////// // MasterSlot setzen switch( nSlot ) { case SID_FM_PUSHBUTTON: case SID_FM_RADIOBUTTON: case SID_FM_CHECKBOX: case SID_FM_FIXEDTEXT: case SID_FM_GROUPBOX: case SID_FM_LISTBOX: case SID_FM_COMBOBOX: case SID_FM_NAVIGATIONBAR: case SID_FM_EDIT: case SID_FM_DBGRID: case SID_FM_IMAGEBUTTON: case SID_FM_IMAGECONTROL: case SID_FM_FILECONTROL: case SID_FM_DATEFIELD: case SID_FM_TIMEFIELD: case SID_FM_NUMERICFIELD: case SID_FM_CURRENCYFIELD: case SID_FM_PATTERNFIELD: case SID_FM_FORMATTEDFIELD: case SID_FM_SCROLLBAR: case SID_FM_SPINBUTTON: m_nLastSlot = nSlot; GetViewShell()->GetViewFrame()->GetBindings().Invalidate( SID_FM_CONFIG ); break; } ////////////////////////////////////////////////////////////////////// // Identifier und Inventor des Uno-Controls setzen sal_uInt16 nIdentifier = 0; switch( nSlot ) { case SID_FM_CHECKBOX: nIdentifier = OBJ_FM_CHECKBOX; break; case SID_FM_PUSHBUTTON: nIdentifier = OBJ_FM_BUTTON; break; case SID_FM_FIXEDTEXT: nIdentifier = OBJ_FM_FIXEDTEXT; break; case SID_FM_LISTBOX: nIdentifier = OBJ_FM_LISTBOX; break; case SID_FM_EDIT: nIdentifier = OBJ_FM_EDIT; break; case SID_FM_RADIOBUTTON: nIdentifier = OBJ_FM_RADIOBUTTON; break; case SID_FM_GROUPBOX: nIdentifier = OBJ_FM_GROUPBOX; break; case SID_FM_COMBOBOX: nIdentifier = OBJ_FM_COMBOBOX; break; case SID_FM_NAVIGATIONBAR: nIdentifier = OBJ_FM_NAVIGATIONBAR; break; case SID_FM_DBGRID: nIdentifier = OBJ_FM_GRID; break; case SID_FM_IMAGEBUTTON: nIdentifier = OBJ_FM_IMAGEBUTTON; break; case SID_FM_IMAGECONTROL: nIdentifier = OBJ_FM_IMAGECONTROL; break; case SID_FM_FILECONTROL: nIdentifier = OBJ_FM_FILECONTROL; break; case SID_FM_DATEFIELD: nIdentifier = OBJ_FM_DATEFIELD; break; case SID_FM_TIMEFIELD: nIdentifier = OBJ_FM_TIMEFIELD; break; case SID_FM_NUMERICFIELD: nIdentifier = OBJ_FM_NUMERICFIELD; break; case SID_FM_CURRENCYFIELD: nIdentifier = OBJ_FM_CURRENCYFIELD; break; case SID_FM_PATTERNFIELD: nIdentifier = OBJ_FM_PATTERNFIELD; break; case SID_FM_FORMATTEDFIELD: nIdentifier = OBJ_FM_FORMATTEDFIELD; break; case SID_FM_SCROLLBAR: nIdentifier = OBJ_FM_SCROLLBAR; break; case SID_FM_SPINBUTTON: nIdentifier = OBJ_FM_SPINBUTTON; break; } switch ( nSlot ) { case SID_FM_CHECKBOX: case SID_FM_PUSHBUTTON: case SID_FM_FIXEDTEXT: case SID_FM_LISTBOX: case SID_FM_EDIT: case SID_FM_RADIOBUTTON: case SID_FM_COMBOBOX: case SID_FM_NAVIGATIONBAR: case SID_FM_GROUPBOX: case SID_FM_DBGRID: case SID_FM_IMAGEBUTTON: case SID_FM_IMAGECONTROL: case SID_FM_FILECONTROL: case SID_FM_DATEFIELD: case SID_FM_TIMEFIELD: case SID_FM_NUMERICFIELD: case SID_FM_CURRENCYFIELD: case SID_FM_PATTERNFIELD: case SID_FM_FORMATTEDFIELD: case SID_FM_SCROLLBAR: case SID_FM_SPINBUTTON: { SFX_REQUEST_ARG( rReq, pGrabFocusItem, SfxBoolItem, SID_FM_TOGGLECONTROLFOCUS, sal_False ); if ( pGrabFocusItem && pGrabFocusItem->GetValue() ) { // see below SfxViewShell* pShell = GetViewShell(); Window* pShellWnd = pShell ? pShell->GetWindow() : NULL; if ( pShellWnd ) pShellWnd->GrabFocus(); break; } SfxUInt16Item aIdentifierItem( SID_FM_CONTROL_IDENTIFIER, nIdentifier ); SfxUInt32Item aInventorItem( SID_FM_CONTROL_INVENTOR, FmFormInventor ); const SfxPoolItem* pArgs[] = { &aIdentifierItem, &aInventorItem, NULL }; const SfxPoolItem* pInternalArgs[] = { NULL }; GetViewShell()->GetViewFrame()->GetDispatcher()->Execute( SID_FM_CREATE_CONTROL, SFX_CALLMODE_ASYNCHRON, pArgs, rReq.GetModifier(), pInternalArgs ); if ( rReq.GetModifier() & KEY_MOD1 ) { // #99013# if selected with control key, return focus to current view // do this asynchron, so that the creation can be finished first // reusing the SID_FM_TOGGLECONTROLFOCUS is somewhat hacky ... which it wouldn't if it would have another // name, so I do not really have a big problem with this .... SfxBoolItem aGrabFocusIndicatorItem( SID_FM_TOGGLECONTROLFOCUS, sal_True ); GetViewShell()->GetViewFrame()->GetDispatcher()->Execute( nSlot, SFX_CALLMODE_ASYNCHRON, &aGrabFocusIndicatorItem, NULL ); } rReq.Done(); } break; } // Individuelle Aktionen switch( nSlot ) { case SID_FM_MORE_CONTROLS: case SID_FM_FORM_DESIGN_TOOLS: { FormToolboxes aToolboxAccess( GetImpl()->getHostFrame() ); aToolboxAccess.toggleToolbox( nSlot ); rReq.Done(); } break; case SID_FM_TOGGLECONTROLFOCUS: { FmFormView* pFormView = GetFormView(); if ( !pFormView ) break; // if we execute this ourself, then either the application does not implement an own handling for this, // of we're on the top of the dispatcher stack, which means a control has the focus. // In the latter case, we put the focus to the document window, otherwise, we focus the first control const bool bHasControlFocus = GetImpl()->HasControlFocus(); if ( bHasControlFocus ) { const OutputDevice* pDevice = GetCurrentViewDevice(); Window* pWindow = dynamic_cast< Window* >( const_cast< OutputDevice* >( pDevice ) ); if ( pWindow ) pWindow->GrabFocus(); } else { pFormView->GrabFirstControlFocus( ); } } break; case SID_FM_VIEW_AS_GRID: GetImpl()->CreateExternalView(); break; case SID_FM_CONVERTTO_EDIT : case SID_FM_CONVERTTO_BUTTON : case SID_FM_CONVERTTO_FIXEDTEXT : case SID_FM_CONVERTTO_LISTBOX : case SID_FM_CONVERTTO_CHECKBOX : case SID_FM_CONVERTTO_RADIOBUTTON : case SID_FM_CONVERTTO_GROUPBOX : case SID_FM_CONVERTTO_COMBOBOX : case SID_FM_CONVERTTO_IMAGEBUTTON : case SID_FM_CONVERTTO_FILECONTROL : case SID_FM_CONVERTTO_DATE : case SID_FM_CONVERTTO_TIME : case SID_FM_CONVERTTO_NUMERIC : case SID_FM_CONVERTTO_CURRENCY : case SID_FM_CONVERTTO_PATTERN : case SID_FM_CONVERTTO_IMAGECONTROL : case SID_FM_CONVERTTO_FORMATTED : case SID_FM_CONVERTTO_SCROLLBAR : case SID_FM_CONVERTTO_SPINBUTTON : case SID_FM_CONVERTTO_NAVIGATIONBAR : GetImpl()->executeControlConversionSlot( nSlot ); // nach dem Konvertieren die Selektion neu bestimmern, da sich ja das selektierte Objekt // geaendert hat GetImpl()->SetSelection(GetFormView()->GetMarkedObjectList()); break; case SID_FM_LEAVE_CREATE: m_nLastSlot = 0; GetViewShell()->GetViewFrame()->GetBindings().Invalidate( SID_FM_CONFIG ); rReq.Done(); break; case SID_FM_SHOW_PROPERTY_BROWSER: { SFX_REQUEST_ARG( rReq, pShowItem, SfxBoolItem, SID_FM_SHOW_PROPERTIES, sal_False ); sal_Bool bShow = sal_True; if ( pShowItem ) bShow = pShowItem->GetValue(); GetImpl()->ShowSelectionProperties( bShow ); rReq.Done(); } break; case SID_FM_PROPERTIES: { // PropertyBrowser anzeigen SFX_REQUEST_ARG(rReq, pShowItem, SfxBoolItem, nSlot, sal_False); sal_Bool bShow = pShowItem ? pShowItem->GetValue() : sal_True; InterfaceBag aOnlyTheForm; aOnlyTheForm.insert( Reference< XInterface >( GetImpl()->getCurrentForm(), UNO_QUERY ) ); GetImpl()->setCurrentSelection( aOnlyTheForm ); GetImpl()->ShowSelectionProperties( bShow ); rReq.Done(); } break; case SID_FM_CTL_PROPERTIES: { SFX_REQUEST_ARG(rReq, pShowItem, SfxBoolItem, nSlot, sal_False); sal_Bool bShow = pShowItem ? pShowItem->GetValue() : sal_True; OSL_ENSURE( GetImpl()->onlyControlsAreMarked(), "FmFormShell::Execute: ControlProperties should be disabled!" ); if ( bShow ) GetImpl()->selectLastMarkedControls(); GetImpl()->ShowSelectionProperties( bShow ); rReq.Done(); } break; case SID_FM_SHOW_PROPERTIES: case SID_FM_ADD_FIELD: case SID_FM_FILTER_NAVIGATOR: case SID_FM_SHOW_DATANAVIGATOR : { GetViewShell()->GetViewFrame()->ChildWindowExecute( rReq ); rReq.Done(); } break; case SID_FM_SHOW_FMEXPLORER: { if (!m_pFormView) // setzen der ::com::sun::star::sdbcx::View Forcieren GetViewShell()->GetViewFrame()->GetDispatcher()->Execute(SID_CREATE_SW_DRAWVIEW); GetViewShell()->GetViewFrame()->ChildWindowExecute(rReq); rReq.Done(); } break; case SID_FM_TAB_DIALOG: { GetImpl()->ExecuteTabOrderDialog( Reference< XTabControllerModel >( GetImpl()->getCurrentForm(), UNO_QUERY ) ); rReq.Done(); } break; case SID_FM_DESIGN_MODE: { SFX_REQUEST_ARG(rReq, pDesignItem, SfxBoolItem, nSlot, sal_False); sal_Bool bDesignMode = pDesignItem ? pDesignItem->GetValue() : !m_bDesignMode; SetDesignMode( bDesignMode ); if ( m_bDesignMode == bDesignMode ) rReq.Done(); m_nLastSlot = SID_FM_DESIGN_MODE; GetViewShell()->GetViewFrame()->GetBindings().Invalidate( SID_FM_CONFIG ); } break; case SID_FM_AUTOCONTROLFOCUS: { FmFormModel* pModel = GetFormModel(); DBG_ASSERT(pModel, "FmFormShell::Execute : invalid call !"); // should have been disabled in GetState if we don't have a FormModel pModel->SetAutoControlFocus( !pModel->GetAutoControlFocus() ); GetViewShell()->GetViewFrame()->GetBindings().Invalidate(SID_FM_AUTOCONTROLFOCUS); } break; case SID_FM_OPEN_READONLY: { FmFormModel* pModel = GetFormModel(); DBG_ASSERT(pModel, "FmFormShell::Execute : invalid call !"); // should have been disabled in GetState if we don't have a FormModel pModel->SetOpenInDesignMode( !pModel->GetOpenInDesignMode() ); GetViewShell()->GetViewFrame()->GetBindings().Invalidate(SID_FM_OPEN_READONLY); } break; case SID_FM_USE_WIZARDS: { GetImpl()->SetWizardUsing(!GetImpl()->GetWizardUsing()); GetViewShell()->GetViewFrame()->GetBindings().Invalidate(SID_FM_USE_WIZARDS); } break; case SID_FM_SEARCH: { const ::svx::ControllerFeatures& rController = GetImpl()->getActiveControllerFeatures(); if ( rController->commitCurrentControl() && rController->commitCurrentRecord() ) GetImpl()->ExecuteSearch(); rReq.Done(); } break; case SID_FM_RECORD_FIRST: case SID_FM_RECORD_PREV: case SID_FM_RECORD_NEXT: case SID_FM_RECORD_LAST: case SID_FM_RECORD_NEW: case SID_FM_REFRESH: case SID_FM_REFRESH_FORM_CONTROL: case SID_FM_RECORD_DELETE: case SID_FM_RECORD_UNDO: case SID_FM_RECORD_SAVE: case SID_FM_REMOVE_FILTER_SORT: case SID_FM_SORTDOWN: case SID_FM_SORTUP: case SID_FM_AUTOFILTER: case SID_FM_ORDERCRIT: case SID_FM_FORM_FILTERED: { GetImpl()->ExecuteFormSlot( nSlot ); rReq.Done(); } break; case SID_FM_RECORD_ABSOLUTE: { const ::svx::ControllerFeatures& rController = GetImpl()->getNavControllerFeatures(); sal_Int32 nRecord = -1; const SfxItemSet* pArgs = rReq.GetArgs(); if ( pArgs ) { const SfxPoolItem* pItem; if ( ( pArgs->GetItemState( FN_PARAM_1, sal_True, &pItem ) ) == SFX_ITEM_SET ) { const SfxInt32Item* pTypedItem = PTR_CAST( SfxInt32Item, pItem ); if ( pTypedItem ) nRecord = Max( pTypedItem->GetValue(), sal_Int32(0) ); } } else { SvxAbstractDialogFactory* pFact = SvxAbstractDialogFactory::Create(); DBG_ASSERT( pFact, "no dialog factory!" ); if ( pFact ) { ::std::auto_ptr< AbstractFmInputRecordNoDialog > dlg( pFact->CreateFmInputRecordNoDialog( NULL ) ); DBG_ASSERT( dlg.get(), "Dialogdiet fail!" ); dlg->SetValue( rController->getCursor()->getRow() ); if ( dlg->Execute() == RET_OK ) nRecord = dlg->GetValue(); rReq.AppendItem( SfxInt32Item( FN_PARAM_1, nRecord ) ); } } if ( nRecord != -1 ) rController->execute( nSlot, ::rtl::OUString::createFromAscii( "Position" ), makeAny( (sal_Int32)nRecord ) ); rReq.Done(); } break; case SID_FM_FILTER_EXECUTE: case SID_FM_FILTER_EXIT: { sal_Bool bCancelled = ( SID_FM_FILTER_EXIT == nSlot ); sal_Bool bReopenNavigator = sal_False; if ( !bCancelled ) { // if the filter navigator is still open, we need to close it, so it can possibly // commit it's most recent changes if ( GetViewShell() && GetViewShell()->GetViewFrame() ) if ( GetViewShell()->GetViewFrame()->HasChildWindow( SID_FM_FILTER_NAVIGATOR ) ) { GetViewShell()->GetViewFrame()->ToggleChildWindow( SID_FM_FILTER_NAVIGATOR ); bReopenNavigator = sal_True; } Reference< runtime::XFormController > xController( GetImpl()->getActiveController() ); if ( GetViewShell()->GetViewFrame()->HasChildWindow( SID_FM_FILTER_NAVIGATOR ) // closing the window was denied, for instance because of a invalid criterion || ( xController.is() && !GetImpl()->getActiveControllerFeatures()->commitCurrentControl( ) ) // committing the controller was denied ) { rReq.Done(); break; } } GetImpl()->stopFiltering( !bCancelled ); rReq.Done(); if ( bReopenNavigator ) // we closed the navigator only to implicitly commit it (as we do not have another // direct wire to it), but to the user, it should look it it was always open GetViewShell()->GetViewFrame()->ToggleChildWindow( SID_FM_FILTER_NAVIGATOR ); } break; case SID_FM_FILTER_START: { GetImpl()->startFiltering(); rReq.Done(); // initially open the filter navigator, the whole form based filter is pretty useless without it SfxBoolItem aIdentifierItem( SID_FM_FILTER_NAVIGATOR, sal_True ); GetViewShell()->GetViewFrame()->GetDispatcher()->Execute( SID_FM_FILTER_NAVIGATOR, SFX_CALLMODE_ASYNCHRON, &aIdentifierItem, NULL ); } break; } } //------------------------------------------------------------------------ void FmFormShell::GetState(SfxItemSet &rSet) { SfxWhichIter aIter( rSet ); sal_uInt16 nWhich = aIter.FirstWhich(); while ( nWhich ) { switch( nWhich ) { case SID_FM_MORE_CONTROLS: case SID_FM_FORM_DESIGN_TOOLS: { FormToolboxes aToolboxAccess( GetImpl()->getHostFrame() ); rSet.Put( SfxBoolItem( nWhich, aToolboxAccess.isToolboxVisible( nWhich ) ) ); } break; case SID_FM_FILTER_EXECUTE: case SID_FM_FILTER_EXIT: if (!GetImpl()->isInFilterMode()) rSet.DisableItem( nWhich ); break; case SID_FM_USE_WIZARDS: if ( !SvtModuleOptions().IsModuleInstalled( SvtModuleOptions::E_SDATABASE ) ) rSet.Put( SfxVisibilityItem( nWhich, sal_False ) ); else if (!GetFormModel()) rSet.DisableItem( nWhich ); else rSet.Put( SfxBoolItem(nWhich, GetImpl()->GetWizardUsing() ) ); break; case SID_FM_AUTOCONTROLFOCUS: if (!GetFormModel()) rSet.DisableItem( nWhich ); else rSet.Put( SfxBoolItem(nWhich, GetFormModel()->GetAutoControlFocus() ) ); break; case SID_FM_OPEN_READONLY: if (!GetFormModel()) rSet.DisableItem( nWhich ); else rSet.Put( SfxBoolItem(nWhich, GetFormModel()->GetOpenInDesignMode() ) ); break; case SID_FM_NAVIGATIONBAR: case SID_FM_DBGRID: if ( !SvtModuleOptions().IsModuleInstalled( SvtModuleOptions::E_SDATABASE ) ) { rSet.Put( SfxVisibilityItem( nWhich, sal_False ) ); break; } // NO break! case SID_FM_SCROLLBAR: case SID_FM_IMAGECONTROL: case SID_FM_FILECONTROL: case SID_FM_CURRENCYFIELD: case SID_FM_PATTERNFIELD: case SID_FM_IMAGEBUTTON: case SID_FM_RADIOBUTTON: case SID_FM_COMBOBOX: case SID_FM_GROUPBOX: case SID_FM_CHECKBOX: case SID_FM_PUSHBUTTON: case SID_FM_FIXEDTEXT: case SID_FM_LISTBOX: case SID_FM_EDIT: case SID_FM_DATEFIELD: case SID_FM_TIMEFIELD: case SID_FM_NUMERICFIELD: case SID_FM_FORMATTEDFIELD: case SID_FM_SPINBUTTON: if (!m_bDesignMode) rSet.DisableItem( nWhich ); else { sal_Bool bLayerLocked = sal_False; if (m_pFormView) { // Ist der ::com::sun::star::drawing::Layer gelocked, so m???ssen die Slots disabled werden. #36897 SdrPageView* pPV = m_pFormView->GetSdrPageView(); if (pPV != NULL) bLayerLocked = pPV->IsLayerLocked(m_pFormView->GetActiveLayer()); } if (bLayerLocked) rSet.DisableItem( nWhich ); else rSet.Put( SfxBoolItem(nWhich, (nWhich==m_nLastSlot)) ); } break; case SID_FM_FILTER_NAVIGATOR_CONTROL: { if (GetImpl()->isInFilterMode()) rSet.Put(SfxObjectItem(nWhich, this)); else rSet.Put(SfxObjectItem(nWhich)); } break; case SID_FM_FIELDS_CONTROL: case SID_FM_PROPERTY_CONTROL: { if (!m_bDesignMode || !m_pFormView || !m_bHasForms) rSet.Put(SfxObjectItem(nWhich)); else rSet.Put(SfxObjectItem(nWhich, this)); } break; case SID_FM_FMEXPLORER_CONTROL: case SID_FM_DATANAVIGATOR_CONTROL : { if (!m_bDesignMode || !m_pFormView) rSet.Put(SfxObjectItem(nWhich)); else rSet.Put(SfxObjectItem(nWhich, this)); } break; case SID_FM_ADD_FIELD: case SID_FM_SHOW_FMEXPLORER: case SID_FM_SHOW_PROPERTIES: case SID_FM_FILTER_NAVIGATOR: case SID_FM_SHOW_DATANAVIGATOR: { if ( GetViewShell()->GetViewFrame()->KnowsChildWindow(nWhich) ) rSet.Put( SfxBoolItem( nWhich, GetViewShell()->GetViewFrame()->HasChildWindow(nWhich)) ); else rSet.DisableItem(nWhich); } break; case SID_FM_SHOW_PROPERTY_BROWSER: { rSet.Put(SfxBoolItem(GetImpl()->IsPropBrwOpen())); } break; case SID_FM_CTL_PROPERTIES: { // der Impl eventuell die Moeglichjkeit geben, ihre an der aktuellen MarkList ausgerichteten Objekte // auf den neuesten Stand zu bringen if (GetImpl()->IsSelectionUpdatePending()) GetImpl()->ForceUpdateSelection(sal_False); if ( !m_pFormView || !m_bDesignMode || !GetImpl()->onlyControlsAreMarked() ) rSet.DisableItem( nWhich ); else { sal_Bool bChecked = GetImpl()->IsPropBrwOpen() && !GetImpl()->isSolelySelected( GetImpl()->getCurrentForm() ); // if the property browser is open, and only controls are marked, and the current selection // does not consist of only the current form, then the current selection is the (composition of) // the currently marked controls rSet.Put( SfxBoolItem( nWhich, bChecked ) ); } } break; case SID_FM_PROPERTIES: { // der Impl eventuell die Moeglichjkeit geben, ihre an der aktuellen MarkList ausgerichteten Objekte // auf den neuesten Stand zu bringen if (GetImpl()->IsSelectionUpdatePending()) GetImpl()->ForceUpdateSelection(sal_False); if ( !m_pFormView || !m_bDesignMode || !GetImpl()->getCurrentForm().is() ) rSet.DisableItem( nWhich ); else { sal_Bool bChecked = GetImpl()->IsPropBrwOpen() && GetImpl()->isSolelySelected( GetImpl()->getCurrentForm() ); rSet.Put(SfxBoolItem(nWhich, bChecked)); } } break; case SID_FM_TAB_DIALOG: // der Impl eventuell die Moeglichjkeit geben, ihre an der aktuellen MarkList ausgerichteten Objekte // auf den neuesten Stand zu bringen if (GetImpl()->IsSelectionUpdatePending()) GetImpl()->ForceUpdateSelection(sal_False); if (!m_pFormView || !m_bDesignMode || !GetImpl()->getCurrentForm().is() ) rSet.DisableItem( nWhich ); break; case SID_FM_CONFIG: rSet.Put(SfxUInt16Item(nWhich, m_nLastSlot)); break; case SID_FM_DESIGN_MODE: if (!m_pFormView || GetImpl()->IsReadonlyDoc() ) rSet.DisableItem( nWhich ); else rSet.Put( SfxBoolItem(nWhich, m_bDesignMode) ); break; case SID_FM_SEARCH: case SID_FM_RECORD_FIRST: case SID_FM_RECORD_NEXT: case SID_FM_RECORD_PREV: case SID_FM_RECORD_LAST: case SID_FM_RECORD_NEW: case SID_FM_RECORD_DELETE: case SID_FM_RECORD_ABSOLUTE: case SID_FM_RECORD_TOTAL: case SID_FM_RECORD_SAVE: case SID_FM_RECORD_UNDO: case SID_FM_FORM_FILTERED: case SID_FM_REMOVE_FILTER_SORT: case SID_FM_SORTUP: case SID_FM_SORTDOWN: case SID_FM_ORDERCRIT: case SID_FM_FILTER_START: case SID_FM_AUTOFILTER: case SID_FM_REFRESH: case SID_FM_REFRESH_FORM_CONTROL: case SID_FM_VIEW_AS_GRID: GetFormState(rSet,nWhich); break; case SID_FM_CHANGECONTROLTYPE: { if ( !m_pFormView || !m_bDesignMode ) rSet.DisableItem( nWhich ); else { if ( !GetImpl()->canConvertCurrentSelectionToControl( OBJ_FM_FIXEDTEXT ) ) // if it cannot be converted to a fixed text, it is no single control rSet.DisableItem( nWhich ); } } break; case SID_FM_CONVERTTO_FILECONTROL : case SID_FM_CONVERTTO_CURRENCY : case SID_FM_CONVERTTO_PATTERN : case SID_FM_CONVERTTO_IMAGECONTROL : case SID_FM_CONVERTTO_SCROLLBAR : case SID_FM_CONVERTTO_NAVIGATIONBAR : case SID_FM_CONVERTTO_IMAGEBUTTON : case SID_FM_CONVERTTO_EDIT : case SID_FM_CONVERTTO_BUTTON : case SID_FM_CONVERTTO_FIXEDTEXT : case SID_FM_CONVERTTO_LISTBOX : case SID_FM_CONVERTTO_CHECKBOX : case SID_FM_CONVERTTO_RADIOBUTTON : case SID_FM_CONVERTTO_GROUPBOX : case SID_FM_CONVERTTO_COMBOBOX : case SID_FM_CONVERTTO_DATE : case SID_FM_CONVERTTO_TIME : case SID_FM_CONVERTTO_NUMERIC : case SID_FM_CONVERTTO_FORMATTED : case SID_FM_CONVERTTO_SPINBUTTON : { if ( !m_pFormView || !m_bDesignMode || !GetImpl()->canConvertCurrentSelectionToControl( nWhich ) ) rSet.DisableItem( nWhich ); else { rSet.Put( SfxBoolItem( nWhich, sal_False ) ); // just to have a defined state (available and not checked) } } break; } nWhich = aIter.NextWhich(); } } //------------------------------------------------------------------------ void FmFormShell::GetFormState(SfxItemSet &rSet, sal_uInt16 nWhich) { if ( !GetImpl()->getNavController().is() || !isRowSetAlive(GetImpl()->getNavController()->getModel()) || !m_pFormView || m_bDesignMode || !GetImpl()->getActiveForm().is() || GetImpl()->isInFilterMode() ) rSet.DisableItem(nWhich); else { sal_Bool bEnable = sal_False; try { switch (nWhich) { case SID_FM_VIEW_AS_GRID: if (GetImpl()->getHostFrame().is() && GetImpl()->getNavController().is()) { bEnable = sal_True; sal_Bool bDisplayingCurrent = GetImpl()->getInternalForm( Reference< XForm >( GetImpl()->getNavController()->getModel(), UNO_QUERY ) ) == GetImpl()->getExternallyDisplayedForm(); rSet.Put(SfxBoolItem(nWhich, bDisplayingCurrent)); } break; case SID_FM_SEARCH: { Reference< ::com::sun::star::beans::XPropertySet > xNavSet(GetImpl()->getActiveForm(), UNO_QUERY); sal_Int32 nCount = ::comphelper::getINT32(xNavSet->getPropertyValue(FM_PROP_ROWCOUNT)); bEnable = nCount != 0; } break; case SID_FM_RECORD_ABSOLUTE: case SID_FM_RECORD_TOTAL: { FeatureState aState; GetImpl()->getNavControllerFeatures()->getState( nWhich, aState ); if ( SID_FM_RECORD_ABSOLUTE == nWhich ) { sal_Int32 nPosition = 0; aState.State >>= nPosition; rSet.Put( SfxInt32Item( nWhich, nPosition ) ); } else if ( SID_FM_RECORD_TOTAL == nWhich ) { ::rtl::OUString sTotalCount; aState.State >>= sTotalCount; rSet.Put( SfxStringItem( nWhich, sTotalCount ) ); } bEnable = aState.Enabled; } break; // first, prev, next, last, and absolute affect the nav controller, not the // active controller case SID_FM_RECORD_FIRST: case SID_FM_RECORD_PREV: case SID_FM_RECORD_NEXT: case SID_FM_RECORD_LAST: case SID_FM_RECORD_NEW: case SID_FM_RECORD_SAVE: case SID_FM_RECORD_UNDO: case SID_FM_RECORD_DELETE: case SID_FM_REFRESH: case SID_FM_REFRESH_FORM_CONTROL: case SID_FM_REMOVE_FILTER_SORT: case SID_FM_SORTUP: case SID_FM_SORTDOWN: case SID_FM_AUTOFILTER: case SID_FM_ORDERCRIT: bEnable = GetImpl()->IsFormSlotEnabled( nWhich ); break; case SID_FM_FORM_FILTERED: { FeatureState aState; bEnable = GetImpl()->IsFormSlotEnabled( nWhich, &aState ); rSet.Put( SfxBoolItem( nWhich, ::comphelper::getBOOL( aState.State ) ) ); } break; case SID_FM_FILTER_START: bEnable = GetImpl()->getActiveControllerFeatures()->canDoFormFilter(); break; } } catch( const Exception& ) { DBG_ERROR( "FmFormShell::GetFormState: caught an exception while determining the state!" ); } if (!bEnable) rSet.DisableItem(nWhich); } } //------------------------------------------------------------------------ FmFormPage* FmFormShell::GetCurPage() const { FmFormPage* pP = NULL; if (m_pFormView && m_pFormView->GetSdrPageView()) pP = PTR_CAST(FmFormPage,m_pFormView->GetSdrPageView()->GetPage()); return pP; } //------------------------------------------------------------------------ void FmFormShell::SetView( FmFormView* _pView ) { if ( m_pFormView ) { if ( IsActive() ) GetImpl()->viewDeactivated( *m_pFormView ); m_pFormView->SetFormShell( NULL, FmFormView::FormShellAccess() ); m_pFormView = NULL; m_pFormModel = NULL; } if ( !_pView ) return; m_pFormView = _pView; m_pFormView->SetFormShell( this, FmFormView::FormShellAccess() ); m_pFormModel = (FmFormModel*)m_pFormView->GetModel(); impl_setDesignMode( m_pFormView->IsDesignMode() ); // We activate our view if we are activated ourself, but sometimes the Activate precedes the SetView. // But here we know both the view and our activation state so we at least are able to pass the latter // to the former. // FS - 30.06.99 - 67308 if ( IsActive() ) GetImpl()->viewActivated( *m_pFormView ); } //------------------------------------------------------------------------ void FmFormShell::DetermineForms(sal_Bool bInvalidate) { // Existieren Formulare auf der aktuellen Page sal_Bool bForms = GetImpl()->hasForms(); if (bForms != m_bHasForms) { m_bHasForms = bForms; if (bInvalidate) UIFeatureChanged(); } } //------------------------------------------------------------------------ sal_Bool FmFormShell::GetY2KState(sal_uInt16& nReturn) { return GetImpl()->GetY2KState(nReturn); } //------------------------------------------------------------------------ void FmFormShell::SetY2KState(sal_uInt16 n) { GetImpl()->SetY2KState(n); } //------------------------------------------------------------------------ void FmFormShell::Activate(sal_Bool bMDI) { SfxShell::Activate(bMDI); if ( m_pFormView ) GetImpl()->viewActivated( *m_pFormView, sal_True ); } //------------------------------------------------------------------------ void FmFormShell::Deactivate(sal_Bool bMDI) { SfxShell::Deactivate(bMDI); if ( m_pFormView ) GetImpl()->viewDeactivated( *m_pFormView, sal_False ); } //------------------------------------------------------------------------ void FmFormShell::ExecuteTextAttribute( SfxRequest& _rReq ) { m_pImpl->ExecuteTextAttribute( _rReq ); } //------------------------------------------------------------------------ void FmFormShell::GetTextAttributeState( SfxItemSet& _rSet ) { m_pImpl->GetTextAttributeState( _rSet ); } //------------------------------------------------------------------------ bool FmFormShell::IsActiveControl() const { return m_pImpl->IsActiveControl(); } //------------------------------------------------------------------------ void FmFormShell::ForgetActiveControl() { m_pImpl->ForgetActiveControl(); } //------------------------------------------------------------------------ void FmFormShell::SetControlActivationHandler( const Link& _rHdl ) { m_pImpl->SetControlActivationHandler( _rHdl ); } //------------------------------------------------------------------------ namespace { SdrUnoObj* lcl_findUnoObject( const SdrObjList& _rObjList, const Reference< XControlModel >& _rxModel ) { SdrObjListIter aIter( _rObjList ); while ( aIter.IsMore() ) { SdrObject* pObject = aIter.Next(); SdrUnoObj* pUnoObject = pObject ? PTR_CAST( SdrUnoObj, pObject ) : NULL; if ( !pUnoObject ) continue; Reference< XControlModel > xControlModel = pUnoObject->GetUnoControlModel(); if ( !xControlModel.is() ) continue; if ( _rxModel == xControlModel ) return pUnoObject; } return NULL; } } //------------------------------------------------------------------------ void FmFormShell::ToggleControlFocus( const SdrUnoObj& i_rUnoObject, const SdrView& i_rView, OutputDevice& i_rDevice ) const { try { // check if the focus currently is in a control // Well, okay, do it the other way 'round: Check whether the current control of the active controller // actually has the focus. This should be equivalent. const bool bHasControlFocus = GetImpl()->HasControlFocus(); if ( bHasControlFocus ) { Window* pWindow( dynamic_cast< Window* >( &i_rDevice ) ); OSL_ENSURE( pWindow, "FmFormShell::ToggleControlFocus: I need a Window, really!" ); if ( pWindow ) pWindow->GrabFocus(); } else { Reference< XControl > xControl; GetFormControl( i_rUnoObject.GetUnoControlModel(), i_rView, i_rDevice, xControl ); Reference< XWindow > xControlWindow( xControl, UNO_QUERY ); if ( xControlWindow.is() ) xControlWindow->setFocus(); } } catch( const Exception& ) { DBG_UNHANDLED_EXCEPTION(); } } //------------------------------------------------------------------------ namespace { class FocusableControlsFilter : public ::svx::ISdrObjectFilter { public: FocusableControlsFilter( const SdrView& i_rView, const OutputDevice& i_rDevice ) :m_rView( i_rView ) ,m_rDevice( i_rDevice ) { } public: virtual bool includeObject( const SdrObject& i_rObject ) const { const SdrUnoObj* pUnoObj = dynamic_cast< const SdrUnoObj* >( &i_rObject ); if ( !pUnoObj ) return false; Reference< XControl > xControl = pUnoObj->GetUnoControl( m_rView, m_rDevice ); return FmXFormView::isFocusable( xControl ); } private: const SdrView& m_rView; const OutputDevice& m_rDevice; }; } //------------------------------------------------------------------------ ::std::auto_ptr< ::svx::ISdrObjectFilter > FmFormShell::CreateFocusableControlFilter( const SdrView& i_rView, const OutputDevice& i_rDevice ) const { ::std::auto_ptr< ::svx::ISdrObjectFilter > pFilter; if ( !i_rView.IsDesignMode() ) pFilter.reset( new FocusableControlsFilter( i_rView, i_rDevice ) ); return pFilter; } //------------------------------------------------------------------------ SdrUnoObj* FmFormShell::GetFormControl( const Reference< XControlModel >& _rxModel, const SdrView& _rView, const OutputDevice& _rDevice, Reference< XControl >& _out_rxControl ) const { if ( !_rxModel.is() ) return NULL; // we can only retrieve controls for SdrObjects which belong to page which is actually displayed in the given view SdrPageView* pPageView = _rView.GetSdrPageView(); SdrPage* pPage = pPageView ? pPageView->GetPage() : NULL; OSL_ENSURE( pPage, "FmFormShell::GetFormControl: no page displayed in the given view!" ); if ( !pPage ) return NULL; SdrUnoObj* pUnoObject = lcl_findUnoObject( *pPage, _rxModel ); if ( pUnoObject ) { _out_rxControl = pUnoObject->GetUnoControl( _rView, _rDevice ); return pUnoObject; } #if OSL_DEBUG_LEVEL > 0 // perhaps we are fed with a control model which lives on a page other than the one displayed // in the given view. This is worth being reported as error, in non-product builds. FmFormModel* pModel = GetFormModel(); if ( pModel ) { sal_uInt16 pageCount = pModel->GetPageCount(); for ( sal_uInt16 page = 0; page < pageCount; ++page ) { pPage = pModel->GetPage( page ); OSL_ENSURE( pPage, "FmFormShell::GetFormControl: NULL page encountered!" ); if ( !pPage ) continue; pUnoObject = lcl_findUnoObject( *pPage, _rxModel ); OSL_ENSURE( !pUnoObject, "FmFormShell::GetFormControl: the given control model belongs to a wrong page (displayed elsewhere)!" ); } } #endif return NULL; } //------------------------------------------------------------------------ Reference< runtime::XFormController > FmFormShell::GetFormController( const Reference< XForm >& _rxForm, const SdrView& _rView, const OutputDevice& _rDevice ) const { const FmFormView* pFormView = dynamic_cast< const FmFormView* >( &_rView ); if ( !pFormView ) return NULL; return pFormView->GetFormController( _rxForm, _rDevice ); } //------------------------------------------------------------------------ void FmFormShell::SetDesignMode( sal_Bool _bDesignMode ) { if ( _bDesignMode == m_bDesignMode ) return; FmFormModel* pModel = GetFormModel(); if (pModel) // fuer die Zeit des Uebergangs das Undo-Environment ausschalten, das sichert, dass man dort auch nicht-transiente // Properties mal eben aendern kann (sollte allerdings mit Vorsicht genossen und beim Rueckschalten des Modes // auch immer wieder rueckgaegig gemacht werden. Ein Beispiel ist das Setzen der maximalen Text-Laenge durch das // OEditModel an seinem Control.) pModel->GetUndoEnv().Lock(); // dann die eigentliche Umschaltung if ( m_bDesignMode || PrepareClose( sal_True ) ) impl_setDesignMode(!m_bDesignMode ); // und mein Undo-Environment wieder an if ( pModel ) pModel->GetUndoEnv().UnLock(); }