?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Update ooo320-m1
[ooovba.git] / basctl / source / dlged / dlged.cxx
blobd8578a636ef9faa3f8de262ca270867afb935339
1 /*************************************************************************
2 *
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * Copyright 2008 by Sun Microsystems, Inc.
6 *
7 * OpenOffice.org - a multi-platform office productivity suite
8 *
9 * $RCSfile: dlged.cxx,v $
10 * $Revision: 1.54 $
11 *
12 * This file is part of OpenOffice.org.
13 *
14 * OpenOffice.org is free software: you can redistribute it and/or modify
15 * it under the terms of the GNU Lesser General Public License version 3
16 * only, as published by the Free Software Foundation.
17 *
18 * OpenOffice.org is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 * GNU Lesser General Public License version 3 for more details
22 * (a copy is included in the LICENSE file that accompanied this code).
23 *
24 * You should have received a copy of the GNU Lesser General Public License
25 * version 3 along with OpenOffice.org. If not, see
26 * <http://www.openoffice.org/license.html>
27 * for a copy of the LGPLv3 License.
28 *
29 ************************************************************************/
30
31 // MARKER(update_precomp.py): autogen include statement, do not remove
32 #include "precompiled_basctl.hxx"
33 #include "dlged.hxx"
34 #include "dlgedfunc.hxx"
35 #include "dlgedfac.hxx"
36 #include <dlgedmod.hxx>
37 #include "dlgedpage.hxx"
38 #include "dlgedview.hxx"
39 #include "dlgedobj.hxx"
40 #include "dlgedclip.hxx"
41 #include <dlgeddef.hxx>
42 #include "propbrw.hxx"
43 #include <localizationmgr.hxx>
44
45 #include <basidesh.hxx>
46 #include <iderdll.hxx>
47 #include <vcl/scrbar.hxx>
48 #include <tools/shl.hxx>
49 #include <svtools/itempool.hxx>
50 #include <sfx2/viewfrm.hxx>
51
52 #ifndef _SVX_SVXIDS_HRC
53 #include <svx/svxids.hrc>
54 #endif
55 #include <svx/svdpagv.hxx>
56 #include <xmlscript/xml_helper.hxx>
57 #include <xmlscript/xmldlg_imexp.hxx>
58 #include <com/sun/star/beans/PropertyValue.hpp>
59 #include <com/sun/star/beans/XPropertySet.hpp>
60 #include <com/sun/star/beans/Property.hpp>
61 #include <com/sun/star/awt/XDialog.hpp>
62 #include <com/sun/star/util/XCloneable.hpp>
63 #include <com/sun/star/resource/XStringResourcePersistence.hpp>
64 #include <comphelper/processfactory.hxx>
65 #include <comphelper/types.hxx>
66 #include <vcl/svapp.hxx>
67 #include <toolkit/helper/vclunohelper.hxx>
68
69 // #i74769#
70 #include <svx/sdrpaintwindow.hxx>
71
72 using namespace comphelper;
73 using namespace ::com::sun::star;
74 using namespace ::com::sun::star::uno;
75 using namespace ::com::sun::star::beans;
76 using namespace ::com::sun::star::io;
77 using ::rtl::OUString;
78
79 static ::rtl::OUString aResourceResolverPropName =
80 ::rtl::OUString::createFromAscii( "ResourceResolver" );
81 static ::rtl::OUString aDecorationPropName =
82 ::rtl::OUString::createFromAscii( "Decoration" );
83 static ::rtl::OUString aTitlePropName =
84 ::rtl::OUString::createFromAscii( "Title" );
85
86
87 //============================================================================
88 // DlgEdHint
89 //============================================================================
90
91 TYPEINIT1( DlgEdHint, SfxHint );
92
93 //----------------------------------------------------------------------------
94
95 DlgEdHint::DlgEdHint( DlgEdHintKind eHint )
96 :eHintKind( eHint )
97 {
98 }
99
100 //----------------------------------------------------------------------------
101
102 DlgEdHint::DlgEdHint( DlgEdHintKind eHint, DlgEdObj* pObj )
103 :eHintKind( eHint )
104 ,pDlgEdObj( pObj )
105 {
106 }
107
108 //----------------------------------------------------------------------------
109
110 DlgEdHint::~DlgEdHint()
111 {
112 }
113
114
115 //============================================================================
116 // DlgEditor
117 //============================================================================
118
119 void DlgEditor::ShowDialog()
120 {
121 uno::Reference< lang::XMultiServiceFactory > xMSF = getProcessServiceFactory();
122
123 // create a dialog
124 uno::Reference< awt::XControl > xDlg( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialog" ) ) ), uno::UNO_QUERY );
125
126 // clone the dialog model
127 uno::Reference< util::XCloneable > xC( m_xUnoControlDialogModel, uno::UNO_QUERY );
128 uno::Reference< util::XCloneable > xNew = xC->createClone();
129 uno::Reference< awt::XControlModel > xDlgMod( xNew, uno::UNO_QUERY );
130
131 uno::Reference< beans::XPropertySet > xSrcDlgModPropSet( m_xUnoControlDialogModel, uno::UNO_QUERY );
132 uno::Reference< beans::XPropertySet > xNewDlgModPropSet( xDlgMod, uno::UNO_QUERY );
133 if( xNewDlgModPropSet.is() )
134 {
135 if( xSrcDlgModPropSet.is() )
136 {
137 try
138 {
139 Any aResourceResolver = xSrcDlgModPropSet->getPropertyValue( aResourceResolverPropName );
140 xNewDlgModPropSet->setPropertyValue( aResourceResolverPropName, aResourceResolver );
141 }
142 catch( UnknownPropertyException& )
143 {
144 DBG_ERROR( "DlgEditor::ShowDialog(): No ResourceResolver property" );
145 }
146 }
147
148 // Disable decoration
149 bool bDecoration = true;
150 try
151 {
152 Any aDecorationAny = xSrcDlgModPropSet->getPropertyValue( aDecorationPropName );
153 aDecorationAny >>= bDecoration;
154 if( !bDecoration )
155 {
156 xNewDlgModPropSet->setPropertyValue( aDecorationPropName, makeAny( true ) );
157 xNewDlgModPropSet->setPropertyValue( aTitlePropName, makeAny( ::rtl::OUString() ) );
158 }
159 }
160 catch( UnknownPropertyException& )
161 {}
162 }
163
164 // set the model
165 xDlg->setModel( xDlgMod );
166
167 // create a peer
168 uno::Reference< awt::XToolkit> xToolkit( xMSF->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.ExtToolkit" ) ) ), uno::UNO_QUERY );
169 xDlg->createPeer( xToolkit, pWindow->GetComponentInterface() );
170
171 uno::Reference< awt::XDialog > xD( xDlg, uno::UNO_QUERY );
172 xD->execute();
173
174 uno::Reference< lang::XComponent > xComponent(xDlg, uno::UNO_QUERY);
175 if (xComponent.is())
176 xComponent->dispose();
177 }
178
179 //----------------------------------------------------------------------------
180
181 BOOL DlgEditor::UnmarkDialog()
182 {
183 SdrObject* pDlgObj = pDlgEdModel->GetPage(0)->GetObj(0);
184 SdrPageView* pPgView = pDlgEdView->GetSdrPageView();
185
186 BOOL bWasMarked = pDlgEdView->IsObjMarked( pDlgObj );
187
188 if( bWasMarked )
189 pDlgEdView->MarkObj( pDlgObj, pPgView, TRUE );
190
191 return bWasMarked;
192 }
193
194 //----------------------------------------------------------------------------
195
196 BOOL DlgEditor::RemarkDialog()
197 {
198 SdrObject* pDlgObj = pDlgEdModel->GetPage(0)->GetObj(0);
199 SdrPageView* pPgView = pDlgEdView->GetSdrPageView();
200
201 BOOL bWasMarked = pDlgEdView->IsObjMarked( pDlgObj );
202
203 if( !bWasMarked )
204 pDlgEdView->MarkObj( pDlgObj, pPgView, FALSE );
205
206 return bWasMarked;
207 }
208
209 //----------------------------------------------------------------------------
210
211 DlgEditor::DlgEditor( const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& xModel )
212 :pHScroll(NULL)
213 ,pVScroll(NULL)
214 ,pDlgEdModel(NULL)
215 ,pDlgEdPage(NULL)
216 ,pDlgEdView(NULL)
217 ,pDlgEdForm(NULL)
218 ,m_xUnoControlDialogModel(NULL)
219 ,m_ClipboardDataFlavors(1)
220 ,m_ClipboardDataFlavorsResource(2)
221 ,pObjFac(NULL)
222 ,pWindow(NULL)
223 ,pFunc(NULL)
224 ,eMode( DLGED_SELECT )
225 ,eActObj( OBJ_DLG_PUSHBUTTON )
226 ,bFirstDraw(FALSE)
227 ,aGridSize( 100, 100 ) // 100TH_MM
228 ,bGridVisible(FALSE)
229 ,bGridSnap(TRUE)
230 ,bCreateOK(TRUE)
231 ,bDialogModelChanged(FALSE)
232 ,mnPaintGuard(0)
233 ,m_xDocument( xModel )
234 {
235 pDlgEdModel = new DlgEdModel();
236 pDlgEdModel->GetItemPool().FreezeIdRanges();
237 pDlgEdModel->SetScaleUnit( MAP_100TH_MM );
238
239 SdrLayerAdmin& rAdmin = pDlgEdModel->GetLayerAdmin();
240 rAdmin.NewLayer( rAdmin.GetControlLayerName() );
241 rAdmin.NewLayer( UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( "HiddenLayer" ) ) );
242
243 pDlgEdPage = new DlgEdPage( *pDlgEdModel );
244 pDlgEdModel->InsertPage( pDlgEdPage );
245
246 pObjFac = new DlgEdFactory();
247
248 pFunc = new DlgEdFuncSelect( this );
249
250 // set clipboard data flavors
251 m_ClipboardDataFlavors[0].MimeType = ::rtl::OUString::createFromAscii("application/vnd.sun.xml.dialog");
252 m_ClipboardDataFlavors[0].HumanPresentableName = ::rtl::OUString::createFromAscii("Dialog 6.0");
253 m_ClipboardDataFlavors[0].DataType = ::getCppuType( (const Sequence< sal_Int8 >*) 0 );
254
255 m_ClipboardDataFlavorsResource[0] = m_ClipboardDataFlavors[0];
256 m_ClipboardDataFlavorsResource[1].MimeType = ::rtl::OUString::createFromAscii("application/vnd.sun.xml.dialogwithresource");
257 m_ClipboardDataFlavorsResource[1].HumanPresentableName = ::rtl::OUString::createFromAscii("Dialog 8.0");
258 m_ClipboardDataFlavorsResource[1].DataType = ::getCppuType( (const Sequence< sal_Int8 >*) 0 );
259
260 aPaintTimer.SetTimeout( 1 );
261 aPaintTimer.SetTimeoutHdl( LINK( this, DlgEditor, PaintTimeout ) );
262
263 aMarkTimer.SetTimeout( 100 );
264 aMarkTimer.SetTimeoutHdl( LINK( this, DlgEditor, MarkTimeout ) );
265 }
266
267 //----------------------------------------------------------------------------
268
269 DlgEditor::~DlgEditor()
270 {
271 aPaintTimer.Stop();
272 aMarkTimer.Stop();
273
274 ::comphelper::disposeComponent( m_xControlContainer );
275
276 delete pObjFac;
277 delete pFunc;
278 delete pDlgEdView;
279 delete pDlgEdModel;
280 }
281
282 //----------------------------------------------------------------------------
283
284 Reference< awt::XControlContainer > DlgEditor::GetWindowControlContainer()
285 {
286 if ( !m_xControlContainer.is() && pWindow )
287 m_xControlContainer = VCLUnoHelper::CreateControlContainer( pWindow );
288 return m_xControlContainer;
289 }
290
291 //----------------------------------------------------------------------------
292
293 void DlgEditor::SetWindow( Window* pWindow_ )
294 {
295 DlgEditor::pWindow = pWindow_;
296 pWindow_->SetMapMode( MapMode( MAP_100TH_MM ) );
297 pDlgEdPage->SetSize( pWindow_->PixelToLogic( Size( DLGED_PAGE_WIDTH_MIN, DLGED_PAGE_HEIGHT_MIN ) ) );
298
299 pDlgEdView = new DlgEdView( pDlgEdModel, pWindow_, this );
300 pDlgEdView->ShowSdrPage(pDlgEdView->GetModel()->GetPage(0));
301 pDlgEdView->SetLayerVisible( UniString::CreateFromAscii( RTL_CONSTASCII_STRINGPARAM( "HiddenLayer" ) ), FALSE );
302 pDlgEdView->SetMoveSnapOnlyTopLeft( TRUE );
303 pDlgEdView->SetWorkArea( Rectangle( Point( 0, 0 ), pDlgEdPage->GetSize() ) );
304
305 pDlgEdView->SetGridCoarse( aGridSize );
306 pDlgEdView->SetSnapGridWidth(Fraction(aGridSize.Width(), 1), Fraction(aGridSize.Height(), 1));
307 pDlgEdView->SetGridSnap( bGridSnap );
308 pDlgEdView->SetGridVisible( bGridVisible );
309 pDlgEdView->SetDragStripes( FALSE );
310
311 pDlgEdView->SetDesignMode( TRUE );
312
313 ::comphelper::disposeComponent( m_xControlContainer );
314 }
315
316 //----------------------------------------------------------------------------
317
318 void DlgEditor::SetScrollBars( ScrollBar* pHS, ScrollBar* pVS )
319 {
320 pHScroll = pHS;
321 pVScroll = pVS;
322
323 InitScrollBars();
324 }
325
326 //----------------------------------------------------------------------------
327
328 void DlgEditor::InitScrollBars()
329 {
330 DBG_ASSERT( pHScroll, "DlgEditor::InitScrollBars: no horizontal scroll bar!" );
331 DBG_ASSERT( pVScroll, "DlgEditor::InitScrollBars: no vertical scroll bar!" );
332 if ( !pHScroll || !pVScroll )
333 return;
334
335 Size aOutSize = pWindow->GetOutputSize();
336 Size aPgSize = pDlgEdPage->GetSize();
337
338 pHScroll->SetRange( Range( 0, aPgSize.Width() ));
339 pVScroll->SetRange( Range( 0, aPgSize.Height() ));
340 pHScroll->SetVisibleSize( (ULONG)aOutSize.Width() );
341 pVScroll->SetVisibleSize( (ULONG)aOutSize.Height() );
342
343 pHScroll->SetLineSize( aOutSize.Width() / 10 );
344 pVScroll->SetLineSize( aOutSize.Height() / 10 );
345 pHScroll->SetPageSize( aOutSize.Width() / 2 );
346 pVScroll->SetPageSize( aOutSize.Height() / 2 );
347
348 DoScroll( pHScroll );
349 DoScroll( pVScroll );
350 }
351
352 //----------------------------------------------------------------------------
353
354 void DlgEditor::DoScroll( ScrollBar* )
355 {
356 if( !pHScroll || !pVScroll )
357 return;
358
359 MapMode aMap = pWindow->GetMapMode();
360 Point aOrg = aMap.GetOrigin();
361
362 Size aScrollPos( pHScroll->GetThumbPos(), pVScroll->GetThumbPos() );
363 aScrollPos = pWindow->LogicToPixel( aScrollPos );
364 aScrollPos = pWindow->PixelToLogic( aScrollPos );
365
366 long nX = aScrollPos.Width() + aOrg.X();
367 long nY = aScrollPos.Height() + aOrg.Y();
368
369 if( !nX && !nY )
370 return;
371
372 pWindow->Update();
373
374 // #i31562#
375 // When scrolling, someone was rescuing the Wallpaper and forced the window scroll to
376 // be done without background refresh. I do not know why, but that causes the repaint
377 // problems. Taking that out.
378 // Wallpaper aOldBackground = pWindow->GetBackground();
379 // pWindow->SetBackground();
380
381 // #i74769# children should be scrolled
382 pWindow->Scroll( -nX, -nY, SCROLL_CHILDREN); // SCROLL_NOCHILDREN );
383 aMap.SetOrigin( Point( -aScrollPos.Width(), -aScrollPos.Height() ) );
384 pWindow->SetMapMode( aMap );
385 pWindow->Update();
386
387 // pWindow->SetBackground( aOldBackground );
388
389 DlgEdHint aHint( DLGED_HINT_WINDOWSCROLLED );
390 Broadcast( aHint );
391 }
392
393 //----------------------------------------------------------------------------
394
395 void DlgEditor::UpdateScrollBars()
396 {
397 MapMode aMap = pWindow->GetMapMode();
398 Point aOrg = aMap.GetOrigin();
399
400 if ( pHScroll )
401 pHScroll->SetThumbPos( -aOrg.X() );
402
403 if ( pVScroll )
404 pVScroll->SetThumbPos( -aOrg.Y() );
405 }
406
407 //----------------------------------------------------------------------------
408
409 void DlgEditor::SetDialog( uno::Reference< container::XNameContainer > xUnoControlDialogModel )
410 {
411 // set dialog model
412 m_xUnoControlDialogModel = xUnoControlDialogModel;
413
414 // create dialog form
415 pDlgEdForm = new DlgEdForm();
416 uno::Reference< awt::XControlModel > xDlgMod( m_xUnoControlDialogModel , uno::UNO_QUERY );
417 pDlgEdForm->SetUnoControlModel(xDlgMod);
418 pDlgEdForm->SetDlgEditor( this );
419 ((DlgEdPage*)pDlgEdModel->GetPage(0))->SetDlgEdForm( pDlgEdForm );
420 pDlgEdModel->GetPage(0)->InsertObject( pDlgEdForm );
421 AdjustPageSize();
422 pDlgEdForm->SetRectFromProps();
423 pDlgEdForm->UpdateTabIndices(); // for backward compatibility
424 pDlgEdForm->StartListening();
425
426 // create controls
427 Reference< ::com::sun::star::container::XNameAccess > xNameAcc( m_xUnoControlDialogModel, UNO_QUERY );
428 if ( xNameAcc.is() )
429 {
430 // get sequence of control names
431 Sequence< ::rtl::OUString > aNames = xNameAcc->getElementNames();
432 const ::rtl::OUString* pNames = aNames.getConstArray();
433 sal_Int32 nCtrls = aNames.getLength();
434
435 // create a map of tab indices and control names, sorted by tab index
436 IndexToNameMap aIndexToNameMap;
437 for ( sal_Int32 i = 0; i < nCtrls; ++i )
438 {
439 // get name
440 ::rtl::OUString aName( pNames[i] );
441
442 // get tab index
443 sal_Int16 nTabIndex = -1;
444 Any aCtrl = xNameAcc->getByName( aName );
445 Reference< ::com::sun::star::beans::XPropertySet > xPSet;
446 aCtrl >>= xPSet;
447 if ( xPSet.is() )
448 xPSet->getPropertyValue( DLGED_PROP_TABINDEX ) >>= nTabIndex;
449
450 // insert into map
451 aIndexToNameMap.insert( IndexToNameMap::value_type( nTabIndex, aName ) );
452 }
453
454 // create controls and insert them into drawing page
455 for ( IndexToNameMap::iterator aIt = aIndexToNameMap.begin(); aIt != aIndexToNameMap.end(); ++aIt )
456 {
457 Any aCtrl = xNameAcc->getByName( aIt->second );
458 Reference< ::com::sun::star::awt::XControlModel > xCtrlModel;
459 aCtrl >>= xCtrlModel;
460 DlgEdObj* pCtrlObj = new DlgEdObj();
461 pCtrlObj->SetUnoControlModel( xCtrlModel );
462 pCtrlObj->SetDlgEdForm( pDlgEdForm );
463 pDlgEdForm->AddChild( pCtrlObj );
464 pDlgEdModel->GetPage(0)->InsertObject( pCtrlObj );
465 pCtrlObj->SetRectFromProps();
466 pCtrlObj->UpdateStep();
467 pCtrlObj->StartListening();
468 }
469 }
470
471 bFirstDraw = TRUE;
472
473 pDlgEdModel->SetChanged( FALSE );
474 }
475
476 void DlgEditor::ResetDialog( void )
477 {
478 DlgEdForm* pOldDlgEdForm = pDlgEdForm;
479 DlgEdPage* pPage = (DlgEdPage*)pDlgEdModel->GetPage(0);
480 SdrPageView* pPgView = pDlgEdView->GetSdrPageView();
481 BOOL bWasMarked = pDlgEdView->IsObjMarked( pOldDlgEdForm );
482 pDlgEdView->UnmarkAll();
483 pPage->Clear();
484 pPage->SetDlgEdForm( NULL );
485 SetDialog( m_xUnoControlDialogModel );
486 if( bWasMarked )
487 pDlgEdView->MarkObj( pDlgEdForm, pPgView, FALSE );
488 }
489
490
491 //----------------------------------------------------------------------------
492
493 Reference< util::XNumberFormatsSupplier > const & DlgEditor::GetNumberFormatsSupplier()
494 {
495 if ( !m_xSupplier.is() )
496 {
497 Reference< lang::XMultiServiceFactory > xMSF = ::comphelper::getProcessServiceFactory();
498 Reference< util::XNumberFormatsSupplier > xSupplier( xMSF->createInstance(
499 ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.util.NumberFormatsSupplier") ) ), UNO_QUERY );
500
501 ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
502 if ( !m_xSupplier.is() )
503 {
504 m_xSupplier = xSupplier;
505 }
506 }
507 return m_xSupplier;
508 }
509
510 //----------------------------------------------------------------------------
511
512 void DlgEditor::MouseButtonDown( const MouseEvent& rMEvt )
513 {
514 if( pWindow )
515 pWindow->GrabFocus();
516 pFunc->MouseButtonDown( rMEvt );
517 }
518
519 //----------------------------------------------------------------------------
520
521 void DlgEditor::MouseButtonUp( const MouseEvent& rMEvt )
522 {
523 BOOL bRet = pFunc->MouseButtonUp( rMEvt );
524
525 if( (eMode == DLGED_INSERT) )
526 bCreateOK = bRet;
527 }
528
529 //----------------------------------------------------------------------------
530
531 void DlgEditor::MouseMove( const MouseEvent& rMEvt )
532 {
533 pFunc->MouseMove( rMEvt );
534 }
535
536 //----------------------------------------------------------------------------
537
538 BOOL DlgEditor::KeyInput( const KeyEvent& rKEvt )
539 {
540 return pFunc->KeyInput( rKEvt );
541 }
542
543 //----------------------------------------------------------------------------
544
545 void DlgEditor::Paint( const Rectangle& rRect )
546 {
547 aPaintRect = rRect;
548 PaintTimeout( &aPaintTimer );
549 }
550
551 //----------------------------------------------------------------------------
552
553 IMPL_LINK( DlgEditor, PaintTimeout, Timer *, EMPTYARG )
554 {
555 if( !pDlgEdView )
556 return 0;
557
558 mnPaintGuard++;
559
560 Size aMacSize;
561 if( bFirstDraw &&
562 pWindow->IsVisible() &&
563 (pWindow->GetOutputSize() != aMacSize) )
564 {
565 bFirstDraw = FALSE;
566
567 // get property set
568 ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet > xPSet(pDlgEdForm->GetUnoControlModel(), ::com::sun::star::uno::UNO_QUERY);
569
570 if ( xPSet.is() )
571 {
572 // get dialog size from properties
573 sal_Int32 nWidth = 0, nHeight = 0;
574 xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nWidth;
575 xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nHeight;
576
577 if ( nWidth == 0 && nHeight == 0 )
578 {
579 Size aSize = pWindow->PixelToLogic( Size( 400, 300 ) );
580
581 // align with grid
582 Size aGridSize_(long(pDlgEdView->GetSnapGridWidthX()), long(pDlgEdView->GetSnapGridWidthY()));
583 aSize.Width() -= aSize.Width() % aGridSize_.Width();
584 aSize.Height() -= aSize.Height() % aGridSize_.Height();
585
586 Point aPos;
587 Size aOutSize = pWindow->GetOutputSize();
588 aPos.X() = (aOutSize.Width()>>1) - (aSize.Width()>>1);
589 aPos.Y() = (aOutSize.Height()>>1) - (aSize.Height()>>1);
590
591 // align with grid
592 aPos.X() -= aPos.X() % aGridSize_.Width();
593 aPos.Y() -= aPos.Y() % aGridSize_.Height();
594
595 // don't put in the corner
596 Point aMinPos = pWindow->PixelToLogic( Point( 30, 20 ) );
597 if( (aPos.X() < aMinPos.X()) || (aPos.Y() < aMinPos.Y()) )
598 {
599 aPos = aMinPos;
600 aPos.X() -= aPos.X() % aGridSize_.Width();
601 aPos.Y() -= aPos.Y() % aGridSize_.Height();
602 }
603
604 // set dialog position and size
605 pDlgEdForm->SetSnapRect( Rectangle( aPos, aSize ) );
606 pDlgEdForm->EndListening(sal_False);
607 pDlgEdForm->SetPropsFromRect();
608 pDlgEdForm->GetDlgEditor()->SetDialogModelChanged(TRUE);
609 pDlgEdForm->StartListening();
610
611 // set position and size of controls
612 ULONG nObjCount;
613 if ( pDlgEdPage && ( ( nObjCount = pDlgEdPage->GetObjCount() ) > 0 ) )
614 {
615 for ( ULONG i = 0 ; i < nObjCount ; i++ )
616 {
617 SdrObject* pObj = pDlgEdPage->GetObj(i);
618 DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pObj);
619 if ( pDlgEdObj && !pDlgEdObj->ISA(DlgEdForm) )
620 pDlgEdObj->SetRectFromProps();
621 }
622 }
623 }
624 }
625 }
626
627 // repaint, get PageView and prepare Region
628 SdrPageView* pPgView = pDlgEdView->GetSdrPageView();
629 const Region aPaintRectRegion(aPaintRect);
630
631
632 // #i74769#
633 SdrPaintWindow* pTargetPaintWindow = 0;
634
635 // mark repaint start
636 if(pPgView)
637 {
638 pTargetPaintWindow = pPgView->GetView().BeginDrawLayers(pWindow, aPaintRectRegion);
639 OSL_ENSURE(pTargetPaintWindow, "BeginDrawLayers: Got no SdrPaintWindow (!)");
640 }
641
642 // draw background self using wallpaper
643 // #i79128# ...and use correct OutDev for that
644 if(pTargetPaintWindow)
645 {
646 OutputDevice& rTargetOutDev = pTargetPaintWindow->GetTargetOutputDevice();
647 rTargetOutDev.DrawWallpaper(aPaintRect, Wallpaper(Color(COL_WHITE)));
648 }
649
650 // do paint (unbuffered) and mark repaint end
651 if(pPgView)
652 {
653 // paint of control layer is done in EndDrawLayers anyway...
654 pPgView->GetView().EndDrawLayers(*pTargetPaintWindow, true);
655 }
656
657 mnPaintGuard--;
658
659 DBG_ASSERT(pWindow,"Window not set");
660 return 0;
661 }
662
663 //----------------------------------------------------------------------------
664
665 IMPL_LINK( DlgEditor, MarkTimeout, Timer *, EMPTYARG )
666 {
667 BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
668
669 SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
670 SfxChildWindow* pChildWin = pViewFrame ? pViewFrame->GetChildWindow( SID_SHOW_PROPERTYBROWSER ) : NULL;
671 if ( !pChildWin )
672 return 0L;
673
674 ((PropBrw*)(pChildWin->GetWindow()))->Update( pIDEShell );
675
676 return 1;
677 }
678
679 //----------------------------------------------------------------------------
680
681 void DlgEditor::SetMode( DlgEdMode eNewMode )
682 {
683 if ( eNewMode != eMode )
684 {
685 delete pFunc;
686
687 if ( eNewMode == DLGED_INSERT )
688 pFunc = new DlgEdFuncInsert( this );
689 else
690 pFunc = new DlgEdFuncSelect( this );
691
692 if ( eNewMode == DLGED_READONLY )
693 pDlgEdModel->SetReadOnly( TRUE );
694 else
695 pDlgEdModel->SetReadOnly( FALSE );
696 }
697
698 if ( eNewMode == DLGED_TEST )
699 ShowDialog();
700
701 eMode = eNewMode;
702 }
703
704 //----------------------------------------------------------------------------
705
706 void DlgEditor::SetInsertObj( USHORT eObj )
707 {
708 eActObj = eObj;
709
710 if( pDlgEdView )
711 pDlgEdView->SetCurrentObj( eActObj, DlgInventor );
712 }
713
714 //----------------------------------------------------------------------------
715
716 USHORT DlgEditor::GetInsertObj() const
717 {
718 return eActObj;
719 }
720
721 //----------------------------------------------------------------------------
722
723 void DlgEditor::CreateDefaultObject()
724 {
725 // create object by factory
726 SdrObject* pObj = SdrObjFactory::MakeNewObject( pDlgEdView->GetCurrentObjInventor(), pDlgEdView->GetCurrentObjIdentifier(), pDlgEdPage );
727
728 DlgEdObj* pDlgEdObj = PTR_CAST( DlgEdObj, pObj );
729 if ( pDlgEdObj )
730 {
731 // set position and size
732 Size aSize = pWindow->PixelToLogic( Size( 96, 24 ) );
733 Point aPoint = (pDlgEdForm->GetSnapRect()).Center();
734 aPoint.X() -= aSize.Width() / 2;
735 aPoint.Y() -= aSize.Height() / 2;
736 pDlgEdObj->SetSnapRect( Rectangle( aPoint, aSize ) );
737
738 // set default property values
739 pDlgEdObj->SetDefaults();
740
741 // insert object into drawing page
742 SdrPageView* pPageView = pDlgEdView->GetSdrPageView();
743 pDlgEdView->InsertObjectAtView( pDlgEdObj, *pPageView);
744
745 // start listening
746 pDlgEdObj->StartListening();
747 }
748 }
749
750 //----------------------------------------------------------------------------
751
752 void DlgEditor::Cut()
753 {
754 Copy();
755 Delete();
756 }
757
758 //----------------------------------------------------------------------------
759
760 void implCopyStreamToByteSequence( Reference< XInputStream > xStream,
761 Sequence< sal_Int8 >& bytes )
762 {
763 sal_Int32 nRead = xStream->readBytes( bytes, xStream->available() );
764 for (;;)
765 {
766 Sequence< sal_Int8 > readBytes;
767 nRead = xStream->readBytes( readBytes, 1024 );
768 if (! nRead)
769 break;
770
771 sal_Int32 nPos = bytes.getLength();
772 bytes.realloc( nPos + nRead );
773 ::rtl_copyMemory( bytes.getArray() + nPos, readBytes.getConstArray(), (sal_uInt32)nRead );
774 }
775 }
776
777 void DlgEditor::Copy()
778 {
779 if( !pDlgEdView->AreObjectsMarked() )
780 return;
781
782 // stop all drawing actions
783 pDlgEdView->BrkAction();
784
785 // create an empty clipboard dialog model
786 Reference< util::XCloneable > xClone( m_xUnoControlDialogModel, UNO_QUERY );
787 Reference< util::XCloneable > xNewClone = xClone->createClone();
788 Reference< container::XNameContainer > xClipDialogModel( xNewClone, UNO_QUERY );
789
790 Reference< container::XNameAccess > xNAcc( xClipDialogModel, UNO_QUERY );
791 if ( xNAcc.is() )
792 {
793 Sequence< OUString > aNames = xNAcc->getElementNames();
794 const OUString* pNames = aNames.getConstArray();
795 sal_uInt32 nCtrls = aNames.getLength();
796
797 for ( sal_uInt32 n = 0; n < nCtrls; n++ )
798 {
799 xClipDialogModel->removeByName( pNames[n] );
800 }
801 }
802
803 // insert control models of marked objects into clipboard dialog model
804 ULONG nMark = pDlgEdView->GetMarkedObjectList().GetMarkCount();
805 for( ULONG i = 0; i < nMark; i++ )
806 {
807 SdrObject* pObj = pDlgEdView->GetMarkedObjectList().GetMark(i)->GetMarkedSdrObj();
808 DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pObj);
809
810 if (pDlgEdObj && !pDlgEdObj->ISA(DlgEdForm) )
811 {
812 ::rtl::OUString aName;
813 Reference< beans::XPropertySet > xMarkPSet(pDlgEdObj->GetUnoControlModel(), uno::UNO_QUERY);
814 if (xMarkPSet.is())
815 {
816 xMarkPSet->getPropertyValue( DLGED_PROP_NAME ) >>= aName;
817 }
818
819 Reference< container::XNameAccess > xNameAcc(m_xUnoControlDialogModel, UNO_QUERY );
820 if ( xNameAcc.is() && xNameAcc->hasByName(aName) )
821 {
822 Any aCtrl = xNameAcc->getByName( aName );
823
824 // clone control model
825 Reference< util::XCloneable > xCtrl;
826 aCtrl >>= xCtrl;
827 Reference< util::XCloneable > xNewCtrl = xCtrl->createClone();
828 Any aNewCtrl;
829 aNewCtrl <<= xNewCtrl;
830
831 if (xClipDialogModel.is())
832 xClipDialogModel->insertByName( aName , aNewCtrl );
833 }
834 }
835 }
836
837 // export clipboard dialog model to xml
838 Reference< XComponentContext > xContext;
839 Reference< beans::XPropertySet > xProps( ::comphelper::getProcessServiceFactory(), UNO_QUERY );
840 OSL_ASSERT( xProps.is() );
841 OSL_VERIFY( xProps->getPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext );
842 Reference< XInputStreamProvider > xISP = ::xmlscript::exportDialogModel( xClipDialogModel, xContext, m_xDocument );
843 Reference< XInputStream > xStream( xISP->createInputStream() );
844 Sequence< sal_Int8 > DialogModelBytes;
845 implCopyStreamToByteSequence( xStream, DialogModelBytes );
846 xStream->closeInput();
847
848 // set clipboard content
849 Reference< datatransfer::clipboard::XClipboard > xClipboard = GetWindow()->GetClipboard();
850 if ( xClipboard.is() )
851 {
852 // With resource?
853 uno::Reference< beans::XPropertySet > xDialogModelPropSet( m_xUnoControlDialogModel, uno::UNO_QUERY );
854 uno::Reference< resource::XStringResourcePersistence > xStringResourcePersistence;
855 if( xDialogModelPropSet.is() )
856 {
857 try
858 {
859 Any aResourceResolver = xDialogModelPropSet->getPropertyValue( aResourceResolverPropName );
860 aResourceResolver >>= xStringResourcePersistence;
861 }
862 catch( UnknownPropertyException& )
863 {}
864 }
865
866 DlgEdTransferableImpl* pTrans = NULL;
867 if( xStringResourcePersistence.is() )
868 {
869 // With resource, support old and new format
870
871 // Export xClipDialogModel another time with ids replaced by current language string
872 uno::Reference< resource::XStringResourceManager >
873 xStringResourceManager( xStringResourcePersistence, uno::UNO_QUERY );
874 LocalizationMgr::resetResourceForDialog( xClipDialogModel, xStringResourceManager );
875 Reference< XInputStreamProvider > xISP2 = ::xmlscript::exportDialogModel( xClipDialogModel, xContext, m_xDocument );
876 Reference< XInputStream > xStream2( xISP2->createInputStream() );
877 Sequence< sal_Int8 > NoResourceDialogModelBytes;
878 implCopyStreamToByteSequence( xStream2, NoResourceDialogModelBytes );
879 xStream2->closeInput();
880
881 // Old format contains dialog with replaced ids
882 Sequence< Any > aSeqData(2);
883 Any aNoResourceDialogModelBytesAny;
884 aNoResourceDialogModelBytesAny <<= NoResourceDialogModelBytes;
885 aSeqData[0] = aNoResourceDialogModelBytesAny;
886
887 // New format contains dialog and resource
888 Sequence< sal_Int8 > aResData = xStringResourcePersistence->exportBinary();
889
890 // Create sequence for combined dialog and resource
891 sal_Int32 nDialogDataLen = DialogModelBytes.getLength();
892 sal_Int32 nResDataLen = aResData.getLength();
893
894 // Combined data = 4 Bytes 32Bit Offset to begin of resource data, lowest byte first
895 // + nDialogDataLen bytes dialog data + nResDataLen resource data
896 sal_Int32 nTotalLen = 4 + nDialogDataLen + nResDataLen;
897 sal_Int32 nResOffset = 4 + nDialogDataLen;
898 Sequence< sal_Int8 > aCombinedData( nTotalLen );
899 sal_Int8* pCombinedData = aCombinedData.getArray();
900
901 // Write offset
902 sal_Int32 n = nResOffset;
903 for( sal_Int16 i = 0 ; i < 4 ; i++ )
904 {
905 pCombinedData[i] = sal_Int8( n & 0xff );
906 n >>= 8;
907 }
908 ::rtl_copyMemory( pCombinedData + 4, DialogModelBytes.getConstArray(), nDialogDataLen );
909 ::rtl_copyMemory( pCombinedData + nResOffset, aResData.getConstArray(), nResDataLen );
910
911 Any aCombinedDataAny;
912 aCombinedDataAny <<= aCombinedData;
913 aSeqData[1] = aCombinedDataAny;
914
915 pTrans = new DlgEdTransferableImpl( m_ClipboardDataFlavorsResource, aSeqData );
916 }
917 else
918 {
919 // No resource, support only old format
920 Sequence< Any > aSeqData(1);
921 Any aDialogModelBytesAny;
922 aDialogModelBytesAny <<= DialogModelBytes;
923 aSeqData[0] = aDialogModelBytesAny;
924 pTrans = new DlgEdTransferableImpl( m_ClipboardDataFlavors , aSeqData );
925 }
926 const sal_uInt32 nRef = Application::ReleaseSolarMutex();
927 xClipboard->setContents( pTrans , pTrans );
928 Application::AcquireSolarMutex( nRef );
929 }
930 }
931
932 //----------------------------------------------------------------------------
933
934 void DlgEditor::Paste()
935 {
936 // stop all drawing actions
937 pDlgEdView->BrkAction();
938
939 // unmark all objects
940 pDlgEdView->UnmarkAll();
941
942 // get clipboard
943 Reference< datatransfer::clipboard::XClipboard > xClipboard = GetWindow()->GetClipboard();
944 if ( xClipboard.is() )
945 {
946 // get clipboard content
947 const sal_uInt32 nRef = Application::ReleaseSolarMutex();
948 Reference< datatransfer::XTransferable > xTransf = xClipboard->getContents();
949 Application::AcquireSolarMutex( nRef );
950 if ( xTransf.is() )
951 {
952 // Is target dialog (library) localized?
953 uno::Reference< beans::XPropertySet > xDialogModelPropSet( m_xUnoControlDialogModel, uno::UNO_QUERY );
954 uno::Reference< resource::XStringResourceManager > xStringResourceManager;
955 if( xDialogModelPropSet.is() )
956 {
957 try
958 {
959 Any aResourceResolver = xDialogModelPropSet->getPropertyValue( aResourceResolverPropName );
960 aResourceResolver >>= xStringResourceManager;
961 }
962 catch( UnknownPropertyException& )
963 {}
964 }
965 bool bLocalized = false;
966 if( xStringResourceManager.is() )
967 bLocalized = ( xStringResourceManager->getLocales().getLength() > 0 );
968
969 if ( xTransf->isDataFlavorSupported( m_ClipboardDataFlavors[0] ) )
970 {
971 // create clipboard dialog model from xml
972 Reference< lang::XMultiServiceFactory > xMSF = getProcessServiceFactory();
973 Reference< container::XNameContainer > xClipDialogModel( xMSF->createInstance
974 ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ),
975 uno::UNO_QUERY );
976
977 bool bSourceIsLocalized = false;
978 Sequence< sal_Int8 > DialogModelBytes;
979 Sequence< sal_Int8 > aResData;
980 if( bLocalized && xTransf->isDataFlavorSupported( m_ClipboardDataFlavorsResource[1] ) )
981 {
982 bSourceIsLocalized = true;
983
984 Any aCombinedDataAny = xTransf->getTransferData( m_ClipboardDataFlavorsResource[1] );
985 Sequence< sal_Int8 > aCombinedData;
986 aCombinedDataAny >>= aCombinedData;
987 const sal_Int8* pCombinedData = aCombinedData.getConstArray();
988
989 sal_Int32 nTotalLen = aCombinedData.getLength();
990
991 // Reading offset
992 sal_Int32 nResOffset = 0;
993 sal_Int32 nFactor = 1;
994 for( sal_Int16 i = 0; i < 4; i++ )
995 {
996 nResOffset += nFactor * sal_uInt8( pCombinedData[i] );
997 nFactor *= 256;
998 }
999
1000 sal_Int32 nResDataLen = nTotalLen - nResOffset;
1001 sal_Int32 nDialogDataLen = nTotalLen - nResDataLen - 4;
1002
1003 DialogModelBytes.realloc( nDialogDataLen );
1004 ::rtl_copyMemory( DialogModelBytes.getArray(), pCombinedData + 4, nDialogDataLen );
1005
1006 aResData.realloc( nResDataLen );
1007 ::rtl_copyMemory( aResData.getArray(), pCombinedData + nResOffset, nResDataLen );
1008 }
1009 else
1010 {
1011 Any aAny = xTransf->getTransferData( m_ClipboardDataFlavors[0] );
1012 aAny >>= DialogModelBytes;
1013 }
1014
1015 if ( xClipDialogModel.is() )
1016 {
1017 Reference< XComponentContext > xContext;
1018 Reference< beans::XPropertySet > xProps( xMSF, UNO_QUERY );
1019 OSL_ASSERT( xProps.is() );
1020 OSL_VERIFY( xProps->getPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext );
1021 ::xmlscript::importDialogModel( ::xmlscript::createInputStream( *((::rtl::ByteSequence*)(&DialogModelBytes)) ) , xClipDialogModel, xContext, m_xDocument );
1022 }
1023
1024 // get control models from clipboard dialog model
1025 Reference< ::com::sun::star::container::XNameAccess > xNameAcc( xClipDialogModel, UNO_QUERY );
1026 if ( xNameAcc.is() )
1027 {
1028 Sequence< OUString > aNames = xNameAcc->getElementNames();
1029 const OUString* pNames = aNames.getConstArray();
1030 sal_uInt32 nCtrls = aNames.getLength();
1031
1032 Reference< resource::XStringResourcePersistence > xStringResourcePersistence;
1033 if( nCtrls > 0 && bSourceIsLocalized )
1034 {
1035 Reference< lang::XMultiServiceFactory > xSMgr = getProcessServiceFactory();
1036 xStringResourcePersistence = Reference< resource::XStringResourcePersistence >( xSMgr->createInstance
1037 ( ::rtl::OUString::createFromAscii( "com.sun.star.resource.StringResource" ) ), UNO_QUERY );
1038 if( xStringResourcePersistence.is() )
1039 xStringResourcePersistence->importBinary( aResData );
1040 }
1041 for( sal_uInt32 n = 0; n < nCtrls; n++ )
1042 {
1043 Any aA = xNameAcc->getByName( pNames[n] );
1044 Reference< ::com::sun::star::awt::XControlModel > xCM;
1045 aA >>= xCM;
1046
1047 // clone the control model
1048 Reference< util::XCloneable > xClone( xCM, uno::UNO_QUERY );
1049 Reference< awt::XControlModel > xCtrlModel( xClone->createClone(), uno::UNO_QUERY );
1050
1051 DlgEdObj* pCtrlObj = new DlgEdObj();
1052 pCtrlObj->SetDlgEdForm(pDlgEdForm); // set parent form
1053 pDlgEdForm->AddChild(pCtrlObj); // add child to parent form
1054 pCtrlObj->SetUnoControlModel( xCtrlModel ); // set control model
1055
1056 // set new name
1057 ::rtl::OUString aOUniqueName( pCtrlObj->GetUniqueName() );
1058 Reference< beans::XPropertySet > xPSet( xCtrlModel , UNO_QUERY );
1059 Any aUniqueName;
1060 aUniqueName <<= aOUniqueName;
1061 xPSet->setPropertyValue( DLGED_PROP_NAME, aUniqueName );
1062
1063 // set tabindex
1064 Reference< container::XNameAccess > xNA( m_xUnoControlDialogModel , UNO_QUERY );
1065 Sequence< OUString > aNames_ = xNA->getElementNames();
1066 Any aTabIndex;
1067 aTabIndex <<= (sal_Int16) aNames_.getLength();
1068 xPSet->setPropertyValue( DLGED_PROP_TABINDEX, aTabIndex );
1069
1070 if( bLocalized )
1071 {
1072 Any aControlAny;
1073 aControlAny <<= xCtrlModel;
1074 if( bSourceIsLocalized && xStringResourcePersistence.is() )
1075 {
1076 Reference< resource::XStringResourceResolver >
1077 xSourceStringResolver( xStringResourcePersistence, UNO_QUERY );
1078 LocalizationMgr::copyResourcesForPastedEditorObject( this,
1079 aControlAny, aOUniqueName, xSourceStringResolver );
1080 }
1081 else
1082 {
1083 LocalizationMgr::setControlResourceIDsForNewEditorObject
1084 ( this, aControlAny, aOUniqueName );
1085 }
1086 }
1087
1088 // insert control model in editor dialog model
1089 Any aCtrlModel;
1090 aCtrlModel <<= xCtrlModel;
1091 m_xUnoControlDialogModel->insertByName( aOUniqueName , aCtrlModel );
1092
1093 // insert object into drawing page
1094 pDlgEdModel->GetPage(0)->InsertObject( pCtrlObj );
1095 pCtrlObj->SetRectFromProps();
1096 pCtrlObj->UpdateStep();
1097 pDlgEdForm->UpdateTabOrderAndGroups(); // #110559#
1098 pCtrlObj->StartListening(); // start listening
1099
1100 // mark object
1101 SdrPageView* pPgView = pDlgEdView->GetSdrPageView();
1102 pDlgEdView->MarkObj( pCtrlObj, pPgView, FALSE, TRUE);
1103 }
1104
1105 // center marked objects in dialog editor form
1106 Point aMarkCenter = (pDlgEdView->GetMarkedObjRect()).Center();
1107 Point aFormCenter = (pDlgEdForm->GetSnapRect()).Center();
1108 Point aPoint = aFormCenter - aMarkCenter;
1109 Size aSize( aPoint.X() , aPoint.Y() );
1110 pDlgEdView->MoveMarkedObj( aSize ); // update of control model properties (position + size) in NbcMove
1111 pDlgEdView->MarkListHasChanged();
1112
1113 // dialog model changed
1114 SetDialogModelChanged(TRUE);
1115 }
1116 }
1117 }
1118 }
1119 }
1120
1121 //----------------------------------------------------------------------------
1122
1123 void DlgEditor::Delete()
1124 {
1125 if( !pDlgEdView->AreObjectsMarked() )
1126 return;
1127
1128 // remove control models of marked objects from dialog model
1129 ULONG nMark = pDlgEdView->GetMarkedObjectList().GetMarkCount();
1130
1131 for( ULONG i = 0; i < nMark; i++ )
1132 {
1133 SdrObject* pObj = pDlgEdView->GetMarkedObjectList().GetMark(i)->GetMarkedSdrObj();
1134 DlgEdObj* pDlgEdObj = PTR_CAST(DlgEdObj, pObj);
1135
1136 if ( pDlgEdObj && !pDlgEdObj->ISA(DlgEdForm) )
1137 {
1138 // get name from property
1139 ::rtl::OUString aName;
1140 uno::Reference< beans::XPropertySet > xPSet(pDlgEdObj->GetUnoControlModel(), uno::UNO_QUERY);
1141 if (xPSet.is())
1142 {
1143 xPSet->getPropertyValue( DLGED_PROP_NAME ) >>= aName;
1144 }
1145
1146 // remove control from dialog model
1147 Reference< ::com::sun::star::container::XNameAccess > xNameAcc(pDlgEdObj->GetDlgEdForm()->GetUnoControlModel(), UNO_QUERY );
1148 if ( xNameAcc.is() && xNameAcc->hasByName(aName) )
1149 {
1150 Reference< ::com::sun::star::container::XNameContainer > xCont(xNameAcc, UNO_QUERY );
1151 if ( xCont.is() )
1152 {
1153 if( xCont->hasByName( aName ) )
1154 {
1155 Any aAny = xCont->getByName( aName );
1156 LocalizationMgr::deleteControlResourceIDsForDeletedEditorObject( this, aAny, aName );
1157 }
1158 xCont->removeByName( aName );
1159 }
1160 }
1161
1162 // remove child from parent form
1163 pDlgEdForm->RemoveChild( pDlgEdObj );
1164 }
1165 }
1166
1167 // update tab indices
1168 pDlgEdForm->UpdateTabIndices();
1169
1170 pDlgEdView->BrkAction();
1171
1172 BOOL bDlgMarked = UnmarkDialog();
1173 pDlgEdView->DeleteMarked();
1174 if( bDlgMarked )
1175 RemarkDialog();
1176 }
1177
1178 //----------------------------------------------------------------------------
1179
1180 BOOL DlgEditor::IsPasteAllowed()
1181 {
1182 BOOL bPaste = FALSE;
1183
1184 // get clipboard
1185 Reference< datatransfer::clipboard::XClipboard > xClipboard = GetWindow()->GetClipboard();
1186 if ( xClipboard.is() )
1187 {
1188 // get clipboard content
1189 const sal_uInt32 nRef = Application::ReleaseSolarMutex();
1190 Reference< datatransfer::XTransferable > xTransf = xClipboard->getContents();
1191 Application::AcquireSolarMutex( nRef );
1192 if ( xTransf.is() )
1193 {
1194 if ( xTransf->isDataFlavorSupported( m_ClipboardDataFlavors[0] ) )
1195 {
1196 bPaste = TRUE;
1197 }
1198 }
1199 }
1200
1201 return bPaste;
1202 }
1203
1204 //----------------------------------------------------------------------------
1205
1206 void DlgEditor::ShowProperties()
1207 {
1208 BasicIDEShell* pIDEShell = IDE_DLL()->GetShell();
1209 SfxViewFrame* pViewFrame = pIDEShell ? pIDEShell->GetViewFrame() : NULL;
1210 if ( pViewFrame && !pViewFrame->HasChildWindow( SID_SHOW_PROPERTYBROWSER ) )
1211 pViewFrame->ToggleChildWindow( SID_SHOW_PROPERTYBROWSER );
1212 }
1213
1214 //----------------------------------------------------------------------------
1215
1216 void DlgEditor::UpdatePropertyBrowserDelayed()
1217 {
1218 aMarkTimer.Start();
1219 }
1220
1221 //----------------------------------------------------------------------------
1222
1223 BOOL DlgEditor::IsModified() const
1224 {
1225 return pDlgEdModel->IsChanged() || bDialogModelChanged;
1226 }
1227
1228 //----------------------------------------------------------------------------
1229
1230 void DlgEditor::ClearModifyFlag()
1231 {
1232 pDlgEdModel->SetChanged( FALSE );
1233 bDialogModelChanged = FALSE;
1234 }
1235
1236 //----------------------------------------------------------------------------
1237
1238 #define LMARGPRN 1700
1239 #define RMARGPRN 900
1240 #define TMARGPRN 2000
1241 #define BMARGPRN 1000
1242 #define BORDERPRN 300
1243
1244 //----------------------------------------------------------------------------
1245
1246 void lcl_PrintHeader( Printer* pPrinter, const String& rTitle ) // not working yet
1247 {
1248 pPrinter->Push();
1249
1250 short nLeftMargin = LMARGPRN;
1251 Size aSz = pPrinter->GetOutputSize();
1252 short nBorder = BORDERPRN;
1253
1254 pPrinter->SetLineColor( COL_BLACK );
1255 pPrinter->SetFillColor();
1256
1257 Font aFont( pPrinter->GetFont() );
1258 aFont.SetWeight( WEIGHT_BOLD );
1259 aFont.SetAlign( ALIGN_BOTTOM );
1260 pPrinter->SetFont( aFont );
1261
1262 long nFontHeight = pPrinter->GetTextHeight();
1263
1264 // 1.Border => Strich, 2+3 Border = Freiraum.
1265 long nYTop = TMARGPRN-3*nBorder-nFontHeight;
1266
1267 long nXLeft = nLeftMargin-nBorder;
1268 long nXRight = aSz.Width()-RMARGPRN+nBorder;
1269
1270 pPrinter->DrawRect( Rectangle(
1271 Point( nXLeft, nYTop ),
1272 Size( nXRight-nXLeft, aSz.Height() - nYTop - BMARGPRN + nBorder ) ) );
1273
1274 long nY = TMARGPRN-2*nBorder;
1275 Point aPos( nLeftMargin, nY );
1276 pPrinter->DrawText( aPos, rTitle );
1277
1278 nY = TMARGPRN-nBorder;
1279
1280 pPrinter->DrawLine( Point( nXLeft, nY ), Point( nXRight, nY ) );
1281
1282 pPrinter->Pop();
1283 }
1284
1285 //----------------------------------------------------------------------------
1286
1287 void DlgEditor::PrintData( Printer* pPrinter, const String& rTitle ) // not working yet
1288 {
1289 if( pDlgEdView )
1290 {
1291 MapMode aOldMap( pPrinter->GetMapMode());
1292 Font aOldFont( pPrinter->GetFont() );
1293
1294 MapMode aMap( MAP_100TH_MM );
1295 pPrinter->SetMapMode( aMap );
1296 Font aFont;
1297 #ifdef OS2
1298 //aFont.SetName( System::GetStandardFont( STDFONT_SWISS ).GetName() );
1299 #endif
1300 aFont.SetAlign( ALIGN_BOTTOM );
1301 aFont.SetSize( Size( 0, 360 ));
1302 pPrinter->SetFont( aFont );
1303
1304 Size aPaperSz = pPrinter->GetOutputSize();
1305 aPaperSz.Width() -= (LMARGPRN+RMARGPRN);
1306 aPaperSz.Height() -= (TMARGPRN+BMARGPRN);
1307
1308 pPrinter->StartPage();
1309
1310 lcl_PrintHeader( pPrinter, rTitle );
1311
1312 Bitmap aDlg;
1313 #ifdef OS2
1314 Bitmap* pDlg = new Bitmap;
1315 //pSbxForm->SnapShot( *pDlg );
1316 SvMemoryStream* pStrm = new SvMemoryStream;
1317 *pStrm << *pDlg;
1318 delete pDlg;
1319 pStrm->Seek(0);
1320 *pStrm >> aDlg;
1321 delete pStrm;
1322 #else
1323 //pSbxForm->SnapShot( aDlg );
1324 #endif
1325 Size aBmpSz( pPrinter->PixelToLogic( aDlg.GetSizePixel() ) );
1326 double nPaperSzWidth = aPaperSz.Width();
1327 double nPaperSzHeight = aPaperSz.Height();
1328 double nBmpSzWidth = aBmpSz.Width();
1329 double nBmpSzHeight = aBmpSz.Height();
1330 double nScaleX = (nPaperSzWidth / nBmpSzWidth );
1331 double nScaleY = (nPaperSzHeight / nBmpSzHeight );
1332
1333 Size aOutputSz;
1334 if( nBmpSzHeight * nScaleX <= nPaperSzHeight )
1335 {
1336 aOutputSz.Width() = (long)(((double)nBmpSzWidth) * nScaleX);
1337 aOutputSz.Height() = (long)(((double)nBmpSzHeight) * nScaleX);
1338 }
1339 else
1340 {
1341 aOutputSz.Width() = (long)(((double)nBmpSzWidth) * nScaleY);
1342 aOutputSz.Height() = (long)(((double)nBmpSzHeight) * nScaleY);
1343 }
1344
1345 Point aPosOffs(
1346 (aPaperSz.Width() / 2) - (aOutputSz.Width() / 2),
1347 (aPaperSz.Height()/ 2) - (aOutputSz.Height() / 2));
1348
1349 aPosOffs.X() += LMARGPRN;
1350 aPosOffs.Y() += TMARGPRN;
1351
1352 pPrinter->DrawBitmap( aPosOffs, aOutputSz, aDlg );
1353
1354 pPrinter->EndPage();
1355
1356 pPrinter->SetMapMode( aOldMap );
1357 pPrinter->SetFont( aOldFont );
1358 }
1359 }
1360
1361 //----------------------------------------------------------------------------
1362
1363 bool DlgEditor::AdjustPageSize()
1364 {
1365 bool bAdjustedPageSize = false;
1366 Reference< beans::XPropertySet > xPSet( m_xUnoControlDialogModel, UNO_QUERY );
1367 if ( xPSet.is() )
1368 {
1369 sal_Int32 nFormXIn = 0, nFormYIn = 0, nFormWidthIn = 0, nFormHeightIn = 0;
1370 xPSet->getPropertyValue( DLGED_PROP_POSITIONX ) >>= nFormXIn;
1371 xPSet->getPropertyValue( DLGED_PROP_POSITIONY ) >>= nFormYIn;
1372 xPSet->getPropertyValue( DLGED_PROP_WIDTH ) >>= nFormWidthIn;
1373 xPSet->getPropertyValue( DLGED_PROP_HEIGHT ) >>= nFormHeightIn;
1374
1375 sal_Int32 nFormX, nFormY, nFormWidth, nFormHeight;
1376 if ( pDlgEdForm && pDlgEdForm->TransformFormToSdrCoordinates( nFormXIn, nFormYIn, nFormWidthIn, nFormHeightIn, nFormX, nFormY, nFormWidth, nFormHeight ) )
1377 {
1378 Size aPageSizeDelta( 400, 300 );
1379 DBG_ASSERT( pWindow, "DlgEditor::AdjustPageSize: no window!" );
1380 if ( pWindow )
1381 aPageSizeDelta = pWindow->PixelToLogic( aPageSizeDelta, MapMode( MAP_100TH_MM ) );
1382
1383 sal_Int32 nNewPageWidth = nFormX + nFormWidth + aPageSizeDelta.Width();
1384 sal_Int32 nNewPageHeight = nFormY + nFormHeight + aPageSizeDelta.Height();
1385
1386 Size aPageSizeMin( DLGED_PAGE_WIDTH_MIN, DLGED_PAGE_HEIGHT_MIN );
1387 DBG_ASSERT( pWindow, "DlgEditor::AdjustPageSize: no window!" );
1388 if ( pWindow )
1389 aPageSizeMin = pWindow->PixelToLogic( aPageSizeMin, MapMode( MAP_100TH_MM ) );
1390 sal_Int32 nPageWidthMin = aPageSizeMin.Width();
1391 sal_Int32 nPageHeightMin = aPageSizeMin.Height();
1392
1393 if ( nNewPageWidth < nPageWidthMin )
1394 nNewPageWidth = nPageWidthMin;
1395
1396 if ( nNewPageHeight < nPageHeightMin )
1397 nNewPageHeight = nPageHeightMin;
1398
1399 if ( pDlgEdPage )
1400 {
1401 Size aPageSize = pDlgEdPage->GetSize();
1402 if ( nNewPageWidth != aPageSize.Width() || nNewPageHeight != aPageSize.Height() )
1403 {
1404 Size aNewPageSize( nNewPageWidth, nNewPageHeight );
1405 pDlgEdPage->SetSize( aNewPageSize );
1406 DBG_ASSERT( pDlgEdView, "DlgEditor::AdjustPageSize: no view!" );
1407 if ( pDlgEdView )
1408 pDlgEdView->SetWorkArea( Rectangle( Point( 0, 0 ), aNewPageSize ) );
1409 bAdjustedPageSize = true;
1410 }
1411 }
1412 }
1413 }
1414
1415 return bAdjustedPageSize;
1416 }
1417
1418 //----------------------------------------------------------------------------
vba interoperability for OOo