/************************************************************************* * * $RCSfile: drformsh.cxx,v $ * * $Revision: 1.3 $ * * last change: $Author: os $ $Date: 2001-09-28 06:40:02 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses * * - GNU Lesser General Public License Version 2.1 * - Sun Industry Standards Source License Version 1.1 * * Sun Microsystems Inc., October, 2000 * * GNU Lesser General Public License Version 2.1 * ============================================= * Copyright 2000 by Sun Microsystems, Inc. * 901 San Antonio Road, Palo Alto, CA 94303, USA * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License version 2.1, as published by the Free Software Foundation. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, * MA 02111-1307 USA * * * Sun Industry Standards Source License Version 1.1 * ================================================= * The contents of this file are subject to the Sun Industry Standards * Source License Version 1.1 (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.openoffice.org/license.html. * * Software provided under this License is provided on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. * See the License for the specific provisions governing your rights and * obligations concerning the Software. * * The Initial Developer of the Original Code is: Sun Microsystems, Inc. * * Copyright: 2000 by Sun Microsystems, Inc. * * All Rights Reserved. * * Contributor(s): _______________________________________ * * ************************************************************************/ #ifdef PRECOMPILED #include "ui_pch.hxx" #endif #pragma hdrstop #include #ifndef _SVX_HLNKITEM_HXX //autogen #include #endif #ifndef _SVDVIEW_HXX //autogen #include #endif #ifndef _SFX_WHITER_HXX //autogen #include #endif #ifndef _SFXREQUEST_HXX //autogen #include #endif #ifndef _SFXOBJFACE_HXX //autogen #include #endif #ifndef _SFXAPP_HXX //autogen #include #endif #ifndef _SVX_SRCHITEM_HXX #include #endif #ifndef _SVX_FMGLOB_HXX #include #endif #ifndef _SVDOUNO_HXX //autogen #include #endif #ifndef _COM_SUN_STAR_FORM_FORMBUTTONTYPE_HPP_ #include #endif #ifndef _SVX_HTMLMODE_HXX #include #endif #ifndef _URLOBJ_HXX //autogen #include #endif #include "viewopt.hxx" #include "swmodule.hxx" #include "wrtsh.hxx" #include "cmdid.h" #include "globals.hrc" #include "helpid.h" #include "popup.hrc" #include "shells.hrc" #include "drwbassh.hxx" #include "drformsh.hxx" #include "view.hxx" #define SwDrawFormShell #include "itemdef.hxx" #include "swslots.hxx" #define C2U(cChar) OUString::createFromAscii(cChar) using namespace ::com::sun::star; using namespace ::rtl; SFX_IMPL_INTERFACE(SwDrawFormShell, SwDrawBaseShell, SW_RES(STR_SHELLNAME_DRAWFORM)) { SFX_POPUPMENU_REGISTRATION(SW_RES(MN_DRAWFORM_POPUPMENU)); SFX_OBJECTBAR_REGISTRATION(SFX_OBJECTBAR_OBJECT, SW_RES(RID_DRAWFORM_TOOLBOX)); SFX_OBJECTMENU_REGISTRATION(SID_OBJECTMENU0, SW_RES(MN_OBJECTMENU_DRAWFORM)); } TYPEINIT1(SwDrawFormShell, SwDrawBaseShell) void SwDrawFormShell::Execute(SfxRequest &rReq) { SwWrtShell &rSh = GetShell(); const SfxPoolItem* pItem = 0; const SfxItemSet *pArgs = rReq.GetArgs(); switch ( rReq.GetSlot() ) { case SID_HYPERLINK_SETLINK: { if(pArgs) pArgs->GetItemState(SID_HYPERLINK_SETLINK, sal_False, &pItem); if(pItem) { SdrView *pSdrView = rSh.GetDrawView(); const SvxHyperlinkItem& rHLinkItem = *(const SvxHyperlinkItem *)pItem; const SdrMarkList& rMarkList = pSdrView->GetMarkList(); if (rMarkList.GetMark(0)) { SdrUnoObj* pUnoCtrl = PTR_CAST(SdrUnoObj, rMarkList.GetMark(0)->GetObj()); if (pUnoCtrl && FmFormInventor == pUnoCtrl->GetObjInventor()) { uno::Reference< awt::XControlModel > xControlModel = pUnoCtrl->GetUnoControlModel(); ASSERT( xControlModel.is(), "UNO-Control ohne Model" ); if( !xControlModel.is() ) return; uno::Reference< beans::XPropertySet > xPropSet(xControlModel, uno::UNO_QUERY); // Darf man eine URL an dem Objekt setzen? OUString sTargetURL( C2U( "TargetURL" )); uno::Reference< beans::XPropertySetInfo > xPropInfoSet = xPropSet->getPropertySetInfo(); if( xPropInfoSet->hasPropertyByName( sTargetURL )) { beans::Property aProp = xPropInfoSet->getPropertyByName( sTargetURL ); if( aProp.Name.getLength() ) { uno::Any aTmp; // Ja! aTmp <<= OUString(rHLinkItem.GetName()); xPropSet->setPropertyValue(C2U("Label"), aTmp ); aTmp <<= OUString(INetURLObject::RelToAbs(rHLinkItem.GetURL())); xPropSet->setPropertyValue( sTargetURL, aTmp ); if( rHLinkItem.GetTargetFrame().Len() ) { aTmp <<= OUString(rHLinkItem.GetTargetFrame()); xPropSet->setPropertyValue( C2U("TargetFrame"), aTmp ); } form::FormButtonType eButtonType = form::FormButtonType_URL; aTmp.setValue( &eButtonType, ::getCppuType((const form::FormButtonType*)0)); xPropSet->setPropertyValue( C2U("ButtonType"), aTmp ); } } } } } } break; default: DBG_ASSERT(!this, "falscher Dispatcher"); return; } } void SwDrawFormShell::GetState(SfxItemSet& rSet) { SwWrtShell &rSh = GetShell(); SfxWhichIter aIter( rSet ); sal_uInt16 nWhich = aIter.FirstWhich(); while( nWhich ) { switch( nWhich ) { case SID_HYPERLINK_GETLINK: { SdrView* pSdrView = rSh.GetDrawViewWithValidMarkList(); const SdrMarkList& rMarkList = pSdrView->GetMarkList(); SvxHyperlinkItem aHLinkItem; if (rMarkList.GetMark(0)) { SdrUnoObj* pUnoCtrl = PTR_CAST(SdrUnoObj, rMarkList.GetMark(0)->GetObj()); if (pUnoCtrl && FmFormInventor == pUnoCtrl->GetObjInventor()) { uno::Reference< awt::XControlModel > xControlModel = pUnoCtrl->GetUnoControlModel(); ASSERT( xControlModel.is(), "UNO-Control ohne Model" ); if( !xControlModel.is() ) return; uno::Reference< beans::XPropertySet > xPropSet(xControlModel, uno::UNO_QUERY); uno::Any aTmp; uno::Reference< beans::XPropertySetInfo > xInfo = xPropSet->getPropertySetInfo(); if(xInfo->hasPropertyByName(C2U("ButtonType" ))) { form::FormButtonType eButtonType = form::FormButtonType_URL; aTmp = xPropSet->getPropertyValue( C2U("ButtonType") ); if( aTmp >>= eButtonType ) { // Label if(xInfo->hasPropertyByName( C2U("Label") )) { aTmp = xPropSet->getPropertyValue( C2U("Label") ); OUString sTmp; if( (aTmp >>= sTmp) && sTmp.getLength()) { aHLinkItem.SetName(sTmp); } } // URL if(xInfo->hasPropertyByName( C2U("TargetURL" ))) { aTmp = xPropSet->getPropertyValue( C2U("TargetURL") ); OUString sTmp; if( (aTmp >>= sTmp) && sTmp.getLength()) { aHLinkItem.SetURL(sTmp); } } // Target if(xInfo->hasPropertyByName( C2U("TargetFrame") )) { aTmp = xPropSet->getPropertyValue( C2U("TargetFrame") ); OUString sTmp; if( (aTmp >>= sTmp) && sTmp.getLength()) { aHLinkItem.SetTargetFrame(sTmp); } } aHLinkItem.SetInsertMode(HLINK_BUTTON); } } } } sal_uInt16 nHtmlMode = ::GetHtmlMode(GetView().GetDocShell()); aHLinkItem.SetInsertMode((SvxLinkInsertMode)(aHLinkItem.GetInsertMode() | ((nHtmlMode & HTMLMODE_ON) != 0 ? HLINK_HTMLMODE : 0))); rSet.Put(aHLinkItem); } break; } nWhich = aIter.NextWhich(); } } SwDrawFormShell::SwDrawFormShell(SwView &rView) : SwDrawBaseShell(rView) { SetHelpId(SW_DRAWFORMSHELL); GetShell().NoEdit(sal_True); SetName(String::CreateFromAscii("DrawForm")); } SwDrawFormShell::~SwDrawFormShell() { } /************************************************************************* Source Code Control System - History $Log: not supported by cvs2svn $ Revision 1.2 2001/08/13 21:12:30 jp Bug #90815#: Execute - use hasPropertyState Revision 1.1.1.1 2000/09/18 17:14:46 hr initial import Revision 1.19 2000/09/18 16:06:03 willem.vandorp OpenOffice header added. Revision 1.18 2000/05/26 07:21:32 os old SW Basic API Slots removed Revision 1.17 2000/05/16 09:15:13 os project usr removed Revision 1.16 2000/05/10 11:53:01 os Basic API removed Revision 1.15 2000/04/18 14:58:23 os UNICODE Revision 1.14 2000/03/23 07:49:14 os UNO III Revision 1.13 2000/02/11 14:57:20 hr #70473# changes for unicode ( patched by automated patchtool ) Revision 1.12 1999/11/19 16:40:24 os modules renamed Revision 1.11 1999/09/24 14:38:32 os hlnkitem.hxx now in SVX Revision 1.10 1999/03/29 08:31:06 OS #64017# vor getPropertyValue immer hasPropertyByName rufen Rev 1.9 29 Mar 1999 10:31:06 OS #64017# vor getPropertyValue immer hasPropertyByName rufen Rev 1.8 26 Jan 1999 14:48:26 OS #56371# TF_ONE51 Rev 1.7 26 Nov 1998 15:19:44 MA #59896# Raster usw jetzt an der Application Rev 1.6 02 Nov 1998 09:22:10 MA #58294# Slots fuer Raster Rev 1.5 07 Oct 1998 10:58:48 JP Bug #57153#: in allen GetStates einer DrawShell die MarkListe aktualisieren Rev 1.4 07 Jul 1998 14:03:54 OM #51853# URL-Button wiederbelebt Rev 1.3 06 Jul 1998 14:18:44 OM #51853# URL-Button einfuegen Rev 1.2 19 May 1998 12:45:50 OM SvxMacro-Umstellung Rev 1.1 08 Apr 1998 13:46:58 OM #42505 Keine URL-Buttons in Html-Dokumenten Rev 1.0 11 Mar 1998 17:06:02 OM Initial revision. *************************************************************************/