sc/source/ui/app/scmod2.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: scmod2.cxx,v $
  10  * $Revision: 1.12 $
  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_sc.hxx"
  33
  34
  35
  36 //------------------------------------------------------------------
  37
  38 #include <svx/unolingu.hxx>
  39 #include <svtools/lingucfg.hxx>
  40 #include <i18npool/mslangid.hxx>
  41 #include <com/sun/star/i18n/ScriptType.hpp>
  42 #include <com/sun/star/linguistic2/XThesaurus.hpp>
  43 #include <com/sun/star/lang/Locale.hpp>
  44
  45 using namespace com::sun::star;
  46
  47 #include "scmod.hxx"
  48
  49 //------------------------------------------------------------------
  50
  51 #define LINGUPROP_AUTOSPELL                     "IsSpellAuto"
  52
  53 //------------------------------------------------------------------
  54
  55 // static
  56 void ScModule::GetSpellSettings( USHORT& rDefLang, USHORT& rCjkLang, USHORT& rCtlLang,
  57                                     BOOL& rAutoSpell )
  58 {
  59     //  use SvtLinguConfig instead of service LinguProperties to avoid
  60     //  loading the linguistic component
  61     SvtLinguConfig aConfig;
  62
  63     SvtLinguOptions aOptions;
  64     aConfig.GetOptions( aOptions );
  65
  66     rDefLang = MsLangId::resolveSystemLanguageByScriptType(aOptions.nDefaultLanguage, ::com::sun::star::i18n::ScriptType::LATIN);
  67     rCjkLang = MsLangId::resolveSystemLanguageByScriptType(aOptions.nDefaultLanguage_CJK, ::com::sun::star::i18n::ScriptType::ASIAN);
  68     rCtlLang = MsLangId::resolveSystemLanguageByScriptType(aOptions.nDefaultLanguage_CTL, ::com::sun::star::i18n::ScriptType::COMPLEX);
  69     rAutoSpell = aOptions.bIsSpellAuto;
  70 }
  71
  72 // static
  73 void ScModule::SetAutoSpellProperty( BOOL bSet )
  74 {
  75     //  use SvtLinguConfig instead of service LinguProperties to avoid
  76     //  loading the linguistic component
  77     SvtLinguConfig aConfig;
  78
  79     uno::Any aAny;
  80     aAny <<= bSet;
  81     aConfig.SetProperty( rtl::OUString::createFromAscii( LINGUPROP_AUTOSPELL ), aAny );
  82 }
  83
  84
  85
  86 // static
  87 BOOL ScModule::HasThesaurusLanguage( USHORT nLang )
  88 {
  89     if ( nLang == LANGUAGE_NONE )
  90         return FALSE;
  91
  92     lang::Locale aLocale;
  93     SvxLanguageToLocale( aLocale, nLang );
  94
  95     BOOL bHasLang = FALSE;
  96     try
  97     {
  98         uno::Reference< linguistic2::XThesaurus > xThes(LinguMgr::GetThesaurus());
  99         if ( xThes.is() )
 100             bHasLang = xThes->hasLocale( aLocale );
 101     }
 102     catch( uno::Exception& )
 103     {
 104         DBG_ERROR("Error in Thesaurus");
 105     }
 106
 107     return bHasLang;
 108 }
 109
 110