Ejemplo de Carrusel de fotos...

[Andrés González]

¿¿¿A ver si alguien se acuerda!!!Hace no mucho tiempo vi un mensaje en el foro de un ejemplo que mostraba las fotos en forma de carrusel como lo hace el iPod como las portadas de los albunes de música. Creo y espero no equivocarme que era de algo que se incorporaba a fivewin, pero la verdad le he perdido la pista y ahora no encuentro el ejemplo que realizaba este efecto. Por favor alguna pista para recobrar este ejemplo?

[Andrés González]

Bueno, buscando un poco por el wiki lo he encontrado. Daniel a eso me refería antes:
http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_tcoverflow

[Daniel Garcia-Gil]

Ufff

Se me había olvidado y pensar que fue una clase que hicimos Antonio y yo mientras mi estadía en España con el

[RodolfoRBG]

Esta clase (TCoverFlow) trabaja solo archivos BMP o puede tambien con JPG? Si no es asi, existe algo similar que trabaje JPGs?

[softruz]

Muy buenas foro, llevaba mucho tiempo pensando como se llamaba la clase esta, ¿Alguien me podría pasar el código fuente de la clase tCoverFlow?.

Un Saludo.

[Antonio Linares]

Juan,

El código de la Clase TCoverFlow y las funciones adicionales que precisa son parte integrante de FWH, por lo que debes tenerlo y de no ser asi puedes actualizarte desde www.fivetechsoft.com sección compras, gracias

[Daniel Garcia-Gil]

Esta clase (TCoverFlow) trabaja solo archivos BMP o puede tambien con JPG? Si no es asi, existe algo similar que trabaje JPGs?

Si podrias trabajar con cualquier tipo de imagen que soporte freeimage, solo tendrias que hacer un pequeño trabajo adicional de conversion de handle

[RodolfoRBG]

Geacias Daniel, podrias indicarme que es lo que hay que hacer?

[RodolfoRBG]

Hola Daniel,

Se puede usar el TCoverFlow dentro de un oDlg creado desde recursos?

Que cambios habria que hacer para que pueda usar JPGs, GIFs, etc?

Gracias de antemano.

[Antonio Linares]

Rodolfo,

Si, se puede usar desde un dialogo ó ventana.

Para usar otros formatos solo hay que convertirlos previamente a bitmaps. Para eso se crea un objeto TImage y una vez cargada la imagen, el bitmap está en su data hBitmap

[Daniel Garcia-Gil]

Rodolfo

Involucra un poco mas de programacion pero no es nada complicado...

copia este ejemplo en la carpeta sample y ejecutalo desde alli

Code: Select all  Expand view

// CoverFlow

#include "FiveWin.ch"

function Main()

   local oWnd, oCF
   local hImg
   
   DEFINE WINDOW oWnd  FROM 2, 2 TO 40, 96 color CLR_BLACK, CLR_CYAN

   oWnd:Center()
 
   oCF = TCoverFlow():New( 30, 30 )

   oCF:bAction = { | o, nCover, nOld | msginfo( "Seleted: " + str( nCover, 2 ) + CRLF + "From: " + str( nold ) ) }

   oCF:nMaxCover    = 5
   
   oCF:lAnimated= .T.
   oCF:SetColor( 0, CLR_BLACK )

   hImg = FiLoadImg( "..\gifs\fivewin.png" )
   oCF:AddCoverH( hImg )
   DeleteObject( hImg )
   hImg = FiLoadImg( "..\gifs\icon.png" )
   oCF:AddCoverH( hImg )
   DeleteObject( hImg )
   hImg = FiLoadImg( "..\bitmaps\olga1.jpg" )
   oCF:AddCoverH( hImg )
   DeleteObject( hImg )
   hImg = FiLoadImg( "..\gifs\fivewin.png" )
   oCF:AddCoverH( hImg )
   DeleteObject( hImg )
         
   oWnd:oClient = oCF

   ACTIVATE WINDOW oWnd on init( oCF:Resize(), oCF:Refresh() )
                       
return nil
 

[RodolfoRBG]

Perfeeeecto!

Don Antonio, gracias por tu aclaracion.

Don Daniel, gracias por tu ilustrativo ejemplo.

[noe aburto]

Saludos a todos.

Viendo este este mensaje en el foro, me puse a la tarea de poner el ejemplo de la clase, si mas nada que hacer.
Mi duda es a partir de que version de FWH viene implenta, uso version 8.11, y si existe forma de poder bajarla?

FWh 8.11, xH 1.1, bcc55