Clipper On Line • Ver Tópico - Usando dois gráficos (DRAW GRAPH) no mesmo Form

Usando dois gráficos (DRAW GRAPH) no mesmo Form

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Usando dois gráficos (DRAW GRAPH) no mesmo Form

Mensagempor NiltonGM » 29 Nov 2018 12:36

Amigos,
Estou usando dois gráficos no mesmo Form, porem ao adicionar o segundo gráfico, o primeiro gráfico some os textos como Título, Valores, ficando apenas as barras. Se eu remover o segundo gráfico, então o primeiro volta ao normal. O que pode ser? Deixei espaço suficiente entre eles. Veja o código e a imagem.
Procedure showGrafico_ctasReceber()

      //ERASE WINDOW finanGraficos  /* Essa linha ERASE, tanto faz comentada ou não, apenas pisca o gráfico, não entendi porque dela. */

      /* Primeiro gráfico - a esquerda */

      DRAW GRAPH ;
      IN WINDOW finanGraficos ;
      AT 180,10 ;
      TO 500,490 ;
      TITLE "Valores gerais" ;
      TYPE BARS ;
      SERIES fiGp_valoresGeral ;
      YVALUES {} ;
      DEPTH 15 ;
      BARWIDTH 15 ;
      HVALUES 1 ;
      SERIENAMES {"Receber","Pagar"} ;
      COLORS { {128,128,255}, {255,102, 10} } ;
      3DVIEW ;
      SHOWGRID ;
      SHOWXVALUES ;
      SHOWYVALUES ;
      SHOWLEGENDS ;
      NOBORDER

      /* Segundo gráfico - a direita */

      DRAW GRAPH ;
      IN WINDOW finanGraficos ;
      AT 180,560 ;
      TO 500,1040;
      TITLE "Valores por período" ;
      TYPE BARS ;
      SERIES fiGp_valoresPerio ;
      YVALUES {} ;
      DEPTH 15 ;
      BARWIDTH 15 ;
      HVALUES 1 ;
      SERIENAMES {"Receber","Pagar"} ;
      COLORS { {128,128,255}, {255,102, 10} } ;
      3DVIEW ;
      SHOWGRID ;
      SHOWXVALUES ;
      SHOWYVALUES ;
      SHOWLEGENDS ;
      NOBORDER

Return


finanGraph.png
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes

Usando dois gráficos (DRAW GRAPH) no mesmo Form

Mensagempor NiltonGM » 30 Nov 2018 11:45

Resolvi o problema usando o "GRAPH BITMAP" que é bem semelhante e não dá problemas, acredito que o "DRAW GRAPH" esteja com "pau" e precisa de revisão, mas infelizmente nosso amigo Dr. Claudio saiu do grupo de releases do HMG.
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes

Usando dois gráficos (DRAW GRAPH) no mesmo Form

Mensagempor JoséQuintas » 03 Dez 2018 10:52

Pelo nome: Graph Bitmap, a impressão é de que gera um bitmap com a imagem do gráfico.

Se DrawGraph usa a área total do controle, a saída seria criar dois controles no form, um pra cada gráfico.
Pelo menos teoricamente seria isso, na prática tem a ver com a LIB, e o que a função faz.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Usando dois gráficos (DRAW GRAPH) no mesmo Form

Mensagempor NiltonGM » 04 Dez 2018 10:30

É isso mesmo Zéh, ele gera e salva se vc quiser uma imagem do gráfico em BMP, JPG, PNG...

PROCEDURE ProcSaveGraph()
LOCAL cFileName
LOCAL hBitmap := Form_1.Image_1.HBITMAP   // Gets the value of hBitmap from the IMAGE control
   IF hBitmap <> 0 .AND. Form_1.GraphType.VALUE > 0
      cFileName := "Graph_" + Form_1.GraphType.ITEM( Form_1.GraphType.VALUE ) + IIF( Form_1.Enable3D.VALUE, "3D", "2D") + ".PNG"
      BT_BitmapSaveFile( hBitmap, cFileName, BT_FILEFORMAT_PNG )
      MsgInfo( "Save as: " + cFileName )
   ENDIF
RETURN
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro