by FranciscoA » Sun Aug 30, 2009 12:29 am
Como expuse anteriormente, al compilar con FWH901, me tiraba varios errores, por lo que tuve que hacerle unos cuantos ajustes, y en pruebas realizadas ha estado funcionando. (utilizando ventanas Childs en el preview).
Aquí los ajustes:
STATIC cPRTDefault:="", lCambioPRT:=.F. //FranciscoA
//----------------------------------------------------------------------------//
CLASS TPreview
.....
.....
METHOD Activate() CLASS TPreview
ACTIVATE WINDOW ::oWnd MAXIMIZED ;
ON RESIZE ::PaintMeta() ;
ON UP ::VScroll( GO_UP ) ;
ON DOWN ::VScroll( GO_DOWN ) ;
ON PAGEUP ::VScroll( GO_UP, GO_PAGE) ;
ON PAGEDOWN ::VScroll( GO_DOWN, GO_PAGE) ;
ON LEFT ::HScroll( GO_LEFT ) ;
ON RIGHT ::HScroll( GO_RIGHT ) ;
ON PAGELEFT ::HScroll( GO_LEFT, GO_PAGE ) ;
ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ;
VALID ( ::oWnd:oIcon := nil ,;
::oFont:End() ,;
::oMeta1:End() ,;
::oMeta2:End() ,;
::oDevice:End() ,;
::oHand:End() ,;
::oWnd := nil ,;
If( IsAppThemed() .and. ! l2007, ::oImageList:End(),),;
::lExit := .T. ,;
PRTDefault() ,; //function de Adhemar
.T. )
Le quité el llamado a PRTDefault() a todos los botones que lo tenían.
METHOD BuildWindow() CLASS TPreview
local oCbx,cCbx:=PrnGetName()
@ 3, 500 COMBOBOX ::oFactor VAR ::nZFactor ;
ITEMS {"100 %","110 %","120 %","130 %","140 %","150 %","160 %","170 %","180 %","190 %","200 %"} ;
OF ::oBar FONT ::oFont PIXEL SIZE 55,180 ON CHANGE oThis:SetFactor( oThis:nZFactor )
//FranciscoA
@3,235 COMBOBOX oCbx VAR cCbx PROMPTS aGetPrinters() OF ::oBar FONT ::oFont PIXEL SIZE 216,25 ON CHANGE CambiaPRT(cCbx)
cPRTDefault := GetProfString( "windows", "device" , "" ) //FranciscoA
METHOD BuildMenu() CLASS TPreview
local oFactor //FranciscoA
METHOD SetFactor( nValue ) CLASS TPreview
Local lInit := .F.,n
if nValue == nil .and. ::oWnd:oMenu != nil
AEval( ::aFactor, { | v, e | v:nHelpId := e } )
nValue := ::nZFactor
lInit := .T.
endif
//FranciscoA
if nValue == nil
nValue := 1
endif
Saludos
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql