FiveTech Software tech support forums

... 3,"name":"John Kocinsky","abr":"JK"}]' );
_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 ...

... 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( "MiPrueba" )

oDb ...

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

... 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( 1 ...

... 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 ...

... 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 ...

... 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 ...

... 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 ...

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

... 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 ...

... 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 ...

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 ...