Page 1 of 1
Carrusel con tcvrflow
Posted: Mon Jan 14, 2019 11:49 am
by 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
Re: Carrusel con tcvrflow
Posted: Mon Jan 14, 2019 12:04 pm
by jose_murugosa
testcr2.prg de la carpecta samples de fivewin.
Re: Carrusel con tcvrflow
Posted: Mon Jan 14, 2019 12:06 pm
by Frafive
Gracias José
Eso ejemplos lo he visto, pero no encuentro la forma de que pasen automaticamente.
Un saludo
Gabriel
Re: Carrusel con tcvrflow
Posted: Mon Jan 14, 2019 1:42 pm
by 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
Re: Carrusel con tcvrflow
Posted: Wed Jan 16, 2019 12:58 pm
by Frafive
Gracias por la ayuda, ya lo tengo funcionando con un timer.
Un saludo
Gabriel