Preview look 2007

[stefano]

I changed the class preview 2 points


1) ... no look 2007

METHOD BuildMenu() CLASS TPreview

if !l2007
MENU oMenu 2007
else
MENU oMenu
endif

2) ... error preview two page and zoom page 2

METHOD SetOrg2( nX, nY ) CLASS TPreview

if l2007
::obar:Refresh()
else
::oPage:Refresh()
endif


regards
Stefano

[stefano]

sorry
Review menu for 2007


1) ... no look 2007

static l2007 := .T.

METHOD BuildMenu() CLASS TPreview


if l2007
MENU oMenu 2007
else
MENU oMenu
endif


regards
Stefano