Code: Select all
#include "FiveWin.Ch"
#include "cstruct.ch"
#include "RMCHART.Ch"
#define DLL_OSAPI 0x20
typedef struct { CTYPE_DOUBLE nDouble[12] } DataStructD12
FUNCTION TesteGrafico()
LOCAL aDados := { { 225.25, 100.00, 100.00, 150.00, 250.00, 300.00, 25.00, 75.00, 300.00, 200.00, 325.00, 300.00 } , { 220.00, 100.00, 125.00, 300.00, 150.00, 125.00, 85.00, 50.00, 285.00, 275.00, 295.00, 280.00 }, { 125.25, 100.00, 100.00, 150.00, 250.00, 300.00, 25.00, 75.00, 300.00, 200.00, 325.00, 300.00 } }
LOCAL cLegenda := "Entradas*Saidas*Mais Um"
LOCAL cLabels := "Janeiro*Fevereiro*Março*Abril*Maio*Junho*Julho*Agosto*Setembro*Outubro*Novembro*Dezembro"
LOCAL cTitulo := "Grafico de Teste Grafico"
PRIVATE hDll := DllLoad("rmchart.dll")
DEFINE DIALOG oDlgGra1 FROM 0,0 TO 400,770 PIXEL FONT oClassVar:oFntB COLOR oClassVar:nCorDlgT,oClassVar:nCorDlgJ
oDlgGra1:lHelpIcon := .F.
oChart := TActiveX():New( oDlgGra1, "RMChart.RMChartX", 0, 0, 0, 0 )
ACTIVATE DIALOG oDlgGra1 CENTER ON INIT GeraRmc( oDlgGra1, oChart, aDados, cTitulo, cLabels, cLegenda )
DllUnload( hDLL )
RETURN NIL
FUNCTION GeraRmc( oDlgGra, oChart, aDados, cTitulo, cLabels, cLegenda )
LOCAL nRetVal := nMax := 0
LOCAL cImagem := "" //"C:\SIG32new\Bitmaps\Paper.jpg"
LOCAL cUnidade := "R$ "
LOCAL cTextoVert := ""
LOCAL aDadosGraf:={}
LOCAL oData1 IS DataStructD12
LOCAL oData2 IS DataStructD12
LOCAL oData3 IS DataStructD12
FOR cTrGra1:=1 TO LEN( aDados )
nMax := MAX( nMax, Amax( aDados[cTrGra1] ) )
FOR cTrGra2:=1 TO LEN( aDados[cTrGra1] )
IF cTrGra1 == 1
oData1:nDouble[cTrGra2] := aDados[cTrGra1,cTrGra2]
ELSEIF cTrGra1 == 2
oData2:nDouble[cTrGra2] := aDados[cTrGra1,cTrGra2]
ELSEIF cTrGra1 == 3
oData3:nDouble[cTrGra2] := aDados[cTrGra1,cTrGra2]
ENDIF
NEXT
IF cTrGra1 == 1
AADD( aDadosGraf, oData1[1] )
ELSEIF cTrGra1 == 2
AADD( aDadosGraf, oData2[1] )
ELSEIF cTrGra1 == 3
AADD( aDadosGraf, oData3[1] )
ENDIF
NEXT
nMax := ROUND( ( INT( nMax/10 ) * 10 ) + 10 , 2 )
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_CREATECHART", oDlgGra:hWnd, 1001, 0, 0, 770, 400, ColorAzure, RMC_CTRLSTYLE3DLIGHT, .F., cImagem, "", 0, 0 )
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_ADDREGION", 1001, 0, 0, 760, 400, "Sig SoftWare", .F. )
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_ADDCAPTION", 1001, 1, cTitulo, ColorTransparent, ColorRed, 9, .T. )
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_ADDGRID", 1001, 1, ColorLightBlue, .F., 20, 20, 685, 330, RMC_BICOLOR_LABELAXIS )
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_ADDLABELAXIS", 1001, 1, cLabels, 1, LEN( aDados[1] ), RMC_LABELAXISBOTTOM, 8, ColorBlack, RMC_TEXTCENTER, ColorBlack, RMC_LINESTYLENONE, "" )
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_ADDDATAAXIS", 1001, 1, RMC_DATAAXISRIGHT, 0.0, nMax, LEN( aDados[1] ), 8, ColorBlack, ColorBlack, RMC_LINESTYLESOLID, 0, cUnidade, cTextoVert, "", RMC_TEXTCENTER )
FOR x:=1 TO LEN(aDadosGraf)
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_ADDBARSERIES", 1001, 1, aDadosGraf[x], 12, RMC_BARGROUP, RMC_BAR_FLAT_GRADIENT2, .F., 0, .F., 1, RMC_VLABEL_NONE, x, RMC_HATCHBRUSH_ONPRINTING )
NEXT
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_ADDLEGEND", 1001, 1, cLegenda, RMC_LEGEND_BOTTOM, ColorTransparent, RMC_LEGENDNORECT, ColorRed, 8, .T. )
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_DRAW", 1001 )
RETURN NIL
///////////////////////////////////////////////////////////////////////////////////////
// //
///////////////////////////////////////////////////////////////////////////////////////
FUNCTION ImprimeGrafico( oDlgGra )
nRetVal := DllCall(hDll,DLL_OSAPI,"RMC_DRAW2PRINTER", 1001, oDlgGra:hWnd, 0, 0, 0, 0, RMC_EMF )
?nRetVal
RETURN NIL
////////////////////////////DADOS DA FUNCAO////////////////////////////////////////////
// NOME : aMax //
// SINTESE : Retornar o maior valor de um vetor //
// PARAMETROS : <1> aVetor //
// <2> nElemento (para vetores multimensionais) //
// RETORNO : xMaior elemento do vetor //
///////////////////////////////////////////////////////////////////////////////////////
function aMax( aVetor, nElem )
local aNovoVet
local xMaxElem
DEFAULT nElem:=0
aNovoVet:=aclone( aVetor )
if nElem=0
aNovoVet:=asort( aNovoVet )
xMaxElem:=aNovoVet[len(aNovoVet)]
else
aNovoVet:=aasort( aNovoVet, nElem )
xMaxElem:=aNovoVet[nElem, len(aNovoVet)]
endif
return xMaxElem
////////////////////////////DADOS DA FUNCAO////////////////////////////////////////////
// NOME : AaSort //
// FINALIDADE : ordenar os elementos de um vetor muldimensional //
// PARAMETROS : <1> aVetor a ser ordenado //
// [2] nElemento do vetor a ser ordenado (default=1) //
// [3] cOrdem Crescente ou Decrescente (default='C') //
// RETORNO : aVetor ordenado //
///////////////////////////////////////////////////////////////////////////////////////
function AaSort( aVetor, nElem, cOrdem )
local aRetorno, x, y
DEFAULT nElem:=1
DEFAULT cOrdem:='C'
if cOrdem='C'
aRetorno:= asort( aVetor,,, { |x, y| x[nElem] < y[nElem] } )
else
aRetorno:= asort( aVetor,,, { |x, y| x[nElem] > y[nElem] } )
endif
return aRetorno
