Galería de fotos

Hola Baronclo!
Sigo con el proyecto de visualizador de fotos, lo tengo enfocado pero tengo un par de dudas con respecto al las listas.
Estoy haciendo una galería de fotos con Director, pero dicha galería debe ser ampliable en un futuro por cualquier usuario, por lo que tengo las imágenes en una carpeta externa y tengo un script (que envío abajo) para que al comenzar me obtenga todos los archivos almacenados en la carpeta.
1. Vería las miniaturas (15 según la plantilla) de las fotos incluidas en una carpeta externa. Con dos botones debo poder pasar a las siguientes 15 fotos de la lista obtenida al comenzar la película, el problema es que NO SÉ COMO INDICAR ESTO EN CÓDIGO LINGO
2. Al hacer click en cualquier foto se abre otra pantalla con la foto a tamaño completo y un botón de volver a la pantalla anterior, con las miniaturas. ¿Cómo me refiero al archivo en cuestión que tiene que abrirse? ¿Cuál es la forma más sencilla de plantearlo?
Aquí te envío el comienzo del script:
global fileList, myDirectory, fileCount
global currentSprite, spriteMember
on prepareMovie
member("myFileCount").text = "Loading..."
myDirectory = the moviepath & "images"
end
on startMovie
getFiles myDirectory
end
on stopMovie
repeat with i =1 to fileCount
member(i,2).erase()
end repeat
end
----------------------------------------------------------------------------------------------
-- IMPORT IMAGES
----------------------------------------------------------------------------------------------
on getFiles myDirectory
fileList = [ ]
repeat with i = 1 to 100
n = getNthFileNameInFolder(myDirectory, i)
if n = EMPTY then exit repeat
fileList.append(n)
importFileInto member i of castLib 2, myDirectory & "\" & getAt(fileList, i)
end repeat
fileCount = filelist.count
member("myFileCount").text = string(fileCount)
end
1

1 respuesta

Respuesta
1
Enviame un email a [email protected] y trataré de enviarte un ejemplo.
En el email indica un apodo, version de Director y una copia del mensaje. Todo eso para saber quien eres.
Para adelantarte algo, creo que será necesario modificar el script para generar el listado de los archivos, ya que pueden haber más o menos de 100 archivos e incluirse archivos de otro tipo (no imagen).
Básicamente uso el Xtra FileXtra y el script sería como sigue:
On ImportaImagen
--Genera listado de archivos
myDirectory = the moviepath & "images\"
myTipoBuscado=".jpg"
fileList = []
fxObj = xtra("FileXtra4").new()
listadoTodo = fxObj.fx_FolderToList(myDirectory)
fxObj = 0
numeroTodos=listadoTodo.count
if numeroTodos >0 then
fxObj = xtra("FileXtra4").new()
repeat with i = 1 to numeroTodos
nombreArchivo=listadoTodo
tipoArchivo=fxObj.fx_FileGetType(myDirectory & nombreArchivo)
if tipoArchivo=myTipoBuscado then
add fileList, nombreArchivo
end if
end repeat
fxObj = 0
end if
put fileList
end

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas