Page 1 of 1
CoverFlow / Flipview
Posted: Sun Jul 29, 2012 7:45 am
by Otto
Hello Antonio,
Can you please adapt “CoverFlow – class” to simulate
METRO - Flipview control.
Thanks in advance
Otto
![Image](http://www.atzwanger-software.com/fw/flip3.jpg)
Re: CoverFlow / Flipview
Posted: Sun Jul 29, 2012 8:02 am
by nageswaragunupudi
Nice !
Can be done even without relying on coverflow class.
I am interested in knowing how do you propose to use this in a business application?
Re: CoverFlow / Flipview
Posted: Sun Jul 29, 2012 8:14 am
by Otto
Dear Mr. Rao,
for example a catalog of parts, products, cookbook, etc.
Best regards,
Otto
![Image](http://www.atzwanger-software.com/fw/flip4.jpg)
Re: CoverFlow / Flipview
Posted: Tue Sep 04, 2012 8:43 am
by Otto
Any news?
Best regards,
Otto
Re: CoverFlow / Flipview
Posted: Tue Sep 04, 2012 3:56 pm
by nageswaragunupudi
Suggested approach for the grid in the Asian Cuisine:
Code: Select all
#include "FiveWin.Ch"
#include "xbrowse.ch"
#include "hbcompat.ch"
//----------------------------------------------------------------------------//
function Main()
local oWnd, oBrw, oFont, oBrush, aData
local n, m, k, cPath, aDir, aRow
SET DATE ITALIAN
SET CENTURY ON
XBrNumFormat( 'A', .t. )
aData := {}
cPath := "c:\fwh\bitmaps\pngs\"
aDir := Directory( cPath + "i*.png" )
k := 1
for n := 1 to Len( aDir ) step 3
aRow := {}
for m := 0 to 2
if k <= Len( aDir )
AAdd( aRow, cPath + aDir[ n + m, 1 ] )
AAdd( aRow, aDir[ n + m, 1 ] )
else
AAdd( aRow, nil )
AAdd( aRow, nil )
endif
k++
next
AAdd( aData, aRow )
next
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-14
DEFINE BRUSH oBrush FILE "c:\fwh\bitmaps\hires\office.bmp" STRETCH
DEFINE window oWnd BRUSH oBrush
oWnd:SetFont( oFont )
@ 100,100 XBROWSE oBrw SIZE 500,-100 PIXEL OF oWnd ;
DATASOURCE aData AUTOCOLS NOBORDER ;
COLOR CLR_WHITE,RGB(77,117,225)
WITH OBJECT oBrw
:lHeader := ;
:lRecordSelector := ;
:lHScroll := ;
:lVScroll := .f.
:nDataStrAligns := AL_CENTER
:nDataBmpAligns := AL_CENTER
for n := 1 to Len( :aCols ) STEP 2
:aCols[ n ]:cDataType := 'F'
:aCols[ n ]:nWidth := 100
next
for n := 2 to Len( :aCols ) STEP 2
:aCols[ n ]:bClrStd := { || { CLR_WHITE, RGB( 115,23,26 ) } }
next
for n := 1 to Len( :aCols ) STEP 2
:aCols[ n ]:SetColsAsRows( n, n + 1 )
next
//
:CreateFromCode() // omit for resource
END
ACTIVATE WINDOW oWnd MAXIMIZED
RELEASE FONT oFont
RELEASE BRUSH oBrush
return nil
//----------------------------------------------------------------------------//
Final appearance depends on the choice of images, fine tuning of browse parameters like cell size, fonts, colors, etc.
Re: CoverFlow / Flipview
Posted: Tue Sep 04, 2012 5:15 pm
by Eoeo
good ...but if it'll be transparent perhaps it's good!!!
Re: CoverFlow / Flipview
Posted: Wed Sep 05, 2012 5:10 am
by nageswaragunupudi
Eoeo wrote:good ...but if it'll be transparent perhaps it's good!!!
Like this ?
![Image](http://img145.imageshack.us/img145/6551/cuisine2.jpg)
Re: CoverFlow / Flipview
Posted: Wed Sep 05, 2012 5:42 pm
by Eoeo
ahahahahahaha yes
![Smile :)](./images/smilies/icon_smile.gif)