sd/source/ui/dlg/PhotoAlbumDialog.cxx

   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
  10 #include <comphelper/namedvaluecollection.hxx>
  11 #include <comphelper/processfactory.hxx>
  12 #include <comphelper/componentcontext.hxx>
  13 #include <comphelper/configurationhelper.hxx>
  14
  15 #include <com/sun/star/ui/dialogs/TemplateDescription.hpp>
  16 #include <com/sun/star/drawing/XMasterPagesSupplier.hpp>
  17 #include <com/sun/star/container/XNameAccess.hpp>
  18
  19 #include <com/sun/star/drawing/XDrawPagesSupplier.hpp>
  20 #include <com/sun/star/text/XText.hpp>
  21
  22 #include <sfx2/filedlghelper.hxx>
  23 #include <tools/urlobj.hxx>
  24
  25 #include <unotools/pathoptions.hxx>
  26 #include <unotools/useroptions.hxx>
  27 #include <unotools/ucbstreamhelper.hxx>
  28
  29 #include <vcl/msgbox.hxx>
  30 #include <svx/unoshape.hxx>
  31
  32 #include "PhotoAlbumDialog.hxx"
  33 #include "strings.hrc"
  34 #include "sdresid.hxx"
  35
  36 namespace sd
  37 {
  38
  39 OUString SdPhotoAlbumDialog::sDirUrl;
  40
  41 SdPhotoAlbumDialog::SdPhotoAlbumDialog(Window* pWindow, SdDrawDocument* pActDoc)
  42 : ModalDialog(pWindow, "PhotoAlbumCreatorDialog", "modules/simpress/ui/photoalbum.ui"),
  43   pDoc(pActDoc)
  44 {
  45     get(pCancelBtn, "cancel_btn");
  46     get(pCreateBtn, "create_btn");
  47
  48     get(pAddBtn, "add_btn");
  49     get(pUpBtn, "up_btn");
  50     get(pDownBtn, "down_btn");
  51     get(pRemoveBtn, "rem_btn");
  52
  53     get(pImagesLst, "images_tree");
  54     get(pImg, "preview_img");
  55
  56     get(pInsTypeCombo, "opt_combo");
  57     get(pASRCheck, "asr_check");
  58
  59     pCancelBtn->SetClickHdl(LINK(this, SdPhotoAlbumDialog, CancelHdl));
  60     pCreateBtn->SetClickHdl(LINK(this, SdPhotoAlbumDialog, CreateHdl));
  61
  62     pAddBtn->SetClickHdl(LINK(this, SdPhotoAlbumDialog, FileHdl));
  63     pUpBtn->SetClickHdl(LINK(this, SdPhotoAlbumDialog, UpHdl));
  64     pUpBtn->Disable();
  65     pDownBtn->SetClickHdl(LINK(this, SdPhotoAlbumDialog, DownHdl));
  66     pDownBtn->Disable();
  67     pRemoveBtn->SetClickHdl(LINK(this, SdPhotoAlbumDialog, RemoveHdl));
  68     pRemoveBtn->Disable();
  69     pImagesLst->SetSelectHdl(LINK(this, SdPhotoAlbumDialog, SelectHdl));
  70
  71     mpGraphicFilter = new GraphicFilter;
  72     sDirUrl = "";
  73     pAddBtn->GrabFocus();
  74     pImagesLst->Clear();
  75 }
  76
  77 SdPhotoAlbumDialog::~SdPhotoAlbumDialog()
  78 {
  79 }
  80
  81 IMPL_LINK_NOARG(SdPhotoAlbumDialog, CancelHdl)
  82 {
  83     Close();
  84     return 0;
  85 }
  86
  87 IMPL_LINK_NOARG(SdPhotoAlbumDialog, CreateHdl)
  88 {
  89     if (pImagesLst->GetEntryCount() == 0)
  90     {
  91         WarningBox aWarning(this, WB_OK, SD_RESSTR(STR_PHOTO_ALBUM_EMPTY_WARNING));
  92         aWarning.Execute();
  93     }
  94     else
  95     {
  96         Reference< drawing::XDrawPagesSupplier > xDPS( pDoc->getUnoModel(), uno::UNO_QUERY );
  97         Reference< drawing::XDrawPages > xDrawPages( xDPS->getDrawPages(), uno::UNO_QUERY );
  98         Reference< lang::XMultiServiceFactory > xShapeFactory( pDoc->getUnoModel(), uno::UNO_QUERY );
  99
 100         Reference< XComponentContext > xContext(::comphelper::getProcessComponentContext());
 101         Reference< graphic::XGraphicProvider> xProvider(graphic::GraphicProvider::create(xContext));
 102
 103         // get the option
 104         sal_uInt16 nOpt = pInsTypeCombo->GetSelectEntryPos();
 105         if ( nOpt == ONE_IMAGE )
 106         {
 107             OUString sUrl;
 108             for( sal_Int16 i = 0; i < pImagesLst->GetEntryCount(); ++i )
 109             {
 110                 OUString* pData = (OUString*) pImagesLst->GetEntryData(i);
 111                 sUrl = *pData;
 112
 113                 Reference< drawing::XDrawPage > xSlide = appendNewSlide(AUTOLAYOUT_NONE, xDrawPages);
 114                 Reference< beans::XPropertySet > xSlideProps( xSlide, uno::UNO_QUERY );
 115
 116                 Reference< graphic::XGraphic > xGraphic = createXGraphicFromUrl(sUrl, xProvider);
 117
 118                 Image aImg(xGraphic);
 119                 // Save the original size, multiplied with 100
 120                 ::awt::Size aPicSize(aImg.GetSizePixel().Width()*100, aImg.GetSizePixel().Height()*100);
 121
 122                 Reference< drawing::XShape > xShape(
 123                     xShapeFactory->createInstance("com.sun.star.drawing.GraphicObjectShape"),
 124                     uno::UNO_QUERY);
 125
 126                 Reference< beans::XPropertySet > xProps( xShape, uno::UNO_QUERY );
 127                 xProps->setPropertyValue("Graphic", ::uno::Any(xGraphic));
 128
 129
 130                 ::awt::Size aPageSize;
 131
 132                 xSlideProps->getPropertyValue(
 133                     OUString("Width")) >>= aPageSize.Width;
 134                 xSlideProps->getPropertyValue(
 135                     OUString("Height")) >>= aPageSize.Height;
 136
 137                 ::awt::Point aPicPos;
 138
 139                 if(pASRCheck->IsChecked())
 140                 {
 141                     // Resize the image, with keeping ASR
 142                     aPicSize = createASRSize(aPicSize, aPageSize);
 143                 }
 144                 else
 145                 {
 146                     aPicSize.Width = aPageSize.Width;
 147                     aPicSize.Height = aPageSize.Height;
 148                 }
 149
 150                 xShape->setSize(aPicSize);
 151                 aPicPos.X = (aPageSize.Width - aPicSize.Width)/2;
 152                 aPicPos.Y = (aPageSize.Height - aPicSize.Height)/2;
 153
 154                 xShape->setPosition(aPicPos);
 155                 xSlide->add(xShape);
 156             }
 157         }
 158         else if( nOpt == TWO_IMAGES )
 159         {
 160             OUString sUrl1("");
 161             OUString sUrl2("");
 162
 163             for( sal_Int32 i = 0; i < pImagesLst->GetEntryCount(); i+=2 )
 164             {
 165                 OUString* pData = NULL;
 166
 167                 // create the slide
 168                 Reference< drawing::XDrawPage > xSlide = appendNewSlide(AUTOLAYOUT_NONE, xDrawPages);
 169                 Reference< beans::XPropertySet > xSlideProps( xSlide, uno::UNO_QUERY );
 170                 //Slide dimensions
 171                 ::awt::Size aPageSize;
 172
 173                 xSlideProps->getPropertyValue(
 174                     OUString("Width")) >>= aPageSize.Width;
 175                 xSlideProps->getPropertyValue(
 176                     OUString("Height")) >>= aPageSize.Height;
 177
 178                 // grab the left one
 179                 void* pD1 = pImagesLst->GetEntryData(i);
 180                 pData = (OUString*) pD1;
 181                 sUrl1 = pData ? OUString(*pData) : "";
 182                 // grab the right one
 183                 void* pD2 = pImagesLst->GetEntryData(i+1);
 184                 pData = (OUString*) pD2;
 185                 sUrl2 = pData ? OUString(*pData) : "";
 186
 187                 if( !sUrl1.isEmpty() )
 188                 {
 189
 190                     Reference< graphic::XGraphic > xGraphic = createXGraphicFromUrl(sUrl1, xProvider);
 191
 192                     Image aImg(xGraphic);
 193                     // Save the original size, multiplied with 100
 194                     ::awt::Size aPicSize(aImg.GetSizePixel().Width()*100, aImg.GetSizePixel().Height()*100);
 195
 196                     Reference< drawing::XShape > xShape(
 197                         xShapeFactory->createInstance("com.sun.star.drawing.GraphicObjectShape"),
 198                         uno::UNO_QUERY);
 199
 200                     Reference< beans::XPropertySet > xProps( xShape, uno::UNO_QUERY );
 201                     xProps->setPropertyValue("Graphic", ::uno::Any(xGraphic));
 202
 203                     ::awt::Point aPicPos;
 204
 205                     if(pASRCheck->IsChecked())
 206                     {
 207                         // Resize the image, with keeping ASR
 208                         aPicSize = createASRSize(aPicSize, ::awt::Size(aPageSize.Width/2 - 100, aPageSize.Height/2 - 100));
 209                     }
 210                     else
 211                     {
 212                         aPicSize.Width = aPageSize.Width/2 - 100;
 213                         aPicSize.Height = aPageSize.Height/2 - 100;
 214                     }
 215                     xShape->setSize(aPicSize);
 216                     aPicPos.X = (aPageSize.Width/4 - aPicSize.Width/2);
 217                     aPicPos.Y = aPageSize.Height/2 - aPicSize.Height/2;
 218
 219                     xShape->setPosition(aPicPos);
 220                     xSlide->add(xShape);
 221                 }
 222
 223                 if( !sUrl2.isEmpty() )
 224                 {
 225                     Reference< graphic::XGraphic > xGraphic = createXGraphicFromUrl(sUrl2, xProvider);
 226
 227                     Image aImg(xGraphic);
 228                     // Save the original size, multiplied with 100
 229                     ::awt::Size aPicSize(aImg.GetSizePixel().Width()*100, aImg.GetSizePixel().Height()*100);
 230
 231                     Reference< drawing::XShape > xShape(
 232                         xShapeFactory->createInstance("com.sun.star.drawing.GraphicObjectShape"),
 233                         uno::UNO_QUERY);
 234
 235                     Reference< beans::XPropertySet > xProps( xShape, uno::UNO_QUERY );
 236                     xProps->setPropertyValue("Graphic", ::uno::Any(xGraphic));
 237
 238                     ::awt::Point aPicPos;
 239
 240                     if(pASRCheck->IsChecked())
 241                     {
 242                         // Resize the image, with keeping ASR
 243                         aPicSize = createASRSize(aPicSize, ::awt::Size(aPageSize.Width/2 - 100, aPageSize.Height/2 - 100));
 244                     }
 245                     else
 246                     {
 247                         aPicSize.Width = aPageSize.Width/2 - 100;
 248                         aPicSize.Height = aPageSize.Height/2 - 100;
 249                     }
 250                     xShape->setSize(aPicSize);
 251                     aPicPos.X = (aPageSize.Width/4 - aPicSize.Width/2) + aPageSize.Width/2;
 252                     aPicPos.Y = aPageSize.Height/2 - aPicSize.Height/2;
 253
 254                     xShape->setPosition(aPicPos);
 255                     xSlide->add(xShape);
 256                 }
 257             }
 258         }
 259         else if( nOpt == FOUR_IMAGES )
 260         {
 261             OUString sUrl1("");
 262             OUString sUrl2("");
 263             OUString sUrl3("");
 264             OUString sUrl4("");
 265
 266             for( sal_Int32 i = 0; i < pImagesLst->GetEntryCount(); i+=4 )
 267             {
 268                 OUString* pData = NULL;
 269                 // create the slide
 270                 Reference< drawing::XDrawPage > xSlide = appendNewSlide(AUTOLAYOUT_NONE, xDrawPages);
 271                 Reference< beans::XPropertySet > xSlideProps( xSlide, uno::UNO_QUERY );
 272                 //Slide dimensions
 273                 ::awt::Size aPageSize;
 274
 275                 xSlideProps->getPropertyValue(
 276                     OUString("Width")) >>= aPageSize.Width;
 277                 xSlideProps->getPropertyValue(
 278                     OUString("Height")) >>= aPageSize.Height;
 279
 280                 // grab the upper left one
 281                 void* pD1 = pImagesLst->GetEntryData(i);
 282                 pData = (OUString*) pD1;
 283                 sUrl1 = pData ? OUString(*pData) : "";
 284
 285                 // grab the upper right one
 286                 void* pD2 = pImagesLst->GetEntryData(i+1);
 287                 pData = (OUString*) pD2;
 288                 sUrl2 = pData ? OUString(*pData) : "";
 289
 290                 // grab the lower left one
 291                 void* pD3 = pImagesLst->GetEntryData(i+2);
 292                 pData = (OUString*) pD3;
 293                 sUrl3 = pData ? OUString(*pData) : "";
 294
 295                 // grab the lower right one
 296                 void* pD4 = pImagesLst->GetEntryData(i+3);
 297                 pData = (OUString*) pD4;
 298                 sUrl4 = pData ? OUString(*pData) : "";
 299
 300                 if( !sUrl1.isEmpty() )
 301                 {
 302                     Reference< graphic::XGraphic > xGraphic = createXGraphicFromUrl(sUrl1, xProvider);
 303
 304                     Image aImg(xGraphic);
 305                     // Save the original size, multiplied with 100
 306                     ::awt::Size aPicSize(aImg.GetSizePixel().Width()*100, aImg.GetSizePixel().Height()*100);
 307
 308                     Reference< drawing::XShape > xShape(
 309                         xShapeFactory->createInstance("com.sun.star.drawing.GraphicObjectShape"),
 310                         uno::UNO_QUERY);
 311
 312                     Reference< beans::XPropertySet > xProps( xShape, uno::UNO_QUERY );
 313                     xProps->setPropertyValue("Graphic", ::uno::Any(xGraphic));
 314
 315                     ::awt::Point aPicPos;
 316
 317                     if(pASRCheck->IsChecked())
 318                     {
 319                         // Resize the image, with keeping ASR
 320                         aPicSize = createASRSize(aPicSize, ::awt::Size(aPageSize.Width/2 - 100, aPageSize.Height/2 - 100));
 321                     }
 322                     else
 323                     {
 324                         aPicSize.Width = aPageSize.Width/2 - 100;
 325                         aPicSize.Height = aPageSize.Height/2 - 100;
 326                     }
 327                     xShape->setSize(aPicSize);
 328                     aPicPos.X = (aPageSize.Width/4 - aPicSize.Width/2);
 329                     aPicPos.Y = aPageSize.Height/4 - aPicSize.Height/2;
 330
 331                     xShape->setPosition(aPicPos);
 332                     xSlide->add(xShape);
 333                 }
 334                 if( !sUrl2.isEmpty() )
 335                 {
 336                     Reference< graphic::XGraphic > xGraphic = createXGraphicFromUrl(sUrl2, xProvider);
 337
 338                     Image aImg(xGraphic);
 339                     // Save the original size, multiplied with 100
 340                     ::awt::Size aPicSize(aImg.GetSizePixel().Width()*100, aImg.GetSizePixel().Height()*100);
 341
 342                     Reference< drawing::XShape > xShape(
 343                         xShapeFactory->createInstance("com.sun.star.drawing.GraphicObjectShape"),
 344                         uno::UNO_QUERY);
 345
 346                     Reference< beans::XPropertySet > xProps( xShape, uno::UNO_QUERY );
 347                     xProps->setPropertyValue("Graphic", ::uno::Any(xGraphic));
 348
 349                     ::awt::Point aPicPos;
 350
 351                     if(pASRCheck->IsChecked())
 352                     {
 353                         // Resize the image, with keeping ASR
 354                         aPicSize = createASRSize(aPicSize, ::awt::Size(aPageSize.Width/2 - 100, aPageSize.Height/2 - 100));
 355                     }
 356                     else
 357                     {
 358                         aPicSize.Width = aPageSize.Width/2 - 100;
 359                         aPicSize.Height = aPageSize.Height/2 - 100;
 360                     }
 361                     xShape->setSize(aPicSize);
 362                     aPicPos.X = (aPageSize.Width/4 - aPicSize.Width/2) + aPageSize.Width/2;
 363                     aPicPos.Y = aPageSize.Height/4 - aPicSize.Height/2;
 364
 365                     xShape->setPosition(aPicPos);
 366                     xSlide->add(xShape);
 367                 }
 368                 if( !sUrl3.isEmpty() )
 369                 {
 370
 371                     Reference< graphic::XGraphic > xGraphic = createXGraphicFromUrl(sUrl3, xProvider);
 372
 373                     Image aImg(xGraphic);
 374                     // Save the original size, multiplied with 100
 375                     ::awt::Size aPicSize(aImg.GetSizePixel().Width()*100, aImg.GetSizePixel().Height()*100);
 376
 377                     Reference< drawing::XShape > xShape(
 378                         xShapeFactory->createInstance("com.sun.star.drawing.GraphicObjectShape"),
 379                         uno::UNO_QUERY);
 380
 381                     Reference< beans::XPropertySet > xProps( xShape, uno::UNO_QUERY );
 382                     xProps->setPropertyValue("Graphic", ::uno::Any(xGraphic));
 383
 384                     ::awt::Point aPicPos;
 385
 386                     if(pASRCheck->IsChecked())
 387                     {
 388                         // Resize the image, with keeping ASR
 389                         aPicSize = createASRSize(aPicSize, ::awt::Size(aPageSize.Width/2 - 100, aPageSize.Height/2 - 100));
 390                     }
 391                     else
 392                     {
 393                         aPicSize.Width = aPageSize.Width/2 - 100;
 394                         aPicSize.Height = aPageSize.Height/2 - 100;
 395                     }
 396                     xShape->setSize(aPicSize);
 397                     aPicPos.X = (aPageSize.Width/4 - aPicSize.Width/2);
 398                     aPicPos.Y = aPageSize.Height/4 - aPicSize.Height/2 + aPageSize.Height/2;
 399
 400
 401                     xShape->setPosition(aPicPos);
 402                     xSlide->add(xShape);
 403                 }
 404                 if( !sUrl4.isEmpty() )
 405                 {
 406                     Reference< graphic::XGraphic > xGraphic = createXGraphicFromUrl(sUrl4, xProvider);
 407
 408                     Image aImg(xGraphic);
 409                     // Save the original size, multiplied with 100
 410                     ::awt::Size aPicSize(aImg.GetSizePixel().Width()*100, aImg.GetSizePixel().Height()*100);
 411
 412                     Reference< drawing::XShape > xShape(
 413                         xShapeFactory->createInstance("com.sun.star.drawing.GraphicObjectShape"),
 414                         uno::UNO_QUERY);
 415
 416                     Reference< beans::XPropertySet > xProps( xShape, uno::UNO_QUERY );
 417                     xProps->setPropertyValue("Graphic", ::uno::Any(xGraphic));
 418
 419                     ::awt::Point aPicPos;
 420
 421                     if(pASRCheck->IsChecked())
 422                     {
 423                         // Resize the image, with keeping ASR
 424                         aPicSize = createASRSize(aPicSize, ::awt::Size(aPageSize.Width/2 - 100, aPageSize.Height/2 - 100));
 425                     }
 426                     else
 427                     {
 428                         aPicSize.Width = aPageSize.Width/2 - 100;
 429                         aPicSize.Height = aPageSize.Height/2 - 100;
 430                     }
 431                     xShape->setSize(aPicSize);
 432                     aPicPos.X = (aPageSize.Width/4 - aPicSize.Width/2) + aPageSize.Width/2;
 433                     aPicPos.Y = aPageSize.Height/4 - aPicSize.Height/2 + aPageSize.Height/2;
 434
 435                     xShape->setPosition(aPicPos);
 436                     xSlide->add(xShape);
 437                 }
 438             }
 439         }
 440         else
 441         {
 442             InfoBox aInfo(this, OUString("Function is not implemented!"));
 443             aInfo.Execute();
 444         }
 445         EndDialog();
 446         return 0;
 447     }
 448     return 0;
 449 }
 450
 451 IMPL_LINK_NOARG(SdPhotoAlbumDialog, FileHdl)
 452 {
 453     ::sfx2::FileDialogHelper aDlg(
 454         css::ui::dialogs::TemplateDescription::FILEOPEN_LINK_PREVIEW,
 455         SFXWB_GRAPHIC | SFXWB_MULTISELECTION
 456     );
 457     // Read configuration
 458     OUString sUrl(".");
 459     Reference< XInterface > xCfg;
 460     try
 461     {
 462         xCfg = ::comphelper::ConfigurationHelper::openConfig(
 463             ::comphelper::getProcessComponentContext(),
 464             OUString("/org.openoffice.Office.Impress/"),
 465             ::comphelper::ConfigurationHelper::E_READONLY);
 466
 467         ::comphelper::ConfigurationHelper::readRelativeKey(
 468             xCfg,
 469             OUString("Pictures"),
 470             OUString("Path")) >>= sUrl;
 471     }
 472     catch(const Exception&)
 473     {
 474         OSL_FAIL("Could not find config for Create Photo Album function");
 475     }
 476
 477
 478     INetURLObject aFile( SvtPathOptions().GetPalettePath() );
 479     if (sUrl != "")
 480         aDlg.SetDisplayDirectory(sUrl);
 481     else
 482         aDlg.SetDisplayDirectory( aFile.GetMainURL( INetURLObject::NO_DECODE ) );
 483
 484     if ( aDlg.Execute() == ERRCODE_NONE )
 485     {
 486         Sequence< OUString > aFilesArr = aDlg.GetSelectedFiles();
 487         if( aFilesArr.getLength() )
 488         {
 489             sUrl = aDlg.GetDisplayDirectory();
 490             // Write out configuration
 491             try
 492             {
 493                 xCfg = ::comphelper::ConfigurationHelper::openConfig(
 494                     ::comphelper::getProcessComponentContext(),
 495                     OUString("/org.openoffice.Office.Impress/"),
 496                     ::comphelper::ConfigurationHelper::E_STANDARD);
 497
 498                 ::comphelper::ConfigurationHelper::writeRelativeKey(
 499                     xCfg,
 500                     OUString("Pictures"),
 501                     OUString("Path"),
 502                     uno::makeAny(sUrl));
 503
 504                 ::comphelper::ConfigurationHelper::flush(xCfg);
 505             }
 506             catch(const Exception&)
 507             {
 508                 OSL_FAIL("Could not find config for Create Photo Album function");
 509             }
 510
 511             for ( sal_Int32 i = 0; i < aFilesArr.getLength(); i++ )
 512             {
 513                 // Store full path, show filename only. Use INetURLObject to display spaces in filename correctly
 514                 INetURLObject aUrl = INetURLObject(aFilesArr[i]);
 515                 sal_Int16 nPos = pImagesLst->InsertEntry( aUrl.GetLastName(INetURLObject::DECODE_WITH_CHARSET, RTL_TEXTENCODING_UTF8) );
 516                 pImagesLst->SetEntryData(nPos, (OUString*) new OUString(aUrl.GetMainURL(INetURLObject::DECODE_WITH_CHARSET, RTL_TEXTENCODING_UTF8)));
 517             }
 518         }
 519     }
 520     EnableDisableButtons();
 521     return 0;
 522 }
 523
 524 IMPL_LINK_NOARG(SdPhotoAlbumDialog, UpHdl)
 525 {
 526     if (pImagesLst->GetSelectEntryPos() != LISTBOX_ENTRY_NOTFOUND
 527         && pImagesLst->GetSelectEntryPos() != 0)
 528     {
 529         sal_uInt16 nActPos = pImagesLst->GetSelectEntryPos();
 530         OUString sActEntry( pImagesLst->GetEntry(nActPos) );
 531         // actual data
 532         OUString* pActData = (OUString*) pImagesLst->GetEntryData(nActPos);
 533         OUString sAct(*pActData);
 534
 535         OUString sUpperEntry( pImagesLst->GetEntry(nActPos - 1) );
 536         // upper data
 537         OUString* pUpperData = (OUString*) pImagesLst->GetEntryData(nActPos - 1);
 538         OUString sUpper(*pUpperData);
 539
 540         pImagesLst->RemoveEntry( sActEntry );
 541         pImagesLst->RemoveEntry( sUpperEntry );
 542
 543         pImagesLst->InsertEntry( sActEntry, nActPos - 1 );
 544         pImagesLst->SetEntryData( nActPos - 1, (void*) new OUString(sAct));
 545
 546         pImagesLst->InsertEntry( sUpperEntry, nActPos );
 547         pImagesLst->SetEntryData( nActPos, (void*) new OUString(sUpper));
 548
 549         pImagesLst->SelectEntryPos(nActPos - 1);
 550     }
 551
 552     EnableDisableButtons();
 553     return 0;
 554 }
 555
 556 IMPL_LINK_NOARG(SdPhotoAlbumDialog, DownHdl)
 557 {
 558     sal_uInt16 nActPos = pImagesLst->GetSelectEntryPos();
 559     if (pImagesLst->GetEntry(nActPos + 1) != OUString("") )
 560     {
 561         OUString sActEntry( pImagesLst->GetEntry(pImagesLst->GetSelectEntryPos()) );
 562         OUString* pActData = (OUString*) pImagesLst->GetEntryData(pImagesLst->GetSelectEntryPos());
 563         OUString sAct(*pActData);
 564
 565         OUString sDownEntry( pImagesLst->GetEntry(nActPos + 1) );
 566         OUString* pDownData = (OUString*) pImagesLst->GetEntryData(nActPos + 1);
 567         OUString sDown(*pDownData);
 568
 569         pImagesLst->RemoveEntry( sActEntry );
 570         pImagesLst->RemoveEntry( sDownEntry );
 571
 572         pImagesLst->InsertEntry( sDownEntry, nActPos );
 573         pImagesLst->SetEntryData( nActPos, (void*) new OUString(sDown));
 574
 575         pImagesLst->InsertEntry( sActEntry, nActPos + 1 );
 576         pImagesLst->SetEntryData( nActPos + 1, (void*) new OUString(sAct));
 577
 578         pImagesLst->SelectEntryPos(nActPos + 1);
 579
 580     }
 581     EnableDisableButtons();
 582     return 0;
 583 }
 584
 585 IMPL_LINK_NOARG(SdPhotoAlbumDialog, RemoveHdl)
 586 {
 587     pImagesLst->RemoveEntry( pImagesLst->GetSelectEntryPos() );
 588     pImg->SetImage(Image());
 589
 590     EnableDisableButtons();
 591     return 0;
 592 }
 593
 594 IMPL_LINK_NOARG(SdPhotoAlbumDialog, SelectHdl)
 595 {
 596     OUString* pData = (OUString*) pImagesLst->GetEntryData(pImagesLst->GetSelectEntryPos());
 597     OUString sImgUrl = pData ? OUString(*pData) : "";
 598
 599     if (sImgUrl != SD_RESSTR(STR_PHOTO_ALBUM_TEXTBOX))
 600     {
 601         GraphicFilter aCurFilter;
 602         Graphic aGraphic;
 603         INetURLObject aURLObj( sImgUrl );
 604
 605         sal_uInt16 nFilter = GRFILTER_FORMAT_DONTKNOW;
 606
 607         if ( aURLObj.HasError() || INET_PROT_NOT_VALID == aURLObj.GetProtocol() )
 608         {
 609             aURLObj.SetSmartProtocol( INET_PROT_FILE );
 610             aURLObj.SetSmartURL( sImgUrl );
 611         }
 612
 613         sal_uInt32 nFilterImportFlags = GRFILTER_I_FLAGS_SET_LOGSIZE_FOR_JPEG;
 614         // remote?
 615         if ( INET_PROT_FILE != aURLObj.GetProtocol() )
 616         {
 617             SvStream* pStream = ::utl::UcbStreamHelper::CreateStream( sImgUrl, STREAM_READ );
 618
 619             if( pStream )
 620                 mpGraphicFilter->ImportGraphic( aGraphic, sImgUrl, *pStream, nFilter, NULL, nFilterImportFlags );
 621             else
 622                 mpGraphicFilter->ImportGraphic( aGraphic, aURLObj, nFilter, NULL, nFilterImportFlags );
 623             delete pStream;
 624         }
 625         else
 626         {
 627             mpGraphicFilter->ImportGraphic( aGraphic, aURLObj, nFilter, NULL, nFilterImportFlags );
 628         }
 629
 630         Bitmap aBmp = aGraphic.GetBitmap();
 631         sal_Int32 nBmpWidth  = aBmp.GetSizePixel().Width();
 632         sal_Int32 nBmpHeight = aBmp.GetSizePixel().Height();
 633         sal_Int32 nPrevWidth = 200;
 634         sal_Int32 nPrewHeight = 150;
 635
 636         double nXRatio = (double) nPrevWidth / nBmpWidth;
 637         double nYRatio = (double) nPrewHeight / nBmpHeight;
 638         if ( nXRatio < nYRatio )
 639             aBmp.Scale( nXRatio, nXRatio );
 640         else
 641             aBmp.Scale( nYRatio, nYRatio );
 642
 643         aBmp.Convert( BMP_CONVERSION_24BIT );
 644         pImg->SetImage( aBmp );
 645     }
 646     else
 647     {
 648         pImg->SetImage(Image());
 649     }
 650     EnableDisableButtons();
 651     return 0;
 652 }
 653
 654 Reference< drawing::XDrawPage > SdPhotoAlbumDialog::appendNewSlide(AutoLayout aLayout,
 655     Reference< drawing::XDrawPages > xDrawPages
 656 )
 657 {
 658     Reference< drawing::XDrawPage > xSlide; // Create the slide
 659     Reference< container::XIndexAccess > xIndexAccess( xDrawPages, uno::UNO_QUERY );
 660     xSlide = xDrawPages->insertNewByIndex( xIndexAccess->getCount() );
 661     SdPage* pSlide = pDoc->GetSdPage( pDoc->GetSdPageCount(PK_STANDARD)-1, PK_STANDARD);
 662     pSlide->SetAutoLayout(aLayout, sal_True); // Set the layout here
 663     return xSlide;
 664 }
 665
 666 awt::Size SdPhotoAlbumDialog::createASRSize(const awt::Size& aPicSize, const awt::Size& aMaxSize)
 667 {
 668     double resizeWidth = aPicSize.Width;
 669     double resizeHeight = aPicSize.Height;
 670     double aspect = resizeWidth/resizeHeight;
 671
 672     if( resizeWidth > aMaxSize.Width )
 673     {
 674         resizeWidth = aMaxSize.Width;
 675         resizeHeight = resizeWidth / aspect;
 676     }
 677
 678     if( resizeHeight > aMaxSize.Height )
 679     {
 680         aspect = resizeWidth/resizeHeight;
 681         resizeHeight = aMaxSize.Height;
 682         resizeWidth = resizeHeight * aspect;
 683     }
 684     return awt::Size(resizeWidth, resizeHeight);
 685 }
 686
 687 Reference< drawing::XShape > SdPhotoAlbumDialog::createXShapeFromUrl(const OUString& sUrl,
 688     Reference< lang::XMultiServiceFactory > xShapeFactory,
 689     Reference< graphic::XGraphicProvider> xProvider
 690 )
 691 {
 692     //First, we create an XGraphic
 693     ::comphelper::NamedValueCollection aMediaProperties;
 694     aMediaProperties.put( "URL", OUString( sUrl ) );
 695     Reference< graphic::XGraphic> xGraphic =
 696         xProvider->queryGraphic( aMediaProperties.getPropertyValues() );
 697     //And then, we can create the XShape from the XGraphic
 698     Reference< drawing::XShape > xShape(
 699         xShapeFactory->createInstance("com.sun.star.drawing.GraphicObjectShape"),
 700         uno::UNO_QUERY
 701     );
 702
 703     Reference< beans::XPropertySet > xProps( xShape, uno::UNO_QUERY );
 704     xProps->setPropertyValue("Graphic", ::uno::Any(xGraphic));
 705
 706     return xShape; // Image loaded into XShape
 707 }
 708
 709 Reference< graphic::XGraphic> SdPhotoAlbumDialog::createXGraphicFromUrl(const OUString& sUrl,
 710     Reference< graphic::XGraphicProvider> xProvider
 711 )
 712 {
 713     // The same as above, except this returns an XGraphic from the image URL
 714     ::comphelper::NamedValueCollection aMediaProperties;
 715     aMediaProperties.put( "URL", OUString( sUrl ) );
 716     Reference< graphic::XGraphic> xGraphic =
 717         xProvider->queryGraphic( aMediaProperties.getPropertyValues() );
 718     return xGraphic;
 719 }
 720
 721 short SdPhotoAlbumDialog::Execute()
 722 {
 723     return ModalDialog::Execute();
 724 }
 725
 726 void SdPhotoAlbumDialog::EnableDisableButtons()
 727 {
 728     pRemoveBtn->Enable(pImagesLst->GetSelectEntryCount() > 0);
 729     pUpBtn->Enable(pImagesLst->GetSelectEntryCount() > 0 &&
 730                    pImagesLst->GetSelectEntryPos() != 0);
 731     pDownBtn->Enable(pImagesLst->GetSelectEntryCount() > 0 &&
 732                      pImagesLst->GetSelectEntryPos() < pImagesLst->GetEntryCount()-1);
 733 }
 734
 735
 736 } // end of namespace sd
 737
 738 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */