svx/source/cui/hltpbase.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: hltpbase.cxx,v $
  10  * $Revision: 1.37.216.1 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_svx.hxx"
  33
  34 #ifdef SVX_DLLIMPLEMENTATION
  35 #undef SVX_DLLIMPLEMENTATION
  36 #endif
  37 #include <sfx2/frame.hxx>
  38 #include <sfx2/viewfrm.hxx>
  39 #include <sot/formats.hxx>
  40 #include <sfx2/sfxsids.hrc>
  41 #include <svtools/macitem.hxx>
  42 #include <ucbhelper/content.hxx>
  43 #include <unotools/localfilehelper.hxx>
  44 #include "hyperdlg.hrc"
  45 //CHINA001 #ifndef _SVX_TAB_HYPERLINK_HXX
  46 //CHINA001 #include "hyperdlg.hxx"
  47 //CHINA001 #endif
  48 #include "cuihyperdlg.hxx"  //CHINA001
  49 #include "hltpbase.hxx"
  50 #include "macroass.hxx"
  51
  52 #include <svx/svxdlg.hxx> //CHINA001
  53 #include <svx/dialogs.hrc> //CHINA001
  54
  55 using namespace ::ucbhelper;
  56
  57 //########################################################################
  58 //#                                                                      #
  59 //# ComboBox-Control, wich is filled with all current framenames         #
  60 //#                                                                      #
  61 //########################################################################
  62
  63 /*************************************************************************
  64 |*
  65 |* Contructor / Destructor
  66 |*
  67 |************************************************************************/
  68
  69 SvxFramesComboBox::SvxFramesComboBox ( Window* pParent, const ResId& rResId,
  70                                         SfxDispatcher* pDispatch )
  71 :       ComboBox (pParent, rResId)
  72 {
  73     TargetList* pList = new TargetList;
  74     SfxViewFrame* pViewFrame = pDispatch ? pDispatch->GetFrame() : 0;
  75     SfxFrame* pFrame = pViewFrame ? pViewFrame->GetTopFrame() : 0;
  76     if ( pFrame )
  77     {
  78         pFrame->GetTargetList(*pList);
  79         USHORT nCount = (USHORT)pList->Count();
  80         if( nCount )
  81         {
  82             USHORT i;
  83             for ( i = 0; i < nCount; i++ )
  84             {
  85                 InsertEntry(*pList->GetObject(i));
  86             }
  87             for ( i = nCount; i; i-- )
  88             {
  89                 delete pList->GetObject( i - 1 );
  90             }
  91         }
  92         delete pList;
  93     }
  94 }
  95
  96 SvxFramesComboBox::~SvxFramesComboBox ()
  97 {
  98 }
  99 //########################################################################
 100 //#                                                                                                                                              #
 101 //# ComboBox-Control for URL's with History and Autocompletion                   #
 102 //#                                                                                                                                              #
 103 //########################################################################
 104
 105 /*************************************************************************
 106 |*
 107 |* Contructor / Destructor
 108 |*
 109 |************************************************************************/
 110
 111 SvxHyperURLBox::SvxHyperURLBox( Window* pParent, INetProtocol eSmart, BOOL bAddresses )
 112 : SvtURLBox                     ( pParent, eSmart ),
 113   DropTargetHelper  ( this ),
 114   mbAccessAddress       (bAddresses)
 115 {
 116 }
 117
 118 sal_Int8 SvxHyperURLBox::AcceptDrop( const AcceptDropEvent& /* rEvt */ )
 119 {
 120     return( IsDropFormatSupported( FORMAT_STRING ) ? DND_ACTION_COPY : DND_ACTION_NONE );
 121 }
 122
 123 sal_Int8 SvxHyperURLBox::ExecuteDrop( const ExecuteDropEvent& rEvt )
 124 {
 125     TransferableDataHelper      aDataHelper( rEvt.maDropEvent.Transferable );
 126     String                  aString;
 127     sal_Int8                nRet = DND_ACTION_NONE;
 128
 129     if( aDataHelper.GetString( FORMAT_STRING, aString ) )
 130     {
 131         SetText( aString );
 132         nRet = DND_ACTION_COPY;
 133     }
 134
 135     return nRet;
 136 }
 137
 138 /*
 139 Diese Methode parsed eine EMailadresse aus einem D&D-DataObjekt aus der Adre�datenbank heraus
 140
 141 #ifndef _OFF_OFADBMGR_HXX
 142 #include <offmgr/ofadbmgr.hxx>
 143 #endif
 144 #ifndef _SFX_APP_HXX
 145 #include <offmgr/app.hxx>
 146 #endif
 147 #ifndef _SDB_SDBCURS_HXX
 148 #include <sdb/sdbcurs.hxx>
 149 #endif
 150
 151 #define DB_DD_DELIM                     ((char)11)
 152
 153 String SvxHyperURLBox::GetAllEmailNamesFromDragItem( USHORT nItem )
 154 {
 155 #if !defined( ICC ) && !defined( SOLARIS )
 156     String aAddress;
 157
 158     if (  DragServer::HasFormat( nItem, SOT_FORMATSTR_ID_SBA_DATAEXCHANGE ) )
 159     {
 160         ULONG nLen = DragServer::GetDataLen( nItem, SOT_FORMATSTR_ID_SBA_DATAEXCHANGE ) - 1;
 161         USHORT i = 0;
 162         String aTxt;
 163         char *pTxt = aTxt.AllocStrBuf( (USHORT)nLen );
 164         DragServer::PasteData( nItem, pTxt, nLen, SOT_FORMATSTR_ID_SBA_DATAEXCHANGE );
 165         String aDBName = aTxt.GetToken( i++, DB_DD_DELIM );
 166         String aTableName = aTxt.GetToken( i++, DB_DD_DELIM );
 167         i++;    // Format"anderung
 168         String aStatement = aTxt.GetToken( i++, DB_DD_DELIM );
 169         if ( !aStatement )
 170         {
 171             aDBName += DB_DELIM;
 172             aDBName += aTableName;
 173         }
 174         else
 175         {
 176             // use here another delimiter, because the OfaDBMgr uses two
 177             // delimiters ( (char)11 and ; )
 178             aDBName += ';';
 179             aDBName += aStatement;
 180         }
 181         SbaSelectionListRef pSelectionList;
 182         pSelectionList.Clear();
 183         pSelectionList = new SbaSelectionList;
 184         USHORT nTokCnt = aTxt.GetTokenCount( DB_DD_DELIM );
 185
 186         for ( ; i < nTokCnt; ++i )
 187             pSelectionList->Insert(
 188                 (void*)(USHORT)aTxt.GetToken( i, DB_DD_DELIM ), LIST_APPEND );
 189
 190         OfaDBMgr* pDBMgr = SFX_APP()->GetOfaDBMgr();
 191         BOOL bBasic = DBMGR_STD;
 192
 193         if ( !pDBMgr->OpenDB( bBasic, aDBName ) )
 194             return aAddress;
 195
 196         OfaDBParam& rParam = pDBMgr->GetDBData( bBasic );
 197         pDBMgr->ChangeStatement( bBasic, aStatement );
 198         rParam.pSelectionList->Clear();
 199
 200         if ( pSelectionList.Is() &&
 201                 (long)pSelectionList->GetObject(0) != -1L )
 202             *rParam.pSelectionList = *pSelectionList;
 203
 204         if ( !pDBMgr->ToFirstSelectedRecord( bBasic ) )
 205         {
 206             pDBMgr->CloseAll();
 207             return aAddress;
 208         }
 209
 210         if ( pDBMgr->IsSuccessful( bBasic ) )
 211         {
 212             //  Spaltenk"opfe
 213             SbaDBDataDefRef aDBDef = pDBMgr->OpenColumnNames( bBasic );
 214
 215             if ( aDBDef.Is() )
 216             {
 217                 SbaColumn* pCol = aDBDef->GetColumn("EMAIL");
 218                 ULONG nPos = 0;
 219
 220                 if ( pCol )
 221                     nPos = aDBDef->GetOriginalColumns().GetPos( pCol ) + 1;
 222                 for ( i = 0 ; nPos && i < pSelectionList->Count(); ++i )
 223                 {
 224                     ULONG nIndex = (ULONG)pSelectionList->GetObject(i);
 225
 226                     // N"achsten zu lesenden Datensatz ansteuern
 227
 228                     BOOL bEnd = rParam.GetCursor()->IsOffRange();
 229
 230                     if ( !bEnd )
 231                     {
 232                         const ODbRowRef aRow =
 233                             pDBMgr->GetSelectedRecord( bBasic, i );
 234
 235                         if ( aRow.Is() )
 236                         {
 237                             aAddress += pDBMgr->
 238                                 ImportDBField( (USHORT)nPos, &aDBDef, aRow.getBodyPtr() );
 239                             aAddress += ',';
 240                         }
 241                         else
 242                         {
 243                             aAddress.Erase();
 244                             break;
 245                         }
 246                     }
 247                     else
 248                         break;
 249                 }
 250             }
 251         }
 252         pDBMgr->CloseAll();
 253     }
 254     aAddress.EraseTrailingChars( ',' );
 255     return aAddress;
 256 #else
 257     return String();
 258 #endif
 259 }
 260 */
 261
 262 void SvxHyperURLBox::Select()
 263 {
 264     SvtURLBox::Select();
 265 }
 266 void SvxHyperURLBox::Modify()
 267 {
 268     SvtURLBox::Modify();
 269 }
 270 long SvxHyperURLBox::Notify( NotifyEvent& rNEvt )
 271 {
 272     return SvtURLBox::Notify( rNEvt );
 273 }
 274 long SvxHyperURLBox::PreNotify( NotifyEvent& rNEvt )
 275 {
 276     return SvtURLBox::PreNotify( rNEvt );
 277 }
 278
 279 //########################################################################
 280 //#                                                                      #
 281 //# Hyperlink-Dialog: Tabpages-Baseclass                                 #
 282 //#                                                                      #
 283 //########################################################################
 284
 285 /*************************************************************************
 286 |*
 287 |* Con/Destructor, Initialize
 288 |*
 289 \************************************************************************/
 290
 291 SvxHyperlinkTabPageBase::SvxHyperlinkTabPageBase ( Window *pParent,
 292                                                    const ResId &rResId,
 293                                                    const SfxItemSet& rItemSet )
 294 :       IconChoicePage                  ( pParent, rResId, rItemSet ),
 295     mpGrpMore                           ( NULL ),
 296     mpFtFrame                           ( NULL ),
 297     mpCbbFrame                          ( NULL ),
 298     mpFtForm                            ( NULL ),
 299     mpLbForm                            ( NULL ),
 300     mpFtIndication                      ( NULL ),
 301     mpEdIndication                      ( NULL ),
 302     mpFtText                            ( NULL ),
 303     mpEdText                            ( NULL ),
 304     mpBtScript                          ( NULL ),
 305     mbIsCloseDisabled       ( sal_False ),
 306     mpDialog                            ( pParent ),
 307     mbStdControlsInit       ( FALSE ),
 308     aEmptyStr()
 309 {
 310     // create bookmark-window
 311     mpMarkWnd = new SvxHlinkDlgMarkWnd ( this );
 312 }
 313
 314 SvxHyperlinkTabPageBase::~SvxHyperlinkTabPageBase ()
 315 {
 316     maTimer.Stop();
 317
 318     if ( mbStdControlsInit )
 319     {
 320         delete mpGrpMore;
 321         delete mpFtFrame;
 322         delete mpCbbFrame;
 323         delete mpFtForm;
 324         delete mpLbForm;
 325         delete mpFtIndication;
 326         delete mpEdIndication;
 327         delete mpFtText;
 328         delete mpEdText ;
 329         delete mpBtScript;
 330     }
 331
 332     delete mpMarkWnd;
 333 }
 334
 335 void SvxHyperlinkTabPageBase::ActivatePage()
 336 {
 337     TabPage::ActivatePage();
 338 }
 339
 340 void SvxHyperlinkTabPageBase::DeactivatePage()
 341 {
 342     TabPage::DeactivatePage();
 343 }
 344
 345 sal_Bool SvxHyperlinkTabPageBase::QueryClose()
 346 {
 347     return !mbIsCloseDisabled;
 348 }
 349
 350 void SvxHyperlinkTabPageBase::InitStdControls ()
 351 {
 352     if ( !mbStdControlsInit )
 353     {
 354         mpGrpMore         = new FixedLine                       ( this, ResId (GRP_MORE, *m_pResMgr) );
 355         mpFtFrame         = new FixedText                       ( this, ResId (FT_FRAME, *m_pResMgr) );
 356         mpCbbFrame    = new SvxFramesComboBox   ( this, ResId (CB_FRAME, *m_pResMgr), GetDispatcher() );
 357         mpFtForm          = new FixedText                       ( this, ResId (FT_FORM, *m_pResMgr) );
 358         mpLbForm          = new ListBox                         ( this, ResId (LB_FORM, *m_pResMgr) );
 359         mpFtIndication= new FixedText                   ( this, ResId (FT_INDICATION, *m_pResMgr) );
 360         mpEdIndication= new Edit                                ( this, ResId (ED_INDICATION, *m_pResMgr) );
 361         mpFtText          = new FixedText                       ( this, ResId (FT_TEXT, *m_pResMgr) );
 362         mpEdText          = new Edit                            ( this, ResId (ED_TEXT, *m_pResMgr) );
 363         mpBtScript        = new ImageButton                     ( this, ResId (BTN_SCRIPT, *m_pResMgr) );
 364
 365         mpBtScript->SetClickHdl ( LINK ( this, SvxHyperlinkTabPageBase, ClickScriptHdl_Impl ) );
 366
 367         mpBtScript->SetModeImage( Image( ResId( IMG_SCRIPT_HC, *m_pResMgr ) ), BMP_COLOR_HIGHCONTRAST );
 368         mpBtScript->EnableTextDisplay (FALSE);
 369     }
 370
 371     mbStdControlsInit = TRUE;
 372 }
 373
 374 /*************************************************************************
 375 |*
 376 |* Move Extra-Window
 377 |*
 378 \************************************************************************/
 379
 380 BOOL SvxHyperlinkTabPageBase::MoveToExtraWnd( Point aNewPos, BOOL bDisConnectDlg )
 381 {
 382     BOOL bReturn =      mpMarkWnd->MoveTo ( aNewPos );
 383
 384     if( bDisConnectDlg )
 385         mpMarkWnd->ConnectToDialog( FALSE );
 386
 387     return ( !bReturn && IsMarkWndVisible() );
 388 }
 389
 390 /*************************************************************************
 391 |*
 392 |* Show Extra-Window
 393 |*
 394 \************************************************************************/
 395
 396 void SvxHyperlinkTabPageBase::ShowMarkWnd ()
 397 {
 398     ( ( Window* ) mpMarkWnd )->Show();
 399
 400     // Size of dialog-window in screen pixels
 401     Rectangle aDlgRect( mpDialog->GetWindowExtentsRelative( NULL ) );
 402     Point aDlgPos ( aDlgRect.TopLeft() );
 403     Size aDlgSize (     mpDialog->GetSizePixel () );
 404
 405     // Absolute size of the screen
 406     Rectangle aScreen( mpDialog->GetDesktopRectPixel() );
 407
 408     // Size of Extrawindow
 409     Size aExtraWndSize( mpMarkWnd->GetSizePixel () );
 410
 411     // mpMarkWnd is a child of mpDialog, so coordinates for positioning must be relative to mpDialog
 412     if( aDlgPos.X()+(1.05*aDlgSize.Width())+aExtraWndSize.Width() > aScreen.Right() )
 413     {
 414         if( aDlgPos.X() - ( 0.05*aDlgSize.Width() ) - aExtraWndSize.Width() < 0 )
 415         {
 416             // Pos Extrawindow anywhere
 417             MoveToExtraWnd( Point(10,10) );  // very unlikely
 418             mpMarkWnd->ConnectToDialog( FALSE );
 419         }
 420         else
 421         {
 422             // Pos Extrawindow on the left side of Dialog
 423             MoveToExtraWnd( Point(0,0) - Point( long(0.05*aDlgSize.Width()), 0 ) - Point( aExtraWndSize.Width(), 0 ) );
 424         }
 425     }
 426     else
 427     {
 428         // Pos Extrawindow on the right side of Dialog
 429         MoveToExtraWnd ( Point( long(1.05*aDlgSize.getWidth()), 0 ) );
 430     }
 431
 432     // Set size of Extra-Window
 433     mpMarkWnd->SetSizePixel( Size( aExtraWndSize.Width(), aDlgSize.Height() ) );
 434 }
 435
 436 /*************************************************************************
 437 |*
 438 |* Fill Dialogfields
 439 |*
 440 \************************************************************************/
 441
 442 void SvxHyperlinkTabPageBase::FillStandardDlgFields ( SvxHyperlinkItem* pHyperlinkItem )
 443 {
 444     // Frame
 445     USHORT nPos = mpCbbFrame->GetEntryPos ( pHyperlinkItem->GetTargetFrame() );
 446     if ( nPos != LISTBOX_ENTRY_NOTFOUND)
 447         mpCbbFrame->SetText ( pHyperlinkItem->GetTargetFrame() );
 448
 449     // Form
 450     String aStrFormText = SVX_RESSTR( RID_SVXSTR_HYPERDLG_FROM_TEXT );
 451     String aStrFormButton = SVX_RESSTR( RID_SVXSTR_HYPERDLG_FORM_BUTTON );
 452
 453     if( pHyperlinkItem->GetInsertMode() & HLINK_HTMLMODE )
 454     {
 455         mpLbForm->Clear();
 456         mpLbForm->InsertEntry( aStrFormText );
 457         mpLbForm->SelectEntryPos ( 0 );
 458     }
 459     else
 460     {
 461         mpLbForm->Clear();
 462         mpLbForm->InsertEntry( aStrFormText );
 463         mpLbForm->InsertEntry( aStrFormButton );
 464         mpLbForm->SelectEntryPos ( pHyperlinkItem->GetInsertMode() == HLINK_BUTTON ? 1 : 0 );
 465     }
 466
 467     // URL
 468     mpEdIndication->SetText ( pHyperlinkItem->GetName() );
 469
 470     // Name
 471     mpEdText->SetText ( pHyperlinkItem->GetIntName() );
 472
 473     // Script-button
 474     if ( !pHyperlinkItem->GetMacroEvents() )
 475         mpBtScript->Disable();
 476     else
 477         mpBtScript->Enable();
 478 }
 479
 480 /*************************************************************************
 481 |*
 482 |* Any action to do after apply-button is pressed
 483 |*
 484 \************************************************************************/
 485
 486 void SvxHyperlinkTabPageBase::DoApply ()
 487 {
 488     // default-implemtation : do nothing
 489 }
 490
 491 /*************************************************************************
 492 |*
 493 |* Ask page whether an insert is possible
 494 |*
 495 \************************************************************************/
 496
 497 BOOL SvxHyperlinkTabPageBase::AskApply ()
 498 {
 499     // default-implementation
 500     return TRUE;
 501 }
 502
 503 /*************************************************************************
 504 |*
 505 |* This method would be called from bookmark-window to set new mark-string
 506 |*
 507 \************************************************************************/
 508
 509 void SvxHyperlinkTabPageBase::SetMarkStr ( String& /*aStrMark*/ )
 510 {
 511     // default-implemtation : do nothing
 512 }
 513
 514 /*************************************************************************
 515 |*
 516 |* This method will be called from the dialog-class if the state off
 517 |* the online-mode has changed.
 518 |*
 519 \************************************************************************/
 520
 521 void SvxHyperlinkTabPageBase::SetOnlineMode( BOOL /*bEnable*/ )
 522 {
 523     // default-implemtation : do nothing
 524 }
 525
 526 /*************************************************************************
 527 |*
 528 |* Set initial focus
 529 |*
 530 |************************************************************************/
 531
 532 void SvxHyperlinkTabPageBase::SetInitFocus()
 533 {
 534     GrabFocus();
 535 }
 536
 537 /*************************************************************************
 538 |*
 539 |* Ask dialog whether the curretn doc is a HTML-doc
 540 |*
 541 |************************************************************************/
 542
 543 BOOL SvxHyperlinkTabPageBase::IsHTMLDoc() const
 544 {
 545     return ((SvxHpLinkDlg*)mpDialog)->IsHTMLDoc();
 546 }
 547
 548 /*************************************************************************
 549 |*
 550 |* retrieve dispatcher
 551 |*
 552 |************************************************************************/
 553
 554 SfxDispatcher* SvxHyperlinkTabPageBase::GetDispatcher() const
 555 {
 556     return ((SvxHpLinkDlg*)mpDialog)->GetDispatcher();
 557 }
 558
 559 /*************************************************************************
 560 |*
 561 |* Click on imagebutton : Script
 562 |*
 563 |************************************************************************/
 564
 565 IMPL_LINK ( SvxHyperlinkTabPageBase, ClickScriptHdl_Impl, void *, EMPTYARG )
 566 {
 567     SvxHyperlinkItem *pHyperlinkItem = (SvxHyperlinkItem *)
 568                                        GetItemSet().GetItem (SID_HYPERLINK_GETLINK);
 569
 570     if ( pHyperlinkItem->GetMacroEvents() )
 571     {
 572         // get macros from itemset
 573         const SvxMacroTableDtor* pMacroTbl = pHyperlinkItem->GetMacroTbl();
 574         SvxMacroItem aItem ( GetWhich(SID_ATTR_MACROITEM) );
 575         if( pMacroTbl )
 576             aItem.SetMacroTable( *pMacroTbl );
 577
 578         // create empty itemset for macro-dlg
 579         SfxItemSet* pItemSet = new SfxItemSet(SFX_APP()->GetPool(),
 580                                               SID_ATTR_MACROITEM,
 581                                               SID_ATTR_MACROITEM );
 582         pItemSet->Put ( aItem, SID_ATTR_MACROITEM );
 583
 584         // --> PB 2006-01-13 #123474#
 585         /*  disable HyperLinkDlg for input while the MacroAssignDlg is working
 586             because if no JAVA is installed an error box occurs and then it is possible
 587             to close the HyperLinkDlg before its child (MacroAssignDlg) -> GPF
 588          */
 589         BOOL bIsInputEnabled = GetParent()->IsInputEnabled();
 590         if ( bIsInputEnabled )
 591             GetParent()->EnableInput( FALSE );
 592         // <--
 593         SfxMacroAssignDlg aDlg( this, mxDocumentFrame, *pItemSet );
 594
 595         // add events
 596         SfxMacroTabPage *pMacroPage = (SfxMacroTabPage*) aDlg.GetTabPage();
 597
 598         if ( pHyperlinkItem->GetMacroEvents() & HYPERDLG_EVENT_MOUSEOVER_OBJECT )
 599             pMacroPage->AddEvent( String( SVX_RESSTR(RID_SVXSTR_HYPDLG_MACROACT1) ),
 600                                   SFX_EVENT_MOUSEOVER_OBJECT );
 601         if ( pHyperlinkItem->GetMacroEvents() & HYPERDLG_EVENT_MOUSECLICK_OBJECT )
 602             pMacroPage->AddEvent( String( SVX_RESSTR(RID_SVXSTR_HYPDLG_MACROACT2) ),
 603                                   SFX_EVENT_MOUSECLICK_OBJECT);
 604         if ( pHyperlinkItem->GetMacroEvents() & HYPERDLG_EVENT_MOUSEOUT_OBJECT )
 605             pMacroPage->AddEvent( String( SVX_RESSTR(RID_SVXSTR_HYPDLG_MACROACT3) ),
 606                                   SFX_EVENT_MOUSEOUT_OBJECT);
 607
 608         // --> PB 2006-01-13 #123474#
 609         if ( bIsInputEnabled )
 610             GetParent()->EnableInput( TRUE );
 611         // <--
 612         // execute dlg
 613         DisableClose( sal_True );
 614         short nRet = aDlg.Execute();
 615         DisableClose( sal_False );
 616         if ( RET_OK == nRet )
 617         {
 618             const SfxItemSet* pOutSet = aDlg.GetOutputItemSet();
 619             const SfxPoolItem* pItem;
 620             if( SFX_ITEM_SET == pOutSet->GetItemState( SID_ATTR_MACROITEM, FALSE, &pItem ))
 621             {
 622                 pHyperlinkItem->SetMacroTable( ((SvxMacroItem*)pItem)->GetMacroTable() );
 623             }
 624         }
 625         delete pItemSet;
 626     }
 627
 628     return( 0L );
 629 }
 630
 631 /*************************************************************************
 632 |*
 633 |* Get Macro-Infos
 634 |*
 635 |************************************************************************/
 636
 637 USHORT SvxHyperlinkTabPageBase::GetMacroEvents()
 638 {
 639     SvxHyperlinkItem *pHyperlinkItem = (SvxHyperlinkItem *)
 640                                        GetItemSet().GetItem (SID_HYPERLINK_GETLINK);
 641
 642     return pHyperlinkItem->GetMacroEvents();
 643 }
 644
 645 SvxMacroTableDtor* SvxHyperlinkTabPageBase::GetMacroTable()
 646 {
 647     SvxHyperlinkItem *pHyperlinkItem = (SvxHyperlinkItem *)
 648                                        GetItemSet().GetItem (SID_HYPERLINK_GETLINK);
 649
 650     return ( (SvxMacroTableDtor*)pHyperlinkItem->GetMacroTbl() );
 651 }
 652
 653 /*************************************************************************
 654 |*
 655 |* Does the given file exists ?
 656 |*
 657 |************************************************************************/
 658
 659 BOOL SvxHyperlinkTabPageBase::FileExists( const INetURLObject& rURL )
 660 {
 661     BOOL bRet = FALSE;
 662
 663     if( rURL.GetFull().getLength() > 0 )
 664     {
 665         try
 666         {
 667             Content             aCnt( rURL.GetMainURL( INetURLObject::NO_DECODE ), ::com::sun::star::uno::Reference< ::com::sun::star::ucb::XCommandEnvironment >() );
 668             ::rtl::OUString     aTitle;
 669
 670             aCnt.getPropertyValue( ::rtl::OUString::createFromAscii( "Title" ) ) >>= aTitle;
 671             bRet = ( aTitle.getLength() > 0 );
 672         }
 673         catch( ... )
 674         {
 675             DBG_ERROR( "FileExists: ucb error" );
 676         }
 677     }
 678
 679     return bRet;
 680 }
 681
 682 /*************************************************************************
 683 |*
 684 |* try to detect the current protocol that is used in aStrURL
 685 |*
 686 |************************************************************************/
 687
 688 String SvxHyperlinkTabPageBase::GetSchemeFromURL( String aStrURL )
 689 {
 690     String aStrScheme;
 691
 692     INetURLObject aURL( aStrURL );
 693     INetProtocol aProtocol = aURL.GetProtocol();
 694
 695     // #77696#
 696     // our new INetUrlObject now has the ability
 697     // to detect if an Url is valid or not :-(
 698     if ( aProtocol == INET_PROT_NOT_VALID )
 699     {
 700         if ( aStrURL.EqualsIgnoreCaseAscii( INET_HTTP_SCHEME, 0, 7 ) )
 701         {
 702             aStrScheme = String::CreateFromAscii( INET_HTTP_SCHEME );
 703         }
 704         else if ( aStrURL.EqualsIgnoreCaseAscii( INET_HTTPS_SCHEME, 0, 8 ) )
 705         {
 706             aStrScheme = String::CreateFromAscii( INET_HTTPS_SCHEME );
 707         }
 708         else if ( aStrURL.EqualsIgnoreCaseAscii( INET_FTP_SCHEME, 0, 6 ) )
 709         {
 710             aStrScheme = String::CreateFromAscii( INET_FTP_SCHEME );
 711         }
 712         else if ( aStrURL.EqualsIgnoreCaseAscii( INET_MAILTO_SCHEME, 0, 7 ) )
 713         {
 714             aStrScheme = String::CreateFromAscii( INET_MAILTO_SCHEME );
 715         }
 716         else if ( aStrURL.EqualsIgnoreCaseAscii( INET_NEWS_SCHEME, 0, 5 ) )
 717         {
 718             aStrScheme = String::CreateFromAscii( INET_NEWS_SCHEME );
 719         }
 720         else if ( aStrURL.EqualsIgnoreCaseAscii( INET_TELNET_SCHEME, 0, 9 ) )
 721         {
 722             aStrScheme = String::CreateFromAscii( INET_TELNET_SCHEME );
 723         }
 724     }
 725     else
 726         aStrScheme = INetURLObject::GetScheme( aProtocol );
 727     return aStrScheme;
 728 }
 729
 730
 731 void SvxHyperlinkTabPageBase::GetDataFromCommonFields( String& aStrName,
 732                                              String& aStrIntName, String& aStrFrame,
 733                                              SvxLinkInsertMode& eMode )
 734 {
 735     aStrIntName = mpEdText->GetText();
 736     aStrName    = mpEdIndication->GetText();
 737     aStrFrame   = mpCbbFrame->GetText();
 738     eMode               = (SvxLinkInsertMode) (mpLbForm->GetSelectEntryPos()+1);
 739     if( IsHTMLDoc() )
 740         eMode = (SvxLinkInsertMode) ( UINT16(eMode) | HLINK_HTMLMODE );
 741 }
 742
 743 /*************************************************************************
 744 |*
 745 |* reset dialog-fields
 746 |*
 747 |************************************************************************/
 748
 749 void SvxHyperlinkTabPageBase::Reset( const SfxItemSet& rItemSet)
 750 {
 751     ///////////////////////////////////////
 752     // Set dialog-fields from create-itemset
 753     maStrInitURL = aEmptyStr;
 754
 755     SvxHyperlinkItem *pHyperlinkItem = (SvxHyperlinkItem *)
 756                                        rItemSet.GetItem (SID_HYPERLINK_GETLINK);
 757
 758     if ( pHyperlinkItem )
 759     {
 760         // set dialog-fields
 761         FillStandardDlgFields (pHyperlinkItem);
 762
 763         // set all other fields
 764         FillDlgFields ( (String&)pHyperlinkItem->GetURL() );
 765
 766         // Store initial URL
 767         maStrInitURL = pHyperlinkItem->GetURL();
 768     }
 769 }
 770
 771 /*************************************************************************
 772 |*
 773 |* Fill output-ItemSet
 774 |*
 775 |************************************************************************/
 776
 777 BOOL SvxHyperlinkTabPageBase::FillItemSet( SfxItemSet& rOut)
 778 {
 779     String aStrURL, aStrName, aStrIntName, aStrFrame;
 780     SvxLinkInsertMode eMode;
 781
 782     GetCurentItemData ( aStrURL, aStrName, aStrIntName, aStrFrame, eMode);
 783     if ( !aStrName.Len() ) //automatically create a visible name if the link is created without name
 784         aStrName = CreateUiNameFromURL(aStrURL);
 785
 786     USHORT nEvents = GetMacroEvents();
 787     SvxMacroTableDtor* pTable = GetMacroTable();
 788
 789     SvxHyperlinkItem aItem( SID_HYPERLINK_SETLINK, aStrName, aStrURL, aStrFrame,
 790                             aStrIntName, eMode, nEvents, pTable );
 791     rOut.Put (aItem);
 792
 793     return TRUE;
 794 }
 795
 796 String SvxHyperlinkTabPageBase::CreateUiNameFromURL( const String& aStrURL )
 797 {
 798     String                      aStrUiURL;
 799     INetURLObject       aURLObj( aStrURL );
 800
 801     switch(aURLObj.GetProtocol())
 802     {
 803         case INET_PROT_FILE:
 804             utl::LocalFileHelper::ConvertURLToSystemPath( aURLObj.GetMainURL(INetURLObject::NO_DECODE), aStrUiURL );
 805             break;
 806         case INET_PROT_FTP :
 807             {
 808                 //remove password from name
 809                 INetURLObject   aTmpURL(aURLObj);
 810                 aTmpURL.SetPass(aEmptyStr);
 811                 aStrUiURL = aTmpURL.GetMainURL( INetURLObject::DECODE_UNAMBIGUOUS );
 812             }
 813             break;
 814         default :
 815             {
 816                 aStrUiURL = aURLObj.GetMainURL(INetURLObject::DECODE_UNAMBIGUOUS);
 817             }
 818     }
 819     if(!aStrUiURL.Len())
 820         return aStrURL;
 821     return aStrUiURL;
 822 }
 823
 824 /*************************************************************************
 825 |*
 826 |* Activate / Deactivate Tabpage
 827 |*
 828 |************************************************************************/
 829
 830 void SvxHyperlinkTabPageBase::ActivatePage( const SfxItemSet& rItemSet )
 831 {
 832     ///////////////////////////////////////
 833     // Set dialog-fields from input-itemset
 834     SvxHyperlinkItem *pHyperlinkItem = (SvxHyperlinkItem *)
 835                                        rItemSet.GetItem (SID_HYPERLINK_GETLINK);
 836
 837     if ( pHyperlinkItem )
 838     {
 839         // standard-fields
 840         FillStandardDlgFields (pHyperlinkItem);
 841     }
 842
 843     // show mark-window if it was open before
 844     if ( ShouldOpenMarkWnd () )
 845         ShowMarkWnd ();
 846 }
 847
 848 int SvxHyperlinkTabPageBase::DeactivatePage( SfxItemSet* _pSet)
 849 {
 850     // hide mark-wnd
 851     SetMarkWndShouldOpen( IsMarkWndVisible () );
 852     HideMarkWnd ();
 853
 854     // retrieve data of dialog
 855     String aStrURL, aStrName, aStrIntName, aStrFrame;
 856     SvxLinkInsertMode eMode;
 857
 858     GetCurentItemData ( aStrURL, aStrName, aStrIntName, aStrFrame, eMode);
 859
 860     USHORT nEvents = GetMacroEvents();
 861     SvxMacroTableDtor* pTable = GetMacroTable();
 862
 863     if( _pSet )
 864     {
 865         SvxHyperlinkItem aItem( SID_HYPERLINK_GETLINK, aStrName, aStrURL, aStrFrame,
 866                                 aStrIntName, eMode, nEvents, pTable );
 867         _pSet->Put( aItem );
 868     }
 869
 870     return( LEAVE_PAGE );
 871 }
 872
 873 BOOL SvxHyperlinkTabPageBase::ShouldOpenMarkWnd()
 874 {
 875     return FALSE;
 876 }
 877
 878 void SvxHyperlinkTabPageBase::SetMarkWndShouldOpen(BOOL)
 879 {
 880 }