>Hi,
>Added a MSchart control through Tools/Options/Controls/ActiveX control and then dropped it on on my form. I want a line chart from a simple VFP view with Date as X-axis and a Count as Y-axis.
>
>I guess I just need some sample code to let me know how to populate my chart with data from a 2 column view/table.
>
>Thanks,
>
>-Sheldon
Warning long content
Sheldon,
This is a rough sample but shows most of the things I think. You need the header file. I hope you have it or could create using utilities like Westwind's GetConstants. Be notified some options are only applicable to 3d charts and no extra error checking, notifying.
oForm=createobject('form1')
oForm.Show
Read events
#INCLUDE "mschrt20.h"
Define CLASS form1 AS form
Top = 0
Left = 0
Height = 574
Width = 784
DoCreate = .T.
Caption = "Try to click, drag with Ctrl+Button or button alone"
Name = "Form1"
Add OBJECT mschart AS olecontrol WITH ;
Top = 5, ;
Left = 2, ;
Height = 451, ;
Width = 778, ;
Name = "MsChart", ;
OleClass = 'MSChart20Lib.MsChart'
Add OBJECT command1 AS commandbutton WITH ;
Top = 466, ;
Left = 220, ;
Height = 27, ;
Width = 102, ;
Caption = "Data from array", ;
Name = "Command1"
Add OBJECT command2 AS commandbutton WITH ;
Top = 466, ;
Left = 89, ;
Height = 27, ;
Width = 127, ;
Caption = "Multiply data with 10", ;
Name = "Command2"
Add OBJECT command3 AS commandbutton WITH ;
Top = 466, ;
Left = 325, ;
Height = 27, ;
Width = 84, ;
Caption = "Random data", ;
Name = "Command3"
Add OBJECT command4 AS commandbutton WITH ;
Top = 466, ;
Left = 411, ;
Height = 27, ;
Width = 110, ;
Caption = "Data from cursor", ;
Name = "Command4"
Add OBJECT command5 AS commandbutton WITH ;
Top = 466, ;
Left = 3, ;
Height = 27, ;
Width = 84, ;
Caption = "Title on right", ;
Name = "Command5"
Add OBJECT combo1 AS combobox WITH ;
Height = 24, ;
Left = 72, ;
Top = 504, ;
Width = 156, ;
DisabledItemBackColor = RGB(192,192,192), ;
DisabledItemForeColor = RGB(128,128,128), ;
Name = "Combo1"
Add OBJECT combo2 AS combobox WITH ;
Height = 24, ;
Left = 72, ;
Top = 530, ;
Width = 156, ;
Name = "Combo2"
Add OBJECT label1 AS label WITH ;
Caption = "Perspective", ;
Height = 17, ;
Left = -1, ;
Top = 535, ;
Width = 72, ;
Name = "Label1"
Add OBJECT label2 AS label WITH ;
Caption = "Chart Type", ;
Height = 17, ;
Left = 7, ;
Top = 507, ;
Width = 61, ;
Name = "Label2"
Add OBJECT label3 AS label WITH ;
Caption = "Elevation", ;
Height = 17, ;
Left = 235, ;
Top = 508, ;
Width = 60, ;
Name = "Label3"
Add OBJECT label4 AS label WITH ;
Caption = "Rotation", ;
Height = 17, ;
Left = 235, ;
Top = 529, ;
Width = 48, ;
Name = "Label4"
Add OBJECT spinner1 AS spinner WITH ;
Height = 24, ;
KeyboardHighValue = 90, ;
KeyboardLowValue = 0, ;
Left = 288, ;
SpinnerHighValue = 90.00, ;
SpinnerLowValue = 0.00, ;
Top = 503, ;
Width = 53, ;
Value = 30, ;
Name = "Spinner1"
Add OBJECT spinner2 AS spinner WITH ;
Height = 24, ;
Increment = 10.00, ;
KeyboardHighValue = 360, ;
KeyboardLowValue = 0, ;
Left = 288, ;
SpinnerHighValue = 360.00, ;
SpinnerLowValue = 0.00, ;
Top = 528, ;
Width = 53, ;
Name = "Spinner2"
Add OBJECT label5 AS label WITH ;
AutoSize = .T., ;
Caption = "DepthToHeightRatio", ;
Height = 17, ;
Left = 468, ;
Top = 504, ;
Width = 114, ;
Name = "Label5"
Add OBJECT label6 AS label WITH ;
Caption = "WidthToHeightRatio", ;
Height = 17, ;
Left = 468, ;
Top = 528, ;
Width = 112, ;
Name = "Label6"
Add OBJECT label7 AS label WITH ;
Caption = "xGap", ;
Height = 17, ;
Left = 348, ;
Top = 507, ;
Width = 36, ;
Name = "Label7"
Add OBJECT label8 AS label WITH ;
Caption = "zGap", ;
Height = 17, ;
Left = 348, ;
Top = 528, ;
Width = 36, ;
Name = "Label8"
Add OBJECT spinner3 AS spinner WITH ;
Height = 24, ;
Increment = 10.00, ;
KeyboardHighValue = 100, ;
KeyboardLowValue = 0, ;
Left = 384, ;
SpinnerHighValue = 100.00, ;
SpinnerLowValue = 0.00, ;
Top = 504, ;
Width = 71, ;
Name = "Spinner3"
Add OBJECT spinner4 AS spinner WITH ;
Height = 24, ;
Increment = 10.00, ;
KeyboardHighValue = 100, ;
KeyboardLowValue = 0, ;
Left = 384, ;
SpinnerHighValue = 100.00, ;
SpinnerLowValue = 0.00, ;
Top = 529, ;
Width = 71, ;
Name = "Spinner4"
Add OBJECT spinner5 AS spinner WITH ;
Height = 24, ;
KeyboardHighValue = 10, ;
KeyboardLowValue = 1, ;
Left = 586, ;
SpinnerHighValue = 10.00, ;
SpinnerLowValue = 1.00, ;
Top = 499, ;
Width = 40, ;
Name = "Spinner5"
Add OBJECT spinner6 AS spinner WITH ;
Height = 24, ;
KeyboardHighValue = 10, ;
KeyboardLowValue = 1, ;
Left = 586, ;
SpinnerHighValue = 10.00, ;
SpinnerLowValue = 1.00, ;
Top = 524, ;
Width = 40, ;
Name = "Spinner6"
Procedure Init
ColorsMax=3
Dimension colors[3]
ColorS[1] ='Red'
ColorS[2] ='Silver'
ColorS[3] ='Black'
Rand(-1)
Create cursor comparesales (nyear i, qtr i, car c(10), color c(10))
For years = 1998 to 2000
For iQtr = 1 to 4
For Sales = 1 to 10
Insert into comparesales ;
values (years, iQtr, ;
iif(int(rand()*1000)%2=0,'Corvette','Ferrari'), ;
colors[int(rand()*ColorsMax)%5+1])
Endfor
Endfor
Endfor
Select distinct car from comparesales into array arrCars order by car
Asort(Colors)
Dimension Sales[2+alen(arrCars)*alen(colors)]
Dimension arrStruc[alen(Sales),4]
arrStruc = 0
arrStruc[1,1] = 'Year'
arrStruc[1,2] = 'I'
arrStruc[1,3] = 4
arrStruc[2,1] = 'Qtr'
arrStruc[2,2] = 'I'
arrStruc[2,3] = 4
For ix=1 to alen(arrCars)
For jx = 1 to alen(colors)
lnCurFieldNum = (ix-1)*alen(colors)+jx+2
arrStruc[lnCurFieldNum,1] = padr(arrCars[ix],5,'_')+padr(colors[jx],5,'_')
arrStruc[lnCurFieldNum,2] = 'I'
arrStruc[lnCurFieldNum,3] = 4
Endfor
Endfor
Create cursor crsXTab from array arrStruc
For years = 1998 to 2000
For iQtr = 1 to 4
Sales = 0
m.year = years
m.qtr = iQtr
Select car,color,cnt(*) as amount ;
from comparesales ;
group by 1,2 ;
where nyear = years and qtr = iQtr ;
into cursor crsCounts
Scan
Store amount to ('m.'+padr(trim(car),5,'_')+padr(trim(color),5,'_'))
Endscan
Insert into crsXTab from memvar
Endfor
Endfor
Select crsXTab
With thisform.mschart
rowLabelCount = 2
columnLabelCount = 2
.rowCount = 3*4
.columnCount = alen(arrCars)*alen(colors)
Scan
.Row = recno()
For ix=3 to fcount()
.Column = ix-2
.Data = eval(field(ix))
Endfor
Endscan
Endwith
With thisform.mschart.DataGrid
rowLabelCount = 2
columnLabelCount = 2
rowCount = 3*4
ColumnCount = alen(arrCars)*alen(colors)
.SetSize(rowLabelCount, columnLabelCount, rowCount, ColumnCount )
For iColors = 1 to columncount
.ColumnLabel(iColors, 1) = Colors[(iColors-1)%alen(colors)+1]
Endfor
For iCars=1 to alen(arrCars)
.ColumnLabel((iCars-1)*alen(colors)+1, 2) = arrCars[iCars]
Endfor
For iQtr = 1 to rowCount
.RowLabel(iQtr, 1) = (iQtr-1)%4+1
Endfor
For years=1998 to 2000
.RowLabel((years-1998)*4+1, 2) = transform(years)
Endfor
Endwith
Thisform.mschart.ShowLegend = .T.
Endproc
Procedure command1.Click
Dimension arrData(3, 3)
arrData(1, 1) = "Jan"
arrData(2, 1) = "Feb"
arrData(3, 1) = "Mar"
arrData(1, 2) = 8
arrData(2, 2) = 4
arrData(3, 2) = 0.3
arrData(1, 3) = 0.2
arrData(2, 3) = 3
arrData(3, 3) = 6.3
#Define TABULATE chr(9)
#Define CRLF chr(13)+chr(10)
m.Str = ''
For ix = 1 to 3
For jx = 1 to 3
m.Str = m.Str + transform(arrData[ix,jx])+TABULATE
Endfor
m.Str = left(m.Str,len(m.Str)-1)+CRLF
Endfor
_Cliptext = m.Str
Thisform.mschart.Editpaste
Thisform.mschart.ShowLegend
Endproc
Procedure command2.Click
With thisform.mschart
For icolumn = 1 To .ColumnCount
For irow = 1 To .rowCount
.Column = icolumn
.Row = irow
.Data = val(.Data) * 10
Endfor
Endfor
.DataGrid.RowLabel(1,1) = 'Hello'
Endwith
Endproc
Procedure command3.Click
With thisform.mschart.DataGrid
rowLabelCount = 2
columnLabelCount = 2
rowCount = 6
ColumnCount = 6
.SetSize(rowLabelCount, columnLabelCount, rowCount, ColumnCount )
.RandomDataFill
labelIndex = 2
Column = 1
.ColumnLabel(column, labelIndex) = "Product 1"
Column = 4
.ColumnLabel(column, labelIndex) = "Product 2"
Row = 1
.RowLabel(row, labelIndex) = "1994"
.RowLabel(row, 1) = "Dummy label"
Row = 4
.RowLabel(row, labelIndex) = "1995"
Endwith
Thisform.mschart.ShowLegend = .T.
Endproc
Procedure command4.Click
ColorsMax=3
Dimension colors[3]
ColorS[1] ='Red'
ColorS[2] ='Silver'
ColorS[3] ='Black'
Rand(-1)
Create cursor comparesales (nyear i, qtr i, car c(10), color c(10))
For years = 1998 to 2000
For iQtr = 1 to 4
For Sales = 1 to 10
Insert into comparesales ;
values (years, iQtr, ;
iif(int(rand()*1000)%2=0,'Corvette','Ferrari'), ;
colors[int(rand()*ColorsMax)%5+1])
Endfor
Endfor
Endfor
Select distinct car from comparesales into array arrCars order by car
Asort(Colors)
Dimension Sales[2+alen(arrCars)*alen(colors)]
Dimension arrStruc[alen(Sales),4]
arrStruc = 0
arrStruc[1,1] = 'Year'
arrStruc[1,2] = 'I'
arrStruc[1,3] = 4
arrStruc[2,1] = 'Qtr'
arrStruc[2,2] = 'I'
arrStruc[2,3] = 4
For ix=1 to alen(arrCars)
For jx = 1 to alen(colors)
lnCurFieldNum = (ix-1)*alen(colors)+jx+2
arrStruc[lnCurFieldNum,1] = padr(arrCars[ix],5,'_')+padr(colors[jx],5,'_')
arrStruc[lnCurFieldNum,2] = 'I'
arrStruc[lnCurFieldNum,3] = 4
Endfor
Endfor
Create cursor crsXTab from array arrStruc
For years = 1998 to 2000
For iQtr = 1 to 4
Sales = 0
m.year = years
m.qtr = iQtr
Select car,color,cnt(*) as amount ;
from comparesales ;
group by 1,2 ;
where nyear = years and qtr = iQtr ;
into cursor crsCounts
Scan
Store amount to ('m.'+padr(trim(car),5,'_')+padr(trim(color),5,'_'))
Endscan
Insert into crsXTab from memvar
Endfor
Endfor
Select crsXTab
Browse title 'Data that would be charted'
With thisform.mschart
rowLabelCount = 2
columnLabelCount = 2
.rowCount = 3*4
.columnCount = alen(arrCars)*alen(colors)
Scan
.Row = recno()
For ix=3 to fcount()
.Column = ix-2
.Data = eval(field(ix))
Endfor
Endscan
Endwith
With thisform.mschart.DataGrid
rowLabelCount = 2
columnLabelCount = 2
rowCount = 3*4
ColumnCount = alen(arrCars)*alen(colors)
.SetSize(rowLabelCount, columnLabelCount, rowCount, ColumnCount )
For iColors = 1 to columncount
.ColumnLabel(iColors, 1) = Colors[(iColors-1)%alen(colors)+1]
Endfor
For iCars=1 to alen(arrCars)
.ColumnLabel((iCars-1)*alen(colors)+1, 2) = arrCars[iCars]
Endfor
For iQtr = 1 to rowCount
.RowLabel(iQtr, 1) = (iQtr-1)%4+1
Endfor
For years=1998 to 2000
.RowLabel((years-1998)*4+1, 2) = transform(years)
Endfor
Endwith
Thisform.mschart.ShowLegend = .T.
Endproc
Procedure command5.Click
Thisform.mschart.TitleText = 'Chart Title'
With thisform.mschart.Title
With .VtFont
.Name = "Times New Roman"
.Size = 18
.Style = bitor(VtFontStyleBold, VtFontStyleItalic)
.Effect = VtFontEffectUnderline
.VtColor.Set( 255, 0, 0 )
Endwith
.Location.Visible = .T.
.Location.LocationType = VtChLocationTypeRight
With .TextLayOut
.Orientation = VtOrientationUp
.HorzAlignment = VtHorizontalAlignmentCenter
.VertAlignment = VtVerticalAlignmentCenter
Endwith
Endwith
Endproc
Procedure combo1.Init
With this
.ColumnCount = 2
.Boundcolumn=2
.BoundTo = .t.
.ColumnWidths = '100,20'
.AddListItem('3dBar',1,1)
.AddListItem(transform(VtChChartType3dBar),1,2)
.AddListItem('2dBar',2,1)
.AddListItem(transform(VtChChartType2dBar),2,2)
.AddListItem('3dLine',3,1)
.AddListItem(transform(VtChChartType3dLine),3,2)
.AddListItem('2dLine',4,1)
.AddListItem(transform(VtChChartType2dLine),4,2)
.AddListItem('3dArea',5,1)
.AddListItem(transform(VtChChartType3dArea),5,2)
.AddListItem('2dArea',6,1)
.AddListItem(transform(VtChChartType2dArea),6,2)
.AddListItem('3dStep',7,1)
.AddListItem(transform(VtChChartType3dStep),7,2)
.AddListItem('2dStep',8,1)
.AddListItem(transform(VtChChartType2dStep),8,2)
.AddListItem('3dCombination',9,1)
.AddListItem(transform(VtChChartType3dCombination),9,2)
.AddListItem('2dCombination',10,1)
.AddListItem(transform(VtChChartType2dCombination),10,2)
.AddListItem('3dHorizontalBar',11,1)
.AddListItem('\'+transform(VtChChartType3dHorizontalBar),11,2)
.AddListItem('2dHorizontalBar',12,1)
.AddListItem('\'+transform(VtChChartType2dHorizontalBar),12,2)
.AddListItem('3dClusteredBar',13,1)
.AddListItem('\'+transform(VtChChartType3dClusteredBar),13,2)
.AddListItem('3dPie',14,1)
.AddListItem('\'+transform(VtChChartType3dPie),14,2)
.AddListItem('2dPie',15,1)
.AddListItem(transform(VtChChartType2dPie),15,2)
.AddListItem('3dDoughnut',16,1)
.AddListItem('\'+transform(VtChChartType3dDoughnut),16,2)
.AddListItem('2dXY',17,1)
.AddListItem(transform(VtChChartType2dXY),17,2)
.AddListItem('2dPolar',18,1)
.AddListItem('\'+transform(VtChChartType2dPolar),18,2)
.AddListItem('2dRadar',19,1)
.AddListItem('\'+transform(VtChChartType2dRadar),19,2)
.AddListItem('2dBubble',20,1)
.AddListItem('\'+transform(VtChChartType2dBubble),20,2)
.AddListItem('2dHiLo',21,1)
.AddListItem('\'+transform(VtChChartType2dHiLo),21,2)
.AddListItem('2dGantt',22,1)
.AddListItem('\'+transform(VtChChartType2dGantt),22,2)
.AddListItem('3dGantt',23,1)
.AddListItem('\'+transform(VtChChartType3dGantt),23,2)
.AddListItem('3dSurface',24,1)
.AddListItem('\'+transform(VtChChartType3dSurface),24,2)
.AddListItem('2dContour',25,1)
.AddListItem('\'+transform(VtChChartType2dContour),25,2)
.AddListItem('3dScatter',26,1)
.AddListItem('\'+transform(VtChChartType3dScatter),26,2)
.AddListItem('3dXYZ',27,1)
.AddListItem('\'+transform(VtChChartType3dXYZ),27,2)
.AddListItem('Count',28,1)
.AddListItem('\'+transform(VtChChartTypeCount),28,2)
Endwith
Endproc
Procedure combo1.Valid
Thisform.mschart.ChartType = val(this.Value)
If val(this.Value) = VtChChartType2dPie
For Each serX In ThisForm.mschart.Plot.SeriesCollection
With serX.Datapoints.Item(-1).DatapointLabel
.Component = VtChLabelComponentPercent
.LocationType = VtChLabelLocationTypeInside
.PercentFormat = '0%'
Endwith
Endfor
Else
For Each serX In ThisForm.mschart.Plot.SeriesCollection
With serX.Datapoints.Item(-1).DatapointLabel
.LocationType = VtChLabelLocationTypeNone
Endwith
Endfor
Endif
Endproc
Procedure combo2.Valid
With thisform.mschart
.ChartType = VtChChartType3dBar
.Plot.Projection = this.ListIndex-1
Endwith
Endproc
Procedure combo2.Init
With this
.AddListItem("VtProjectionTypePerspective")
.AddListItem("VtProjectionTypeOblique")
.AddListItem("VtProjectionTypeOrthogonal")
.AddListItem("VtProjectionTypeFrontal")
.AddListItem("VtProjectionTypeOverhead")
Endwith
Endproc
Procedure spinner1.When
This.Value = ThisForm.mschart.Plot.View3d.Elevation
Endproc
Procedure spinner1.InteractiveChange
Thisform.mschart.Plot.View3d.Elevation = this.value
Endproc
Procedure spinner2.When
This.Value = ThisForm.mschart.Plot.View3d.Rotation
Endproc
Procedure spinner2.InteractiveChange
Thisform.mschart.Plot.View3d.Rotation = this.value
Endproc
Procedure spinner3.InteractiveChange
Thisform.mschart.Plot.xGap = this.value/100
Endproc
Procedure spinner4.InteractiveChange
Thisform.mschart.Plot.zGap = this.value/100
Endproc
Procedure spinner5.InteractiveChange
Thisform.mschart.Plot.DepthToHeightRatio = this.value
Endproc
Procedure spinner6.InteractiveChange
Thisform.mschart.Plot.WidthToHeightRatio = this.value
Endproc
Procedure queryunload
Clear events
Endproc
EnddefineCetin
