?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
bump product version to 5.0.4.1
[LibreOffice.git] / sd / source / ui / view / drviews9.cxx
blobb6e814a4a04893b282f1b8f3a193aaef1f296803
1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 /*
3 * This file is part of the LibreOffice project.
4 *
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 *
9 * This file incorporates work covered by the following license notice:
10 *
11 * Licensed to the Apache Software Foundation (ASF) under one or more
12 * contributor license agreements. See the NOTICE file distributed
13 * with this work for additional information regarding copyright
14 * ownership. The ASF licenses this file to you under the Apache
15 * License, Version 2.0 (the "License"); you may not use this file
16 * except in compliance with the License. You may obtain a copy of
17 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 */
19
20 #include <config_features.h>
21
22 #include "DrawViewShell.hxx"
23 #include <vcl/wrkwin.hxx>
24 #include <svx/xgrad.hxx>
25 #include <svx/svdpagv.hxx>
26 #include <svx/xlnwtit.hxx>
27 #include <svx/xlndsit.hxx>
28 #include <svx/xflhtit.hxx>
29 #include <svx/xflgrit.hxx>
30 #include <svx/xlnclit.hxx>
31 #include <svx/xflclit.hxx>
32 #include <sfx2/bindings.hxx>
33
34 #include <sfx2/dispatch.hxx>
35 #include <svl/intitem.hxx>
36 #include <sfx2/app.hxx>
37 #include <sfx2/request.hxx>
38 #include <svl/stritem.hxx>
39 #include <svx/svxids.hrc>
40 #include <svx/xtable.hxx>
41 #include <svx/gallery.hxx>
42 #include <vcl/graph.hxx>
43 #include <svx/svdograf.hxx>
44 #include <svx/svdoole2.hxx>
45 #include <sot/storage.hxx>
46 #include <svl/whiter.hxx>
47 #include <basic/sbstar.hxx>
48
49 #include <sfx2/viewfrm.hxx>
50
51 #include "app.hrc"
52 #include "strings.hrc"
53 #include "Window.hxx"
54 #include "drawdoc.hxx"
55 #include "drawview.hxx"
56 #include "DrawDocShell.hxx"
57 #include "sdresid.hxx"
58 #include "fupoor.hxx"
59
60 #include <svx/galleryitem.hxx>
61 #include <com/sun/star/gallery/GalleryItemType.hpp>
62 #include <com/sun/star/drawing/LineStyle.hpp>
63 #include <boost/scoped_ptr.hpp>
64
65 using namespace com::sun::star;
66
67 namespace sd {
68
69 void DrawViewShell::ExecGallery(SfxRequest& rReq)
70 {
71 // nothing is executed during a slide show!
72 if(HasCurrentFunction(SID_PRESENTATION))
73 return;
74
75 const SfxItemSet* pArgs = rReq.GetArgs();
76
77 SFX_ITEMSET_ARG( pArgs, pGalleryItem, SvxGalleryItem, SID_GALLERY_FORMATS, false );
78 if ( !pGalleryItem )
79 return;
80
81 GetDocSh()->SetWaitCursor( true );
82
83 sal_Int8 nType( pGalleryItem->GetType() );
84 // insert graphic
85 if (nType == com::sun::star::gallery::GalleryItemType::GRAPHIC)
86 {
87 Graphic aGraphic( pGalleryItem->GetGraphic() );
88
89 // reduce size if necessary
90 ScopedVclPtrInstance< Window > aWindow(GetActiveWindow());
91 aWindow->SetMapMode(aGraphic.GetPrefMapMode());
92 Size aSizePix = aWindow->LogicToPixel(aGraphic.GetPrefSize());
93 aWindow->SetMapMode( MapMode(MAP_100TH_MM) );
94 Size aSize = aWindow->PixelToLogic(aSizePix);
95
96 // constrain size to page size if necessary
97 SdrPage* pPage = mpDrawView->GetSdrPageView()->GetPage();
98 Size aPageSize = pPage->GetSize();
99 aPageSize.Width() -= pPage->GetLftBorder() + pPage->GetRgtBorder();
100 aPageSize.Height() -= pPage->GetUppBorder() + pPage->GetLwrBorder();
101
102 // If the image is too large we make it fit into the page
103 if ( ( ( aSize.Height() > aPageSize.Height() ) || ( aSize.Width() > aPageSize.Width() ) ) &&
104 aSize.Height() && aPageSize.Height() )
105 {
106 float fGrfWH = (float)aSize.Width() /
107 (float)aSize.Height();
108 float fWinWH = (float)aPageSize.Width() /
109 (float)aPageSize.Height();
110
111 // constrain size to page size if necessary
112 if ((fGrfWH != 0.F) && (fGrfWH < fWinWH))
113 {
114 aSize.Width() = (long)(aPageSize.Height() * fGrfWH);
115 aSize.Height()= aPageSize.Height();
116 }
117 else
118 {
119 aSize.Width() = aPageSize.Width();
120 aSize.Height()= (long)(aPageSize.Width() / fGrfWH);
121 }
122 }
123
124 // set output rectangle for graphic
125 Point aPnt ((aPageSize.Width() - aSize.Width()) / 2,
126 (aPageSize.Height() - aSize.Height()) / 2);
127 aPnt += Point(pPage->GetLftBorder(), pPage->GetUppBorder());
128 Rectangle aRect (aPnt, aSize);
129
130 SdrGrafObj* pGrafObj = NULL;
131
132 bool bInsertNewObject = true;
133
134 if ( mpDrawView->AreObjectsMarked() )
135 {
136 // is there a empty graphic object?
137 const SdrMarkList& rMarkList = mpDrawView->GetMarkedObjectList();
138
139 if (rMarkList.GetMarkCount() == 1)
140 {
141 SdrMark* pMark = rMarkList.GetMark(0);
142 SdrObject* pObj = pMark->GetMarkedSdrObj();
143
144 if (pObj->GetObjInventor() == SdrInventor && pObj->GetObjIdentifier() == OBJ_GRAF)
145 {
146 pGrafObj = static_cast<SdrGrafObj*>(pObj);
147
148 if( pGrafObj->IsEmptyPresObj() )
149 {
150 // the empty graphic object gets a new graphic
151 bInsertNewObject = false;
152
153 SdrGrafObj* pNewGrafObj = pGrafObj->Clone();
154 pNewGrafObj->SetEmptyPresObj(false);
155 pNewGrafObj->SetOutlinerParaObject(NULL);
156 pNewGrafObj->SetGraphic(aGraphic);
157
158 OUString aStr(mpDrawView->GetDescriptionOfMarkedObjects());
159 aStr += " " + SD_RESSTR(STR_UNDO_REPLACE);
160 mpDrawView->BegUndo(aStr);
161 SdrPageView* pPV = mpDrawView->GetSdrPageView();
162 mpDrawView->ReplaceObjectAtView(pGrafObj, *pPV, pNewGrafObj);
163 mpDrawView->EndUndo();
164 }
165 }
166 }
167 }
168
169 if( bInsertNewObject )
170 {
171 pGrafObj = new SdrGrafObj(aGraphic, aRect);
172 SdrPageView* pPV = mpDrawView->GetSdrPageView();
173 mpDrawView->InsertObjectAtView(pGrafObj, *pPV, SdrInsertFlags::SETDEFLAYER);
174 }
175 }
176 // insert sound
177 else if( nType == com::sun::star::gallery::GalleryItemType::MEDIA )
178 {
179 const SfxStringItem aMediaURLItem( SID_INSERT_AVMEDIA, pGalleryItem->GetURL() );
180 GetViewFrame()->GetDispatcher()->Execute( SID_INSERT_AVMEDIA, SfxCallMode::SYNCHRON, &aMediaURLItem, 0L );
181 }
182
183 GetDocSh()->SetWaitCursor( false );
184 }
185
186 /**
187 * Edit macros for attribute configuration
188 */
189
190 /* the work flow to adjust the attributes is nearly everywhere the same
191 1. read existing attributes
192 2. read parameter from the basic-set
193 3. delete selected item from the attribute-set
194 4. create new attribute-item
195 5. insert item into set */
196 void DrawViewShell::AttrExec (SfxRequest &rReq)
197 {
198 // nothing is executed during a slide show!
199 if(HasCurrentFunction(SID_PRESENTATION))
200 return;
201
202 CheckLineTo (rReq);
203
204 SfxBindings& rBindings = GetViewFrame()->GetBindings();
205 boost::scoped_ptr<SfxItemSet> pAttr(new SfxItemSet ( GetDoc()->GetPool() ));
206
207 GetView()->GetAttributes( *pAttr );
208 const SfxItemSet* pArgs = rReq.GetArgs();
209
210 switch (rReq.GetSlot ())
211 {
212 // set new fill-style
213 case SID_SETFILLSTYLE :
214 if (pArgs)
215 if (pArgs->Count () == 1)
216 {
217 SFX_REQUEST_ARG (rReq, pFillStyle, SfxUInt32Item, ID_VAL_STYLE, false);
218 if (CHECK_RANGE (drawing::FillStyle_NONE, (sal_Int32)pFillStyle->GetValue (), drawing::FillStyle_BITMAP))
219 {
220 pAttr->ClearItem (XATTR_FILLSTYLE);
221 pAttr->Put (XFillStyleItem ((drawing::FillStyle) pFillStyle->GetValue ()), XATTR_FILLSTYLE);
222 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
223 }
224 #if HAVE_FEATURE_SCRIPTING
225 else StarBASIC::FatalError (SbERR_BAD_PROP_VALUE);
226 #endif
227 break;
228 }
229 #if HAVE_FEATURE_SCRIPTING
230 StarBASIC::FatalError (SbERR_WRONG_ARGS);
231 #endif
232 break;
233
234 // determine new line style
235 case SID_SETLINESTYLE :
236 if (pArgs)
237 if (pArgs->Count () == 1)
238 {
239 SFX_REQUEST_ARG (rReq, pLineStyle, SfxUInt32Item, ID_VAL_STYLE, false);
240 if (CHECK_RANGE (drawing::LineStyle_NONE, (sal_Int32)pLineStyle->GetValue (), drawing::LineStyle_DASH))
241 {
242 pAttr->ClearItem (XATTR_LINESTYLE);
243 pAttr->Put (XLineStyleItem ((drawing::LineStyle) pLineStyle->GetValue ()), XATTR_LINESTYLE);
244 rBindings.Invalidate (SID_ATTR_LINE_STYLE);
245 }
246 #if HAVE_FEATURE_SCRIPTING
247 else StarBASIC::FatalError (SbERR_BAD_PROP_VALUE);
248 #endif
249 break;
250 }
251 #if HAVE_FEATURE_SCRIPTING
252 StarBASIC::FatalError (SbERR_WRONG_ARGS);
253 #endif
254 break;
255
256 // set line width
257 case SID_SETLINEWIDTH :
258 if (pArgs)
259 if (pArgs->Count () == 1)
260 {
261 SFX_REQUEST_ARG (rReq, pLineWidth, SfxUInt32Item, ID_VAL_WIDTH, false);
262 pAttr->ClearItem (XATTR_LINEWIDTH);
263 pAttr->Put (XLineWidthItem (pLineWidth->GetValue ()), XATTR_LINEWIDTH);
264 rBindings.Invalidate (SID_ATTR_LINE_WIDTH);
265 break;
266 }
267 #if HAVE_FEATURE_SCRIPTING
268 StarBASIC::FatalError (SbERR_WRONG_ARGS);
269 #endif
270 break;
271
272 case SID_SETFILLCOLOR :
273 if (pArgs)
274 if (pArgs->Count () == 3)
275 {
276 SFX_REQUEST_ARG (rReq, pRed, SfxUInt32Item, ID_VAL_RED, false);
277 SFX_REQUEST_ARG (rReq, pGreen, SfxUInt32Item, ID_VAL_GREEN, false);
278 SFX_REQUEST_ARG (rReq, pBlue, SfxUInt32Item, ID_VAL_BLUE, false);
279
280 pAttr->ClearItem (XATTR_FILLCOLOR);
281 pAttr->ClearItem (XATTR_FILLSTYLE);
282 pAttr->Put (XFillColorItem (-1, Color ((sal_uInt8) pRed->GetValue (),
283 (sal_uInt8) pGreen->GetValue (),
284 (sal_uInt8) pBlue->GetValue ())),
285 XATTR_FILLCOLOR);
286 pAttr->Put (XFillStyleItem (drawing::FillStyle_SOLID), XATTR_FILLSTYLE);
287 rBindings.Invalidate (SID_ATTR_FILL_COLOR);
288 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
289 break;
290 }
291 #if HAVE_FEATURE_SCRIPTING
292 StarBASIC::FatalError (SbERR_WRONG_ARGS);
293 #endif
294 break;
295
296 case SID_SETLINECOLOR :
297 if (pArgs)
298 if (pArgs->Count () == 3)
299 {
300 SFX_REQUEST_ARG (rReq, pRed, SfxUInt32Item, ID_VAL_RED, false);
301 SFX_REQUEST_ARG (rReq, pGreen, SfxUInt32Item, ID_VAL_GREEN, false);
302 SFX_REQUEST_ARG (rReq, pBlue, SfxUInt32Item, ID_VAL_BLUE, false);
303
304 pAttr->ClearItem (XATTR_LINECOLOR);
305 pAttr->Put (XLineColorItem (-1, Color ((sal_uInt8) pRed->GetValue (),
306 (sal_uInt8) pGreen->GetValue (),
307 (sal_uInt8) pBlue->GetValue ())),
308 XATTR_LINECOLOR);
309 rBindings.Invalidate (SID_ATTR_LINE_COLOR);
310 break;
311 }
312 #if HAVE_FEATURE_SCRIPTING
313 StarBASIC::FatalError (SbERR_WRONG_ARGS);
314 #endif
315 break;
316
317 case SID_SETGRADSTARTCOLOR :
318 case SID_SETGRADENDCOLOR :
319 if (pArgs)
320 if (pArgs->Count () == 4)
321 {
322 SFX_REQUEST_ARG (rReq, pName, SfxStringItem, ID_VAL_INDEX, false);
323 SFX_REQUEST_ARG (rReq, pRed, SfxUInt32Item, ID_VAL_RED, false);
324 SFX_REQUEST_ARG (rReq, pGreen, SfxUInt32Item, ID_VAL_GREEN, false);
325 SFX_REQUEST_ARG (rReq, pBlue, SfxUInt32Item, ID_VAL_BLUE, false);
326
327 XGradientListRef pGradientList = GetDoc()->GetGradientList ();
328 long nCounts = pGradientList->Count ();
329 Color aColor ((sal_uInt8) pRed->GetValue (),
330 (sal_uInt8) pGreen->GetValue (),
331 (sal_uInt8) pBlue->GetValue ());
332 long i;
333
334 pAttr->ClearItem (XATTR_FILLGRADIENT);
335 pAttr->ClearItem (XATTR_FILLSTYLE);
336
337 for ( i = 0; i < nCounts; i ++)
338 {
339 XGradientEntry *pEntry = pGradientList->GetGradient (i);
340
341 if (pEntry->GetName () == pName->GetValue ())
342 {
343 XGradient aGradient(pEntry->GetGradient());
344
345 if (rReq.GetSlot () == SID_SETGRADSTARTCOLOR) aGradient.SetStartColor (aColor);
346 else aGradient.SetEndColor (aColor);
347
348 pAttr->Put (XFillStyleItem (drawing::FillStyle_GRADIENT), XATTR_FILLSTYLE);
349 pAttr->Put (XFillGradientItem (pName->GetValue (), aGradient), XATTR_FILLGRADIENT);
350 break;
351 }
352 }
353
354 if (i >= nCounts)
355 {
356 Color aBlack (0, 0, 0);
357 XGradient aGradient ((rReq.GetSlot () == SID_SETGRADSTARTCOLOR)
358 ? aColor
359 : aBlack,
360 (rReq.GetSlot () == SID_SETGRADENDCOLOR)
361 ? aColor
362 : aBlack);
363
364 GetDoc()->GetGradientList ()->Insert (new XGradientEntry (aGradient, pName->GetValue ()));
365
366 pAttr->Put (XFillStyleItem (drawing::FillStyle_GRADIENT), XATTR_FILLSTYLE);
367 pAttr->Put (XFillGradientItem (pName->GetValue (), aGradient), XATTR_FILLGRADIENT);
368 }
369
370 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
371 rBindings.Invalidate (SID_ATTR_FILL_GRADIENT);
372 break;
373 }
374 #if HAVE_FEATURE_SCRIPTING
375 StarBASIC::FatalError (SbERR_WRONG_ARGS);
376 #endif
377 break;
378
379 case SID_SETHATCHCOLOR :
380 if (pArgs)
381 if (pArgs->Count () == 4)
382 {
383 SFX_REQUEST_ARG (rReq, pName, SfxStringItem, ID_VAL_INDEX, false);
384 SFX_REQUEST_ARG (rReq, pRed, SfxUInt32Item, ID_VAL_RED, false);
385 SFX_REQUEST_ARG (rReq, pGreen, SfxUInt32Item, ID_VAL_GREEN, false);
386 SFX_REQUEST_ARG (rReq, pBlue, SfxUInt32Item, ID_VAL_BLUE, false);
387
388 XHatchListRef pHatchList = GetDoc()->GetHatchList ();
389 long nCounts = pHatchList->Count ();
390 Color aColor ((sal_uInt8) pRed->GetValue (),
391 (sal_uInt8) pGreen->GetValue (),
392 (sal_uInt8) pBlue->GetValue ());
393 long i;
394
395 pAttr->ClearItem (XATTR_FILLHATCH);
396 pAttr->ClearItem (XATTR_FILLSTYLE);
397
398 for ( i = 0; i < nCounts; i ++)
399 {
400 XHatchEntry *pEntry = pHatchList->GetHatch (i);
401
402 if (pEntry->GetName () == pName->GetValue ())
403 {
404 XHatch aHatch(pEntry->GetHatch());
405
406 aHatch.SetColor (aColor);
407
408 pAttr->Put (XFillStyleItem (drawing::FillStyle_HATCH), XATTR_FILLSTYLE);
409 pAttr->Put (XFillHatchItem (pName->GetValue (), aHatch), XATTR_FILLHATCH);
410 break;
411 }
412 }
413
414 if (i >= nCounts)
415 {
416 XHatch aHatch (aColor);
417
418 GetDoc()->GetHatchList ()->Insert (new XHatchEntry (aHatch, pName->GetValue ()));
419
420 pAttr->Put (XFillStyleItem (drawing::FillStyle_HATCH), XATTR_FILLSTYLE);
421 pAttr->Put (XFillHatchItem (pName->GetValue (), aHatch), XATTR_FILLHATCH);
422 }
423
424 rBindings.Invalidate (SID_ATTR_FILL_HATCH);
425 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
426 break;
427 }
428 #if HAVE_FEATURE_SCRIPTING
429 StarBASIC::FatalError (SbERR_WRONG_ARGS);
430 #endif
431 break;
432
433 // configuration for line-dash
434 case SID_DASH :
435 if (pArgs)
436 if (pArgs->Count () == 7)
437 {
438 SFX_REQUEST_ARG (rReq, pName, SfxStringItem, ID_VAL_INDEX, false);
439 SFX_REQUEST_ARG (rReq, pStyle, SfxUInt32Item, ID_VAL_STYLE, false);
440 SFX_REQUEST_ARG (rReq, pDots, SfxUInt32Item, ID_VAL_DOTS, false);
441 SFX_REQUEST_ARG (rReq, pDotLen, SfxUInt32Item, ID_VAL_DOTLEN, false);
442 SFX_REQUEST_ARG (rReq, pDashes, SfxUInt32Item, ID_VAL_DASHES, false);
443 SFX_REQUEST_ARG (rReq, pDashLen, SfxUInt32Item, ID_VAL_DASHLEN, false);
444 SFX_REQUEST_ARG (rReq, pDistance, SfxUInt32Item, ID_VAL_DISTANCE, false);
445
446 if (CHECK_RANGE (css::drawing::DashStyle_RECT, (sal_Int32)pStyle->GetValue (), css::drawing::DashStyle_ROUNDRELATIVE))
447 {
448 XDash aNewDash ((css::drawing::DashStyle) pStyle->GetValue (), (short) pDots->GetValue (), pDotLen->GetValue (),
449 (short) pDashes->GetValue (), pDashLen->GetValue (), pDistance->GetValue ());
450
451 pAttr->ClearItem (XATTR_LINEDASH);
452 pAttr->ClearItem (XATTR_LINESTYLE);
453
454 XDashListRef pDashList = GetDoc()->GetDashList();
455 long nCounts = pDashList->Count ();
456 XDashEntry *pEntry = new XDashEntry (aNewDash, pName->GetValue ());
457 long i;
458
459 for ( i = 0; i < nCounts; i++ )
460 if (pDashList->GetDash (i)->GetName () == pName->GetValue ())
461 break;
462
463 if (i < nCounts)
464 pDashList->Replace (pEntry, i);
465 else
466 pDashList->Insert (pEntry);
467
468 pAttr->Put (XLineDashItem (pName->GetValue (), aNewDash), XATTR_LINEDASH);
469 pAttr->Put (XLineStyleItem (drawing::LineStyle_DASH), XATTR_LINESTYLE);
470 rBindings.Invalidate (SID_ATTR_LINE_DASH);
471 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
472 }
473 #if HAVE_FEATURE_SCRIPTING
474 else StarBASIC::FatalError (SbERR_BAD_PROP_VALUE);
475 #endif
476 break;
477 }
478 #if HAVE_FEATURE_SCRIPTING
479 StarBASIC::FatalError (SbERR_WRONG_ARGS);
480 #endif
481 break;
482
483 // configuration for gradients
484 case SID_GRADIENT :
485 if (pArgs)
486 if (pArgs->Count () == 8)
487 {
488 SFX_REQUEST_ARG (rReq, pName, SfxStringItem, ID_VAL_INDEX, false);
489 SFX_REQUEST_ARG (rReq, pStyle, SfxUInt32Item, ID_VAL_STYLE, false);
490 SFX_REQUEST_ARG (rReq, pAngle, SfxUInt32Item, ID_VAL_ANGLE, false);
491 SFX_REQUEST_ARG (rReq, pBorder, SfxUInt32Item, ID_VAL_BORDER, false);
492 SFX_REQUEST_ARG (rReq, pCenterX, SfxUInt32Item, ID_VAL_CENTER_X, false);
493 SFX_REQUEST_ARG (rReq, pCenterY, SfxUInt32Item, ID_VAL_CENTER_Y, false);
494 SFX_REQUEST_ARG (rReq, pStart, SfxUInt32Item, ID_VAL_STARTINTENS, false);
495 SFX_REQUEST_ARG (rReq, pEnd, SfxUInt32Item, ID_VAL_ENDINTENS, false);
496
497 if (CHECK_RANGE (css::awt::GradientStyle_LINEAR, (sal_Int32)pStyle->GetValue (), css::awt::GradientStyle_RECT) &&
498 CHECK_RANGE (0, (sal_Int32)pAngle->GetValue (), 360) &&
499 CHECK_RANGE (0, (sal_Int32)pBorder->GetValue (), 100) &&
500 CHECK_RANGE (0, (sal_Int32)pCenterX->GetValue (), 100) &&
501 CHECK_RANGE (0, (sal_Int32)pCenterY->GetValue (), 100) &&
502 CHECK_RANGE (0, (sal_Int32)pStart->GetValue (), 100) &&
503 CHECK_RANGE (0, (sal_Int32)pEnd->GetValue (), 100))
504 {
505 pAttr->ClearItem (XATTR_FILLGRADIENT);
506 pAttr->ClearItem (XATTR_FILLSTYLE);
507
508 XGradientListRef pGradientList = GetDoc()->GetGradientList ();
509 long nCounts = pGradientList->Count ();
510 long i;
511
512 for ( i = 0; i < nCounts; i++ )
513 {
514 XGradientEntry *pEntry = pGradientList->GetGradient (i);
515
516 if (pEntry->GetName () == pName->GetValue ())
517 {
518 XGradient aGradient(pEntry->GetGradient());
519
520 aGradient.SetGradientStyle ((css::awt::GradientStyle) pStyle->GetValue ());
521 aGradient.SetAngle (pAngle->GetValue () * 10);
522 aGradient.SetBorder ((short) pBorder->GetValue ());
523 aGradient.SetXOffset ((short) pCenterX->GetValue ());
524 aGradient.SetYOffset ((short) pCenterY->GetValue ());
525 aGradient.SetStartIntens ((short) pStart->GetValue ());
526 aGradient.SetEndIntens ((short) pEnd->GetValue ());
527
528 pAttr->Put (XFillStyleItem (drawing::FillStyle_GRADIENT), XATTR_FILLSTYLE);
529 pAttr->Put (XFillGradientItem (pName->GetValue (), aGradient), XATTR_FILLGRADIENT);
530 break;
531 }
532 }
533
534 if (i >= nCounts)
535 {
536 Color aBlack (0, 0, 0);
537 XGradient aGradient (aBlack, aBlack, (css::awt::GradientStyle) pStyle->GetValue (),
538 pAngle->GetValue () * 10, (short) pCenterX->GetValue (),
539 (short) pCenterY->GetValue (), (short) pBorder->GetValue (),
540 (short) pStart->GetValue (), (short) pEnd->GetValue ());
541
542 pGradientList->Insert (new XGradientEntry (aGradient, pName->GetValue ()));
543 pAttr->Put (XFillStyleItem (drawing::FillStyle_GRADIENT), XATTR_FILLSTYLE);
544 pAttr->Put (XFillGradientItem (pName->GetValue (), aGradient), XATTR_FILLGRADIENT);
545 }
546
547 rBindings.Invalidate (SID_ATTR_FILL_GRADIENT);
548 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
549 }
550 #if HAVE_FEATURE_SCRIPTING
551 else StarBASIC::FatalError (SbERR_BAD_PROP_VALUE);
552 #endif
553 break;
554 }
555 #if HAVE_FEATURE_SCRIPTING
556 StarBASIC::FatalError (SbERR_WRONG_ARGS);
557 #endif
558 break;
559
560 // configuration for hatch
561 case SID_HATCH :
562 if (pArgs)
563 if (pArgs->Count () == 4)
564 {
565 SFX_REQUEST_ARG (rReq, pName, SfxStringItem, ID_VAL_INDEX, false);
566 SFX_REQUEST_ARG (rReq, pStyle, SfxUInt32Item, ID_VAL_STYLE, false);
567 SFX_REQUEST_ARG (rReq, pDistance, SfxUInt32Item, ID_VAL_DISTANCE, false);
568 SFX_REQUEST_ARG (rReq, pAngle, SfxUInt32Item, ID_VAL_ANGLE, false);
569
570 if (CHECK_RANGE (css::drawing::HatchStyle_SINGLE, (sal_Int32)pStyle->GetValue (), css::drawing::HatchStyle_TRIPLE) &&
571 CHECK_RANGE (0, (sal_Int32)pAngle->GetValue (), 360))
572 {
573 pAttr->ClearItem (XATTR_FILLHATCH);
574 pAttr->ClearItem (XATTR_FILLSTYLE);
575
576 XHatchListRef pHatchList = GetDoc()->GetHatchList ();
577 long nCounts = pHatchList->Count ();
578 long i;
579
580 for ( i = 0; i < nCounts; i++ )
581 {
582 XHatchEntry *pEntry = pHatchList->GetHatch (i);
583
584 if (pEntry->GetName () == pName->GetValue ())
585 {
586 XHatch aHatch(pEntry->GetHatch());
587
588 aHatch.SetHatchStyle ((css::drawing::HatchStyle) pStyle->GetValue ());
589 aHatch.SetDistance (pDistance->GetValue ());
590 aHatch.SetAngle (pAngle->GetValue () * 10);
591
592 pAttr->Put (XFillStyleItem (drawing::FillStyle_HATCH), XATTR_FILLSTYLE);
593 pAttr->Put (XFillHatchItem (pName->GetValue (), aHatch), XATTR_FILLHATCH);
594 break;
595 }
596 }
597
598 if (i >= nCounts)
599 {
600 Color aBlack (0, 0, 0);
601 XHatch aHatch (aBlack, (css::drawing::HatchStyle) pStyle->GetValue (), pDistance->GetValue (),
602 pAngle->GetValue () * 10);
603
604 pHatchList->Insert (new XHatchEntry (aHatch, pName->GetValue ()));
605 pAttr->Put (XFillStyleItem (drawing::FillStyle_HATCH), XATTR_FILLSTYLE);
606 pAttr->Put (XFillHatchItem (pName->GetValue (), aHatch), XATTR_FILLHATCH);
607 }
608
609 rBindings.Invalidate (SID_ATTR_FILL_HATCH);
610 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
611 }
612 #if HAVE_FEATURE_SCRIPTING
613 else StarBASIC::FatalError (SbERR_BAD_PROP_VALUE);
614 #endif
615 break;
616 }
617 #if HAVE_FEATURE_SCRIPTING
618 StarBASIC::FatalError (SbERR_WRONG_ARGS);
619 #endif
620 break;
621
622 case SID_SELECTGRADIENT :
623 if (pArgs)
624 if (pArgs->Count () == 1)
625 {
626 SFX_REQUEST_ARG (rReq, pName, SfxStringItem, ID_VAL_INDEX, false);
627
628 XGradientListRef pGradientList = GetDoc()->GetGradientList ();
629 long nCounts = pGradientList->Count ();
630
631 for (long i = 0;
632 i < nCounts;
633 i ++)
634 {
635 XGradientEntry *pEntry = pGradientList->GetGradient (i);
636
637 if (pEntry->GetName () == pName->GetValue ())
638 {
639 pAttr->ClearItem (XATTR_FILLGRADIENT);
640 pAttr->ClearItem (XATTR_FILLSTYLE);
641 pAttr->Put (XFillStyleItem (drawing::FillStyle_GRADIENT), XATTR_FILLSTYLE);
642 pAttr->Put (XFillGradientItem (pName->GetValue (), pEntry->GetGradient ()), XATTR_FILLGRADIENT);
643
644 rBindings.Invalidate (SID_ATTR_FILL_GRADIENT);
645 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
646 break;
647 }
648 }
649
650 break;
651 }
652 #if HAVE_FEATURE_SCRIPTING
653 StarBASIC::FatalError (SbERR_WRONG_ARGS);
654 #endif
655 break;
656
657 case SID_SELECTHATCH :
658 if (pArgs)
659 if (pArgs->Count () == 1)
660 {
661 SFX_REQUEST_ARG (rReq, pName, SfxStringItem, ID_VAL_INDEX, false);
662
663 XHatchListRef pHatchList = GetDoc()->GetHatchList ();
664 long nCounts = pHatchList->Count ();
665
666 for (long i = 0;
667 i < nCounts;
668 i ++)
669 {
670 XHatchEntry *pEntry = pHatchList->GetHatch (i);
671
672 if (pEntry->GetName () == pName->GetValue ())
673 {
674 pAttr->ClearItem (XATTR_FILLHATCH);
675 pAttr->ClearItem (XATTR_FILLSTYLE);
676 pAttr->Put (XFillStyleItem (drawing::FillStyle_HATCH), XATTR_FILLSTYLE);
677 pAttr->Put (XFillHatchItem (pName->GetValue (), pEntry->GetHatch ()), XATTR_FILLHATCH);
678
679 rBindings.Invalidate (SID_ATTR_FILL_HATCH);
680 rBindings.Invalidate (SID_ATTR_FILL_STYLE);
681 break;
682 }
683 }
684
685 break;
686 }
687 #if HAVE_FEATURE_SCRIPTING
688 StarBASIC::FatalError (SbERR_WRONG_ARGS);
689 #endif
690 break;
691
692 case SID_UNSELECT :
693 mpDrawView->UnmarkAll ();
694 break;
695
696 case SID_GETRED :
697 if (pArgs)
698 if (pArgs->Count () == 1)
699 {
700 break;
701 }
702 #if HAVE_FEATURE_SCRIPTING
703 StarBASIC::FatalError (SbERR_WRONG_ARGS);
704 #endif
705 break;
706
707 /* case SID_SETFONTFAMILYNAME :
708 case SID_SETFONTSTYLENAME :
709 case SID_SETFONTFAMILY :
710 case SID_SETFONTPITCH :
711 case SID_SETFONTCHARSET :
712 case SID_SETFONTPOSTURE :
713 case SID_SETFONTWEIGHT :
714 case SID_SETFONTUNDERLINE :
715 case SID_SETFONTCROSSEDOUT :
716 case SID_SETFONTSHADOWED :
717 case SID_SETFONTCONTOUR :
718 case SID_SETFONTCOLOR :
719 case SID_SETFONTLANGUAGE :
720 case SID_SETFONTWORDLINE :
721 case SID_SETFONTCASEMAP :
722 case SID_SETFONTESCAPE :
723 case SID_SETFONTKERNING :
724 break;*/
725
726 default :
727 ;
728 }
729
730 mpDrawView->SetAttributes (*(const SfxItemSet *) pAttr.get());
731 rReq.Ignore ();
732 }
733
734 /**
735 * Edit macros for attribute configuration
736 */
737 void DrawViewShell::AttrState (SfxItemSet& rSet)
738 {
739 SfxWhichIter aIter (rSet);
740 sal_uInt16 nWhich = aIter.FirstWhich ();
741 SfxItemSet aAttr( GetDoc()->GetPool() );
742 mpDrawView->GetAttributes( aAttr );
743
744 while (nWhich)
745 {
746 switch (nWhich)
747 {
748 case SID_GETFILLSTYLE :
749 {
750 const XFillStyleItem &rFillStyleItem = static_cast<const XFillStyleItem &>(aAttr.Get (XATTR_FILLSTYLE));
751
752 rSet.Put (SfxUInt32Item (nWhich, (long) rFillStyleItem.GetValue ()));
753 break;
754 }
755
756 case SID_GETLINESTYLE :
757 {
758 const XLineStyleItem &rLineStyleItem = static_cast<const XLineStyleItem &>( aAttr.Get (XATTR_LINESTYLE) );
759
760 rSet.Put (SfxUInt32Item (nWhich, (long) rLineStyleItem.GetValue ()));
761 break;
762 }
763
764 case SID_GETLINEWIDTH :
765 {
766 const XLineWidthItem &rLineWidthItem = static_cast<const XLineWidthItem &>( aAttr.Get (XATTR_LINEWIDTH) );
767
768 rSet.Put (SfxUInt32Item (nWhich, (long) rLineWidthItem.GetValue ()));
769 break;
770 }
771
772 case SID_GETGREEN :
773 case SID_GETRED :
774 case SID_GETBLUE :
775 {
776 const SfxUInt32Item &rWhatKind = static_cast<const SfxUInt32Item &>( rSet.Get (ID_VAL_WHATKIND) );
777 Color aColor;
778
779 switch (rWhatKind.GetValue ())
780 {
781 case 1 :
782 {
783 const XLineColorItem &rLineColorItem = static_cast<const XLineColorItem &>( aAttr.Get (XATTR_LINECOLOR) );
784
785 aColor = rLineColorItem.GetColorValue ();
786 break;
787 }
788
789 case 2 :
790 {
791 const XFillColorItem &rFillColorItem = static_cast<const XFillColorItem &>( aAttr.Get (XATTR_FILLCOLOR) );
792
793 aColor = rFillColorItem.GetColorValue ();
794 break;
795 }
796
797 case 3 :
798 case 4 :
799 {
800 const XFillGradientItem &rFillGradientItem = static_cast<const XFillGradientItem &>( aAttr.Get (XATTR_FILLGRADIENT) );
801 const XGradient &rGradient = rFillGradientItem.GetGradientValue ();
802
803 aColor = (rWhatKind.GetValue () == 3)
804 ? rGradient.GetStartColor ()
805 : rGradient.GetEndColor ();
806 break;
807 }
808
809 case 5:
810 {
811 const XFillHatchItem &rFillHatchItem = static_cast<const XFillHatchItem &>( aAttr.Get (XATTR_FILLHATCH) );
812 const XHatch &rHatch = rFillHatchItem.GetHatchValue ();
813
814 aColor = rHatch.GetColor ();
815 break;
816 }
817
818 default :
819 ;
820 }
821
822 rSet.Put (SfxUInt32Item (nWhich, (long) ((nWhich == SID_GETRED)
823 ? aColor.GetRed ()
824 : (nWhich == SID_GETGREEN)
825 ? aColor.GetGreen ()
826 : aColor.GetBlue ())));
827 break;
828 }
829
830 default :
831 ;
832 }
833
834 nWhich = aIter.NextWhich ();
835 }
836 }
837
838 } // end of namespace sd
839
840 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
FREE OFFICE SUITE