diff options
Diffstat (limited to 'kspread/dialogs/kspread_dlg_formula.cpp')
-rw-r--r-- | kspread/dialogs/kspread_dlg_formula.cpp | 763 |
1 files changed, 763 insertions, 0 deletions
diff --git a/kspread/dialogs/kspread_dlg_formula.cpp b/kspread/dialogs/kspread_dlg_formula.cpp new file mode 100644 index 00000000..8e53c525 --- /dev/null +++ b/kspread/dialogs/kspread_dlg_formula.cpp @@ -0,0 +1,763 @@ +/* This file is part of the KDE project + Copyright (C) 2002-2003 Ariya Hidayat <[email protected]> + (C) 2002-2003 Norbert Andres <[email protected]> + (C) 1999-2003 Laurent Montel <[email protected]> + (C) 2002 Philipp Mueller <[email protected]> + (C) 2002 John Dailey <[email protected]> + (C) 2002 Daniel Herring <[email protected]> + (C) 2000-2001 Werner Trobin <[email protected]> + (C) 1998-2000 Torben Weis <[email protected]> + + This library is free software; you can redistribute it and/or + modify it under the terms of the GNU Library General Public + License as published by the Free Software Foundation; either + version 2 of the License, or (at your option) any later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Library General Public License for more details. + + You should have received a copy of the GNU Library General Public License + along with this library; see the file COPYING.LIB. If not, write to + the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + * Boston, MA 02110-1301, USA. +*/ + +#include <tqtextbrowser.h> +#include <tqtabwidget.h> + +#include "kspread_dlg_formula.h" +#include "kspread_canvas.h" +#include "kspread_util.h" +#include "kspread_editors.h" +#include "kspread_doc.h" +#include "kspread_locale.h" +#include "kspread_map.h" +#include "selection.h" +#include "kspread_sheet.h" +#include "kspread_view.h" +#include "functions.h" + +#include <tdeapplication.h> +#include <kdebug.h> +#include <kbuttonbox.h> +#include <knumvalidator.h> +#include <tqcombobox.h> +#include <tqevent.h> +#include <tqlistbox.h> +#include <tqlabel.h> +#include <tqpushbutton.h> +#include <klineedit.h> +#include <tqlayout.h> + +using namespace KSpread; + +FormulaDialog::FormulaDialog( View* parent, const char* name,const TQString& formulaName) + : KDialogBase( parent, name,false,i18n("Function"), Ok|Cancel ) +{ + setWFlags( TQt::WDestructiveClose ); + + m_pView = parent; + m_focus = 0; + m_desc = 0; + + Cell* cell = m_pView->activeSheet()->cellAt( m_pView->canvasWidget()->markerColumn(), + m_pView->canvasWidget()->markerRow() ); + m_oldText=cell->text(); + // Make sure that there is a cell editor running. + if ( !m_pView->canvasWidget()->editor() ) + { + m_pView->canvasWidget()->createEditor( Canvas::CellEditor ); + if(cell->text().isEmpty()) + m_pView->canvasWidget()->editor()->setText( "=" ); + else + if(cell->text().at(0)!='=') + m_pView->canvasWidget()->editor()->setText( "="+cell->text() ); + else + m_pView->canvasWidget()->editor()->setText( cell->text() ); + } + + Q_ASSERT( m_pView->canvasWidget()->editor() ); + + TQWidget *page = new TQWidget( this ); + setMainWidget(page); + + TQGridLayout *grid1 = new TQGridLayout(page,11,2,KDialog::marginHint(), KDialog::spacingHint()); + + searchFunct = new KLineEdit(page); + TQSizePolicy sp3( TQSizePolicy::Preferred, TQSizePolicy::Fixed ); + searchFunct->setSizePolicy( sp3 ); + + grid1->addWidget( searchFunct, 0, 0 ); + + typeFunction = new TQComboBox(page); + TQStringList cats = FunctionRepository::self()->groups(); + cats.prepend( i18n("All") ); + typeFunction->insertStringList( cats ); + grid1->addWidget( typeFunction, 1, 0 ); + + functions = new TQListBox(page); + TQSizePolicy sp1( TQSizePolicy::Preferred, TQSizePolicy::Expanding ); + functions->setSizePolicy( sp1 ); + grid1->addWidget( functions, 2, 0 ); + + selectFunction = new TQPushButton( page ); + TQToolTip::add(selectFunction, i18n("Insert function") ); + selectFunction->setPixmap( BarIcon( "go-down", TDEIcon::SizeSmall ) ); + grid1->addWidget( selectFunction, 3, 0 ); + + result = new TQLineEdit( page ); + grid1->addMultiCellWidget( result, 4, 4, 0, 1 ); + + m_tabwidget = new TQTabWidget( page ); + TQSizePolicy sp2( TQSizePolicy::Expanding, TQSizePolicy::Expanding ); + m_tabwidget->setSizePolicy( sp2 ); + grid1->addMultiCellWidget( m_tabwidget, 0, 2, 1, 1 ); + + m_browser = new TQTextBrowser( m_tabwidget ); + m_browser->setMinimumWidth( 300 ); + + m_tabwidget->addTab( m_browser, i18n("&Help") ); + int index = m_tabwidget->currentPageIndex(); + + m_input = new TQWidget( m_tabwidget ); + TQVBoxLayout *grid2 = new TQVBoxLayout( m_input, KDialog::marginHint(), KDialog::spacingHint() ); + + // grid2->setResizeMode (TQLayout::Minimum); + + label1 = new TQLabel(m_input); + grid2->addWidget( label1 ); + + firstElement=new TQLineEdit(m_input); + grid2->addWidget( firstElement ); + + label2=new TQLabel(m_input); + grid2->addWidget( label2 ); + + secondElement=new TQLineEdit(m_input); + grid2->addWidget( secondElement ); + + label3=new TQLabel(m_input); + grid2->addWidget( label3 ); + + thirdElement=new TQLineEdit(m_input); + grid2->addWidget( thirdElement ); + + label4=new TQLabel(m_input); + grid2->addWidget( label4 ); + + fourElement=new TQLineEdit(m_input); + grid2->addWidget( fourElement ); + + label5=new TQLabel(m_input); + grid2->addWidget( label5 ); + + fiveElement=new TQLineEdit(m_input); + grid2->addWidget( fiveElement ); + + grid2->addStretch( 10 ); + + m_tabwidget->addTab( m_input, i18n("&Parameters") ); + m_tabwidget->setTabEnabled( m_input, FALSE ); + + m_tabwidget->setCurrentPage( index ); + + refresh_result = true; + + connect( this, TQT_SIGNAL( cancelClicked() ), this, TQT_SLOT( slotClose() ) ); + connect( this, TQT_SIGNAL( okClicked() ), this, TQT_SLOT( slotOk() ) ); + connect( typeFunction, TQT_SIGNAL( activated(const TQString &) ), + this, TQT_SLOT( slotActivated(const TQString &) ) ); + connect( functions, TQT_SIGNAL( highlighted(const TQString &) ), + this, TQT_SLOT( slotSelected(const TQString &) ) ); + connect( functions, TQT_SIGNAL( selected(const TQString &) ), + this, TQT_SLOT( slotSelected(const TQString &) ) ); + connect( functions, TQT_SIGNAL( doubleClicked(TQListBoxItem * ) ), + this ,TQT_SLOT( slotDoubleClicked(TQListBoxItem *) ) ); + + slotActivated(i18n("All")); + + connect( selectFunction, TQT_SIGNAL(clicked()), + this,TQT_SLOT(slotSelectButton())); + + connect( firstElement,TQT_SIGNAL(textChanged ( const TQString & )), + this,TQT_SLOT(slotChangeText(const TQString &))); + connect( secondElement,TQT_SIGNAL(textChanged ( const TQString & )), + this,TQT_SLOT(slotChangeText(const TQString &))); + connect( thirdElement,TQT_SIGNAL(textChanged ( const TQString & )), + this,TQT_SLOT(slotChangeText(const TQString &))); + connect( fourElement,TQT_SIGNAL(textChanged ( const TQString & )), + this,TQT_SLOT(slotChangeText(const TQString &))); + connect( fiveElement,TQT_SIGNAL(textChanged ( const TQString & )), + this,TQT_SLOT(slotChangeText(const TQString &))); + + connect( m_pView->choice(), TQT_SIGNAL(changed(const Region&)), + this, TQT_SLOT(slotSelectionChanged())); + + connect( m_browser, TQT_SIGNAL( linkClicked( const TQString& ) ), + this, TQT_SLOT( slotShowFunction( const TQString& ) ) ); + + // Save the name of the active sheet. + m_sheetName = m_pView->activeSheet()->sheetName(); + // Save the cells current text. + TQString tmp_oldText = m_pView->canvasWidget()->editor()->text(); + // Position of the cell. + m_column = m_pView->canvasWidget()->markerColumn(); + m_row = m_pView->canvasWidget()->markerRow(); + + if( tmp_oldText.isEmpty() ) + result->setText("="); + else + { + if( tmp_oldText.at(0)!='=') + result->setText( "=" + tmp_oldText ); + else + result->setText( tmp_oldText ); + } + + // Allow the user to select cells on the spreadsheet. + m_pView->canvasWidget()->startChoose(); + + tqApp->installEventFilter( this ); + + // Was a function name passed along with the constructor ? Then activate it. + if( !formulaName.isEmpty() ) + { + functions->setCurrentItem( functions->index( functions->findItem( formulaName ) ) ); + slotDoubleClicked( functions->findItem( formulaName ) ); + } + else + { + // Set keyboard focus to allow selection of a formula. + searchFunct->setFocus(); + } + + // Add auto completion. + searchFunct->setCompletionMode( TDEGlobalSettings::CompletionAuto ); + searchFunct->setCompletionObject( &listFunct, true ); + + if( functions->currentItem() == -1 ) + selectFunction->setEnabled( false ); + + connect( searchFunct, TQT_SIGNAL( textChanged( const TQString & ) ), + this, TQT_SLOT( slotSearchText(const TQString &) ) ); + connect( searchFunct, TQT_SIGNAL( returnPressed() ), + this, TQT_SLOT( slotPressReturn() ) ); +} + +FormulaDialog::~FormulaDialog() +{ + kdDebug(36001)<<"FormulaDialog::~FormulaDialog() \n"; +} + +void FormulaDialog::slotPressReturn() +{ + //laurent 2001-07-07 desactivate this code + //because kspread crash. + //TODO fix it + /* + if( !functions->currentText().isEmpty() ) + slotDoubleClicked( functions->findItem( functions->currentText() ) ); + */ +} + +void FormulaDialog::slotSearchText(const TQString &_text) +{ + TQString result = listFunct.makeCompletion( _text.upper() ); + if( !result.isNull() ) + functions->setCurrentItem( functions->index( functions->findItem( result ) ) ); +} + +bool FormulaDialog::eventFilter( TQObject* obj, TQEvent* ev ) +{ + if ( TQT_BASE_OBJECT(obj) == TQT_BASE_OBJECT(firstElement) && ev->type() == TQEvent::FocusIn ) + m_focus = firstElement; + else if ( TQT_BASE_OBJECT(obj) == TQT_BASE_OBJECT(secondElement) && ev->type() == TQEvent::FocusIn ) + m_focus = secondElement; + else if ( TQT_BASE_OBJECT(obj) == TQT_BASE_OBJECT(thirdElement) && ev->type() == TQEvent::FocusIn ) + m_focus = thirdElement; + else if ( TQT_BASE_OBJECT(obj) == TQT_BASE_OBJECT(fourElement) && ev->type() == TQEvent::FocusIn ) + m_focus = fourElement; + else if ( TQT_BASE_OBJECT(obj) == TQT_BASE_OBJECT(fiveElement) && ev->type() == TQEvent::FocusIn ) + m_focus = fiveElement; + else + return FALSE; + + if ( m_focus ) + m_pView->canvasWidget()->startChoose(); + + return FALSE; +} + +void FormulaDialog::slotOk() +{ + m_pView->doc()->emitBeginOperation( false ); + + m_pView->canvasWidget()->endChoose(); + // Switch back to the old sheet + if( m_pView->activeSheet()->sheetName() != m_sheetName ) + { + Sheet *sheet=m_pView->doc()->map()->findSheet(m_sheetName); + if( sheet) + m_pView->setActiveSheet(sheet); + } + + // Revert the marker to its original position + m_pView->selectionInfo()->initialize( TQPoint( m_column, m_row ) ); + + // If there is still an editor then set the text. + // Usually the editor is always in place. + if( m_pView->canvasWidget()->editor() != 0 ) + { + Q_ASSERT( m_pView->canvasWidget()->editor() ); + TQString tmp = result->text(); + if( tmp.at(0) != '=') + tmp = "=" + tmp; + int pos = m_pView->canvasWidget()->editor()->cursorPosition()+ tmp.length(); + m_pView->canvasWidget()->editor()->setText( tmp ); + m_pView->canvasWidget()->editor()->setFocus(); + m_pView->canvasWidget()->editor()->setCursorPosition( pos ); + } + + m_pView->slotUpdateView( m_pView->activeSheet() ); + accept(); + // delete this; +} + +void FormulaDialog::slotClose() +{ + m_pView->doc()->emitBeginOperation( false ); + + m_pView->canvasWidget()->endChoose(); + + // Switch back to the old sheet + if(m_pView->activeSheet()->sheetName() != m_sheetName ) + { + Sheet *sheet=m_pView->doc()->map()->findSheet(m_sheetName); + if( !sheet ) + return; + m_pView->setActiveSheet(sheet); + } + + + // Revert the marker to its original position + m_pView->selectionInfo()->initialize( TQPoint( m_column, m_row ) ); + + // If there is still an editor then reset the text. + // Usually the editor is always in place. + if( m_pView->canvasWidget()->editor() != 0 ) + { + Q_ASSERT( m_pView->canvasWidget()->editor() ); + m_pView->canvasWidget()->editor()->setText( m_oldText ); + m_pView->canvasWidget()->editor()->setFocus(); + } + + m_pView->slotUpdateView( m_pView->activeSheet() ); + reject(); + //laurent 2002-01-03 comment this line otherwise kspread crash + //but dialog box is not deleted => not good + //delete this; +} + +void FormulaDialog::slotSelectButton() +{ + if( functions->currentItem() != -1 ) + { + slotDoubleClicked(functions->findItem(functions->text(functions->currentItem()))); + } +} + +void FormulaDialog::slotChangeText( const TQString& ) +{ + // Test the lock + if( !refresh_result ) + return; + + if ( m_focus == 0 ) + return; + + TQString tmp = m_leftText+m_funcName+"("; + tmp += createFormula(); + tmp = tmp+ ")" + m_rightText; + + result->setText( tmp ); +} + +TQString FormulaDialog::createFormula() +{ + TQString tmp( "" ); + + if ( !m_desc ) + return TQString(); + + bool first = TRUE; + + int count = m_desc->params(); + + if(!firstElement->text().isEmpty() && count >= 1 ) + { + tmp=tmp+createParameter(firstElement->text(), 0 ); + first = FALSE; + } + + if(!secondElement->text().isEmpty() && count >= 2 ) + { + first = FALSE; + if ( !first ) + tmp=tmp+";"+createParameter(secondElement->text(), 1 ); + else + tmp=tmp+createParameter(secondElement->text(), 1 ); + } + if(!thirdElement->text().isEmpty() && count >= 3 ) + { + first = FALSE; + if ( !first ) + tmp=tmp+";"+createParameter(thirdElement->text(), 2 ); + else + tmp=tmp+createParameter(thirdElement->text(), 2 ); + } + if(!fourElement->text().isEmpty() && count >= 4 ) + { + first = FALSE; + if ( !first ) + tmp=tmp+";"+createParameter(fourElement->text(), 3 ); + else + tmp=tmp+createParameter(fourElement->text(), 3 ); + } + if(!fiveElement->text().isEmpty() && count >= 5 ) + { + first = FALSE; + if ( !first ) + tmp=tmp+";"+createParameter(fiveElement->text(), 4 ); + else + tmp=tmp+createParameter(fiveElement->text(), 4 ); + } + + return(tmp); +} + +TQString FormulaDialog::createParameter( const TQString& _text, int param ) +{ + if ( _text.isEmpty() ) + return TQString( "" ); + + if ( !m_desc ) + return TQString( "" ); + + TQString text; + + ParameterType elementType = m_desc->param( param ).type(); + + switch( elementType ) + { + case KSpread_Any: + { + bool isNumber; + double tmp = m_pView->doc()->locale()->readNumber( _text, &isNumber ); + Q_UNUSED( tmp ); + + //In case of number or boolean return _text, else return value as KSpread_String + if ( isNumber || _text.upper() =="FALSE" || _text.upper() == "TRUE" ) + return _text; + } + // fall through + case KSpread_String: + { + // Does the text start with quotes? + if ( _text[0] == '"' ) + { + text = "\\"; // changed: was "\"" + + // Escape quotes + TQString tmp = _text; + int pos; + int start = 1; + while( ( pos = tmp.find( '"', start ) ) != -1 ) + { + if (tmp[pos - 1] != '\\') + tmp.replace( pos, 1, "\\\"" ); + else + start = pos + 1; + } + + text += tmp; + text += "\""; + } + else + { + Point p = Point( _text, m_pView->doc()->map() ); + Range r = Range( _text, m_pView->doc()->map() ); + + if( !p.isValid() && !r.isValid() ) + { + text = "\""; + + // Escape quotes + TQString tmp = _text; + int pos; + int start = 1; + while( ( pos = tmp.find( '"', start ) ) != -1 ) + { + if (tmp[pos - 1] != '\\') + tmp.replace( pos, 1, "\\\"" ); + else + start = pos + 1; + } + + text += tmp; + text += "\""; + } + else + text = _text; + } + } + return text; + case KSpread_Float: + return _text; + case KSpread_Boolean: + return _text; + case KSpread_Int: + return _text; + } + + // Never reached + return text; +} + +static void showEntry( TQLineEdit* edit, TQLabel* label, + FunctionDescription* desc, int param ) +{ + edit->show(); + label->setText( desc->param( param ).helpText()+":" ); + label->show(); + ParameterType elementType = desc->param( param ).type(); + KFloatValidator *validate=0L; + switch( elementType ) + { + case KSpread_String: + case KSpread_Boolean: + case KSpread_Any: + edit->clearValidator (); + break; + case KSpread_Float: + validate=new KFloatValidator (edit); + validate->setAcceptLocalizedNumbers(true); + edit->setValidator(validate); + edit->setText( "0" ); + break; + case KSpread_Int: + edit->setValidator(new TQIntValidator (TQT_TQOBJECT(edit))); + edit->setText( "0" ); + break; + } + +} + +void FormulaDialog::slotDoubleClicked( TQListBoxItem* item ) +{ + if ( !item ) + return; + refresh_result = false; + if ( !m_desc ) + { + m_browser->setText( "" ); + return; + } + + m_focus = 0; + int old_length = result->text().length(); + + // Dont change order of these function calls due to a bug in TQt 2.2 + m_browser->setText( m_desc->toTQML() ); + m_tabwidget->setTabEnabled( m_input, TRUE ); + m_tabwidget->setCurrentPage( 1 ); + + // + // Show as many TQLineEdits as needed. + // + if( m_desc->params() > 0 ) + { + m_focus = firstElement; + firstElement->setFocus(); + + showEntry( firstElement, label1, m_desc, 0 ); + } + else + { + label1->hide(); + firstElement->hide(); + } + + if( m_desc->params() > 1 ) + { + showEntry( secondElement, label2, m_desc, 1 ); + } + else + { + label2->hide(); + secondElement->hide(); + } + + if( m_desc->params() > 2 ) + { + showEntry( thirdElement, label3, m_desc, 2 ); + } + else + { + label3->hide(); + thirdElement->hide(); + } + + if( m_desc->params() > 3 ) + { + showEntry( fourElement, label4, m_desc, 3 ); + } + else + { + label4->hide(); + fourElement->hide(); + } + + if( m_desc->params() > 4 ) + { + showEntry( fiveElement, label5, m_desc, 4 ); + } + else + { + label5->hide(); + fiveElement->hide(); + } + + if( m_desc->params() > 5 ) + { + kdDebug(36001) << "Error in param->nb_param" << endl; + } + refresh_result= true; + // + // Put the new function call in the result. + // + if( result->cursorPosition() < old_length ) + { + m_rightText=result->text().right(old_length-result->cursorPosition()); + m_leftText=result->text().left(result->cursorPosition()); + } + else + { + m_rightText=""; + m_leftText=result->text(); + } + int pos = result->cursorPosition(); + result->setText( m_leftText+functions->text( functions->currentItem() ) + "()" + m_rightText); + + if (result->text()[0] != '=') + result->setText("=" + result->text()); + + // + // Put focus somewhere is there are no TQLineEdits visible + // + if( m_desc->params() == 0 ) + { + label1->show(); + label1->setText( i18n("This function has no parameters.") ); + + result->setFocus(); + result->setCursorPosition(pos+functions->text(functions->currentItem()).length()+2); + } + slotChangeText( "" ); +} + +void FormulaDialog::slotSelected( const TQString& function ) +{ + FunctionDescription* desc = + FunctionRepository::self()->functionInfo (function); + if ( !desc ) + { + m_browser->setText (i18n ("Description is not available.")); + return; + } + + if( functions->currentItem() !=- 1 ) + selectFunction->setEnabled( TRUE ); + + // Lock + refresh_result = false; + + m_funcName = function; + m_desc = desc; + + // Set the help text + m_browser->setText( m_desc->toTQML() ); + m_browser->setContentsPos( 0, 0 ); + + m_focus=0; + + m_tabwidget->setCurrentPage( 0 ); + m_tabwidget->setTabEnabled( m_input, FALSE ); + + // Unlock + refresh_result=true; +} + +// from hyperlink in the "Related Function" +void FormulaDialog::slotShowFunction( const TQString& function ) +{ + FunctionDescription* desc = + FunctionRepository::self()->functionInfo( function ); + if ( !desc ) return; + + // select the category + TQString category = desc->group(); + typeFunction->setCurrentText( category ); + slotActivated( category ); + + // select the function + TQListBoxItem* item = functions->findItem( function, + TQt::ExactMatch | TQt::CaseSensitive ); + if( item ) functions->setCurrentItem( item ); + + slotSelected( function ); +} + +void FormulaDialog::slotSelectionChanged() +{ + if ( !m_focus ) + return; + + if (m_pView->choice()->isValid()) + { + TQString area = m_pView->choice()->name(); + m_focus->setText( area ); + } +} + +void FormulaDialog::slotActivated( const TQString& category ) +{ + TQStringList lst; + if ( category == i18n("All") ) + lst = FunctionRepository::self()->functionNames(); + else + lst = FunctionRepository::self()->functionNames( category ); + + kdDebug(36001)<<"category: "<<category<<" ("<<lst.count()<<"functions)" << endl; + + functions->clear(); + functions->insertStringList( lst ); + + TQStringList upperList; + for ( TQStringList::Iterator it = lst.begin(); it != lst.end();++it ) + upperList.append((*it).upper()); + + listFunct.setItems( upperList ); + + // Go to the first function in the list. + functions->setCurrentItem(0); + slotSelected( functions->text(0) ); +} + +void FormulaDialog::closeEvent ( TQCloseEvent * e ) +{ + e->accept(); +} + +#include "kspread_dlg_formula.moc" |