1 /************************************************************** 2 * 3 * Licensed to the Apache Software Foundation (ASF) under one 4 * or more contributor license agreements. See the NOTICE file 5 * distributed with this work for additional information 6 * regarding copyright ownership. The ASF licenses this file 7 * to you under the Apache License, Version 2.0 (the 8 * "License"); you may not use this file except in compliance 9 * with the License. You may obtain a copy of the License at 10 * 11 * http://www.apache.org/licenses/LICENSE-2.0 12 * 13 * Unless required by applicable law or agreed to in writing, 14 * software distributed under the License is distributed on an 15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16 * KIND, either express or implied. See the License for the 17 * specific language governing permissions and limitations 18 * under the License. 19 * 20 *************************************************************/ 21 22 23 24 // MARKER(update_precomp.py): autogen include statement, do not remove 25 #include "precompiled_sw.hxx" 26 27 28 #include <svx/svdview.hxx> 29 #include <tools/urlobj.hxx> 30 #include <svx/fmglob.hxx> 31 #include <svx/svdouno.hxx> 32 #include <com/sun/star/form/FormButtonType.hpp> 33 #include <com/sun/star/beans/XPropertySet.hpp> 34 35 #include <view.hxx> 36 #include <wrtsh.hxx> 37 #include <edtwin.hxx> 38 #include <swundo.hxx> 39 #include <basesh.hxx> 40 41 #ifndef _POOLFMT_HRC 42 #include <poolfmt.hrc> 43 #endif 44 45 #include <docsh.hxx> 46 #include <sfx2/docfile.hxx> 47 #include <svl/urihelper.hxx> 48 #include <avmedia/mediawindow.hxx> 49 50 #include <unomid.h> 51 52 53 using namespace ::com::sun::star; 54 using ::rtl::OUString; 55 /*--------------------------------------------------------------------------- 56 Beschreibung: 57 ----------------------------------------------------------------------------*/ 58 59 void SwBaseShell::InsertURLButton(const String& rURL, const String& rTarget, const String& rTxt) 60 { 61 SwWrtShell& rSh = GetShell(); 62 63 if (!rSh.HasDrawView()) 64 rSh.MakeDrawView(); 65 SdrView *pSdrView = rSh.GetDrawView(); 66 67 // OBJ_FM_BUTTON 68 pSdrView->SetDesignMode(sal_True); 69 pSdrView->SetCurrentObj(OBJ_FM_BUTTON); 70 pSdrView->SetEditMode(sal_False); 71 72 Point aStartPos(rSh.GetCharRect().Pos() + Point(0, 1)); 73 74 rSh.StartAction(); 75 rSh.StartUndo( UNDO_UI_INSERT_URLBTN ); 76 if (rSh.BeginCreate(OBJ_FM_BUTTON, FmFormInventor, aStartPos)) 77 { 78 pSdrView->SetOrtho(sal_False); 79 Size aSz(GetView().GetEditWin().PixelToLogic(Size(140, 20))); 80 Point aEndPos(aSz.Width(), aSz.Height()); 81 82 rSh.MoveCreate(aStartPos + aEndPos); 83 rSh.EndCreate(SDRCREATE_FORCEEND); 84 85 const SdrMarkList& rMarkList = pSdrView->GetMarkedObjectList(); 86 if (rMarkList.GetMark(0)) 87 { 88 SdrUnoObj* pUnoCtrl = PTR_CAST(SdrUnoObj, rMarkList.GetMark(0)->GetMarkedSdrObj()); 89 uno::Reference< awt::XControlModel > xControlModel = pUnoCtrl->GetUnoControlModel(); 90 91 ASSERT( xControlModel.is(), "UNO-Control ohne Model" ); 92 if( !xControlModel.is() ) 93 return; 94 95 uno::Reference< beans::XPropertySet > xPropSet(xControlModel, uno::UNO_QUERY); 96 97 98 uno::Any aTmp; 99 100 aTmp <<= OUString(rTxt); 101 xPropSet->setPropertyValue( C2U("Label"), aTmp ); 102 103 SfxMedium* pMedium = rSh.GetView().GetDocShell()->GetMedium(); 104 INetURLObject aAbs; 105 if( pMedium ) 106 aAbs = pMedium->GetURLObject(); 107 108 aTmp <<= OUString(URIHelper::SmartRel2Abs(aAbs, rURL)); 109 xPropSet->setPropertyValue( C2U("TargetURL"), aTmp ); 110 111 if( rTarget.Len() ) 112 { 113 aTmp <<= OUString(rTarget); 114 xPropSet->setPropertyValue( C2U("TargetFrame"), aTmp ); 115 } 116 117 118 form::FormButtonType eButtonType = form::FormButtonType_URL; 119 aTmp.setValue( &eButtonType, ::getCppuType((const form::FormButtonType*)0)); 120 xPropSet->setPropertyValue( C2U("ButtonType"), aTmp ); 121 122 if ( ::avmedia::MediaWindow::isMediaURL( rURL ) ) 123 { 124 // #105638# OJ 125 aTmp <<= sal_True; 126 xPropSet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DispatchURLInternal" )), aTmp ); 127 } 128 } 129 130 if (rSh.IsObjSelected()) 131 { 132 rSh.UnSelectFrm(); 133 } 134 } 135 rSh.EndUndo( UNDO_UI_INSERT_URLBTN ); 136 rSh.EndAction(); 137 } 138 139 140