sc/source/ui/optdlg/calcoptionsdlg.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
  10 #include "calcoptionsdlg.hxx"
  11 #include "calcoptionsdlg.hrc"
  12 #include "scresid.hxx"
  13
  14 #include "svtools/svlbitm.hxx"
  15 #include "svtools/treelistentry.hxx"
  16
  17 namespace {
  18
  19 class OptionString : public SvLBoxString
  20 {
  21     OUString maDesc;
  22     OUString maValue;
  23 public:
  24     OptionString(const OUString& rDesc, const OUString& rValue) :
  25         maDesc(rDesc), maValue(rValue) {}
  26
  27     virtual void Paint(const Point& rPos, SvTreeListBox& rDev, const SvViewDataEntry* pView, const SvTreeListEntry* pEntry);
  28 };
  29
  30 void OptionString::Paint(const Point& rPos, SvTreeListBox& rDev, const SvViewDataEntry* /*pView*/, const SvTreeListEntry* /*pEntry*/)
  31 {
  32     Point aPos = rPos;
  33     OUString aDesc = maDesc + OUString(": ");
  34     rDev.DrawText(aPos, aDesc);
  35
  36     aPos.X() += rDev.GetTextWidth(aDesc);
  37     Font aOldFont = rDev.GetFont();
  38     Font aFont = aOldFont;
  39     aFont.SetWeight(WEIGHT_BOLD);
  40
  41     rDev.SetFont(aFont);
  42     rDev.DrawText(aPos, maValue);
  43
  44     rDev.SetFont(aOldFont);
  45 }
  46
  47 formula::FormulaGrammar::AddressConvention toAddressConvention(sal_uInt16 nPos)
  48 {
  49     switch (nPos)
  50     {
  51         case 1:
  52             return formula::FormulaGrammar::CONV_OOO;
  53         case 2:
  54             return formula::FormulaGrammar::CONV_XL_A1;
  55         case 3:
  56             return formula::FormulaGrammar::CONV_XL_R1C1;
  57         case 0:
  58         default:
  59             ;
  60     }
  61
  62     return formula::FormulaGrammar::CONV_UNSPECIFIED;
  63 }
  64
  65 }
  66
  67 ScCalcOptionsDialog::ScCalcOptionsDialog(Window* pParent, const ScCalcConfig& rConfig) :
  68     ModalDialog(pParent, ScResId(RID_SCDLG_FORMULA_CALCOPTIONS)),
  69     maLbSettings(this, ScResId(LB_SETTINGS)),
  70     maFtOptionEditCaption(this, ScResId(FT_OPTION_EDIT_CAPTION)),
  71     maLbOptionEdit(this, ScResId(LB_OPTION_EDIT)),
  72     maBtnTrue(this, ScResId(BTN_OPTION_TRUE)),
  73     maBtnFalse(this, ScResId(BTN_OPTION_FALSE)),
  74     maFlAnnotation(this, ScResId(FL_ANNOTATION)),
  75     maFtAnnotation(this, ScResId(FT_ANNOTATION)),
  76     maBtnOK(this, ScResId(BTN_OK)),
  77     maBtnCancel(this, ScResId(BTN_CANCEL)),
  78     maTrue(ScResId(STR_TRUE).toString()),
  79     maFalse(ScResId(STR_FALSE).toString()),
  80     maCalcA1(ScResId(SCSTR_FORMULA_SYNTAX_CALC_A1).toString()),
  81     maExcelA1(ScResId(SCSTR_FORMULA_SYNTAX_XL_A1).toString()),
  82     maExcelR1C1(ScResId(SCSTR_FORMULA_SYNTAX_XL_R1C1).toString()),
  83     maCaptionStringRefSyntax(ScResId(STR_STRING_REF_SYNTAX_CAPTION).toString()),
  84     maDescStringRefSyntax(ScResId(STR_STRING_REF_SYNTAX_DESC).toString()),
  85     maUseFormulaSyntax(ScResId(STR_USE_FORMULA_SYNTAX).toString()),
  86     maCaptionEmptyStringAsZero(ScResId(STR_EMPTY_STRING_AS_ZERO_CAPTION).toString()),
  87     maDescEmptyStringAsZero(ScResId(STR_EMPTY_STRING_AS_ZERO_DESC).toString()),
  88     maConfig(rConfig)
  89 {
  90     maLbSettings.SetStyle(maLbSettings.GetStyle() | WB_CLIPCHILDREN | WB_FORCE_MAKEVISIBLE);
  91     maLbSettings.SetHighlightRange();
  92
  93     Link aLink = LINK(this, ScCalcOptionsDialog, SettingsSelHdl);
  94     maLbSettings.SetSelectHdl(aLink);
  95     maLbOptionEdit.SetSelectHdl(aLink);
  96
  97     aLink = LINK(this, ScCalcOptionsDialog, BtnToggleHdl);
  98     maBtnTrue.SetToggleHdl(aLink); // Set handler only to the 'True' button.
  99
 100     maBtnTrue.SetText(maTrue);
 101     maBtnFalse.SetText(maFalse);
 102
 103     FillOptionsList();
 104     FreeResource();
 105     SelectionChanged();
 106 }
 107
 108 ScCalcOptionsDialog::~ScCalcOptionsDialog() {}
 109
 110 const ScCalcConfig& ScCalcOptionsDialog::GetConfig() const
 111 {
 112     return maConfig;
 113 }
 114
 115 void ScCalcOptionsDialog::FillOptionsList()
 116 {
 117     maLbSettings.SetUpdateMode(false);
 118     maLbSettings.Clear();
 119
 120     SvTreeList* pModel = maLbSettings.GetModel();
 121
 122     {
 123         // Syntax for INDIRECT function.
 124         SvTreeListEntry* pEntry = new SvTreeListEntry;
 125         pEntry->AddItem(new SvLBoxString(pEntry, 0, OUString()));
 126         pEntry->AddItem(new SvLBoxContextBmp(pEntry, 0, Image(), Image(), 0));
 127         OptionString* pItem = new OptionString(
 128             maCaptionStringRefSyntax, toString(maConfig.meStringRefAddressSyntax));
 129         pEntry->AddItem(pItem);
 130         pModel->Insert(pEntry);
 131     }
 132
 133     {
 134         // Treat empty string as zero.
 135         SvTreeListEntry* pEntry = new SvTreeListEntry;
 136         pEntry->AddItem(new SvLBoxString(pEntry, 0, OUString()));
 137         pEntry->AddItem(new SvLBoxContextBmp(pEntry, 0, Image(), Image(), 0));
 138         OptionString* pItem = new OptionString(
 139             maCaptionEmptyStringAsZero, toString(maConfig.mbEmptyStringAsZero));
 140         pEntry->AddItem(pItem);
 141         pModel->Insert(pEntry);
 142     }
 143
 144     maLbSettings.SetUpdateMode(true);
 145 }
 146
 147 void ScCalcOptionsDialog::SelectionChanged()
 148 {
 149     sal_uInt16 nSelectedPos = maLbSettings.GetSelectEntryPos();
 150     switch (nSelectedPos)
 151     {
 152         case 0:
 153         {
 154             // Formula syntax for INDIRECT function.
 155             maBtnTrue.Hide();
 156             maBtnFalse.Hide();
 157             maLbOptionEdit.Show();
 158
 159             maLbOptionEdit.Clear();
 160             maLbOptionEdit.InsertEntry(maUseFormulaSyntax);
 161             maLbOptionEdit.InsertEntry(maCalcA1);
 162             maLbOptionEdit.InsertEntry(maExcelA1);
 163             maLbOptionEdit.InsertEntry(maExcelR1C1);
 164             switch (maConfig.meStringRefAddressSyntax)
 165             {
 166                 case formula::FormulaGrammar::CONV_OOO:
 167                     maLbOptionEdit.SelectEntryPos(1);
 168                 break;
 169                 case formula::FormulaGrammar::CONV_XL_A1:
 170                     maLbOptionEdit.SelectEntryPos(2);
 171                 break;
 172                 case formula::FormulaGrammar::CONV_XL_R1C1:
 173                     maLbOptionEdit.SelectEntryPos(3);
 174                 break;
 175                 case formula::FormulaGrammar::CONV_UNSPECIFIED:
 176                 default:
 177                     maLbOptionEdit.SelectEntryPos(0);
 178             }
 179             maFtAnnotation.SetText(maDescStringRefSyntax);
 180         }
 181         break;
 182         case 1:
 183         {
 184             // Treat empty string as zero.
 185             maLbOptionEdit.Hide();
 186             maBtnTrue.Show();
 187             maBtnFalse.Show();
 188
 189             if (maConfig.mbEmptyStringAsZero)
 190             {
 191                 maBtnTrue.Check(true);
 192                 maBtnFalse.Check(false);
 193             }
 194             else
 195             {
 196                 maBtnTrue.Check(false);
 197                 maBtnFalse.Check(true);
 198             }
 199             maFtAnnotation.SetText(maDescEmptyStringAsZero);
 200         }
 201         break;
 202         default:
 203             ;
 204     }
 205 }
 206
 207 void ScCalcOptionsDialog::ListOptionValueChanged()
 208 {
 209     sal_uInt16 nSelected = maLbSettings.GetSelectEntryPos();
 210     switch (nSelected)
 211     {
 212         case 0:
 213         {
 214             // Formula syntax for INDIRECT function.
 215             sal_uInt16 nPos = maLbOptionEdit.GetSelectEntryPos();
 216             maConfig.meStringRefAddressSyntax = toAddressConvention(nPos);
 217
 218             maLbSettings.SetUpdateMode(false);
 219
 220             SvTreeList* pModel = maLbSettings.GetModel();
 221             SvTreeListEntry* pEntry = pModel->GetEntry(NULL, 0);
 222             if (!pEntry)
 223                 return;
 224
 225             OptionString* pItem = new OptionString(
 226                 maCaptionStringRefSyntax, toString(maConfig.meStringRefAddressSyntax));
 227             pEntry->ReplaceItem(pItem, 2);
 228
 229             maLbSettings.SetUpdateMode(true);
 230         }
 231         break;
 232         default:
 233             ;
 234     }
 235 }
 236
 237 void ScCalcOptionsDialog::RadioValueChanged()
 238 {
 239     sal_uInt16 nSelected = maLbSettings.GetSelectEntryPos();
 240     switch (nSelected)
 241     {
 242         case 1:
 243         {
 244             // Treat empty string as zero.
 245             maConfig.mbEmptyStringAsZero = maBtnTrue.IsChecked();
 246             maLbSettings.SetUpdateMode(false);
 247
 248             SvTreeList* pModel = maLbSettings.GetModel();
 249             SvTreeListEntry* pEntry = pModel->GetEntry(NULL, 1);
 250             if (!pEntry)
 251                 return;
 252
 253             OptionString* pItem = new OptionString(
 254                 maCaptionEmptyStringAsZero, toString(maConfig.mbEmptyStringAsZero));
 255             pEntry->ReplaceItem(pItem, 2);
 256
 257             maLbSettings.SetUpdateMode(true);
 258         }
 259         break;
 260         default:
 261             ;
 262     }
 263 }
 264
 265 OUString ScCalcOptionsDialog::toString(formula::FormulaGrammar::AddressConvention eConv) const
 266 {
 267     switch (eConv)
 268     {
 269         case formula::FormulaGrammar::CONV_OOO:
 270             return maCalcA1;
 271         case formula::FormulaGrammar::CONV_XL_A1:
 272             return maExcelA1;
 273         case formula::FormulaGrammar::CONV_XL_R1C1:
 274             return maExcelR1C1;
 275         case formula::FormulaGrammar::CONV_UNSPECIFIED:
 276         default:
 277             ;
 278     }
 279     return maUseFormulaSyntax;
 280 }
 281
 282 OUString ScCalcOptionsDialog::toString(bool bVal) const
 283 {
 284     return bVal ? maTrue : maFalse;
 285 }
 286
 287 IMPL_LINK(ScCalcOptionsDialog, SettingsSelHdl, Control*, pCtrl)
 288 {
 289     if (pCtrl == &maLbSettings)
 290         SelectionChanged();
 291     else if (pCtrl == &maLbOptionEdit)
 292         ListOptionValueChanged();
 293
 294     return 0;
 295 }
 296
 297 IMPL_LINK_NOARG(ScCalcOptionsDialog, BtnToggleHdl)
 298 {
 299     RadioValueChanged();
 300     return 0;
 301 }
 302
 303
 304 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */