FiveTech Software tech support forums

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

there is a topic "size of bitmaps"
it is ok also for all images