VBX no FWH

[jbinfo]

Amigos,

Consegui completar a conversão dos meus principais sistemas para 32 bits. Porém ainda estou tendo problemas na minha rotina de construção de gráficos, na qual eu utilizava a vbx CHART2FX.

Tentei encontrar uma outra versão da vbx (32 bits) mas não obtive sucesso. Foi então que eu percebi que mesmo os samples do fwh relacionados ao assunto davam o mesmo erro.

Perguntas:

1- Alguém usa essa vbx ou qualquer outra no FWH?

2- O que pode estar acontecendo?

3- Qual seria a solução?

Erro: Error BASE/1004 Class: 'NIL' has no exported method: NEW

Abraço à todos,

Muito Grato,

Guilherme Gonçalves

Campinas - SP

xHarbour99.3-FWH 25-BCC55

Guilherme Gonçalves

Campinas-SP

xHarbour 99.3/Bcc55/FWh2.5/Workshop

[kapiaba]

Ola. Veja se te ajuda.

http://www.dbwide.com.ar/local-cgi/counter/filecount2.cgi?docs/chart2fx_doc.zip

http://www.dbwide.com.ar/local-cgi/counter/filecount2.cgi?sources/tgraph3.zip

http://www.dbwide.com.ar/local-cgi/counter/filecount2.cgi?sources/tgraph3-exe.zip

//---------------------------------------------------------------------------//

Impresión/Preview Graficas Chart2Fx Víctor Manuel Tomás Díaz

En el manejo de las graficas , yo uso el control chart2fx , y los resultados son muy buenos. Para generar una impresión con este control tienes 3 opciones.

Opcion 1

El control contiene una funcion dentro de la barra de herramientas que genera una impresión tamaño carta.

Y solo tienes dos opciones de impresion: Vertical o Horizontal.

En lo particular esa opción no me agrada , por que te limita el que no puedas definir el tamaño de la impresión.

Opcion 2

Puedes usar la funcion ChartPaint() esta funcion te permite enviar a la impresora la grafica , con la coordenadas que tu decidas.

Esta es la opcion que mas uso. Pero , siempre hay un pero , no puedes hacer un preview al documento.

El codigo sería asi:

DLL Function Chart_Paint( hWnd AS _INT, hDC AS _INT, nLeft AS _INT, nTop AS _INT, nRight AS _INT,;

nBottom AS _INT, bPrintMode AS BOOL, I AS LONG) AS VOID PASCAL LIB "CHART2FX.VBX"

Function aImprimir(aoVbx)

Local oPrn, oPen, nRow, cPag, nLin

Local nTop , nLeft,nBot,nRight

Print oPrn Name "Imprimir gráficas"

If !Empty(oPrn:hDc) // Cancelada la Impresi¢n por el usuario

Define Font oFnt Name "Arial" Size 0,-12 BOLD Of oPrn

Define Pen oPen Width 2

oPrn:Rebuild()

oPrn:SetLandScape() // apaisado [ ]

oPrn:SetPage(1) // Letter 8 1/2 x 11 in Carta

PAGE

oPrn:Say( oFnt:nHeight, oFnt:nWidth * 5,"Víctor Manuel Tomás Díaz",oFnt)

oPrn:Line( oFnt:nHeight * 4.5, oFnt:nWidth * 5, oFnt:nHeight *4.5, oPrn:nHorzRes(), oPen )

nTop := 5 ; nLeft := 1 ; nBot := 10 ; nRight := 21

oPrn:Cmtr2Pix( @nTop, @nLeft )

oPrn:Cmtr2Pix( @nBot, @nRight )

Chart_Paint( aoVbx[1]:hWnd, oPrn:hDCOut, nLeft, nTop, nRight, nBot,1, 0 )

ENDPAGE

Endif

EndPrint

oPrn:End()

oFnt:End()

oPen:End()

Return Nil

Opcion 3

Hay usuarios que antes de imprimir la grafica desean hacerle un Preview , ¿ para que ? , ni idea , pero en fin , usuarios son usuarios :-(.

Y como podemos hacer un preview de un gráfico generado con Chart2Fx , bueno , es muy fácil , aquí vamos a usar una propiedad del control.

Propiedad Export, esta propiedad nos permite enviar la imagen de nuestro gráfico a un formato .WMF y listo el pollo , más fácíl no podía ser, ahora lo único que hay que hacer es cargar el .wmf a la impresora, el código es el siguiente:

En una opcion de menu :

#DEFINE CHART_METAFILE 3

oVbx:Export[CHART_METAFILE] := cGetFile("*.WMF")

Y esta funcion :

/*

Función PrintWmf()

Autor : Víctor Manuel Tomás Díaz

Fecha : 9-Ene-2002

Coloca en el Preview un Metafile ( WMF )

*/

FUNCTION PrintWmf()

LOCAL oPrn, cArchivoWMF := cGetFile( "*.wmf", "Seleccione un archivo" )

PRINTER oPrn PREVIEW

PAGE

oPrn:ImportWMF( cArchivoWMF, .f. )

ENDPAGE

ENDPRINT

RETURN ( Nil )

Bad Boy - The HuntsMan Of E.A.J. Automação Comercial.

kapiaba@brfree.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE