diff options
Diffstat (limited to 'basctl/source/dlged/dlged.cxx')
| -rw-r--r-- | basctl/source/dlged/dlged.cxx | 906 |
1 files changed, 906 insertions, 0 deletions
diff --git a/basctl/source/dlged/dlged.cxx b/basctl/source/dlged/dlged.cxx new file mode 100644 index 000000000000..eeff774e4e38 --- /dev/null +++ b/basctl/source/dlged/dlged.cxx @@ -0,0 +1,906 @@ +/************************************************************************* + * + * $RCSfile: dlged.cxx,v $ + * + * $Revision: 1.1 $ + * + * last change: $Author: tbe $ $Date: 2001-02-26 10:37:58 $ + * + * The Contents of this file are made available subject to the terms of + * either of the following licenses + * + * - GNU Lesser General Public License Version 2.1 + * - Sun Industry Standards Source License Version 1.1 + * + * Sun Microsystems Inc., October, 2000 + * + * GNU Lesser General Public License Version 2.1 + * ============================================= + * Copyright 2000 by Sun Microsystems, Inc. + * 901 San Antonio Road, Palo Alto, CA 94303, USA + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License version 2.1, as published by the Free Software Foundation. + * + * 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 + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, + * MA 02111-1307 USA + * + * + * Sun Industry Standards Source License Version 1.1 + * ================================================= + * The contents of this file are subject to the Sun Industry Standards + * Source License Version 1.1 (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.openoffice.org/license.html. + * + * Software provided under this License is provided on an "AS IS" basis, + * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, + * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, + * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. + * See the License for the specific provisions governing your rights and + * obligations concerning the Software. + * + * The Initial Developer of the Original Code is: Sun Microsystems, Inc. + * + * Copyright: 2000 by Sun Microsystems, Inc. + * + * All Rights Reserved. + * + * Contributor(s): _______________________________________ + * + * + ************************************************************************/ + +#ifndef _SFXAPP_HXX +#include <sfx2/app.hxx> +#endif +#ifndef _SFX_CHILDWIN_HXX +#include <sfx2/childwin.hxx> +#endif +#ifndef _SV_SCRBAR_HXX +#include <vcl/scrbar.hxx> +#endif +#ifndef _SBXCLASS_HXX +#include <svtools/sbx.hxx> +#endif +#ifndef _SHL_HXX //autogen +#include <tools/shl.hxx> +#endif +#ifndef _SVDVIEW_HXX //autogen +#include <svx/svdview.hxx> +#endif +#ifndef _SFXITEMPOOL_HXX +#include <svtools/itempool.hxx> +#endif + +#ifndef _COM_SUN_STAR_BEANS_PROPERTYVALUE_HPP_ +#include <com/sun/star/beans/PropertyValue.hpp> +#endif + +#ifndef _COM_SUN_STAR_BEANS_XPROPERTYSET_HPP_ +#include <com/sun/star/beans/XPropertySet.hpp> +#endif + +#ifndef _COM_SUN_STAR_AWT_XDIALOG_HPP_ +#include <com/sun/star/awt/XDialog.hpp> +#endif + +#pragma hdrstop + +#ifndef _SVXIDS_HRC +#include <svx/svxids.hrc> +#endif +#ifndef _SFXVIEWFRM_HXX +#include <sfx2/viewfrm.hxx> +#endif +#include <svx/svdlayer.hxx> + +#include "vcsbxdef.hxx" + +#ifndef _BASCTL_DLGED_HXX +#include "dlged.hxx" +#endif + +#ifndef _BASCTL_DLGEDFUNC_HXX +#include "dlgedfunc.hxx" +#endif + +#ifndef _BASCTL_DLGEDFAC_HXX +#include "dlgedfac.hxx" +#endif + +#ifndef _BASCTL_DLGEDVIEW_HXX +#include "dlgedview.hxx" +#endif + +#ifndef _BASCTL_DLGEDOBJ_HXX +#include "dlgedobj.hxx" +#endif + +#ifndef _COMPHELPER_PROCESSFACTORY_HXX_ +#include <comphelper/processfactory.hxx> +#endif + +using namespace comphelper; +using namespace ::com::sun::star; +using namespace ::rtl; +using namespace ::com::sun::star::uno; + +//---------------------------------------------------------------------------- + +IMPL_LINK( VCDlgEditor, ClipboardCleared, Clipboard *, EMPTYARG ) +{ + if( !bClipPrivate ) + return 0; + + SdrModel** ppClipPrivate = (SdrModel**)GetAppData( SHL_VCED ); + + if( *ppClipPrivate ) + return 0; + + delete *ppClipPrivate; + *ppClipPrivate = NULL; + + bClipPrivate = FALSE; + return 0; +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::ShowDialog() +{ + ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > xMSF = getProcessServiceFactory(); + + // create a dialog + uno::Reference< awt::XControl > xDlg( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialog" ) ) ), uno::UNO_QUERY ); + uno::Reference< awt::XControlModel > xDlgMod( m_xUnoControlDialogModel, uno::UNO_QUERY ); + + xDlg->setModel( xDlgMod ); + + // create a peer + uno::Reference< awt::XToolkit> xToolkit( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.ExtToolkit" ) ) ), uno::UNO_QUERY ); + xDlg->createPeer( xToolkit, NULL ); + + uno::Reference< awt::XDialog > xD( xDlg, uno::UNO_QUERY ); + xD->execute(); +} + +//---------------------------------------------------------------------------- + +BOOL VCDlgEditor::UnmarkDialog() +{ + SdrObject* pDlgObj = pSdrModel->GetPage(0)->GetObj(0); + SdrPageView* pPgView = pSdrView->GetPageViewPvNum(0); + + BOOL bWasMarked = pSdrView->IsObjMarked( pDlgObj ); + + if( bWasMarked ) + pSdrView->MarkObj( pDlgObj, pPgView, FALSE ); + + return bWasMarked; +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::RemarkDialog() +{ + SdrObject* pDlgObj = pSdrModel->GetPage(0)->GetObj(0); + SdrPageView* pPgView = pSdrView->GetPageViewPvNum(0); + + pSdrView->MarkObj( pDlgObj, pPgView, TRUE ); +} + +//---------------------------------------------------------------------------- + +VCDlgEditor::VCDlgEditor( StarBASIC* pBas ) : + pHScroll(NULL), + pVScroll(NULL), + pBasic( pBas ), + eMode( VCDLGED_SELECT ), // eActObj( OBJ_DLG_PUSHBUTTON ), + bFirstDraw(FALSE), + bGridSnap(FALSE), + bGridVisible(FALSE), + bClipPrivate(FALSE), + bCreateOK(TRUE), + pSdrView(NULL) +{ + pWindow = NULL; + + pSdrModel = new DlgEdModel; + pSdrModel->GetItemPool().FreezeIdRanges(); + pSdrModel->SetScaleUnit( MAP_TWIP ); + + SdrLayerAdmin& rAdmin = pSdrModel->GetLayerAdmin(); + rAdmin.NewStandardLayer(); + rAdmin.NewLayer( UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( "VCHiddenLayer" ) ) ); + + pSdrPage = new DlgEdPage( *pSdrModel, pBasic, this ); + pSdrModel->InsertPage( pSdrPage ); + + pObjFac = new VCDlgEditFactory( this ); + + //SdrObjFactory::InsertMakeObjectHdl( LINK( pObjFac, VCDlgEditFactory, MakeObject ) ); + pFunc = new DlgEdFuncSelect( this ); + + aClip.SetClearedHdl( LINK( this, VCDlgEditor, ClipboardCleared ) ); + + aPaintTimer.SetTimeout( 1 ); + aPaintTimer.SetTimeoutHdl( LINK( this, VCDlgEditor, PaintTimeout ) ); +} + +//---------------------------------------------------------------------------- + +VCDlgEditor::~VCDlgEditor() +{ + ClipboardCleared( NULL ); + /* + if( pSbxForm.Is() ) + pSbxForm->PrepareDelete(); + + pSdrPage->SetDeleteSbxObject( FALSE ); + ((DlgPage*)pSdrPage)->SetSbxForm( (VCSbxDialog*)NULL ); + */ + + SdrObjFactory::RemoveMakeObjectHdl( LINK( pObjFac, VCDlgEditFactory, MakeObject ) ); + delete pObjFac; + + delete pFunc; + delete pSdrView; + delete pSdrModel; +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::SetWindow( Window* pWindow ) +{ + VCDlgEditor::pWindow = pWindow; + pWindow->SetMapMode( MapMode( MAP_100TH_MM ) ); + pSdrPage->SetSize( pWindow->PixelToLogic( Size( 1280, 1024 ) ) ); + + pSdrView = new DlgEdView( pSdrModel, pWindow ); + pSdrView->ShowPagePgNum( 0, Point() ); + pSdrView->SetLayerVisible( UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( "VCHiddenLayer" ) ), FALSE ); + pSdrView->SetMoveSnapOnlyTopLeft( TRUE ); + + Size aGridSize( 60, 60 ); //Twips + bGridSnap = TRUE; + bGridVisible = TRUE; + pSdrView->SetGridCoarse( aGridSize ); + pSdrView->SetSnapGrid( aGridSize ); + pSdrView->SetGridSnap( bGridSnap ); + pSdrView->SetGridVisible( FALSE ); + + pSdrView->SetDragStripes( FALSE ); + + pSdrView->SetDesignMode( TRUE ); // tbe put this somewhere else +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::SetScrollBars( ScrollBar* pHS, ScrollBar* pVS ) +{ + pHScroll = pHS; + pVScroll = pVS; + + Size aOutSize = pWindow->GetOutputSize(); + Size aPgSize = pSdrPage->GetSize(); + + pHScroll->SetRange( Range( 0, aPgSize.Width() )); + pVScroll->SetRange( Range( 0, aPgSize.Height() )); + pHScroll->SetVisibleSize( (ULONG)aOutSize.Width() ); + pVScroll->SetVisibleSize( (ULONG)aOutSize.Height() ); + + pHScroll->SetLineSize( aOutSize.Width() / 10 ); + pVScroll->SetLineSize( aOutSize.Height() / 10 ); + pHScroll->SetPageSize( aOutSize.Width() / 2 ); + pVScroll->SetPageSize( aOutSize.Height() / 2 ); + + DoScroll( pHScroll ); + DoScroll( pVScroll ); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::DoScroll( ScrollBar* pActScroll ) +{ + if( !pHScroll || !pVScroll ) + return; + + MapMode aMap = pWindow->GetMapMode(); + Point aOrg = aMap.GetOrigin(); + + Size aScrollPos( pHScroll->GetThumbPos(), pVScroll->GetThumbPos() ); + aScrollPos = pWindow->LogicToPixel( aScrollPos ); + aScrollPos = pWindow->PixelToLogic( aScrollPos ); + + long nX = aScrollPos.Width() + aOrg.X(); + long nY = aScrollPos.Height() + aOrg.Y(); + + if( !nX && !nY ) + return; + + pWindow->Update(); + + Brush aOldBrush( pWindow->GetBackgroundBrush() ); + Brush aBrush( BRUSH_NULL ); + pWindow->SetBackgroundBrush( aBrush ); + pWindow->Scroll( -nX, -nY, SCROLL_NOCHILDREN ); + aMap.SetOrigin( Point( -aScrollPos.Width(), -aScrollPos.Height() ) ); + pWindow->SetMapMode( aMap ); + pWindow->Update(); + + pWindow->SetBackgroundBrush( aOldBrush ); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::SetDialog( ) +{ + + // my dialog model -- delete this later + + ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > xMSF = getProcessServiceFactory(); + + + //uno::Reference< awt::XToolkit> xToolkit( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.ExtToolkit" ) ) ), uno::UNO_QUERY ); + + // Create a DialogModel + uno::Reference< container::XNameContainer > xC( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), uno::UNO_QUERY ); + uno::Reference< lang::XMultiServiceFactory > xModFact( xC, uno::UNO_QUERY ); + uno::Reference< beans::XPropertySet > xDlgPSet( xC, uno::UNO_QUERY ); + uno::Any aValue; + aValue <<= ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Test-Dialog" ) ); + xDlgPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Title" ) ), aValue ); + aValue <<= (sal_Int32) 0; + xDlgPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue ); + aValue <<= (sal_Int32) 0; + xDlgPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ), aValue ); + aValue <<= (sal_Int32) 0; + xDlgPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue ); + aValue <<= (sal_Int32) 0; + xDlgPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue ); + + // Create a ButtonModel as a DialogModel substitute + uno::Reference< awt::XControlModel > xDlg1( xModFact->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlButtonModel" ) ) ), uno::UNO_QUERY ); + uno::Reference< beans::XPropertySet > xPSet( xDlg1, uno::UNO_QUERY ); + //aValue <<= ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Test-Dialog" ) ); + //xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Title" ) ), aValue ); + aValue <<= (sal_Int32) 50; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue ); + aValue <<= (sal_Int32) 50; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ), aValue ); + aValue <<= (sal_Int32) 150; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue ); + aValue <<= (sal_Int32) 150; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue ); + + // Create a ButtonModel + uno::Reference< awt::XControlModel > xCtrl1( xModFact->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlButtonModel" ) ) ), uno::UNO_QUERY ); + xPSet = uno::Reference< beans::XPropertySet >( xCtrl1, uno::UNO_QUERY ); + aValue <<= (sal_Int32) 10; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue ); + aValue <<= (sal_Int32) 80; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ), aValue ); + aValue <<= (sal_Int32) 50; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue ); + aValue <<= (sal_Int32) 20; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue ); + aValue <<= ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Test!" ) ); + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Label" ) ), aValue ); + uno::Any aAny; + aAny <<= xCtrl1; + xC->insertByName( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Control1" ) ), aAny ); + + // Create a EditModel + uno::Reference< awt::XControlModel > xCtrl2( xModFact->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlEditModel" ) ) ), uno::UNO_QUERY ); + xPSet = uno::Reference< beans::XPropertySet >( xCtrl2, uno::UNO_QUERY ); + aValue <<= (sal_Int32) 10; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionX" ) ), aValue ); + aValue <<= (sal_Int32) 50; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PositionY" ) ), aValue ); + aValue <<= (sal_Int32) 50; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Width" ) ), aValue ); + aValue <<= (sal_Int32) 20; + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Height" ) ), aValue ); + aValue <<= ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Text..." ) ); + xPSet->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Text" ) ), aValue ); + aAny <<= xCtrl2; + xC->insertByName( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Control2" ) ), aAny ); + + // end of delete + + // set dialog model + m_xUnoControlDialogModel = xC; + + pDlgEdForm = new DlgEdForm(); + uno::Reference< awt::XControlModel > xDlgMod( m_xUnoControlDialogModel, uno::UNO_QUERY ); + pDlgEdForm->SetUnoControlModel(xDlgMod); + pDlgEdForm->StartPropertyListening(); + pDlgEdForm->SetDlgEditor( this ); + pDlgEdForm->SetRectFromProps(); + + pSdrModel->GetPage(0)->InsertObject( pDlgEdForm ); + + Reference< ::com::sun::star::container::XNameAccess > xNA( m_xUnoControlDialogModel, UNO_QUERY ); + if ( xNA.is() ) + { + Sequence< OUString > aNames = xNA->getElementNames(); + const OUString* pNames = aNames.getConstArray(); + sal_uInt32 nCtrls = aNames.getLength(); + + for( sal_uInt32 n = 0; n < nCtrls; n++ ) + { + Any aA = xNA->getByName( pNames[n] ); + Reference< ::com::sun::star::awt::XControlModel > xCtrlModel; + aA >>= xCtrlModel; + DlgEdObj* pCtrlObj = new DlgEdObj(pDlgEdForm); + pCtrlObj->SetUnoControlModel( xCtrlModel ); + pCtrlObj->StartPropertyListening(); + pCtrlObj->SetChanged(); + pCtrlObj->SetRectFromProps(); + pSdrModel->GetPage(0)->InsertObject( pCtrlObj ); + } + } + + //pSdrModel->SetChanged( TRUE ); + + //pNewObj->SendRepaintBroadcast(); + + bFirstDraw = TRUE; + + pSdrModel->SetChanged( FALSE ); + + //DBG_ASSERT(pWindow,"Window not set"); +} + +//---------------------------------------------------------------------------- + +/* +void VCDlgEditor::SetVCSbxForm( VCSbxDialogRef pForm ) +{ + + DBG_ASSERT( pForm.Is(), "Kein Dialog -> und tschuess..." ); + pSbxForm = pForm; + + ((DlgPage*)pSdrModel->GetPage(0))->SetName( pSbxForm->GetName() ); + ((DlgPage*)pSdrModel->GetPage(0))->SetSbxForm( (VCSbxDialog*)pSbxForm ); + + // Drawobject draufklemmen und in Drawing einfuegen + VCSbxDialogObject* pObj = new VCSbxDialogObject( pSbxForm ); + pSdrModel->GetPage(0)->InsertObject( pObj ); + + // Durch das folgende Update wird SVLook am Container richtig + // gesetzt + pSbxForm->UpdateItem( 0 ); + + pObj->SendRepaintBroadcast(); + + // Childs einfuegen + // und Zeichenobject draufklemmen + USHORT nCount = pSbxForm->GetObjects()->Count(); + USHORT i; + for( i=0; i < nCount; i++ ) + { + SbxVariable* pCtl = pSbxForm->GetObjects()->Get( i ); + DBG_ASSERT( pCtl->IsA( TYPE( VCSbxControl ) ), "Is sich nix Control !!!" ); + if( (pCtl->GetSbxId() >= SBXID_FIRSTCONTROL) && + (pCtl->GetSbxId() <= SBXID_LASTCONTROL) ) + { + VCSbxDrawObject* pDrawObj = new VCSbxDrawObject( (VCSbxControl*)pCtl ); + pSdrModel->GetPage(0)->InsertObject( pDrawObj ); + pDrawObj->GetControl()->UpdateStep( pSbxForm->GetCurStep() ); + pDrawObj->SendRepaintBroadcast(); + } + } + + bFirstDraw = TRUE; + + pSdrModel->SetChanged( FALSE ); + +} +*/ + +//---------------------------------------------------------------------------- + +StarBASIC* VCDlgEditor::GetBasic() const +{ + return pBasic; +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::MouseButtonDown( const MouseEvent& rMEvt ) +{ + if( pWindow ) + pWindow->GrabFocus(); + pFunc->MouseButtonDown( rMEvt ); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::MouseButtonUp( const MouseEvent& rMEvt ) +{ + BOOL bRet = pFunc->MouseButtonUp( rMEvt ); + + if( (eMode == VCDLGED_INSERT) ) + bCreateOK = bRet; +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::MouseMove( const MouseEvent& rMEvt ) +{ + pFunc->MouseMove( rMEvt ); +} + +//---------------------------------------------------------------------------- + +BOOL VCDlgEditor::KeyInput( const KeyEvent& rKEvt ) +{ + return pFunc->KeyInput( rKEvt ); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::Paint( const Rectangle& rRect ) +{ + aPaintRect = rRect; + PaintTimeout( &aPaintTimer ); +} + +//---------------------------------------------------------------------------- + +IMPL_LINK( VCDlgEditor, PaintTimeout, Timer *, EMPTYARG ) +{ + static int nInPaint = FALSE; + if( !pSdrView ) + return 0; + + nInPaint = TRUE; + + Size aMacSize; + if( bFirstDraw && + pWindow->IsVisible() && + (pWindow->GetOutputSize() != aMacSize) ) + { + bFirstDraw = FALSE; + + if( pDlgEdForm->GetSnapRect().GetSize() == aMacSize ) + { + Size aSize = pWindow->PixelToLogic( Size( 400, 300 ) ); + + // align with grid + Size aGridSize = pSdrView->GetSnapGrid(); + aSize.Width() -= aSize.Width() % aGridSize.Width(); + aSize.Height() -= aSize.Height() % aGridSize.Height(); + + Point aPos; + Size aOutSize = pWindow->GetOutputSize(); + aPos.X() = (aOutSize.Width()>>1) - (aSize.Width()>>1); + aPos.Y() = (aOutSize.Height()>>1) - (aSize.Height()>>1); + + // align with grid + aPos.X() -= aPos.X() % aGridSize.Width(); + aPos.Y() -= aPos.Y() % aGridSize.Height(); + + // don't put in the corner + Point aMinPos = pWindow->PixelToLogic( Point( 30, 20 ) ); + if( (aPos.X() < aMinPos.X()) || (aPos.Y() < aMinPos.Y()) ) + { + aPos = aMinPos; + aPos.X() -= aPos.X() % aGridSize.Width(); + aPos.Y() -= aPos.Y() % aGridSize.Height(); + } + + // set dialog position and size + pDlgEdForm->SetSnapRect( Rectangle( aPos, aSize ) ); + pDlgEdForm->SetPropsFromRect(); + + // set position and size of controls + ULONG nObjCount; + if ( pSdrPage && ( ( nObjCount = pSdrPage->GetObjCount() ) > 0 ) ) + { + for ( ULONG i = 1 ; i < nObjCount ; i++ ) + { + SdrObject* pObj = pSdrPage->GetObj(i); + DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pObj); + if (pDlgEdObj) + pDlgEdObj->SetRectFromProps(); + } + } + } + } + + pSdrView->InitRedraw( pWindow, Region( aPaintRect ) ); + + nInPaint = FALSE; + + DBG_ASSERT(pWindow,"Window not set"); + return 0; +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::SetMode( VCDlgMode eNewMode ) +{ + if( eMode != eNewMode ) + { + if( pFunc ) + delete pFunc; + } + + eMode = eNewMode; + if( eMode == VCDLGED_INSERT ) + pFunc = new DlgEdFuncInsert( this ); + else + pFunc = new DlgEdFuncSelect( this ); + + if( eMode == VCDLGED_TEST ) + ShowDialog(); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::SetInsertObj( USHORT eObj ) +{ + eActObj = eObj; + + if( pSdrView ) + pSdrView->SetCurrentObj( eActObj, VCSbxInventor ); +} + +//---------------------------------------------------------------------------- + +USHORT VCDlgEditor::GetInsertObj() const +{ + return eActObj; +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::Cut() +{ + if( !pSdrView->HasMarkedObj() ) + return; + + pSdrView->BrkAction(); + + BOOL bDlgMarked = UnmarkDialog(); + + SdrModel* pMarked = pSdrView->GetAllMarkedModel(); + + aClip.Clear(); + aClip.CopyPrivateData( pMarked ); + + SdrModel** ppClipPrivate = (SdrModel**)GetAppData( SHL_VCED ); + *ppClipPrivate = pMarked; + bClipPrivate = TRUE; + + Delete(); + + if( bDlgMarked ) + RemarkDialog(); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::Copy() +{ + if( !pSdrView->HasMarkedObj() ) + return; + + pSdrView->BrkAction(); + + BOOL bDlgMarked = UnmarkDialog(); + + SdrModel* pMarked = pSdrView->GetAllMarkedModel(); + + aClip.Clear(); + aClip.CopyPrivateData( pMarked ); + + SdrModel** ppClipPrivate = (SdrModel**)GetAppData( SHL_VCED ); + *ppClipPrivate = pMarked; + bClipPrivate = TRUE; + + if( bDlgMarked ) + RemarkDialog(); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::Paste() +{ + SdrModel** ppClipPrivate = (SdrModel**)GetAppData( SHL_VCED ); + + pSdrView->BrkAction(); + + if( !*ppClipPrivate ) + return; + + static Point aDefPoint; + /* + Rectangle aRect( aDefPoint, + pSbxForm->GetSize() ); + pSdrView->Paste( **ppClipPrivate, aRect.Center() ); + */ +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::Delete() +{ + if( !pSdrView->HasMarkedObj() ) + return; + + // Sicherstellen, dass nicht ein Dialog geloescht wird. So machts man + // richtig (inkompat.,ab 369): SdrView::CheckPossibilities() ueberladen + ULONG nMark = pSdrView->GetMarkList().GetMarkCount(); + + for( ULONG i = 0; i < nMark; i++ ) + { + if(pSdrView->GetMarkList().GetMark(i)->GetObj()->ISA(DlgEdForm)) + return; + } + + pSdrView->BrkAction(); + + BOOL bDlgMarked = UnmarkDialog(); + + pSdrView->DeleteMarked(); + + if( bDlgMarked ) + RemarkDialog(); +} + +//---------------------------------------------------------------------------- + +BOOL VCDlgEditor::IsModified() const +{ + return pSdrModel->IsChanged(); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::ClearModifyFlag() +{ + pSdrModel->SetChanged( FALSE ); +} + +//---------------------------------------------------------------------------- + +#define LMARGPRN 1700 +#define RMARGPRN 900 +#define TMARGPRN 2000 +#define BMARGPRN 1000 +#define BORDERPRN 300 + +//---------------------------------------------------------------------------- + +void lcl_PrintHeader( Printer* pPrinter, const String& rTitle ) +{ + short nLeftMargin = LMARGPRN; + Size aSz = pPrinter->GetOutputSize(); + short nBorder = BORDERPRN; + + Pen aOldPen( pPrinter->GetPen() ); + Brush aOldBrush( pPrinter->GetFillInBrush() ); + Font aOldFont( pPrinter->GetFont() ); + + pPrinter->SetPen( Pen( (PenStyle)PEN_SOLID ) ); + pPrinter->SetFillInBrush( Brush( BRUSH_NULL ) ); + + Font aFont( aOldFont ); + aFont.SetWeight( WEIGHT_BOLD ); + aFont.SetAlign( ALIGN_BOTTOM ); + pPrinter->SetFont( aFont ); + + long nFontHeight = pPrinter->GetTextHeight(); + + // 1.Border => Strich, 2+3 Border = Freiraum. + long nYTop = TMARGPRN-3*nBorder-nFontHeight; + + long nXLeft = nLeftMargin-nBorder; + long nXRight = aSz.Width()-RMARGPRN+nBorder; + + pPrinter->DrawRect( Rectangle( + Point( nXLeft, nYTop ), + Size( nXRight-nXLeft, aSz.Height() - nYTop - BMARGPRN + nBorder ) ) ); + + long nY = TMARGPRN-2*nBorder; + Point aPos( nLeftMargin, nY ); + pPrinter->DrawText( aPos, rTitle ); + + nY = TMARGPRN-nBorder; + + pPrinter->DrawLine( Point( nXLeft, nY ), Point( nXRight, nY ) ); + + pPrinter->SetPen( aOldPen ); + pPrinter->SetFont( aOldFont ); + pPrinter->SetFillInBrush( aOldBrush ); +} + +//---------------------------------------------------------------------------- + +void VCDlgEditor::PrintData( Printer* pPrinter, const String& rTitle ) +{ + if( pSdrView ) + { + MapMode aOldMap( pPrinter->GetMapMode()); + Font aOldFont( pPrinter->GetFont() ); + + MapMode aMap( MAP_100TH_MM ); + pPrinter->SetMapMode( aMap ); + Font aFont; +#ifdef OS2 + aFont.SetName( System::GetStandardFont( STDFONT_SWISS ).GetName() ); +#endif + aFont.SetAlign( ALIGN_BOTTOM ); + aFont.SetSize( Size( 0, 360 )); + pPrinter->SetFont( aFont ); + + Size aPaperSz = pPrinter->GetOutputSize(); + aPaperSz.Width() -= (LMARGPRN+RMARGPRN); + aPaperSz.Height() -= (TMARGPRN+BMARGPRN); + + pPrinter->StartPage(); + + lcl_PrintHeader( pPrinter, rTitle ); + + Bitmap aDlg; +#ifdef OS2 + Bitmap* pDlg = new Bitmap; + //pSbxForm->SnapShot( *pDlg ); + SvMemoryStream* pStrm = new SvMemoryStream; + *pStrm << *pDlg; + delete pDlg; + pStrm->Seek(0); + *pStrm >> aDlg; + delete pStrm; +#else + //pSbxForm->SnapShot( aDlg ); +#endif + Size aBmpSz( pPrinter->PixelToLogic( aDlg.GetSizePixel() ) ); + double nPaperSzWidth = aPaperSz.Width(); + double nPaperSzHeight = aPaperSz.Height(); + double nBmpSzWidth = aBmpSz.Width(); + double nBmpSzHeight = aBmpSz.Height(); + double nScaleX = (nPaperSzWidth / nBmpSzWidth ); + double nScaleY = (nPaperSzHeight / nBmpSzHeight ); + + Size aOutputSz; + if( nBmpSzHeight * nScaleX <= nPaperSzHeight ) + { + aOutputSz.Width() = (long)(((double)nBmpSzWidth) * nScaleX); + aOutputSz.Height() = (long)(((double)nBmpSzHeight) * nScaleX); + } + else + { + aOutputSz.Width() = (long)(((double)nBmpSzWidth) * nScaleY); + aOutputSz.Height() = (long)(((double)nBmpSzHeight) * nScaleY); + } + + Point aPosOffs( + (aPaperSz.Width() / 2) - (aOutputSz.Width() / 2), + (aPaperSz.Height()/ 2) - (aOutputSz.Height() / 2)); + + aPosOffs.X() += LMARGPRN; + aPosOffs.Y() += TMARGPRN; + + pPrinter->DrawBitmap( aPosOffs, aOutputSz, aDlg ); + + pPrinter->EndPage(); + + pPrinter->SetMapMode( aOldMap ); + pPrinter->SetFont( aOldFont ); + } +} + +//---------------------------------------------------------------------------- |