Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Carrusel con tcvrflow
Posted: Mon Jan 14, 2019 11:49 AM

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

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Re: Carrusel con tcvrflow
Posted: Mon Jan 14, 2019 12:04 PM

testcr2.prg de la carpecta samples de fivewin.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

Frafive

Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Re: Carrusel con tcvrflow
Posted: Mon Jan 14, 2019 12:06 PM

Gracias José

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

Un saludo
Gabriel

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Carrusel con tcvrflow
Posted: Mon Jan 14, 2019 01:42 PM

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

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Frafive

Posts: 189

Joined: Wed Apr 05, 2006 09:48 PM

Re: Carrusel con tcvrflow
Posted: Wed Jan 16, 2019 12:58 PM

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

Un saludo
Gabriel

FiveTech Support Forums

include "FiveWin.ch"

Continue the discussion