- Code: Select all Expand view
oCoverFlow = TCoverFlow():New( oWnd, 30, 30, 300, 200 )
oCoverFlow:bAction = { | oCoverFlow, nCover, nOldCover | MsgInfo( "Selected: " + Str( nCover ) ) }
oCoverFlow:AddCover( "shakira.bmp" )
oCoverFlow:AddCover( "naomi.bmp" )
oCoverFlow:AddCover( "shakira.bmp" )
oCoverFlow:AddCover( "naomi.bmp" )
oCoverFlow:AddCover( "007.bmp" )
oCoverFlow:AddCover( "shakira.bmp" )
oCoverFlow:AddCover( "naomi.bmp" )
oCoverFlow:AddCover( "shakira.bmp" )
oCoverFlow:AddCover( "naomi.bmp" )
oCoverFlow:AddCover( "shakira.bmp" )
oCoverFlow:AddCover( "naomi.bmp" )