In testcf1.prg:
// CoverFlow
include "FiveWin.ch"
function Main()
local oWnd, oCF
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 )
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
How do I control the size of the picture displayed ?
Regards
acwoo
