Page 1 of 1

Preview look 2007

Posted: Mon May 12, 2008 9:41 pm
by 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

Posted: Mon May 12, 2008 10:15 pm
by 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