Carrusel con tcvrflow

[Frafive]

Hola

Alguien tiene una idea de como crear un carrusel de fotos, con la clase tcvrflow ?

La idea es extraer las fotos de una base de datos mysql y mostrarla en una window y cada 10 segundos vayan pasando automaticamente.

Un saludo desde Granada
Gabriel

[jose_murugosa]

testcr2.prg de la carpecta samples de fivewin.

[Frafive]

Gracias José

Eso ejemplos lo he visto, pero no encuentro la forma de que pasen automaticamente.

Un saludo
Gabriel

[MGA]

Olá, com o uso de um timer e mais o uso de GoLeft, GoRight, vai conseguir o efeito desejado.



#include "FiveWin.ch"

function Main()

local oWnd, oCF, obar

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


DEFINE BUTTONBAR oBar OF oWnd SIZE 26,27

DEFINE BUTTON RESOURCE "LEFT" OF oBar GROUP ACTION ( oCF:GoLeft() )
DEFINE BUTTON RESOURCE "RIGHT" OF oBar GROUP ACTION ( oCF:GoRight() )

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 )

oCF:AddCover( "..\bitmaps\shakira.bmp", "shakira.bmp", CLR_BLACK )
oCF:AddCover( "..\bitmaps\naomi.bmp", "naomi.bmp", CLR_BLUE )
oCF:AddCover( "..\bitmaps\shakira.bmp" )
oCF:AddCover( "..\bitmaps\naomi.bmp", "naomi.bmp", CLR_BLACK )
oCF:AddCover( "..\bitmaps\007.bmp", "007", CLR_YELLOW )
oCF:AddCover( "..\bitmaps\shakira.bmp" )
oCF:AddCover( "..\bitmaps\naomi.bmp", "naomi.bmp", CLR_BLACK )
oCF:AddCover( "..\bitmaps\shakira.bmp" )
oCF:AddCover( "..\bitmaps\naomi.bmp", "naomi.bmp",CLR_BLACK )
oCF:AddCover( "..\bitmaps\shakira.bmp" )
oCF:AddCover( "..\bitmaps\naomi.bmp", "naomi.bmp",CLR_BLUE )
oCF:AddCover( "..\bitmaps\shakira.bmp" )
oCF:AddCover( "..\bitmaps\naomi.bmp", "naomi.bmp",CLR_RED )
oCF:AddCover( "..\bitmaps\shakira.bmp" )
oCF:AddCover( "..\bitmaps\naomi.bmp", "naomi.bmp",CLR_RED )
oCF:AddCover( "..\bitmaps\shakira.bmp" )
oCF:AddCover( "..\bitmaps\naomi.bmp", "naomi.bmp", CLR_YELLOW )

oWnd:oClient = oCF

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

return nil

[Frafive]

Gracias por la ayuda, ya lo tengo funcionando con un timer.

Un saludo
Gabriel