RMChart

[asimoes]

Pessoal,

Estou precisando do usar o RmChart onde posso baixar o instalador?

[asimoes]

Outra coisa, o ocx funciona no windows 7 e 8.1 ?
Eu queria fazer testes com o activex

[JoséQuintas]

Se for gráfico de barras, este post tem um que até ficou com visual legal.

https://pctoledo.org/forum/viewto ... =4&t=15247

Também dá pra fazer com pushbutton, progressbar, ou até janelas Windows... rs

Ao mesmo tempo que daria pra fazer um controle fácil pra isso, precisaria conhecimentos em C.

Parece até brincadeira falar isso, mas o pior é que isso é serio.
Já vimos que dá pra criar janelas fácil no Windows.
Também dá pra desenhar fácil, até dá pra se ver isso nas funções da WVT.
Juntando tudo, faz-se qualquer coisa.

Gráfico de pizza, já não faço idéia, porque envolve outros cálculos.

[asimoes]

Quintas,

O exemplo é legal pode ser usado, agora o exemplo tá com
REQUEST HB_CODEPAGE_UTF8EX e
HB_CDPSELECT( "UTF8EX" )

Você tentou converter para PTISO OU PT850 ?

[JoséQuintas]

Eu apenas vi o post.
Tenho rotina de gráfico, mas não me preocupei em mexer, ainda usa a letra "O", só pra dar uma idéia.... rs
Fiz num controle meu, que só eu uso. (não confundir com controle Windows, neste caso controle=rotina).
Quando for mexer, vou pensar em usar alguma coisa.

[JoséQuintas]

Um teste rápido, como rascunho inicial:

Código: Selecionar todos

PROCEDURE Modulo2

   LOCAL nCont, oControl

   SetMode( 25, 80 )
   SetColor("W/B")
   CLS

   FOR nCont = 1 TO 10
      oControl := TstRetangle():New()
      oControl:Create( , , { -nCont, -nCont * 5 }, { -23 + nCont, -3 } )
      oControl:SetColorFG( WIN_RGB( nCont * 10, nCont * 10, nCont * 10 ) )
      oControl:SetColorBG( WIN_RGB( nCont * 10, nCont * 10, nCont * 10 ) )
   NEXT
   Inkey(0)

Vale a pena brincar com API do Windows.
Começa por deixar 65 milhões de cores disponíveis.

[JoséQuintas]

Um segundo teste, não tão rápido, pegando as cores do outro post.

Código: Selecionar todos

PROCEDURE Modulo2

   LOCAL nCont, oControl, nNumCor := 1, aCores := { { 204, 0, 0 }, { 196, 160, 0 }, { 78, 154, 6 }, { 211, 215, 207 }, { 52, 101, 164 }, { 117, 80, 123 } }

   SetMode( 25, 80 )
   SetColor("W/B")
   CLS

   FOR nCont = 1 TO 10
      oControl := TstRetangle():New()
      oControl:Create( , , { -nCont, -nCont * 5 }, { -23 + nCont, -3 } )
      oControl:SendMessage( HB_GTE_CTLCOLOR, 0, 0, 0 )
      oControl:SetColorFG( WIN_RGB( aCores[  nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
      oControl:SetColorBG( WIN_RGB( aCores[  nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
      nNumCor += 1
      IF nNumCor > Len( aCores )
         nNumCor := 1
      ENDIF
   NEXT
   Inkey(0)

Parece brincadeira, mas acabei de criar esse controle tstRetangle pra este teste.

Código: Selecionar todos

CREATE CLASS TstRetangle INHERIT TstAny
   VAR ClassName INIT "STATIC"
   VAR Style     INIT WIN_WS_CHILD + WIN_WS_GROUP
   ENDCLASS

[JoséQuintas]

Por último, sem cara do DOS, nem sei se sairam as 500 colunas.

Código: Selecionar todos

PROCEDURE Modulo2

   LOCAL nCont, oControl, nNumCor := 1, aCores := { { 204, 0, 0 }, { 196, 160, 0 }, { 78, 154, 6 }, { 211, 215, 207 }, { 52, 101, 164 }, { 117, 80, 123 } }

   SetMode( 25, 80 )
   SetColor("W/B")
   CLS

   FOR nCont = 1 TO 500
      oControl := TstRetangle():New()
      oControl:Create( , , { -nCont/20, nCont * 5 }, { -23+(nCont/20), 4 } )
      oControl:SendMessage( HB_GTE_CTLCOLOR, 0, 0, 0 )
      oControl:SetColorFG( WIN_RGB( aCores[  nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
      oControl:SetColorBG( WIN_RGB( aCores[  nNumCor, 1 ], aCores[ nNumCor, 2 ], aCores[ nNumCor, 3 ] ) )
      nNumCor += 1
      IF nNumCor > Len( aCores )
         nNumCor := 1
      ENDIF
   NEXT
   Inkey(0)

[JoséQuintas]

E errando os cálculos.

Como eu disse, abre muitas possibilidades, mesmo sendo usado para o que não deveria... rs

[asimoes]

RMChart activex só funciona com a Minigui, com a hwgui somente usando a dll rmchart.dll

[JoséQuintas]

Dá uma olhada melhor.
Se rmchart usa uma janela Windows, deveria funcionar em qualquer janela, até na gtwvg.
Mas no tópico da minigui menciona a DLL, e não a OCX.

[asimoes]

Quintas,

Com gtwvg não testei, mas deve funcionar. O problema é com a hwgui

Estou desde ontem tentando, tentando.... e nada.

Eu baixei até a versão 2.19 mas não consegui êxito.

[JoséQuintas]

Comparando com os rolos que tive com aquilo de criar controles na gtwvg:

- Qualquer parâmetro que não esteja no formato necessário causa falha
- A definição do estilo da janela ( Style) também pode causar problema

Crie na minigui, e tente detectar os parâmetros usados.
Depois confirme como está na hwgui.

[JoséQuintas]

Tem o mschart, mas só encontrei como usar através da IDE do VC++ ou VB.
E vai ser difícil alguém que esteja usando no Harbour.

http://www.codeproject.com/Articles/434 ... trol-in-VC

mschart.png (9.92 KiB) Exibido 19635 vezes

[asimoes]

O problema do mschart é que ele é pago $$$