buenas tardes, quiero incluir foxchart en mi sistema, pero no lo logro. alguien me puede indicar como debo iniciarlo.
hice esto pero queda invisible a la hora de ejecutarlo. y quería
en el init del form
LOCAL lcPath
lcPath = ADDBS(JUSTPATH(SYS(16))) +"\FOXCHARTS"
SET PATH TO (lcPath) ADDITIVE
SET PATH TO (lcPath + "images\") ADDITIVE
SET PATH TO (lcPath + "source\") ADDITIVE
DO (LOCFILE("System.app"))
en el boton que muestra el foxchart
SELECT(THIS.Parent.tabla)
WITH THISFORM.Foxcharts1 AS Foxcharts OF 'Foxcharts.vcx'
.BackColor = RGB(255,255,255)
.SourceAlias = this.Parent.tabla
.ChartType = 18
.ChartsCount = 1
*.FieldAxis2 = THIS.Parent.titulo
.BarsPerScale = 1
.yAxis.Caption = 'cnt'
.XAxis.Caption = 'sector_nom'
*.yAxis2.Caption = 'Price US$'
* .Yaxis2.FontSize = 20
.SubTitle.Caption = "Volume x Price"
.Title.Caption = "Kitchen balance"
WITH .AxisLegend2
.Alignment = 0 && Left
.Rotation = 35 && Using angle, the left alignment is the best option
ENDWITH
.Multichart = .T.
.Depth = 0
* .LineCaps = .F. && Hides the line caps
.LegendPosition = 6 && Legends in the top center, easiest for a reader to understand which lines have the left or right legend in axis
WITH .fields(1)
.chartType = 3
.FieldValue = 'cnt'
.legend = 'Items Sold'
.color = RGB(72,64,150)
.axisindex = 1
ENDWITH
*!* WITH .fields(2)
*!* .chartType = 5
*!* .FieldValue = 'Cost'
*!* .legend = 'Cost US$'
*!* .color = RGB(255,190,90)
*!* .axisindex = 2
*!* ENDWITH
.Visible= .T.
ENDWITH