cui/source/dialogs/hldoctp.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 <cuihyperdlg.hxx>
  21 #include <osl/file.hxx>
  22 #include <sfx2/filedlghelper.hxx>
  23 #include <com/sun/star/ui/dialogs/TemplateDescription.hpp>
  24
  25 #include <hldoctp.hxx>
  26 #include <hlmarkwn_def.hxx>
  27 #include <bitmaps.hlst>
  28
  29 sal_Char const sHash[]          = "#";
  30 sal_Char const sFileScheme[]    = INET_FILE_SCHEME;
  31
  32 /*************************************************************************
  33 |*
  34 |* Constructor / Destructor
  35 |*
  36 |************************************************************************/
  37
  38 SvxHyperlinkDocTp::SvxHyperlinkDocTp ( vcl::Window *pParent, IconChoiceDialog* pDlg, const SfxItemSet* pItemSet)
  39     : SvxHyperlinkTabPageBase ( pParent, pDlg, "HyperlinkDocPage", "cui/ui/hyperlinkdocpage.ui", pItemSet ),
  40     mbMarkWndOpen   ( false )
  41 {
  42     get(m_pCbbPath, "path");
  43     m_pCbbPath->SetSmartProtocol(INetProtocol::File);
  44     get(m_pBtFileopen, "fileopen");
  45     m_pBtFileopen->SetModeImage(Image(StockImage::Yes, RID_SVXBMP_FILEOPEN));
  46     get(m_pEdTarget, "target");
  47     get(m_pFtFullURL, "url");
  48     get(m_pBtBrowse, "browse");
  49     m_pBtBrowse->SetModeImage(Image(StockImage::Yes, RID_SVXBMP_TARGET));
  50
  51     // Disable display of bitmap names.
  52     m_pBtBrowse->EnableTextDisplay (false);
  53     m_pBtFileopen->EnableTextDisplay (false);
  54
  55     InitStdControls();
  56
  57     m_pCbbPath->Show();
  58     m_pCbbPath->SetBaseURL(INET_FILE_SCHEME);
  59
  60     SetExchangeSupport ();
  61
  62     // set handlers
  63     m_pBtFileopen->SetClickHdl ( LINK ( this, SvxHyperlinkDocTp, ClickFileopenHdl_Impl ) );
  64     m_pBtBrowse->SetClickHdl   ( LINK ( this, SvxHyperlinkDocTp, ClickTargetHdl_Impl ) );
  65     m_pCbbPath->SetModifyHdl   ( LINK ( this, SvxHyperlinkDocTp, ModifiedPathHdl_Impl ) );
  66     m_pEdTarget->SetModifyHdl  ( LINK ( this, SvxHyperlinkDocTp, ModifiedTargetHdl_Impl ) );
  67
  68     m_pCbbPath->SetLoseFocusHdl( LINK ( this, SvxHyperlinkDocTp, LostFocusPathHdl_Impl ) );
  69
  70     maTimer.SetInvokeHandler ( LINK ( this, SvxHyperlinkDocTp, TimeoutHdl_Impl ) );
  71 }
  72
  73 SvxHyperlinkDocTp::~SvxHyperlinkDocTp()
  74 {
  75     disposeOnce();
  76 }
  77
  78 void SvxHyperlinkDocTp::dispose()
  79 {
  80     m_pCbbPath.clear();
  81     m_pBtFileopen.clear();
  82     m_pEdTarget.clear();
  83     m_pFtFullURL.clear();
  84     m_pBtBrowse.clear();
  85     SvxHyperlinkTabPageBase::dispose();
  86 }
  87
  88 /*************************************************************************
  89 |*
  90 |* Fill all dialog-controls except controls in groupbox "more..."
  91 |*
  92 |************************************************************************/
  93
  94 void SvxHyperlinkDocTp::FillDlgFields(const OUString& rStrURL)
  95 {
  96     sal_Int32 nPos = rStrURL.indexOf(sHash);
  97     // path
  98     m_pCbbPath->SetText ( rStrURL.copy( 0, ( nPos == -1 ? rStrURL.getLength() : nPos ) ) );
  99
 100     // set target in document at editfield
 101     OUString aStrMark;
 102     if ( nPos != -1 && nPos < rStrURL.getLength()-1 )
 103         aStrMark = rStrURL.copy( nPos+1 );
 104     m_pEdTarget->SetText ( aStrMark );
 105
 106     ModifiedPathHdl_Impl ( *m_pCbbPath );
 107 }
 108
 109 /*************************************************************************
 110 |*
 111 |* retrieve current url-string
 112 |*
 113 |************************************************************************/
 114
 115 OUString SvxHyperlinkDocTp::GetCurrentURL ()
 116 {
 117     // get data from dialog-controls
 118     OUString aStrURL;
 119     OUString aStrPath ( m_pCbbPath->GetText() );
 120     OUString aStrMark( m_pEdTarget->GetText() );
 121
 122     if ( !aStrPath.isEmpty() )
 123     {
 124         INetURLObject aURL( aStrPath );
 125         if ( aURL.GetProtocol() != INetProtocol::NotValid )    // maybe the path is already a valid
 126             aStrURL = aStrPath;                             // hyperlink, then we can use this path directly
 127         else
 128             osl::FileBase::getFileURLFromSystemPath( aStrPath, aStrURL );
 129
 130         //#105788# always create a URL even if it is not valid
 131         if( aStrURL.isEmpty() )
 132             aStrURL = aStrPath;
 133     }
 134
 135     if( !aStrMark.isEmpty() )
 136     {
 137         aStrURL += sHash;
 138         aStrURL += aStrMark;
 139     }
 140
 141     return aStrURL;
 142 }
 143
 144 /*************************************************************************
 145 |*
 146 |* retrieve and prepare data from dialog-fields
 147 |*
 148 |************************************************************************/
 149
 150 void SvxHyperlinkDocTp::GetCurentItemData ( OUString& rStrURL, OUString& aStrName,
 151                                             OUString& aStrIntName, OUString& aStrFrame,
 152                                             SvxLinkInsertMode& eMode )
 153 {
 154     // get data from standard-fields
 155     rStrURL = GetCurrentURL();
 156
 157     if( rStrURL.equalsIgnoreAsciiCase( sFileScheme ) )
 158          rStrURL.clear();
 159
 160     GetDataFromCommonFields( aStrName, aStrIntName, aStrFrame, eMode );
 161 }
 162
 163 /*************************************************************************
 164 |*
 165 |* static method to create Tabpage
 166 |*
 167 |************************************************************************/
 168
 169 VclPtr<IconChoicePage> SvxHyperlinkDocTp::Create( vcl::Window* pWindow, IconChoiceDialog* pDlg, const SfxItemSet* pItemSet )
 170 {
 171     return VclPtr<SvxHyperlinkDocTp>::Create( pWindow, pDlg, pItemSet );
 172 }
 173
 174 /*************************************************************************
 175 |*
 176 |* Set initial focus
 177 |*
 178 |************************************************************************/
 179
 180 void SvxHyperlinkDocTp::SetInitFocus()
 181 {
 182     m_pCbbPath->GrabFocus();
 183 }
 184
 185 /*************************************************************************
 186 |*
 187 |* Click on imagebutton : fileopen
 188 |*
 189 |************************************************************************/
 190
 191 IMPL_LINK_NOARG(SvxHyperlinkDocTp, ClickFileopenHdl_Impl, Button*, void)
 192 {
 193     // Open Fileopen-Dialog
 194     sfx2::FileDialogHelper aDlg(
 195         css::ui::dialogs::TemplateDescription::FILEOPEN_SIMPLE, FileDialogFlags::NONE,
 196         GetFrameWeld() );
 197     OUString aOldURL( GetCurrentURL() );
 198     if( aOldURL.startsWithIgnoreAsciiCase( sFileScheme ) )
 199     {
 200         OUString aPath;
 201         osl::FileBase::getSystemPathFromFileURL(aOldURL, aPath);
 202         aDlg.SetDisplayFolder( aPath );
 203     }
 204
 205     DisableClose( true );
 206     ErrCode nError = aDlg.Execute();
 207     DisableClose( false );
 208
 209     if ( ERRCODE_NONE == nError )
 210     {
 211         OUString aURL( aDlg.GetPath() );
 212         OUString aPath;
 213
 214         osl::FileBase::getSystemPathFromFileURL(aURL, aPath);
 215
 216         m_pCbbPath->SetBaseURL( aURL );
 217         m_pCbbPath->SetText( aPath );
 218
 219         if ( aOldURL != GetCurrentURL() )
 220             ModifiedPathHdl_Impl(*m_pCbbPath);
 221     }
 222 }
 223
 224 /*************************************************************************
 225 |*
 226 |* Click on imagebutton : target
 227 |*
 228 |************************************************************************/
 229
 230 IMPL_LINK_NOARG(SvxHyperlinkDocTp, ClickTargetHdl_Impl, Button*, void)
 231 {
 232     if ( GetPathType ( maStrURL ) == EPathType::ExistsFile  ||
 233          maStrURL.isEmpty() ||
 234          maStrURL.equalsIgnoreAsciiCase( sFileScheme ) ||
 235          maStrURL.startsWith( sHash ) )
 236     {
 237         mpMarkWnd->SetError( LERR_NOERROR );
 238
 239         EnterWait();
 240
 241         if ( maStrURL.equalsIgnoreAsciiCase( sFileScheme ) )
 242             mpMarkWnd->RefreshTree ( "" );
 243         else
 244             mpMarkWnd->RefreshTree ( maStrURL );
 245
 246         LeaveWait();
 247     }
 248     else
 249         mpMarkWnd->SetError( LERR_DOCNOTOPEN );
 250
 251     ShowMarkWnd ();
 252 }
 253
 254 /*************************************************************************
 255 |*
 256 |* Contents of combobox "Path" modified
 257 |*
 258 |************************************************************************/
 259
 260 IMPL_LINK_NOARG(SvxHyperlinkDocTp, ModifiedPathHdl_Impl, Edit&, void)
 261 {
 262     maStrURL = GetCurrentURL();
 263
 264     maTimer.SetTimeout( 2500 );
 265     maTimer.Start();
 266
 267     m_pFtFullURL->SetText( maStrURL );
 268 }
 269
 270 /*************************************************************************
 271 |*
 272 |* If path-field was modify, to browse the new doc after timeout
 273 |*
 274 |************************************************************************/
 275
 276 IMPL_LINK_NOARG(SvxHyperlinkDocTp, TimeoutHdl_Impl, Timer *, void)
 277 {
 278     if ( IsMarkWndVisible() && ( GetPathType( maStrURL )== EPathType::ExistsFile ||
 279                                   maStrURL.isEmpty() ||
 280                                   maStrURL.equalsIgnoreAsciiCase( sFileScheme ) ) )
 281     {
 282         EnterWait();
 283
 284         if ( maStrURL.equalsIgnoreAsciiCase( sFileScheme ) )
 285             mpMarkWnd->RefreshTree ( "" );
 286         else
 287             mpMarkWnd->RefreshTree ( maStrURL );
 288
 289         LeaveWait();
 290     }
 291 }
 292
 293 /*************************************************************************
 294 |*
 295 |* Contents of editfield "Target" modified
 296 |*
 297 |************************************************************************/
 298
 299 IMPL_LINK_NOARG(SvxHyperlinkDocTp, ModifiedTargetHdl_Impl, Edit&, void)
 300 {
 301     maStrURL = GetCurrentURL();
 302
 303     if ( IsMarkWndVisible() )
 304         mpMarkWnd->SelectEntry ( m_pEdTarget->GetText() );
 305
 306     m_pFtFullURL->SetText( maStrURL );
 307 }
 308
 309 /*************************************************************************
 310 |*
 311 |* editfield "Target" lost focus
 312 |*
 313 |************************************************************************/
 314
 315 IMPL_LINK_NOARG(SvxHyperlinkDocTp, LostFocusPathHdl_Impl, Control&, void)
 316 {
 317     maStrURL = GetCurrentURL();
 318
 319     m_pFtFullURL->SetText( maStrURL );
 320 }
 321
 322 /*************************************************************************
 323 |*
 324 |* Get String from Bookmark-Wnd
 325 |*
 326 |************************************************************************/
 327
 328 void SvxHyperlinkDocTp::SetMarkStr ( const OUString& aStrMark )
 329 {
 330     m_pEdTarget->SetText ( aStrMark );
 331
 332     ModifiedTargetHdl_Impl ( *m_pEdTarget );
 333 }
 334
 335 /*************************************************************************
 336 |*
 337 |* retrieve kind of pathstr
 338 |*
 339 |************************************************************************/
 340
 341 SvxHyperlinkDocTp::EPathType SvxHyperlinkDocTp::GetPathType ( const OUString& rStrPath )
 342 {
 343     INetURLObject aURL( rStrPath, INetProtocol::File );
 344
 345     if( aURL.HasError() )
 346         return EPathType::Invalid;
 347     else
 348         return EPathType::ExistsFile;
 349 }
 350
 351 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */