FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ejemplo de Carrusel de fotos...
Andrés González
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Ejemplo de Carrusel de fotos...
Posted: Mon May 09, 2011 06:03 PM
¿¿¿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?
Saludos



Andrés González desde Mallorca
Andrés González
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Ejemplo de Carrusel de fotos...
Posted: Mon May 09, 2011 09:21 PM
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
Saludos



Andrés González desde Mallorca
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Mon May 09, 2011 09:36 PM

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

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
RodolfoRBG
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Wed May 11, 2011 04:20 AM

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

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
softruz
Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
Re: Ejemplo de Carrusel de fotos...
Posted: Wed May 11, 2011 07:20 AM

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
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Wed May 11, 2011 08:20 AM

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 :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Wed May 11, 2011 09:48 AM
RodolfoRBG wrote: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
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
RodolfoRBG
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Wed May 11, 2011 02:21 PM

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

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
RodolfoRBG
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Sun Jul 03, 2011 06:38 PM

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.

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Tue Jul 05, 2011 08:26 AM

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 :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Tue Jul 05, 2011 08:28 PM
Rodolfo

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

copia este ejemplo en la carpeta sample y ejecutalo desde alli

Code (fw): Select all Collapse
// 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
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
RodolfoRBG
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Tue Jul 05, 2011 08:38 PM

Perfeeeecto!

Don Antonio, gracias por tu aclaracion.

Don Daniel, gracias por tu ilustrativo ejemplo.

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Re: Ejemplo de Carrusel de fotos...
Posted: Mon Jul 11, 2011 05:57 PM

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

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions