/************************************************************** * * Licensed to the Apache Software Foundation (ASF) under one * or more contributor license agreements. See the NOTICE file * distributed with this work for additional information * regarding copyright ownership. The ASF licenses this file * to you under the Apache License, Version 2.0 (the * "License"); you may not use this file except in compliance * with the License. You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, * software distributed under the License is distributed on an * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY * KIND, either express or implied. See the License for the * specific language governing permissions and limitations * under the License. * *************************************************************/ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include //! das muss als Konstante in irgendeine idl-Datei!!!! #define TEXTCONTROLCHAR_PARAGRAPH_BREAK 0 class MyFixedText : public FixedText { protected: void RequestHelp( const HelpEvent& rHEvt ); public: MyFixedText(Window* pParent) : FixedText(pParent) {} }; class MyWindow : public Window { private: NumericField aCountField; PushButton aCountButton; MyFixedText aTimeText; NumericField aColField; NumericField aRowField; NumericField aPosField; NumericField aLenField; Edit aTextEdit; PushButton aTextButton; PushButton aBlaButton; PushButton aTabButton; PushButton aViewButton; public: MyWindow( Window *pParent ); DECL_LINK(CountHdl, PushButton*); DECL_LINK(TextHdl, PushButton*); DECL_LINK(BlaHdl, PushButton*); DECL_LINK(TabHdl, PushButton*); DECL_LINK(ViewHdl, PushButton*); }; //----------------------------------------------------------------------- class ScTestListener : public XSelectionChangeListener, public UsrObject { private: FixedText* pFixedText; public: ScTestListener(FixedText* pF); virtual ~ScTestListener(); SMART_UNO_DECLARATION( ScTestListener, UsrObject ); virtual XInterface * queryInterface( UsrUik ); virtual XIdlClassRef getIdlClass(void); virtual void disposing(const EventObject& Source); // XSelectionChangeListener virtual void selectionChanged(const EventObject& aEvent); }; //----------------------------------------------------------------------- static long nBla = 0; static XCellRef xGlobalCell; //----------------------------------------------------------------------- ScTestListener::ScTestListener(FixedText* pF) : pFixedText( pF ) { } ScTestListener::~ScTestListener() { } XInterface* ScTestListener::queryInterface( UsrUik aUIK ) { if ( aUIK == XSelectionChangeListener::getSmartUik() ) return (XSelectionChangeListener*) this; return UsrObject::queryInterface( aUIK ); } XIdlClassRef ScTestListener::getIdlClass(void) { static XIdlClassRef xClass = createStandardClass( L"ScTestListener", UsrObject::getUsrObjectIdlClass(), 1, XSelectionChangeListener_getReflection() ); return xClass; } void ScTestListener::disposing(const EventObject& Source) { } // XSelectionChangeListener void ScTestListener::selectionChanged(const EventObject& aEvent) { static USHORT nBla = 0; pFixedText->SetText(++nBla); XInterfaceRef xInt = aEvent.Source; if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XCellCollectionRef xCells = (XCellCollection*) xSelInt->queryInterface(XCellCollection::getSmartUik()); if (!xCells) return; String aStr = OUStringToString( xCells->getAddress(), CHARSET_SYSTEM ); pFixedText->SetText(aStr); } //----------------------------------------------------------------------- extern "C" Window* __LOADONCALLAPI CreateWindow( Window *pParent, const String& rParam ) { MyWindow *pWin = new MyWindow( pParent ); return pWin; } void MyFixedText::RequestHelp( const HelpEvent& rHEvt ) { String aTxtStr=GetText(); Size aTxtSize=GetTextSize(aTxtStr); Point aShowPoint= OutputToScreenPixel(Point(0,0)); if ( ( rHEvt.GetMode() & HELPMODE_QUICK ) == HELPMODE_QUICK && aTxtSize.Width()>GetSizePixel().Width()) Help::ShowQuickHelp( Rectangle(aShowPoint,aTxtSize), aTxtStr, QUICKHELP_TOP|QUICKHELP_LEFT ); else FixedText::RequestHelp( rHEvt ); } MyWindow::MyWindow( Window *pParent ) : Window( pParent ), aCountField( this, WinBits(WB_SPIN | WB_REPEAT | WB_BORDER) ), aCountButton( this ), aTimeText( this ), aColField( this, WinBits(WB_SPIN | WB_REPEAT | WB_BORDER) ), aRowField( this, WinBits(WB_SPIN | WB_REPEAT | WB_BORDER) ), aPosField( this, WinBits(WB_SPIN | WB_REPEAT | WB_BORDER) ), aLenField( this, WinBits(WB_SPIN | WB_REPEAT | WB_BORDER) ), aTextEdit( this, WinBits(WB_BORDER) ), aTextButton( this ), aBlaButton( this ), aTabButton( this ), aViewButton( this ) { aCountField.SetPosSizePixel( Point(10,10), Size(40,20) ); aCountField.SetValue(1); aCountButton.SetPosSizePixel( Point(10,40), Size(100,30) ); aCountButton.SetText("hochzaehlen"); aTimeText.SetPosSizePixel( Point(10,80), Size(100,20) ); aColField.SetPosSizePixel( Point(10,120), Size(40,20) ); aRowField.SetPosSizePixel( Point(60,120), Size(40,20) ); aPosField.SetPosSizePixel( Point(10,150), Size(40,20) ); aLenField.SetPosSizePixel( Point(60,150), Size(40,20) ); aTextEdit.SetPosSizePixel( Point(10,180), Size(100,20) ); aTextButton.SetPosSizePixel( Point(10,210), Size(100,30) ); aTextButton.SetText("col/row/pos/len"); aBlaButton.SetPosSizePixel( Point(10,260), Size(100,30) ); aBlaButton.SetText("Bla"); aTabButton.SetPosSizePixel( Point(10,310), Size(100,30) ); aTabButton.SetText("Tabellen"); aViewButton.SetPosSizePixel( Point(10,360), Size(100,30) ); aViewButton.SetText("Pfui"); aCountButton.SetClickHdl(LINK(this, MyWindow, CountHdl)); aTextButton.SetClickHdl(LINK(this, MyWindow, TextHdl)); aBlaButton.SetClickHdl(LINK(this, MyWindow, BlaHdl)); aTabButton.SetClickHdl(LINK(this, MyWindow, TabHdl)); aViewButton.SetClickHdl(LINK(this, MyWindow, ViewHdl)); aCountField.Show(); aCountButton.Show(); aTimeText.Show(); aColField.Show(); aRowField.Show(); aPosField.Show(); aLenField.Show(); aTextEdit.Show(); aTextButton.Show(); aBlaButton.Show(); aTabButton.Show(); aViewButton.Show(); } //----------------------------------------------------------------------- XSpreadsheetDocumentRef lcl_GetDocument() { XServiceManagerRef xProv = getGlobalServiceManager(); DBG_ASSERT( xProv.is(), "Kein ServiceManager!" ); XServiceRegistryRef xReg = (XServiceRegistry*)xProv->queryInterface(XServiceRegistry::getSmartUik()); if ( !xReg ) return NULL; Sequence aIfaces( 1 ); aIfaces.getArray()[0] = XModelCollection::getSmartUik(); XServiceProviderRef xSSI = xProv->getServiceProvider( L"stardiv.desktop.ModelCollection", aIfaces, Sequence() ); XModelCollectionRef aCollRef = (XModelCollection*) xSSI->newInstance()->queryInterface( XModelCollection::getSmartUik() ); USHORT nCount = aCollRef->getCount(); XSpreadsheetDocumentRef xModel; // Calc-Model for (USHORT nMod=0; nModgetItemByIndex( nMod ); if ( aRef ) { aRef->acquire(); xModel = (XSpreadsheetDocument*) aRef->queryInterface( XSpreadsheetDocument::getSmartUik() ); aRef->release(); } } return xModel; } XInterfaceRef lcl_GetView() { XInterfaceRef xView; XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (xDoc) xView = xDoc->getDDELinks(); //! temporaer zum Testen !!!!!!!!! return xView; } //----------------------------------------------------------------------- void lcl_OutputNames( const XInterfaceRef& xSource, // XNameAccess const XSpreadsheetDocumentRef& xDoc, USHORT nCol, USHORT nRow, USHORT nTab ) { CellAddress aAdr; aAdr.Sheet = nTab; aAdr.Column = nCol; aAdr.Row = nRow; XNameAccessRef xNames = (XNameAccess*)xSource->queryInterface(XNameAccess::getSmartUik()); if (!xNames) return; Sequence aSeq = xNames->getElementNames(); USHORT nLen = (USHORT)aSeq.getLen(); XCellRef xCell = xDoc->getCell(aAdr); if (!xCell) return; xCell->setValue( nLen ); ++aAdr.Row; UString* pAry = aSeq.getArray(); for (USHORT i=0; igetCell(aAdr); if (!xCell) return; XTextRef xText = (XText*)xCell->queryInterface(XText::getSmartUik()); if (!xText) return; xText->setText( pAry[i] ); ++aAdr.Row; } } //----------------------------------------------------------------------- void lcl_SetText( const XTextRef& xText ) { if (!xText.is()) return; XTextCursorRef xCursor = xText->createTextCursor(); if (!xCursor.is()) return; XTextPositionRef xPos = (XTextPosition*)xCursor->queryInterface(XTextPosition::getSmartUik()); XPropertySetRef xProp = (XPropertySet*)xCursor->queryInterface(XPropertySet::getSmartUik()); XControlCharacterInsertableRef xControl = (XControlCharacterInsertable*) xCursor->queryInterface(XControlCharacterInsertable::getSmartUik()); XParagraphCursorRef xPara = (XParagraphCursor*) xCursor->queryInterface(XParagraphCursor::getSmartUik()); if (!xPos.is() || !xControl.is() || !xPara.is()) return; // PropertySet kann fehlen xText->setText(L"bla fasel"); xCursor->gotoEnd(FALSE); xControl->insertControlCharacter( TEXTCONTROLCHAR_PARAGRAPH_BREAK ); xPos->collapseToEnd(); xPos->setText(L"s\xFClz"); // zweiter Absatz xCursor->gotoStart(FALSE); xPara->gotoEndOfParagraph(FALSE); xCursor->goLeft(5, TRUE); // letzte 5 Zeichen im 1. Absatz if (xProp.is()) xProp->setPropertyValue(L"Bold", UsrAny((BOOL)TRUE)); } //----------------------------------------------------------------------- void lcl_DoCount() { XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (xDoc) { XActionLockableRef xLock = (XActionLockable*) xDoc->queryInterface(XActionLockable::getSmartUik()); XCalculateRef xCalc = (XCalculate*) xDoc->queryInterface(XCalculate::getSmartUik()); if (xLock) xLock->addActionLock(); // nicht zwischendurch painten if (xCalc) xCalc->setAutomaticCalculation(FALSE); CellAddress aPos; aPos.Sheet = 0; for (USHORT nRow = 0; nRow < 20; nRow++) { aPos.Row = nRow; for (USHORT nCol = 0; nCol < 10; nCol++) { aPos.Column = nCol; XCellRef xCell = xDoc->getCell(aPos); if ( xCell ) { // Wert der Zelle um 1 hochzaehlen double fVal = xCell->getValue(); fVal += 1.0; xCell->setValue( fVal ); } } } if (xCalc) xCalc->setAutomaticCalculation(TRUE); if (xLock) xLock->removeActionLock(); } } void lcl_GlobalCell() { if ( xGlobalCell ) { String aStr = OUStringToString( xGlobalCell->getFormula(), CHARSET_SYSTEM ); aStr+='0'; xGlobalCell->setFormula( StringToOUString( aStr, CHARSET_SYSTEM ) ); } } void lcl_Annotations( FixedText& aTimeText ) { XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (xDoc) { CellAddress aPos; aPos.Sheet = 0; aPos.Column = 1; aPos.Row = 2; XCellRef xCell = xDoc->getCell(aPos); if ( xCell ) { XSheetAnnotationAnchorRef xAnchor = (XSheetAnnotationAnchor*)xCell->queryInterface(XSheetAnnotationAnchor::getSmartUik()); if ( xAnchor ) { XSheetAnnotationRef xAnnotation = xAnchor->getAnnotation(); if ( xAnnotation ) { String aBlubb = OUStringToString( xAnnotation->getAuthor(), CHARSET_SYSTEM )+ String(" - ")+ OUStringToString( xAnnotation->getDate(), CHARSET_SYSTEM ); aTimeText.SetText(aBlubb); XTextRef xAnnotationText = (XText*)xAnnotation->queryInterface(XText::getSmartUik()); if ( xAnnotationText ) { XTextCursorRef xCursor = xAnnotationText->createTextCursor(); if (xCursor) { XTextPositionRef xPos = (XTextPosition*) xCursor->queryInterface(XTextPosition::getSmartUik()); XControlCharacterInsertableRef xControl = (XControlCharacterInsertable*) xCursor->queryInterface(XControlCharacterInsertable::getSmartUik()); if (xPos && xControl) { ULONG nStart = Time::GetSystemTicks(); xAnnotationText->setText(L"bla"); xCursor->gotoEnd(FALSE); xCursor->goLeft(1,TRUE); xPos->setText(L"ubb"); for (USHORT i=0; i<10; i++) { xPos->collapseToEnd(); xControl->insertControlCharacter( TEXTCONTROLCHAR_PARAGRAPH_BREAK ); xPos->collapseToEnd(); xPos->setText(L"dumdi"); } ULONG nEnd = Time::GetSystemTicks(); aTimeText.SetText(String(nEnd-nStart)+String(" ms")); } } } } } } } } void lcl_Cursor( FixedText& aTimeText ) { aTimeText.SetText( "..." ); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (xDoc) { XActionLockableRef xLock = (XActionLockable*) xDoc->queryInterface(XActionLockable::getSmartUik()); if (xLock) xLock->addActionLock(); CellAddress aPos; aPos.Sheet = 0; aPos.Column = 1; aPos.Row = 2; XCellRef xCell = xDoc->getCell(aPos); if ( xCell ) { XTextRef xText = (XText*)xCell->queryInterface(XText::getSmartUik()); XCellCollectionRef xColl = (XCellCollection*)xCell->queryInterface(XCellCollection::getSmartUik()); if ( xText && xColl ) { xText->setText(L"bla"); XLineCursorRef xCursor = xColl->createCursor(); if ( xCursor ) { XCellCursorRef xCC = (XCellCursor*)xCursor->queryInterface(XCellCursor::getSmartUik()); XCellRangesCursorRef xRC = (XCellRangesCursor*) xCursor->queryInterface(XCellRangesCursor::getSmartUik()); if ( xCC && xRC ) { xCursor->goDown( 1, FALSE ); xColl = xCC->getRanges(); if ( xColl ) { // XText ist drin, wenn's ne einzelne Zelle ist xText = (XText*)xColl->queryInterface(XText::getSmartUik()); if ( xText ) { xText->setText(L"fasel"); } } CellRangeAddress aSecond; aSecond.Sheet = 0; aSecond.StartColumn = 3; aSecond.StartRow = 4; aSecond.EndColumn = 3; aSecond.EndRow = 4; xRC->gotoUnion(aSecond); xColl = xCC->getRanges(); if ( xColl ) { XPropertySetRef xProp = (XPropertySet*) xColl->queryInterface(XPropertySet::getSmartUik()); if ( xProp ) { UsrAny aAny; aAny = xProp->getPropertyValue(L"ShadowFormat"); if ( aAny.getReflection()->getName() == ShadowFormat_getReflection()->getName() ) { //ShadowFormat* pOld = (ShadowFormat*)aAny.get(); ShadowFormat aNew; aNew.Location = SHADOWLOCATION_BOTTOMRIGHT; aNew.ShadowWidth = 100; aNew.IsTransparent = FALSE; aNew.Color = 0xff0000L; aAny.set( &aNew, aAny.getReflection() ); xProp->setPropertyValue(L"ShadowFormat", aAny); } aAny = xProp->getPropertyValue(L"RotationValue"); aAny.setINT32(4500); xProp->setPropertyValue(L"RotationValue", aAny); aAny = xProp->getPropertyValue(L"FontHeight"); aAny.setUINT32(280); xProp->setPropertyValue(L"FontHeight", aAny); aAny = xProp->getPropertyValue(L"TransparentBackground"); aAny.setBOOL(FALSE); xProp->setPropertyValue(L"TransparentBackground", aAny); aAny = xProp->getPropertyValue(L"BackgroundColor"); aAny.setUINT32(0xffff00); xProp->setPropertyValue(L"BackgroundColor", aAny); aAny = xProp->getPropertyValue(L"CellProtection"); if ( aAny.getReflection()->getName() == CellProtection_getReflection()->getName() ) { //CellProtection* pOld = (CellProtection*)aAny.get(); CellProtection aNew; aNew.Locked = FALSE; aNew.FormulaHidden = FALSE; aNew.Hidden = FALSE; aNew.PrintHidden = FALSE; aAny.set( &aNew, aAny.getReflection() ); xProp->setPropertyValue(L"CellProtection", aAny); } } // XIndexAccess gibts nur wenn's mehrere sind (??!??!) XIndexAccessRef xIndex = (XIndexAccess*) xColl->queryInterface(XIndexAccess::getSmartUik()); if ( xIndex ) { USHORT nCount = (USHORT)xIndex->getCount(); aTimeText.SetText( String(nCount) ); } } } } } } if (xLock) xLock->removeActionLock(); } } void lcl_Cells( FixedText& aTimeText ) { aTimeText.SetText( "..." ); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (xDoc) { long nCount = 0; ULONG nStart = Time::GetSystemTicks(); XActionLockableRef xLock = (XActionLockable*) xDoc->queryInterface(XActionLockable::getSmartUik()); // if (xLock) // xLock->addActionLock(); CellRangeAddress aRngAddr; aRngAddr.Sheet = 0; aRngAddr.StartColumn = 0; aRngAddr.StartRow = 0; aRngAddr.EndColumn = 9; aRngAddr.EndRow = 19; XCellRangeRef xRange = xDoc->getCellRange(aRngAddr); if (xRange) { XCellCollectionRef xColl = (XCellCollection*) xRange->queryInterface(XCellCollection::getSmartUik()); if (xColl) { XEnumerationAccessRef xEnAcc = xColl->getCells(); if (xEnAcc) { XEnumerationRef xEnum = xEnAcc->getEnumeration(); if (xEnum) { while (xEnum->hasMoreElements()) { XInterfaceRef xInt = xEnum->nextElement(); if (xInt) { ++nCount; } } } } } } ULONG nEnd = Time::GetSystemTicks(); aTimeText.SetText(String(nCount)+String(" ")+String(nEnd-nStart)+String(" ms")); // if (xLock) // xLock->removeActionLock(); } } void lcl_Sheet( FixedText& aTimeText ) { aTimeText.SetText( "..." ); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XSpreadsheetsRef xSheets = xDoc->getSheets(); if (!xSheets) return; XTableSheetRef xSheet = xSheets->getSheetByIndex(0); if (!xSheet) return; XNamedRef xNamed = (XNamed*)xSheet->queryInterface(XNamed::getSmartUik()); if (!xNamed) return; String aName = OUStringToString( xNamed->getName(), CHARSET_SYSTEM ); aName += 'X'; xNamed->setName(StringToOUString( aName, CHARSET_SYSTEM )); XCellRangeRef xRange = (XCellRange*)xSheet->queryInterface(XCellRange::getSmartUik()); if (!xRange) return; XCellRef xCell = xRange->getCell(2,1); if (!xCell) return; XTextRef xText = (XText*)xCell->queryInterface(XText::getSmartUik()); if (!xText) return; String aBla = OUStringToString( xText->getText(), CHARSET_SYSTEM ); aBla += "bla"; xText->setText(StringToOUString( aBla, CHARSET_SYSTEM )); XColumnRowRangeRef xCRR = (XColumnRowRange*)xSheet->queryInterface(XColumnRowRange::getSmartUik()); if (!xCRR) return; XTableColumnsRef xCols = xCRR->getColumns(); if (!xCols) return; XPropertySetRef xCol = xCols->getColumnByIndex(2); if (!xCol) return; UINT16 nWidth = TypeConversion::toUINT16(xCol->getPropertyValue(L"Width")); // UINT16 nNewWidth = nWidth + 100; // xCol->setPropertyValue(L"Width", UsrAny(nNewWidth)); xCol->setPropertyValue(L"OptimalWidth", UsrAny((BOOL)TRUE)); xCol->setPropertyValue(L"NewPage", UsrAny((BOOL)FALSE)); UsrAny aAny = xCol->getPropertyValue(L"ShadowFormat"); if ( aAny.getReflection()->getName() == ShadowFormat_getReflection()->getName() ) { //ShadowFormat* pOld = (ShadowFormat*)aAny.get(); ShadowFormat aNew; aNew.Location = SHADOWLOCATION_BOTTOMRIGHT; aNew.ShadowWidth = 100; aNew.IsTransparent = FALSE; aNew.Color = 0xff0000L; aAny.set( &aNew, aAny.getReflection() ); xCol->setPropertyValue(L"ShadowFormat", aAny); } XTableRowsRef xRows = xCRR->getRows(); if (!xRows) return; XPropertySetRef xRow = xRows->getRowByIndex(1); if (!xRow) return; xRows->removeRowsByIndex( 2, 1 ); UINT16 nHeight = TypeConversion::toUINT16(xRow->getPropertyValue(L"Height")); BOOL bOptH = TypeConversion::toBOOL(xRow->getPropertyValue(L"OptimalHeight")); UINT16 nNewHeight = nHeight + 100; xRow->setPropertyValue(L"Height", UsrAny(nNewHeight)); aTimeText.SetText(String("W:")+String(nWidth)+String(" H:")+String(nHeight)+ String(" ")+String((USHORT)bOptH)); } void lcl_Names( FixedText& aTimeText ) { aTimeText.SetText( "..." ); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XNamedRangesRef xNames = xDoc->getNamedRanges(); if (!xNames) return; XNamedRangeRef xName = xNames->getRangeByName(L"bla"); if (!xName) return; String aCont = OUStringToString( xName->getContent(), CHARSET_SYSTEM ); aTimeText.SetText(aCont); XCellRangeSourceRef xSource = (XCellRangeSource*) xName->queryInterface(XCellRangeSource::getSmartUik()); if (!xSource) return; XCellRangeRef xRange = xSource->getReferredCells(); if (!xRange) return; XPropertySetRef xProp = (XPropertySet*)xRange->queryInterface(XPropertySet::getSmartUik()); if (!xProp) return; UsrAny aAny = xProp->getPropertyValue(L"RotationValue"); aAny.setINT32(3000); xProp->setPropertyValue(L"RotationValue", aAny); } void lcl_Sheets( FixedText& aTimeText ) { aTimeText.SetText( "..." ); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XSpreadsheetsRef xSheets = xDoc->getSheets(); if (!xSheets) return; #if 0 xSheets->insertSheet( "hinten", 100 ); xSheets->insertSheet( "vorne", 0 ); xSheets->removeSheetByName( "hinten" ); xSheets->removeSheetByName( "vorne" ); #endif xSheets->moveSheet(0, 1, TRUE); xSheets->moveSheet(0, 2, FALSE); } void lcl_Goal( FixedText& aTimeText ) { XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XGoalSeekRef xGoal = (XGoalSeek*)xDoc->queryInterface(XGoalSeek::getSmartUik()); if (!xGoal) return; double fResult; CellAddress aFormula; // A1 aFormula.Sheet = 0; aFormula.Column = 0; aFormula.Row = 0; CellAddress aVar; // A2 aVar.Sheet = 0; aVar.Column = 0; aVar.Row = 1; BOOL bFound = xGoal->doGoalSeek(fResult, aFormula, aVar, L"42"); if (bFound) { CellAddress aOut; // A3 aOut.Sheet = 0; aOut.Column = 0; aOut.Row = 2; XCellRef xCell = xDoc->getCell(aOut); if (!xCell) return; xCell->setValue(fResult); } } void lcl_TabOp( FixedText& aTimeText ) { // Mehrfachoperation auf Tabelle2 XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XCellRangeRef xRange; XTableOperationRef xGoal; CellRangeAddress aRangeAddr; CellRangeAddress aFormulaRange; CellAddress aColumnCell; CellAddress aRowCell; TableOperationMode nMode; aRangeAddr.Sheet = 1; // c9:e11 aRangeAddr.StartColumn = 2; aRangeAddr.StartRow = 8; aRangeAddr.EndColumn = 4; aRangeAddr.EndRow = 10; aFormulaRange.Sheet = 1; // c6:c7 aFormulaRange.StartColumn = 2; aFormulaRange.StartRow = 5; aFormulaRange.EndColumn = 2; aFormulaRange.EndRow = 6; aColumnCell.Sheet = 0; // nicht benutzt aColumnCell.Column = 0; aColumnCell.Row = 0; aRowCell.Sheet = 1; // c5 aRowCell.Column = 2; aRowCell.Row = 4; nMode = TABLEOP_ROW; xRange = xDoc->getCellRange(aRangeAddr); if (!xRange) return; xGoal = (XTableOperation*)xRange->queryInterface(XTableOperation::getSmartUik()); if (!xGoal) return; xGoal->setTableOperation( nMode, aFormulaRange, aColumnCell, aRowCell ); aRangeAddr.Sheet = 1; // b19:d21 aRangeAddr.StartColumn = 1; aRangeAddr.StartRow = 18; aRangeAddr.EndColumn = 3; aRangeAddr.EndRow = 20; aFormulaRange.Sheet = 1; // c16:d16 aFormulaRange.StartColumn = 2; aFormulaRange.StartRow = 15; aFormulaRange.EndColumn = 3; aFormulaRange.EndRow = 15; aColumnCell.Sheet = 1; // b16 aColumnCell.Column = 1; aColumnCell.Row = 15; aRowCell.Sheet = 0; // nicht benutzt aRowCell.Column = 0; aRowCell.Row = 0; nMode = TABLEOP_COLUMN; xRange = xDoc->getCellRange(aRangeAddr); if (!xRange) return; xGoal = (XTableOperation*)xRange->queryInterface(XTableOperation::getSmartUik()); if (!xGoal) return; xGoal->setTableOperation( nMode, aFormulaRange, aColumnCell, aRowCell ); aRangeAddr.Sheet = 1; // b29:e32 aRangeAddr.StartColumn = 1; aRangeAddr.StartRow = 28; aRangeAddr.EndColumn = 4; aRangeAddr.EndRow = 31; aFormulaRange.Sheet = 1; // c27:c27 aFormulaRange.StartColumn = 2; aFormulaRange.StartRow = 26; aFormulaRange.EndColumn = 2; aFormulaRange.EndRow = 26; aColumnCell.Sheet = 1; // c25 aColumnCell.Column = 2; aColumnCell.Row = 24; aRowCell.Sheet = 1; // c26 aRowCell.Column = 2; aRowCell.Row = 25; nMode = TABLEOP_BOTH; xRange = xDoc->getCellRange(aRangeAddr); if (!xRange) return; xGoal = (XTableOperation*)xRange->queryInterface(XTableOperation::getSmartUik()); if (!xGoal) return; xGoal->setTableOperation( nMode, aFormulaRange, aColumnCell, aRowCell ); } void lcl_Fill( FixedText& aTimeText ) { XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XCellSeriesRef xFill = (XCellSeries*)xSelInt->queryInterface(XCellSeries::getSmartUik()); if (!xFill) return; // xFill->fillAuto( FILL_DIRECTION_TO_BOTTOM, 2 ); xFill->fillSeries( FILL_DIRECTION_TO_LEFT, FILL_MODE_GROWTH, FILL_DATE_DAY, 2.0, 1000.0 ); } void lcl_Audi( FixedText& aTimeText ) { aTimeText.SetText( "..." ); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XSpreadsheetsRef xSheets = xDoc->getSheets(); if (!xSheets) return; XTableSheetRef xSheet = xSheets->getSheetByIndex(0); if (!xSheet) return; XSheetAuditingRef xAudi = (XSheetAuditing*)xSheet->queryInterface(XSheetAuditing::getSmartUik()); if (!xAudi) return; CellAddress aPosition; aPosition.Sheet = 0; aPosition.Column = 0; aPosition.Row = 0; xAudi->showDependents(aPosition); } void lcl_Consoli( FixedText& aTimeText ) { XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XConsolidationRef xCons = (XConsolidation*)xDoc->queryInterface(XConsolidation::getSmartUik()); if (!xCons) return; XConsolidationDescriptorRef xDesc = xCons->createConsolidationDescriptor(FALSE); if (!xDesc) return; xDesc->setFunction(SUMMARY_COUNTNUMS); xCons->consolidate(xDesc); } void lcl_Sort( FixedText& aTimeText ) { XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XSortableRef xSort = (XSortable*)xSelInt->queryInterface(XSortable::getSmartUik()); if (!xSort) return; XSortDescriptorRef xDesc = xSort->createSortDescriptor(FALSE); if (!xDesc) return; Sequence aFields = xDesc->getSortFields(); if (aFields.getLen()) { // 1.Feld umkehren SortField* pAry = aFields.getArray(); if (!pAry) return; pAry[0].Ascending = !pAry[0].Ascending; } else // neue Sequence, 1. Spalte aufsteigend { aFields = Sequence(1); SortField* pAry = aFields.getArray(); if (!pAry) return; pAry[0].Field = 0; pAry[0].Ascending = TRUE; pAry[0].Type = SORT_FIELD_AUTOMATIC; } xDesc->setSortFields(aFields); XTableSortDescriptorRef xTableSort = (XTableSortDescriptor*) xDesc->queryInterface(XTableSortDescriptor::getSmartUik()); if (!xTableSort) return; CellAddress aOutPos; aOutPos.Sheet = 2; aOutPos.Column = 0; aOutPos.Row = 0; xTableSort->setUseOutputPosition(TRUE); xTableSort->setOutputPosition(aOutPos); XPropertySetRef xPropSet = (XPropertySet*) xDesc->queryInterface(XPropertySet::getSmartUik()); if (!xPropSet) return; xPropSet->setPropertyValue(L"IncludeFormats", UsrAny((BOOL)FALSE)); xSort->sort(xDesc); } void lcl_Filter( FixedText& aTimeText ) { aTimeText.SetText("..."); XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XFilterableRef xFilter = (XFilterable*)xSelInt->queryInterface(XFilterable::getSmartUik()); if (!xFilter) return; #if 0 XTableFilterDescriptorRef xDesc = xFilter->createFilterDescriptor(FALSE); if (!xDesc) return; Sequence aFields = xDesc->getFilterFields(); if (aFields.getLen()) { // 1.Feld zwischen 1. und 2. Spalte toggeln TableFilterField* pAry = aFields.getArray(); if (!pAry) return; pAry[0].Field = pAry[0].Field ? 0 : 1; } xDesc->setFilterFields(aFields); xFilter->filter(xDesc); #endif XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; CellRangeAddress aAddress; aAddress.Sheet = 3; aAddress.StartColumn = 0; aAddress.StartRow = 0; aAddress.EndColumn = 1; aAddress.EndRow = 2; XCellRangeRef xRange = xDoc->getCellRange(aAddress); if (!xRange) return; XAdvancedFilterSourceRef xSource = (XAdvancedFilterSource*) xRange->queryInterface(XAdvancedFilterSource::getSmartUik()); if (!xSource) return; XTableFilterDescriptorRef xDesc = xSource->createAdvancedFilter(xFilter); if (!xDesc) { aTimeText.SetText("kein Filter"); return; } aTimeText.SetText("Filter gefunden"); xFilter->filter(xDesc); } void lcl_AutoFilter( FixedText& aTimeText ) { XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XFilterableRef xFilter = (XFilterable*)xSelInt->queryInterface(XFilterable::getSmartUik()); if (!xFilter) return; BOOL bAuto = xFilter->getAutoFilter(); xFilter->setAutoFilter(!bAuto); } void lcl_Merge( FixedText& aTimeText ) { static BOOL bMerged = FALSE; XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XMergeableRef xMerge = (XMergeable*)xSelInt->queryInterface(XMergeable::getSmartUik()); if (!xMerge) return; if (bMerged) xMerge->unmergeCells(); else xMerge->mergeCells(); bMerged = !bMerged; } void lcl_Outline( FixedText& aTimeText ) { static BOOL bOutline = FALSE; XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XSpreadsheetsRef xSheets = xDoc->getSheets(); if (!xSheets) return; XTableSheetRef xSheet = xSheets->getSheetByIndex(0); if (!xSheet) return; XSheetOutlineRef xOut = (XSheetOutline*)xSheet->queryInterface(XSheetOutline::getSmartUik()); if (!xOut) return; XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XAddressableCellRangeRef xRange = (XAddressableCellRange*) xSelInt->queryInterface(XAddressableCellRange::getSmartUik()); if (!xRange) return; CellRangeAddress aRange = xRange->getRangeAddress(); if (bOutline) xOut->showDetail( aRange ); else xOut->hideDetail( aRange ); bOutline = !bOutline; } void lcl_Bla( FixedText& aTimeText ) { aTimeText.SetText("..."); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XActionLockableRef xLock = (XActionLockable*)xDoc->queryInterface(XActionLockable::getSmartUik()); if (!xLock) return; xLock->addActionLock(); xLock->addActionLock(); USHORT nCount = xLock->resetActionLocks(); // sollte 2 sein String aBla = nCount; xLock->setActionLocks(nCount); xLock->removeActionLock(); xLock->removeActionLock(); aBla += '/'; aBla += xLock->resetActionLocks(); // sollte 0 sein aTimeText.SetText(aBla); } void lcl_CellCursor( FixedText& aTimeText ) { static int nCursorCount = 0; XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XCellCollectionRef xColl = (XCellCollection*)xSelInt->queryInterface(XCellCollection::getSmartUik()); if (!xColl) return; XLineCursorRef xCursor = xColl->createCursor(); if (!xCursor) return; XCellCursorRef xCC = (XCellCursor*)xCursor->queryInterface(XCellCursor::getSmartUik()); if (!xCC) return; XCellRangesCursorRef xCRC = (XCellRangesCursor*)xCursor->queryInterface(XCellRangesCursor::getSmartUik()); if (!xCRC) return; XCellRangeCursorRef xCR = (XCellRangeCursor*)xCursor->queryInterface(XCellRangeCursor::getSmartUik()); if (!xCR) return; XCellContentCursorRef xCCC = (XCellContentCursor*)xCursor->queryInterface(XCellContentCursor::getSmartUik()); if (!xCCC) return; XFormulaCursorRef xFC = (XFormulaCursor*)xCursor->queryInterface(XFormulaCursor::getSmartUik()); if (!xFC) return; CellAddress aPos; aPos.Sheet = 0; // ignored aPos.Row = 3; aPos.Column = 2; switch (nCursorCount++) { case 0: xFC->gotoDependents(FALSE); break; case 1: xFC->gotoDependents(TRUE); break; case 2: xFC->gotoPrecedents(FALSE); break; case 3: xFC->gotoPrecedents(TRUE); nCursorCount = 0; break; } XCellCollectionRef xNew = xCC->getRanges(); if (!xNew) return; xView->select( xNew ); } void lcl_Notes( FixedText& aTimeText ) { aTimeText.SetText( "..." ); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XSpreadsheetsRef xSheets = xDoc->getSheets(); if (!xSheets) return; XTableSheetRef xSheet = xSheets->getSheetByIndex(0); if (!xSheet) return; XSheetAnnotationsRef xNotes = xSheet->getAnnotations(); if (!xNotes) return; XIndexAccessRef xNIndex = (XIndexAccess*)xNotes->queryInterface(XIndexAccess::getSmartUik()); if (!xNIndex) return; CellAddress aPos; aPos.Column = 0; aPos.Row = 0; aPos.Sheet = 0; xNotes->addAnnotation( L"neu", aPos ); ULONG nCount = xNIndex->getCount(); for (ULONG i=0; igetAnnotationByIndex((UINT16)i); XTextRef xText = (XText*)xAnn->queryInterface(XText::getSmartUik()); if (xText) { String aStr = OUStringToString( xText->getText(), CHARSET_SYSTEM ); aStr += "x"; xText->setText(StringToOUString( aStr, CHARSET_SYSTEM )); } } } void lcl_Scenario( FixedText& aTimeText ) { aTimeText.SetText( "..." ); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XSpreadsheetsRef xSheets = xDoc->getSheets(); if (!xSheets) return; XTableSheetRef xSheet = xSheets->getSheetByIndex(0); if (!xSheet) return; XScenariosRef xColl = xSheet->getScenarios(); if (!xColl) return; Sequence aRanges(2); CellRangeAddress* pAry = aRanges.getArray(); if (!pAry) return; pAry[0].Sheet = 0; pAry[0].StartColumn = 0; pAry[0].StartRow = 0; pAry[0].EndColumn = 1; pAry[0].EndRow = 1; pAry[1].Sheet = 0; pAry[1].StartColumn = 3; pAry[1].StartRow = 3; pAry[1].EndColumn = 4; pAry[1].EndRow = 4; xColl->addScenario( aRanges, L"bla", L"bla blubb" ); XIndexAccessRef xIndex = (XIndexAccess*)xColl->queryInterface(XIndexAccess::getSmartUik()); if (!xIndex) return; ULONG nCount = xIndex->getCount(); aTimeText.SetText( nCount ); XScenarioRef xScen = xColl->getScenarioByIndex(0); if (!xScen) return; aRanges = Sequence(1); pAry = aRanges.getArray(); if (!pAry) return; pAry[0].Sheet = 0; pAry[0].StartColumn = 6; pAry[0].StartRow = 6; pAry[0].EndColumn = 7; pAry[0].EndRow = 7; xScen->addRanges( aRanges ); XTableSheetRef xSh2 = xSheets->getSheetByIndex(1); if (!xSh2) return; xSh2->setVisible( TRUE ); xSh2->setVisible( FALSE ); } void lcl_Formula( FixedText& aTimeText ) { aTimeText.SetText("..."); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; CellAddress aPos; aPos.Sheet = 0; aPos.Column = 0; aPos.Row = 0; XCellRef xCell = xDoc->getCell(aPos); if (!xCell) return; // String aStr = OUStringToString( xCell->getFormula(), CHARSET_SYSTEM ); // aTimeText.SetText(aStr); XTextRef xText = (XText*)xCell->queryInterface(XText::getSmartUik()); if (!xText) return; String aStr = OUStringToString( xText->getText(), CHARSET_SYSTEM ); aTimeText.SetText(aStr); } void lcl_DBRange( FixedText& aTimeText ) // 23 { aTimeText.SetText("..."); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XDatabaseRangesRef xDBs = xDoc->getDatabaseRanges(); if (!xDBs) return; CellRangeAddress aRange; aRange.Sheet = 0; aRange.StartColumn = 1; aRange.StartRow = 1; aRange.EndColumn = 3; aRange.EndRow = 10; xDBs->addRange( L"blubb", aRange ); xDBs->removeRangeByName( L"gaga" ); XDatabaseRangeRef xDB = xDBs->getRangeByName( L"blubb" ); if (!xDB) return; String aName = OUStringToString( xDB->getName(), CHARSET_SYSTEM ); aTimeText.SetText(aName); xDB->setName( L"gaga" ); CellRangeAddress aDBRange = xDB->getDataArea(); ++aDBRange.Sheet; xDB->setDataArea(aDBRange); } void lcl_FillTab( FixedText& aTimeText ) // 24 { aTimeText.SetText("..."); XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XCellRangesRef xRanges = (XCellRanges*)xSelInt->queryInterface(XCellRanges::getSmartUik()); XIndexAccessRef xIndex = (XIndexAccess*)xSelInt->queryInterface(XIndexAccess::getSmartUik()); if (!xRanges || !xIndex) return; ULONG nCount = xIndex->getCount(); aTimeText.SetText(nCount); } void lcl_Listener( FixedText& aTimeText ) // 25 { XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XStarCalcViewRef xView = (XStarCalcView*)xInt->queryInterface(XStarCalcView::getSmartUik()); if (!xView) return; xView->addSelectionChangeListener( new ScTestListener(&aTimeText) ); } void lcl_CellAttrib( FixedText& aTimeText ) // 26 { XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return; XTextRef xText = (XText*)xSelInt->queryInterface(XText::getSmartUik()); if (!xText) return; XTextCursorRef xCursor = xText->createTextCursor(); if (!xCursor) return; XTextPositionRef xPos = (XTextPosition*)xCursor->queryInterface(XTextPosition::getSmartUik()); XPropertySetRef xProp = (XPropertySet*)xCursor->queryInterface(XPropertySet::getSmartUik()); XParagraphCursorRef xPar = (XParagraphCursor*)xCursor->queryInterface(XParagraphCursor::getSmartUik()); if (!xPos || !xProp || !xPar) return; xCursor->gotoStart(FALSE); xCursor->goRight(1,FALSE); xCursor->goRight(1,TRUE); UsrAny aAny = xProp->getPropertyValue(L"FontHeight"); UINT32 nOld = aAny.getUINT32(); aAny.setUINT32(nOld*11/10); xProp->setPropertyValue(L"FontHeight", aAny); xPos->collapseToEnd(); xCursor->goRight(1,TRUE); xProp->setPropertyValue(L"Bold", UsrAny((BOOL)TRUE)); xPos->setText(L"x"); xPos->collapseToEnd(); xPar->gotoNextParagraph(FALSE,TRUE); xProp->setPropertyValue(L"Italic", UsrAny((BOOL)TRUE)); xProp->setPropertyValue(L"Underlined", UsrAny((BOOL)TRUE)); } void lcl_Styles( FixedText& aTimeText ) // 27 { aTimeText.SetText("..."); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XStyleFamiliesRef xFamilies = xDoc->getStyleFamilies(); if (!xFamilies) return; XStyleFamilyRef xFamily = xFamilies->getStyleFamilyByType( STYLE_FAMILY_CELL ); // XStyleFamilyRef xFamily = xFamilies->getStyleFamilyByType( STYLE_FAMILY_PAGE ); if (!xFamily) return; long nCount = xFamily->getCount(); aTimeText.SetText(nCount); XStyleRef xStyle = xFamily->getStyleByName(L"rot"); if (!xStyle) return; // XPropertySetRef xProp = (XPropertySet*)xStyle->queryInterface(XPropertySet::getSmartUik()); // if (!xProp) return; XStyleRef xNew = xFamily->addStyle( L"gaga", xStyle ); if (!xNew) return; XPropertySetRef xProp = (XPropertySet*)xNew->queryInterface(XPropertySet::getSmartUik()); if (!xProp) return; UsrAny aAny; aAny = xProp->getPropertyValue(L"TransparentBackground"); aAny.setBOOL(FALSE); xProp->setPropertyValue(L"TransparentBackground", aAny); aAny = xProp->getPropertyValue(L"BackgroundColor"); aAny.setUINT32(0xffff00); xProp->setPropertyValue(L"BackgroundColor", aAny); xFamily->removeStyle( L"rot" ); } void lcl_PageStyle( FixedText& aTimeText ) // 28 { aTimeText.SetText("..."); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XStyleFamiliesRef xFamilies = xDoc->getStyleFamilies(); if (!xFamilies) return; XStyleFamilyRef xFamily = xFamilies->getStyleFamilyByType( STYLE_FAMILY_PAGE ); if (!xFamily) return; XStyleRef xStyle = xFamily->getStyleByName(L"Standard"); if (!xStyle) return; XPropertySetRef xProp = (XPropertySet*)xStyle->queryInterface(XPropertySet::getSmartUik()); if (!xProp) return; UsrAny aAny; aAny = xProp->getPropertyValue(L"RightPageHeaderContent"); // geht nicht: // if ( !XHeaderFooterContent_getReflection()->equals(*aAny.getReflection()) ) // return; XHeaderFooterContentRef* pxContent = (XHeaderFooterContentRef*)aAny.get(); if (!pxContent || !pxContent->is()) return; XTextRef xText = (*pxContent)->getCenterText(); if (!xText) return; String aVal = OUStringToString(xText->getText(), CHARSET_SYSTEM); aTimeText.SetText(aVal); // xText->setText(L"Bla fasel s\xFClz"); lcl_SetText(xText); xProp->setPropertyValue(L"RightPageHeaderContent", aAny); } void lcl_AutoForm( FixedText& aTimeText ) // 29 { XInterfaceRef xInt = lcl_GetView(); if (!xInt) return; #if 0 //! Test - AutoFormat muss von der App kommen XStarCalcViewRef xView = (XStarCalcView*)xInt->queryInterface(XStarCalcView::getSmartUik()); if (!xView) return; XTableAutoFormatsRef xFormats = xView->getTableAutoFormats(); if (!xFormats) return; //! Test #endif XTableAutoFormatsRef xFormats; XTableAutoFormatRef xFormat = xFormats->getAutoFormatByName(L"gaga"); if (!xFormat) return; XPropertySetRef xProp = (XPropertySet*)xFormat->queryInterface(XPropertySet::getSmartUik()); if (!xProp) return; BOOL bVal = TypeConversion::toBOOL(xProp->getPropertyValue(L"IncludeBackground")); xProp->setPropertyValue(L"IncludeBackground", UsrAny(BOOL(!bVal))); XNamedRef xNamed = (XNamed*)xFormat->queryInterface(XNamed::getSmartUik()); if (!xNamed) return; xNamed->setName(L"zzz"); xFormats->addAutoFormat(L"gaga"); XTableAutoFormatRef xNew = xFormats->getAutoFormatByName(L"gaga"); if (!xNew) return; for (USHORT i=0; i<16; i++) { XPropertySetRef xNewProp = xNew->getFieldByIndex(i); if (!xNewProp) return; xNewProp->setPropertyValue(L"TransparentBackground", UsrAny(BOOL(FALSE))); UINT32 nColor = 0x111100 * i; xNewProp->setPropertyValue(L"BackgroundColor", UsrAny(nColor)); } } void lcl_Pivot( FixedText& aTimeText ) // 30 { XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (!xDoc) return; XSpreadsheetsRef xSheets = xDoc->getSheets(); if (!xSheets) return; XIndexAccessRef xInd = (XIndexAccess*)xSheets->queryInterface(XIndexAccess::getSmartUik()); if (!xInd) return; USHORT nCount = (USHORT)xInd->getCount(); for (USHORT nTab=0; nTabgetSheetByIndex(nTab); if (!xSheet) return; XDataPilotTablesRef xPivots = xSheet->getDataPilotTables(); if (!xPivots) return; lcl_OutputNames( xPivots, xDoc, nTab,0,0 ); XIndexAccessRef xPInd = (XIndexAccess*)xPivots->queryInterface(XIndexAccess::getSmartUik()); if (!xPInd) return; USHORT nPCount = (USHORT)xPInd->getCount(); for (USHORT nP=0; nPgetTableByIndex(nP); if (!xTable) return; // xTable->refreshTable(); XDataPilotDescriptorRef xDesc = (XDataPilotDescriptor*) xTable->queryInterface(XDataPilotDescriptor::getSmartUik()); if (!xDesc) return; CellRangeAddress aSource = xDesc->getSourceRange(); ++aSource.Sheet; xDesc->setSourceRange(aSource); CellRangeAddress aAddr = xTable->getOutputRange(); XCellRangeRef xRange = xDoc->getCellRange(aAddr); if (!xRange) return; XPropertySetRef xProp = (XPropertySet*)xRange->queryInterface(XPropertySet::getSmartUik()); if (!xProp) return; xProp->setPropertyValue(L"TransparentBackground", UsrAny(BOOL(FALSE))); xProp->setPropertyValue(L"BackgroundColor", UsrAny((UINT32)0x00FF00)); } } } IMPL_LINK(MyWindow, CountHdl, PushButton*, EMPTYARG) { #if 0 long nCount = aCountField.GetValue(); if (nCount < 1) nCount = 1; ULONG nStart = Time::GetSystemTicks(); for (long i=0; igetCell(aPos); if ( xCell ) { XTextRef xCellText = (XText*)xCell->queryInterface(XText::getSmartUik()); if (xCellText) { XTextCursorRef xCursor = xCellText->createTextCursor(); if (xCursor) { XTextPositionRef xPos = (XTextPosition*) xCursor->queryInterface(XTextPosition::getSmartUik()); XControlCharacterInsertableRef xControl = (XControlCharacterInsertable*) xCursor->queryInterface(XControlCharacterInsertable::getSmartUik()); if (xPos && xControl) { xCursor->gotoStart(FALSE); xCursor->goRight(11,TRUE); String aVal = OUStringToString( xPos->getText(), CHARSET_SYSTEM ); aTimeText.SetText(aVal); } } } } } return 0; } //----------------------------------------------------------------------- IMPL_LINK(MyWindow, BlaHdl, PushButton*, EMPTYARG) { aTimeText.SetText("..."); XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (xDoc) { CellAddress aPos; aPos.Sheet = 0; aPos.Column = 1; aPos.Row = 2; XCellRef xCell = xDoc->getCell(aPos); if ( xCell ) { XTextRef xText = (XText*)xCell->queryInterface(XText::getSmartUik()); XFieldContainerRef xCont = (XFieldContainer*) xCell->queryInterface(XFieldContainer::getSmartUik()); if ( xText && xCont ) { XFieldTypesRef xTypes = xCont->getFieldTypes(); if ( xTypes ) { XTextFieldTypeRef xType = xTypes->getFieldType( FIELDTYPE_INTERNET ); XTextCursorRef xCursor = xText->createTextCursor(); if ( xCursor && xType ) { #if 0 // Feld einfuegen XTextPositionRef xPos = (XTextPosition*) xCursor->queryInterface(XTextPosition::getSmartUik()); if ( xPos ) { xCursor->gotoEnd(FALSE); XTextFieldRef xField = xTypes->insertTextField( xType, xPos ); if (xField) { // Eigenschaften setzen XPropertySetRef xProp = (XPropertySet*)xField-> queryInterface(XPropertySet::getSmartUik()); if ( xProp ) { xProp->setPropertyValue(L"URL", UsrAny(String("http://www.mopo.de/"))); xProp->setPropertyValue(L"Representation", UsrAny(String("ein Hyperlink"))); } } } #endif // letztes Feld loeschen XIndexAccessRef xIndex = (XIndexAccess*) xType->queryInterface(XIndexAccess::getSmartUik()); if (xIndex) { String aBla; ULONG nCount = xIndex->getCount(); for (ULONG i=0; igetElementByIndex(i); if (xInt) { XPropertySetRef xProp = (XPropertySet*)xInt-> queryInterface(XPropertySet::getSmartUik()); if ( xProp ) { if (aBla.Len()) aBla += ','; aBla += OUStringToString( TypeConversion::toString( xProp->getPropertyValue(L"URL") ), CHARSET_SYSTEM ); } if ( i+1 == nCount ) // letztes { XTextFieldRef xField = (XTextField*)xInt-> queryInterface(XTextField::getSmartUik()); if (xField) xTypes->removeTextField(xField); } } } aTimeText.SetText(aBla); } } } } } xGlobalCell = xCell; } return 0; } //----------------------------------------------------------------------- IMPL_LINK(MyWindow, TabHdl, PushButton*, EMPTYARG) { String aResult; XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model if (xDoc) { XSpreadsheetsRef xSheets = xDoc->getSheets(); if (xSheets) { XIndexAccessRef xIndex = (XIndexAccess*)xSheets->queryInterface(XIndexAccess::getSmartUik()); if (xIndex) { USHORT nCount = (USHORT) xIndex->getCount(); for (USHORT nTab=0; nTabgetElementByIndex(nTab); if (xInt) { XNamedRef xNamed = (XNamed*)xInt->queryInterface(XNamed::getSmartUik()); if (xNamed) { if (nTab) aResult += ","; aResult += OUStringToString( xNamed->getName(), CHARSET_SYSTEM ); } } } } CellAddress aPos; aPos.Sheet = 0; aPos.Column = 0; aPos.Row = 0; XEnumerationAccessRef xEAcc = (XEnumerationAccess*) xSheets->queryInterface(XEnumerationAccess::getSmartUik()); if (xEAcc) { XEnumerationRef xEnum = xEAcc->getEnumeration(); if (xEnum) { while (xEnum->hasMoreElements()) { XInterfaceRef xInt = xEnum->nextElement(); if (xInt) { XNamedRef xNamed = (XNamed*)xInt->queryInterface(XNamed::getSmartUik()); if (xNamed) { UString aName = xNamed->getName(); XCellRef xCell = xDoc->getCell(aPos); if ( xCell ) { XTextRef xText = (XText*)xCell->queryInterface(XText::getSmartUik()); xText->setText( aName ); ++aPos.Row; } } } } } } } } aTimeText.SetText(aResult); return 0; } //----------------------------------------------------------------------- void lcl_FillCells(XCellCollectionRef xColl) { XEnumerationAccessRef xEnAcc = xColl->getCells(); if (!xEnAcc) return; XEnumerationRef xEnum = xEnAcc->getEnumeration(); if (!xEnum) return; while (xEnum->hasMoreElements()) { XInterfaceRef xInt = xEnum->nextElement(); if (xInt) { XCellRef xCell = (XCell*)xInt->queryInterface(XCell::getSmartUik()); if (xCell) { xCell->setValue(42.0); } } } } IMPL_LINK(MyWindow, ViewHdl, PushButton*, EMPTYARG) { XSpreadsheetDocumentRef xDoc = lcl_GetDocument(); // Calc-Model XInterfaceRef xInt = lcl_GetView(); if (!xInt) return 0; XDocumentViewRef xView = (XDocumentView*)xInt->queryInterface(XDocumentView::getSmartUik()); if (!xView) return 0; XInterfaceRef xSelInt = xView->getSelection(); if (!xSelInt) return 0; #if 0 XPropertySetRef xProp = (XPropertySet*)xSelInt->queryInterface(XPropertySet::getSmartUik()); if ( xProp ) { UsrAny aAny; aAny = xProp->getPropertyValue(L"TransparentBackground"); aAny.setBOOL(FALSE); xProp->setPropertyValue(L"TransparentBackground", aAny); aAny = xProp->getPropertyValue(L"BackgroundColor"); aAny.setUINT32(0xffff00); xProp->setPropertyValue(L"BackgroundColor", aAny); } XIndentRef xInd = (XIndent*)xSelInt->queryInterface(XIndent::getSmartUik()); if ( xInd ) { xInd->incrementIndent(); } #endif XAutoFormattableRef xAuto = (XAutoFormattable*)xSelInt-> queryInterface(XAutoFormattable::getSmartUik()); if ( xAuto ) xAuto->applyAutoFormat( L"gaga" ); XFormulaArrayRef xArr = (XFormulaArray*)xSelInt->queryInterface(XFormulaArray::getSmartUik()); if ( xArr ) { // xArr->setFormulaArray( "123" ); String aFormula = OUStringToString( xArr->getFormulaArray(), CHARSET_SYSTEM ); aTimeText.SetText(aFormula); } else aTimeText.SetText("..."); XTextRef xText = (XText*)xSelInt->queryInterface(XText::getSmartUik()); if ( xText ) { String aStr = OUStringToString( xText->getText(), CHARSET_SYSTEM ); aStr += 'X'; xText->setText(StringToOUString(aStr, CHARSET_SYSTEM)); } // Zelle selektieren #if 0 if (xDoc) { CellAddress aPos; aPos.Sheet = 0; aPos.Column = 1; aPos.Row = 2; XCellRef xCell = xDoc->getCell(aPos); if ( xCell ) xView->select( xCell ); } #endif XPrintableRef xPrint = (XPrintable*)xInt->queryInterface(XPrintable::getSmartUik()); String aName = OUStringToString( xPrint->getPrinterName(), CHARSET_SYSTEM ); // aTimeText.SetText(aName); xPrint->setPrinterName(L"HP5_2"); // xPrint->setPrinterName(L"blubb"); // XPropertySetRef xOptions; // xPrint->print(xOptions); /* XViewPaneRef xPane = (XViewPane*)xInt->queryInterface(XViewPane::getSmartUik()); if (!xPane) return 0; xPane->setScrollRow( 2 ); */ XCellRangeSourceRef xSrc = (XCellRangeSource*) xInt->queryInterface(XCellRangeSource::getSmartUik()); if (!xSrc) return 0; XCellRangeRef xRange = xSrc->getReferredCells(); if (!xRange) return 0; XCellCollectionRef xColl = (XCellCollection*) xRange->queryInterface(XCellCollection::getSmartUik()); if (!xColl) return 0; XActionLockableRef xLock = (XActionLockable*) xDoc->queryInterface(XActionLockable::getSmartUik()); if (xLock) xLock->addActionLock(); // nicht zwischendurch painten // lcl_FillCells(xColl); if (xLock) xLock->removeActionLock(); // nicht zwischendurch painten XStarCalcViewRef xCalc = (XStarCalcView*)xInt->queryInterface(XStarCalcView::getSmartUik()); if (!xCalc) return 0; return 0; }