RMChart

[JoséQuintas]

Minha impressora é LASER COLORIDA.
O alerta de toner acabando mostrava a tinta indo embora até mesmo com a impressora fora de uso.
Segundo o alerta, a tinta colorida acabou há uns 4 anos.... rs

São 4 cartuchos de toner: vermelho, azul, amarelo e preto.
Tá na hora de comprar cartucho novo....pra mais 5 anos... rs

[JoséQuintas]

No manual do RMChart tem este comentário:

To be honest: I can't give a general advice, which option you should use. I found no significant differences on my printer (HP G85) between the three modes. I think, in most cases the default setting will be alright, but make your own experiences.

Pra ser honesto: não posso dar um conselho geral, sobre qual opção usar. Eu não encontrei diferenças significativas na minha impressora (HP G85) entre os tres modos. Imagino que, na maioria dos casos a configuração default irá ficar bem, mas faça suas próprias experiências

[asimoes]

A minha hp é laserjet pro usa somente um cartucho preto eu pago no máximo 62 reais. dá para 1500 impressões.

[JoséQuintas]

ASimões:

Sabe o arquivo que passou como RMChart(4.12), ou algo assim nos posts anteriores?
Pode deixar só o setup.exe, e apagar todo restante do conteúdo.

[asimoes]

Quintas,

O que interessa do setup é a dll, o chm e o rmcdesigner como guia

[JoséQuintas]

Usando os arquivos desse ZIP, alguns exemplos do VB6 não funcionam.

Já usando as pastas instaladas pelo SETUP.EXE, todos funcionam.

Se for o caso, substitua os arquivos desse ZIP pelos que forem instalados pelo SETUP.EXE.

É algo como estar tudo em duplicidade, mas não são iguais.

[JoséQuintas]

Definitivamente, o problema do RMChart é ele mesmo.

Você entra no Designer, carrega o gráfico, pede pra ele gerar o fonte.

Ao usar o fonte... dá GPF.

Consultando o manual, tudo certo.

Então... acrescenta-se parâmetro zero, aonde segundo manual e exemplo NÃO EXISTE, e....

E não é só isso....
Criei um teste mostrando três gráficos, um de cada vez.
Executa... funciona.
Executa... não aparece nada.
Executa... funciona.
Executa... não aparece nada.

Quando igual fica diferente... complicado...

[asimoes]

Quintas,

Esse Zero é seria o último parâmetro ?

[JoséQuintas]

Pelo menos num dos comandos sim.
Pra evitar GPF, é criar uma classe que valide dados, converta, e acrescente esses parâmetros "desconhecidos".
O lado bom é que praticamente todos os tipos de gráfico já funcionaram.

[asimoes]

Quintas,
Bom dia,

Você já tem uma versão atualizada da classe e métodos ou não mudou nada?

[JoséQuintas]

Só o que a gente colocou por aqui.

Código: Selecionar todos

CREATE CLASS RmChart

   VAR    nHandle

   METHOD New()                          INLINE ::nHandle := hb_libLoad( "RMChart.dll" ), SELF
   METHOD Destroy()                      INLINE hb_libFree( ::nHandle )
   METHOD CreateChart( ... )             INLINE ::CallDllStd( "RMC_CREATECHART", ... )
   METHOD AddRegion( ... )               INLINE ::CallDllStd( "RMC_ADDREGION", ... )
   METHOD AddCaption( ... )              INLINE ::CallDllStd( "RMC_ADDCAPTION", ... )
   METHOD AddGrid( ... )                 INLINE ::CallDllStd( "RMC_ADDGRID", ... )
   METHOD AddLabelAxis( ... )            INLINE ::CallDllStd( "RMC_ADDLABELAXIS", ... )
   METHOD AddDataAxis(a,b,c,d,e, ... )   INLINE ::CallDllStd( "RMC_ADDDATAAXIS", a, b, c, ::ToDecimal(d), ::ToDecimal(e), ... )
   METHOD AddLegend( ... )               INLINE ::CallDllStd( "RMC_ADDLEGEND", ... )
   METHOD AddBarSeries(a,b,c, ... )      INLINE ::CallDllStd( "RMC_ADDBARSERIES", a, b, ::ToDouble(c), ... )
   METHOD Draw( ... )                    INLINE ::CallDllStd( "RMC_DRAW", ... )
   METHOD Draw2Clipboard( ... )          INLINE ::CallDllStd( "RMC_DRAW2CLIPBOARD", ... )
   METHOD Draw2Printer( ... )            INLINE ::CallDllStd( "RMC_DRAW2PRINTER", ... )
   METHOD Draw2File( ... )               INLINE ::CallDllStd( "RMC_DRAW2FILE", ... )
   METHOD AddGridLessSeries(a,b,c, ... ) INLINE ::CallDllStd( "RMC_ADDGRIDLESSSERIES", a, b, ::ToDouble(c), ... )
   METHOD AddLineSeries( a,b,c, ... )    INLINE ::CallDllStd( "RMC_ADDLINESERIES", a, b, ::ToDouble(c), ... )
   METHOD SetWaterMark( ... )            INLINE ::CallDllStd( "RMC_SETWATERMARK", ... )
   METHOD WriteRMCFile( ... )            INLINE ::CallDllStd( "RMC_WRITERMCFILE", ... )
   METHOD CallDllStd( cName, ... )       INLINE hb_DynCall( { cName, ::nHandle, HB_DYN_CALLCONV_STDCALL }, ... )
   METHOD ToDecimal( c )                 INLINE c + 1.01 - 1.01
   METHOD ToDouble( c )

   ENDCLASS

METHOD RMChart:ToDouble( c )

   LOCAL cDouble := "", oElement

   FOR EACH oElement IN c
      cDouble += FToC( oElement )
   NEXT

   RETURN cDouble

[JoséQuintas]

Putz, tive uma idéia simples pra resolver o problema!!!!
Exemplo:

Código: Selecionar todos

METHOD CreateChart( ... )             INLINE ::CallDllStd( "RMC_CREATECHART", ..., 0 )

Com isso, o parâmetro que não tem no manual já fica resolvido na própria classe.

[asimoes]

Quintas,

Fiz um teste aqui e deu erro

[asimoes]

Quintas,

Você tá passando os valores corretos para a função:

Código: Selecionar todos

oGrafico:CreateChart( hb_gtInfo( HB_GTI_WINHANDLE ),; //Obrigatório
                      nIdChart,;  //Obrigatório
                      0,;  //Obrigatório
                      0,;  //Obrigatório
                      600,;  //Obrigatório
                      450,;  //Obrigatório
                      Transparent,;
                      RMC_CTRLSTYLEIMAGE,;
                      .F.,;
                      "SEASKY.JPG",; //ou ""
                      "Tahoma",; //ou ""
                      0,;
                      0 )
nResult (LONG) = RMC_CreateChart(ByVal nParentHndl (LONG),
                                 ByVal nCtrlId (LONG),
                                 ByVal nX (LONG),
                                 ByVal nY (LONG),
                                 ByVal nWidth (LONG),
                                 ByVal nHeight (LONG),
                                 Optional ByVal nBackColor (LONG),
                                 Optional ByVal nCtrlStyle (LONG),
                                 Optional ByVal nExportOnly (LONG),
                                 Optional ByRef sBgImage (ASCIIZ),
                                 Optional ByRef sFontName (ASCIIZ),
                                 Optional ByVal nToolTipWidth (LONG),
                                 Optional ByVal nBitmapBKColor (LONG) )

[JoséQuintas]

Bingo.
Os exemplos existentes usam esta outra, que não tem o parâmetro de tooltip.

Código: Selecionar todos

nResult (LONG) = RMC_CreateChartOnDC(
ByVal nParentDC (LONG),
ByVal nCtrlId (LONG),
ByVal nX (LONG),
ByVal nY (LONG),
ByVal nWidth (LONG),
ByVal nHeight (LONG),
Optional ByVal nBackColor (LONG),
Optional ByVal nCtrlStyle (LONG),
Optional ByVal nExportOnly (LONG),
Optional ByRef sBgImage (ASCIIZ),
Optional ByRef sFontName (ASCIIZ),
Optional ByVal nBitmapBKColor (LONG)
)