FiveTech Software tech support forums

... ); _ringo.SetData( aRows ); }) </script> y dice que hubo un error aca: //console.trace() if ( lInit ) { this.Init( aData ) } else { // Instancia oBrowse = $('#' + this.cId ) oBrowse.bootstrapTable( { ignoreClickToSelectOn: TWebBrowseIgnoreClickToSelectOn ...

... := trim( cDbName ) oMySql := TMSConnect():New() // Nos conectamos al servidor lRet := oMySql:Connect( cHost, cUser, cPassword, cDbName ) if oMySql:lInit MsgInfo( "Inicializado...", "Hola" ) endif if oMySql:Connect() MsgInfo( "Conectado", "Hola" ) oMySql:CreateDB( ...

Sistem wrote:rpreview.prg linha 1477

if ! ::lZoom .and. ! lInit
// ::Zoom( .T. ) // anular esta line
endif esta linha

Muchísimas gracias, funcionó perfecto.

rpreview.prg linha 1477

if ! ::lZoom .and. ! lInit
// ::Zoom( .T. ) // anular esta line
endif esta linha

... rpreview.prg nos lo arreglaste así en el método Setfactor de rpreview.prg ::oMeta1:SetZoomFactor( ::nZFactor, ::nZFactor * 2 ) if !::lZoom .and. ! lInit ::Zoom( .T. ) // A.L. 08 Oct 2007 endif if ::lZoom ::oWnd:oVScroll:SetRange( 1, VSCROLL_RANGE ) if ::nZFactor > 1 ::oWnd:oHScroll:SetRange( ...

... los recursos definidos. RETURN( NIL ) STAT FUNC Refr_Bmp(hDC,oBmp) LOCAL aRect, hWnd, nColor:=255 LOCAL oBrush, nSteps, nI,n local nBlue := 200 IF lInit aRect:=GetCoors(GetDeskTopWindow()) // Coordenadas de ventana IF aRect[3]>=768 // si > 600x800 la centra aRect[1]:=(aRect[3]-580)/2 aRect[2]:=(aRect[4]-800)/2 ...

... endif return nil //----------------------------------------------------------------------------// METHOD SetFactor( nValue ) CLASS TPreview local lInit := .F. if nValue == nil .and. ::oWnd:oMenu != nil AEval( ::aFactor, { | v, e | v:nHelpId := e } ) nValue := ::nZFactor lInit := .T. endif if ::oWnd:oMenu ...

... endif endif return nil //----------------------------------------------------------------------------// static function SetFactor( nValue ) local lInit := .F. if nValue == nil Aeval(aFactor, {|v,e| v:nHelpId := e}) nValue := nZFactor lInit := .T. endif Aeval(aFactor, {|val,elem| val:SetCheck( ...

... , "" ) //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 ...

METHOD SetFactor( nValue ) CLASS TPreview
local n, lInit := .f.

< other code >
n :- 1 + ( nValue - 1 ) * 0.1
::oMeta1:SetZoomFactor( n, 2 * n )
< other code >
return nil

... ) METHOD Report( cTitle, lPreview, oFont, cCaption, lModal, aCols, ; cHeader, cFooter ) METHOD Reset( cField, uVal1, uVal2 ) METHOD ResetBarPos( lInit ) METHOD ResetSeek() METHOD ReSize( nSizeType, nWidth, nHeight ) METHOD TSBrwScroll( nDir ) INLINE ; TSBrwScroll( ::hWnd, nDir, If( ::oFont != ...

... endif endif return nil //----------------------------------------------------------------------------// static function SetFactor( nValue ) local lInit := .F. if nValue == nil Aeval(aFactor, {|v,e| v:nHelpId := e}) nValue := nZFactor lInit := .T. endif Aeval(aFactor, {|val,elem| val:SetCheck( ...

Antonio, after patch rpreview with :

if ! ::lZoom .and. ! lInit
// ::Zoom( .T. ) A.L. 08 Oct 2007
endif

posted in this forum, to user NageswaraRao, the left page is corrected, the font is wrong in left page, fixed with lines above.

thanks

... "FIVEWIN.CH" #Include "TGRAPH.CH" STATIC oGraph, oGlfGraph, aSerie, nTotal STATIC aSers, aPers, nGraph, aValues, aVals STATIC cFile, aItem, lInit, nRangoG //----------------------------------------------------------------------------// FUNCTION GrafVent() nRangoG:= DAY(UltimoDia(DATE())) ...

... 128, 128, 192) //Graficas #define GRAPH_TYPE_BAR 1 #define GRAPH_TYPE_LINE 2 #define GRAPH_TYPE_POINT 3 #define GRAPH_TYPE_ALL 4 static oWnd, lInit MEMVAR cEmpresa, nEmpresa, oBmpLogo, oBmp, cFntW, cBmp, cFont //----------------------------------------------------------------------------// ...