PhotoAlbum

Reported on en-Forum as not OO4 compatible
[url]https://forum.openoffice.org/en/forum/viewtopic.php?f=10&t=65933&p=310807#p310806[/url]

Reported on en-Forum as not OO4 compatible
[url]https://forum.openoffice.org/en/forum/viewtopic.php?f=10&t=65933&p=310807#p310806[/url]

Why to set online a zip file? Newbies users are lost to install it.

This macro language doesn't look much like the BASIC I learned in 1974, but the patch below seems to work OK. It should be applied to modPhotoAlbum.xba. (It's not efficient; someone with a better grasp of this pseudo-BASIC language could do much better by using quicksort or some other algorithm.)

Hmmm... turns out that this brilliant "forum" software mangles patches. I don't know how to get around that....

----

61,65c61,67
---
>
> ' N7DR simple sort to put photos in filename order
>
> dim iFiles as integer
> iFiles = 0
> sFile = dir(sDir)
> While Not (sFile = "")
67,79c69,72
---
> iFiles = iFiles + 1
> end if
> sFile = dir
> Wend
81,84c74,82
---
> dim sFileNames(iFiles) as string
>
> iFiles = 0
> sFile = dir(sDir)
> While Not (sFile = "")
> if rppIsGraphicFile (sFile) then
> iFiles = iFiles + 1
> sFileNames(iFiles) = sFile
> end if
87c85,131
---
>
> dim sSortedFileNames(iFiles) as string
>
> dim iLoop1 as integer
> dim iLoop2 as integer
>
> dim sName as string
> dim iIndex as integer
>
> sName = ""
> iIndex = 1
>
> for iLoop1 = 1 to iFiles
> sName = "}"
> iIndex = 1
> for iLoop2 = 1 to iFiles
> if Not (sFilenames(iLoop2) = "") then
> if (sFileNames(iLoop2) < sName) then
> sName = sFileNames(iLoop2)
> iIndex = iLoop2
> end if
> end if
> next iLoop2
>
> sSortedFileNames(iLoop1) = sName
> sFileNames(iIndex) = ""
> next iLoop1
>
> for iIndex = 1 to iFiles
> sFile = sSortedFileNames(iIndex)
>
> 'Add a slide for this graphic
> oSlides.InsertNewByIndex (oSlides.Count)
>
> 'Set page changing properties included fade effect
> oDrawPage = oSlides.getByIndex (oSlides.Count -1)
> oDrawPage.Effect = oEffect
> oDrawPage.Speed = oSpeed
> oDrawPage.Change = iChange
> oDrawPage.Duration = iDuration
> 'Add graphic to slide
> AddGraphic (oAlbum, ConvertToURL (sDir & sFile), oDrawPage)
>
> 'Name slide with file name
> oSlides (oSlides.Count - 1).Name = sFile
> next iIndex
>

I tried a directory containing files with the names:

0000.jpg
0001.jpg
...
0009.jpg

And these also were added in random order.

This is with OOo 3.2, 64-bit Linux (Kubuntu lucid).

I can't even guess at a workaround for this. Apparently other people haven't had this problem; I have no idea why not. This is completely reproducible here.

I just tried this extension, using a test directory containing 10 files with names of the form:

cqwwssb2008-081025.nnnn.jpg

It created a slideshow, but the files are in a random order.

I also tried 10 files with names of the form:

cqwwssb2008-081025-nnnn.jpg

in case the extra full stop in the file names was not being handled properly, but the slides are still imported in random order.

I was hoping so much to be able to craete a slideshow with this tool (I have several hundred images in a non-test directory), but it seems that this tool isn't going to do the job :-(

Provision should be made to view files to be inserted and sort them according to other than the filename... ala Windows Explorer. Otherwise, GREAT IDEA!

Permite inserir imagens, muito rapidamente em apresentações

Jacinto Leal