LigthtBox - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Etiquetado: LightBox

Este debate tiene 2 respuestas, 2 mensajes y ha sido actualizado por última vez el 6 años por Gabriel Ornelas. This post has been viewed 1708 times

Mostrando 1 respuesta al debate

Autor

Entradas

23-10-2020 a las 12:17 #1371

Alfredo Sanz

Superadministrador

Bien, bien, bien!!

Veo que ya vais haciendo cosicas interesantes.

Me he permitido "nefelizar" un poco tu ejemplo.

Además me has dado un par de ideas nuevas para la nueva versión de Néfele.

Gracias por tu aportación.

PROCEDURE MainPage()
LOCAL n, aFiles := Directory("../htdocs/fotos/*.jpg") // OJO: En Xampp y Wampp la ruta puede variar

   WITH OBJECT TWebPage():New()
      :cBackground  := "https://img.rawpixel.com/s3fs-private/rawpixel_images/website_content/v748-toon-63_1_1.jpg?bg=transparent&con=3&cs=srgb&dpr=1&fm=jpg&ixlib=php-3.1.0&q=65&usm=15&vib=3&w=800&s=d98c67df8d5a1bf97c8a99789cb29b7a"
      :cBackgroundSize := "cover"

      WITH OBJECT WBevel():New( :WO )
           :cTitle      := "<strong>Galería de fotos</strong>"
           :lShadow     := .T.
           :nStyle      := xc_Row
           :cTitleAlign := xc_Center
           :oStyle:cBorder_radius := 15
           :oStyle:cMargin_top    := "1.656rem"
           :Create()
      END WITH

      WITH OBJECT WBevel():New(:WO)
         FOR n := 1 TO Len(aFiles)
            WITH OBJECT WImage():New( :WO )
               :aWidth      := {6,4,3}
               :cImage      := "/fotos/" +aFiles[n,1]
               :lResponsive := .t.
               :cClass      += "hoverable"
               :lClickZoom  := .t.
               :oStyle:cBorder_radius := 15
               :oStyle:cMargin_bottom := 20
               :oStyle:cPadding       := 5
               :Create()
            END WIDTH
         NEXT
         :Create()
      END WITH

      oCgi:SendPage( :Create() )        // Se crea el HTML final y se envía al navegador saliendo del ejecutable CGI
   END WITH

PROCEDURE MainPage()

LOCAL n, aFiles := Directory("../htdocs/fotos/*.jpg") // OJO: En Xampp y Wampp la ruta puede variar

WITH OBJECT TWebPage():New()

:cBackground := "https://img.rawpixel.com/s3fs-private/rawpixel_images/website_content/v748-toon-63_1_1.jpg?bg=transparent&con=3&cs=srgb&dpr=1&fm=jpg&ixlib=php-3.1.0&q=65&usm=15&vib=3&w=800&s=d98c67df8d5a1bf97c8a99789cb29b7a"

:cBackgroundSize := "cover"

WITH OBJECT WBevel():New( :WO )

:cTitle := "<strong>Galería de fotos</strong>"

:lShadow := .T.

:nStyle := xc_Row

:cTitleAlign := xc_Center

:oStyle:cBorder_radius := 15

:oStyle:cMargin_top := "1.656rem"

:Create()

END WITH

WITH OBJECT WBevel():New(:WO)

FOR n := 1 TO Len(aFiles)

WITH OBJECT WImage():New( :WO )

:aWidth := {6,4,3}

:cImage := "/fotos/" +aFiles[n,1]

:lResponsive := .t.

:cClass += "hoverable"

:lClickZoom := .t.

:oStyle:cBorder_radius := 15

:oStyle:cMargin_bottom := 20

:oStyle:cPadding := 5

:Create()

END WIDTH

:Create()

END WITH

oCgi:SendPage( :Create() ) // Se crea el HTML final y se envía al navegador saliendo del ejecutable CGI

END WITH

Contenido no disponible.
Por favor, acepta las cookies haciendo clic en este aviso

Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.
Esta respuesta fue modificada 6 años por Alfredo Sanz.

23-10-2020 a las 14:57 #1393

Gabriel Ornelas
Participante

Wow! Que sencillo lo hace Nefele. Gracias a ustedes por todo

Autor

Entradas

Mostrando 1 respuesta al debate

Debes estar registrado para responder a este debate.