351
Is it possible to reorder just the series by drag and drop
Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.AllowMoveValue = 257 '100 + exLeftClick
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Electronics(350),Clothing(200),Books(150)",2001)
		var_Serie.Stack = "A"
		var_Serie.ShowValue = 1
	var_Serie1 = var_Series.Add("Electronics(500),Clothing(150),Books(180)",2002)
		var_Serie1.Stack = "A"
		var_Serie1.ShowValue = 1
oGraph.ValuePoint = "16,white,black"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
350
Is it possible to reorder just the values by drag and drop (method 2)
Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.AllowMoveValue = 513 '200 + exLeftClick
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Electronics(350),Clothing(200),Books(150)",2001)
		var_Serie.Stack = "A"
		var_Serie.ShowValue = 1
	var_Serie1 = var_Series.Add("Electronics(500),Clothing(150),Books(180)",2002)
		var_Serie1.Stack = "A"
		var_Serie1.ShowValue = 1
oGraph.ValuePoint = "16,white,black"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
349
Is it possible to reorder just the values by drag and drop (method 1)
Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.AllowMoveValue = 1
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Electronics(350),Clothing(200),Books(150)",2001)
		var_Serie.Stack = "A"
	var_Serie1 = var_Series.Add("Electronics(500),Clothing(150),Books(180)",2002)
		var_Serie1.Stack = "A"
		var_Serie1.ShowValue = 1
oGraph.ValuePoint = "16,white,black"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
348
Is it possible to reorder the series and values by drag and drop
Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.AllowMoveValue = 1
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
	var_Serie = var_Series.Add("Electronics(350),Clothing(200),Books(150)",2001)
		var_Serie.Stack = "A"
		var_Serie.ShowValue = 1
	var_Serie1 = var_Series.Add("Electronics(500),Clothing(150),Books(180)",2002)
		var_Serie1.Stack = "A"
		var_Serie1.ShowValue = 1
oGraph.ValuePoint = "16,white,black"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
347
Is it possible to reorder the values by drag and drop
Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = 1
oGraph.ValuePoint = "12,white,black"
oGraph.AllowMoveValue = 1
oGraph.EndUpdate()
346
Reorder multiple values
Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.MultiColorSerie = .f.
oGraph.Series.Add("1960(1.4),1980(11.2),2000(33.5),2010(65.8),2020(84.7)","GDP")
oGraph.Order = ",4,,3"
oGraph.EndUpdate()
345
Move a value to an earlier or later position
Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.MultiColorSerie = .f.
oGraph.Series.Add("1960(1.4),1980(11.2),2000(33.5),2010(65.8),2020(84.7)","GDP")
oGraph.Order = ",,3"
oGraph.EndUpdate()
344
Place one value at a specified position
Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.MultiColorSerie = .f.
oGraph.Series.Add("1960(1.4),1980(11.2),2000(33.5),2010(65.8),2020(84.7)","GDP")
oGraph.Order = "3"
oGraph.EndUpdate()
343
Configure the Y-axis so that it always displays exactly 5 labels (fixed-ticks), regardless of the data range

Dim oGraph as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.MultiColorSerie = .f.
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.AsPercent = .t.
	var_ValueAxis.MajorUnit = 0.2
	var_ValueAxis.Format = "value*5 array (``,`A`,`B`,`C`,`D`,`E`)"
oGraph.Series.Add("1960(1.4),1980(11.2),2000(33.5),2010(65.8),2020(84.7)","GDP")
oGraph.EndUpdate()
342
Define the style(solid, dash, dot, dash-dot, dash-dot-dot) of the line to show the serie

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_Serie = oGraph.Series.Add("1920(1.8),1945(2.3),1970(13.7),1995(5.7),2020(7.8)","Population")
	var_Serie.Type = "Line"
	' var_Serie.Misc(8) = 2
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(8) = 2"

oGraph.EndUpdate()
341
I'm using the logarithmic scale, but it's not displaying any values. How can I adjust the settings to show very small values

Dim oGraph as P
Dim sFormat as 
Dim var_Serie as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
sFormat = "(value and value < 1) ? (value format `%.1E` replace `-00` with ``) : (value format `0`)"
oGraph.AutoFit = .t.
oGraph.Template = "Misc(32) = 0.000000001" // oGraph.Misc(32) = 0.000000001
oGraph.MultiColorSerie = .f.
oGraph.CategoryAxis.Format = "`<bgcolor white>` + value"
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Type = 1
	var_ValueAxis.Format = sFormat
	var_ValueAxis.CursorFormat = sFormat
var_Serie = oGraph.Series.Add("12:54:28(3.14E-09),12:54:44(2.59E-09),13:03:53(4.25E-09),13:03:58(4.20E-09),13:05:00(5.10E-09),13:06:12(6.25E-09)")
	var_Serie.Type = "line"
	var_Serie.CursorFormat = sFormat
oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()
340
My data contains no values below 1. How can I prevent the logarithmic value axis from displaying the range between 0 and 1

Dim oGraph as P
Dim var_Serie as P
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.MultiColorSerie = .f.
oGraph.ValuePoint = ",,,,,,,black,transparent"
oGraph.CategoryAxis.Format = "`<bgcolor white>` + value"
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Type = 1
	var_ValueAxis.Min = 1
	var_ValueAxis.Format = "value format `0`"
var_Serie = oGraph.Series.Add("Small village(8),Hamlet(14),Small town(22),Medium town(39),Growing town(2118),Small city(6523),Large city(31245),Capital city(431245),Mega city(65431245)")
	var_Serie.ShowValue = 4
	var_Serie.ValueFormat = "`<fgcolor white> ` + (value format `0`) + ` `"
oGraph.EndUpdate()
339
Display logarithmic scale

Dim oGraph as P
Dim var_Serie as local
Dim var_ValueAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.MultiColorSerie = .f.
oGraph.CategoryAxis.Format = "`<bgcolor white>` + value"
var_ValueAxis = oGraph.ValueAxis
	var_ValueAxis.Type = 1
	var_ValueAxis.Format = "value format `0`"
' oGraph.Series.Add("Sterile Water(0.0001),Treated Tap Water(0.001),Bottled Water(0.01),Clean Pond(0.1),River(1),Swamp(100),Sewage(10000),Wastewater Treatment Inlet(1000000)").CursorFormat = "value < 1 ? value : (value format `0`) "
var_Serie = oGraph.Series.Add("Sterile Water(0.0001),Treated Tap Water(0.001),Bottled Water(0.01),Clean Pond(0.1),River(1),Swamp(100),Sewage(10000),Wastewater Treatment Inlet(1000000)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.CursorFormat = `value < 1 ? value : (value format ``0``) `"

oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()
338
Can the values be shown in scientific notation (e.g., 1E+4, 5E-10) rather than full decimal form

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value/100000"
var_Serie = oGraph.Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(20000000), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
	var_Serie.ShowValue = -1 'ffffff78 + exHideIfEmpty + exValue + exLine + exPoint
	var_Serie.ValueFormat = "value format `%.1E` replace `+00` with `+`"
oGraph.EndUpdate()
337
Highlight the value on both the chart and the axis

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
' oGraph.Series.Add("open").Data = "AAPL (open)"
var_Serie = oGraph.Series.Add("open")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Data = `AAPL (open)`"

oGraph.ValueAxis.Mark = "red[axis,chart](74.25-75.75),black[axis,chart](76.5)"
oGraph.Refresh()
oGraph.EndUpdate()
336
Highlight the categories on both the chart and the axis

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
oGraph.ValueSize = 6
' oGraph.Series.Add("open").Data = "AAPL (open)"
var_Serie = oGraph.Series.Add("open")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Data = `AAPL (open)`"

var_CategoryAxis = oGraph.CategoryAxes.Add("0")
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
	var_CategoryAxis.Mark = "#F8F8F8[axis,chart](label = `2014-02`)"
oGraph.Refresh()
oGraph.EndUpdate()
335
Highlight values on axis only

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
' oGraph.Series.Add("open").Data = "AAPL (open)"
var_Serie = oGraph.Series.Add("open")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Data = `AAPL (open)`"

oGraph.ValueAxis.Mark = "red[axis](74.25-75.75),black[axis](76.5)"
oGraph.Refresh()
oGraph.EndUpdate()
334
Highlight the categories on axis only

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
oGraph.ValueSize = 6
' oGraph.Series.Add("open").Data = "AAPL (open)"
var_Serie = oGraph.Series.Add("open")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Data = `AAPL (open)`"

var_CategoryAxis = oGraph.CategoryAxes.Add("0")
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
	var_CategoryAxis.Mark = "#F8F8F8[axis](label = `2014-02`)"
oGraph.Refresh()
oGraph.EndUpdate()
333
Highlight values

Dim oGraph as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
' oGraph.Series.Add("open").Data = "AAPL (open)"
var_Serie = oGraph.Series.Add("open")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Data = `AAPL (open)`"

oGraph.ValueAxis.Mark = "red(74.25-75.75),black[chart,axis](76.5)"
oGraph.Refresh()
oGraph.EndUpdate()
332
Highlight the categories using an expression

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
' oGraph.Series.Add("open").Data = "AAPL (open)"
var_Serie = oGraph.Series.Add("open")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Data = `AAPL (open)`"

var_CategoryAxis = oGraph.CategoryAxes.Add("0")
	var_CategoryAxis.Format = "`Wno<off-4>` + week(date(value left 10))"
	var_CategoryAxis.Split = .t.
	var_CategoryAxis.Mark = "#F8F8F8(index in (1,3))"
oGraph.Refresh()
oGraph.EndUpdate()
331
Highlight the categories using an expression

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
oGraph.ValueSize = 6
' oGraph.Series.Add("open").Data = "AAPL (open)"
var_Serie = oGraph.Series.Add("open")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Data = `AAPL (open)`"

var_CategoryAxis = oGraph.CategoryAxes.Add("0")
	var_CategoryAxis.Format = "value left 7"
	var_CategoryAxis.Split = .t.
	var_CategoryAxis.Mark = "#F8F8F8(label = `2014-02`)"
oGraph.Refresh()
oGraph.EndUpdate()
330
Highlight the categories based on the index

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
' oGraph.Series.Add("open").Data = "AAPL (open)"
var_Serie = oGraph.Series.Add("open")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Data = `AAPL (open)`"

var_CategoryAxis = oGraph.CategoryAxes.Add("0")
	var_CategoryAxis.Format = "`Wno<off-4>` + week(date(value left 10))"
	var_CategoryAxis.Split = .t.
	var_CategoryAxis.Mark = "#F8F8F8(2)"
oGraph.Refresh()
oGraph.EndUpdate()
329
IdemmM {string}, specifies the name of another value-axis to synchronize min, max, and major-unit values from when scrolling. If omitted or the value-axis with the given name is not found, these values are synchronized with the default value-axis

Dim oGraph as P
Dim var_Serie as P
Dim var_ValueAxes as P
Dim var_ValueAxis as P
Dim var_ValueAxis1 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
var_Serie = oGraph.Series.Add("open")
	var_Serie.Data = "AAPL (open)"
	var_Serie.Type = "line"
var_ValueAxes = oGraph.ValueAxes
	var_ValueAxes.Add("1st")
	var_ValueAxis = var_ValueAxes.Add("2nd")
		var_ValueAxis.Align = 2
		var_ValueAxis.IdemmM = "1st"
	var_ValueAxis1 = var_ValueAxes.Add("3rd")
		var_ValueAxis1.Format = "120 + value * 2.5"
		var_ValueAxis1.MajorGridLines.Color = "transparent"
oGraph.EndUpdate()
328
Adds multiple value-axes

Dim oGraph as P
Dim var_Serie as P
Dim var_ValueAxes as P
Dim var_ValueAxis as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
var_Serie = oGraph.Series.Add("open")
	var_Serie.Data = "AAPL (close)"
	var_Serie.Type = "line"
	var_Serie.Style = 1
var_ValueAxes = oGraph.ValueAxes
	var_ValueAxes.Add("1st")
	' var_ValueAxes.Add("2nd").Align = 2
	var_ValueAxis = var_ValueAxes.Add("2nd")
	oGraph.TemplateDef = "dim var_ValueAxis"
	oGraph.TemplateDef = var_ValueAxis
	oGraph.Template = "var_ValueAxis.Align = 2"

oGraph.EndUpdate()
327
Split the chart in weeks

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
var_Serie = oGraph.Series.Add("open")
	var_Serie.Data = "AAPL (open)"
	var_Serie.Type = "line"
	var_Serie.Style = 1
var_CategoryAxis = oGraph.CategoryAxes.Add("0")
	var_CategoryAxis.Format = "value mid 9 left 2"
	var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
		var_FormatGridLinesOptions.Format = "`<fgcolor gray>Wno <off 4>` + week(date(value left 10))"
		var_FormatGridLinesOptions.Color = "gray"
		var_FormatGridLinesOptions.Align = 0
oGraph.EndUpdate()
326
Resets the series, category axes and value axes without affecting the control's data
' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
	oGraph = topparent:CONTROL_ACTIVEX1.activex
	oGraph.Reset()
end function

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_CategoryAxis1 as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
oGraph.Import("C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt")
oGraph.SerieType = "line"
var_Serie = oGraph.Series.Add()
	var_Serie.Name = "aapl"
	var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_CategoryAxis = oGraph.CategoryAxes.Add("0")
	var_CategoryAxis.Format = "value mid 9 left 2"
var_CategoryAxis1 = oGraph.CategoryAxes.Add("0")
	var_CategoryAxis1.Format = "value left 7"
	var_CategoryAxis1.Split = .t.
oGraph.EndUpdate()
325
Define the representation method for the data in all series where the type property is not specified, determining how these series are visually displayed

Dim oGraph as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
oGraph.SerieType = "rangeArea"
var_Series = oGraph.Series
	var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
324
How can I prevent the labels from rotating around the chart when using the radarColumn type

Dim oGraph as P
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
oGraph.SerieType = "radarCol"
oGraph.Template = "Misc(16) = False" // oGraph.Misc(16) = .f.
var_Series = oGraph.Series
	var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
323
Disable stacking for all series at once

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
oGraph.AllowStack = .f.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Stack = "group"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Stack = `group`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Stack = "group"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Stack = `group`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
322
How can I stack more than three data series across multiple columns

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Serie2 as local
Dim var_Serie3 as local
Dim var_Serie4 as local
Dim var_Serie5 as local
Dim var_Serie6 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(9.165),Spanish(4.355),English(3.185),Hindi(2.73),Arabic(2.665),Bengali(2.145),Portuguese(1.885),Russian(1.82),Japanese(1.105),Lahnda(1.04)","Male").Stack = "G1"
	var_Serie = var_Series.Add("Chinese(9.165),Spanish(4.355),English(3.185),Hindi(2.73),Arabic(2.665),Bengali(2.145),Portuguese(1.885),Russian(1.82),Japanese(1.105),Lahnda(1.04)","Male")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Stack = `G1`"

	' var_Series.Add("Chinese(4.935),Spanish(2.345),English(1.715),Hindi(1.47),Arabic(1.435),Bengali(1.155),Portuguese(1.015),Russian(0.98),Japanese(0.595),Lahnda(0.56)","Female").Stack = "G1"
	var_Serie1 = var_Series.Add("Chinese(4.935),Spanish(2.345),English(1.715),Hindi(1.47),Arabic(1.435),Bengali(1.155),Portuguese(1.015),Russian(0.98),Japanese(0.595),Lahnda(0.56)","Female")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Stack = `G1`"

	' var_Series.Add("Chinese(3.5),Spanish(2.0),English(1.8),Hindi(0.5),Arabic(0.4),Bengali(0.3),Portuguese(0.7),Russian(1.2),Japanese(0.4),Lahnda(0.2)","Europe").Stack = "G2"
	var_Serie2 = var_Series.Add("Chinese(3.5),Spanish(2.0),English(1.8),Hindi(0.5),Arabic(0.4),Bengali(0.3),Portuguese(0.7),Russian(1.2),Japanese(0.4),Lahnda(0.2)","Europe")
	oGraph.TemplateDef = "dim var_Serie2"
	oGraph.TemplateDef = var_Serie2
	oGraph.Template = "var_Serie2.Stack = `G2`"

	' var_Series.Add("Chinese(8.0),Spanish(0.5),English(1.0),Hindi(3.0),Arabic(2.5),Bengali(2.0),Portuguese(0.2),Russian(1.0),Japanese(1.0),Lahnda(0.5)","Asia").Stack = "G2"
	var_Serie3 = var_Series.Add("Chinese(8.0),Spanish(0.5),English(1.0),Hindi(3.0),Arabic(2.5),Bengali(2.0),Portuguese(0.2),Russian(1.0),Japanese(1.0),Lahnda(0.5)","Asia")
	oGraph.TemplateDef = "dim var_Serie3"
	oGraph.TemplateDef = var_Serie3
	oGraph.Template = "var_Serie3.Stack = `G2`"

	' var_Series.Add("Chinese(1.0),Spanish(3.5),English(1.5),Hindi(0.2),Arabic(0.5),Bengali(0.1),Portuguese(1.5),Russian(0.1),Japanese(0.1),Lahnda(0.1)","America").Stack = "G2"
	var_Serie4 = var_Series.Add("Chinese(1.0),Spanish(3.5),English(1.5),Hindi(0.2),Arabic(0.5),Bengali(0.1),Portuguese(1.5),Russian(0.1),Japanese(0.1),Lahnda(0.1)","America")
	oGraph.TemplateDef = "dim var_Serie4"
	oGraph.TemplateDef = var_Serie4
	oGraph.Template = "var_Serie4.Stack = `G2`"

	' var_Series.Add("Chinese(0.1),Spanish(0.1),English(0.3),Hindi(0.1),Arabic(0.1),Bengali(0.1),Portuguese(0.1),Russian(0.1),Japanese(0.1),Lahnda(0.1)","Australia").Stack = "G2"
	var_Serie5 = var_Series.Add("Chinese(0.1),Spanish(0.1),English(0.3),Hindi(0.1),Arabic(0.1),Bengali(0.1),Portuguese(0.1),Russian(0.1),Japanese(0.1),Lahnda(0.1)","Australia")
	oGraph.TemplateDef = "dim var_Serie5"
	oGraph.TemplateDef = var_Serie5
	oGraph.Template = "var_Serie5.Stack = `G2`"

	' var_Series.Add("Chinese(1.5),Spanish(0.6),English(0.3),Hindi(0.4),Arabic(0.6),Bengali(0.8),Portuguese(0.4),Russian(0.4),Japanese(0.1),Lahnda(0.5)","Others").Stack = "G2"
	var_Serie6 = var_Series.Add("Chinese(1.5),Spanish(0.6),English(0.3),Hindi(0.4),Arabic(0.6),Bengali(0.8),Portuguese(0.4),Russian(0.4),Japanese(0.1),Lahnda(0.5)","Others")
	oGraph.TemplateDef = "dim var_Serie6"
	oGraph.TemplateDef = var_Serie6
	oGraph.Template = "var_Serie6.Stack = `G2`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
321
How can I stack data more than three series

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local
Dim var_Serie2 as local
Dim var_Series as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
oGraph.AutoFit = .t.
var_Series = oGraph.Series
	' var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide").Stack = "group"
	var_Serie = var_Series.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1.6)","Worldwide")
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Stack = `group`"

	' var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native").Stack = "group"
	var_Serie1 = var_Series.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1.5)","Native")
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Stack = `group`"

	' var_Series.Add("Chinese(1.5),Spanish(10.2),English(2.1),Hindi(0.5),Arabic(0.8),Bengali(0.3),Portuguese(3.5),Russian(0.4),Japanese(0.2),Lahnda(0.1)","Regional").Stack = "group"
	var_Serie2 = var_Series.Add("Chinese(1.5),Spanish(10.2),English(2.1),Hindi(0.5),Arabic(0.8),Bengali(0.3),Portuguese(3.5),Russian(0.4),Japanese(0.2),Lahnda(0.1)","Regional")
	oGraph.TemplateDef = "dim var_Serie2"
	oGraph.TemplateDef = var_Serie2
	oGraph.Template = "var_Serie2.Stack = `group`"

oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
320
I use the legend, but clicking a series mostly rearranges them instead of hiding it
Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(17) = False" // oGraph.Misc(17) = .f.
oGraph.Series.Add("50,150,150,300","A1")
oGraph.Series.Add("180,40,60,160","A2")
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
319
Adjusts the column/bar size so that the entire chart fits within the client rectangle
Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
oGraph.Series.Add("4600,1300,747,579,0,422,42")
oGraph.ValueAutoFit()
oGraph.EndUpdate()
318
The categories overlap, making the text unreadable

Dim oGraph as P
Dim var_CategoryAxis as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 32
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
	var_CategoryAxis.Format = "`<bgcolor white>` + value"
oGraph.Series.Add("4600,1300,747,579,0,422,42")
oGraph.EndUpdate()
317
Represents a single serie with single color (prevent multiple colors for single-serie)

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.MultiColorSerie = .f.
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
oGraph.Series.Add("Electronics(350),Clothing(200),Books(150)",2001)
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
316
How can I replace or add an icon at runtime

Dim oGraph as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oGraph.ReplaceIcon("C:\images\favicon.ico",0)
oGraph.AutoFit = .t.
oGraph.Series.Add("<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South America(433),<img>6</img>Australia/Oceania(42)")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
315
No grid lines are shown even I set the Color and Format properties of ChartGridLines/OverviewGridLines
Dim oGraph as P
Dim var_FormatGridLinesOptions as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.Series.Add("100,200,200,400","S1")
oGraph.Series.Add("210,20,20,120","S2")
var_FormatGridLinesOptions = oGraph.CategoryAxes.Add("A,B,C,D","1st").ChartGridLines
	var_FormatGridLinesOptions.Color = "red"
	var_FormatGridLinesOptions.Format = "value"
oGraph.CategoryAxes.Add("E,F","2nd")
oGraph.Refresh()
314
Occasionally, the margins of the axes may not align perfectly with the view 

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
oGraph.Pad = 24
oGraph.ValueAxis.Format = "value format `0`"
var_Serie = oGraph.Series.Add("Hulunbuir{China}(263068),Abu Dhabi{United Arab Emirates}(97200),Jiuquan{China}(167996),Altamira{Brazil}(159891),Brasília{Brazil}(5784),Mumbai{India}(603.4),Delhi{India}(1484),Chongqing{China}(82400),Hulunbuir{China}(263068),Sao Paulo{Brazil}(1522),Linfen{China}(20527),Santiago{Chile}(641),Mexico City{Mexico}(1485),Belo Horizonte{Brazil}(313),Hangzhou{China}(16817),Nairobi{Kenya}(696),Berlin{Germany}(891.68),Montreal{Canada}(431.5),Cordoba{Argentina}(576),Manaus{Brazil}(11401),Astana{Kazakhstan}(810),Goiânia{Brazil}(741),Cali{Colombia}(564),Sao Paulo{Brazil}(1522),Goiania{Brazil}(781)")
	var_Serie.Type = "Col"
	var_Serie.Vertical = .t.
oGraph.Sort = "0:D"
oGraph.EndUpdate()
313
"candlestick" explained, an [open,high,low,close] chart

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 32
oGraph.ValuePoint = "0,,,,lightgray,1"
oGraph.ValueAxis.MajorGridLines.Step = 4
var_Serie = oGraph.Series.Add("One(79.38 79.57 78.86 79.01)")
	var_Serie.Type = "candlestick"
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	var_Serie.ValueFormat = "(inner array (`<b>open`,`<fgcolor gray>high`,`<fgcolor gray>low`,`<b>close`)) + ` ` + value"
oGraph.EndUpdate()
312
"candlestick", a candlestick chart (also called Japanese candlestick chart or K-line) is a style of financial chart used to describe price movements of a security, derivative, or currency. While similar in appearance to a bar chart, each candleStick represents four important pieces of information for that day: open and close in the thick body, and high and low in the "candle wick". Being densely packed with information, it tends to represent trading patterns over short periods of time, often a few days or a few trading sessions. (data requires array of array of four-numbers, such as [[open, high, low and close]], supports vertical field, scrollable)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_CategoryAxis.Format = "value mid 9 left 2"
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
' oGraph.Series.Add("Open,High,Low,Close","msft").Type = "candlestick"
var_Serie = oGraph.Series.Add("Open,High,Low,Close","msft")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `candlestick`"

oGraph.EndUpdate()
311
"ohlc" explained, an [open,high,low,close] chart

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 32
oGraph.ValuePoint = "0,,,,lightgray,1"
oGraph.ValueAxis.MajorGridLines.Step = 4
var_Serie = oGraph.Series.Add("One(79.38 79.57 78.86 79.01)")
	var_Serie.Type = "ohlc"
	var_Serie.ShowValue = 7 'exValue + exLine + exPoint
	var_Serie.ValueFormat = "(inner array (`<b>open`,`<fgcolor gray>high`,`<fgcolor gray>low`,`<b>close`)) + ` ` + value"
oGraph.EndUpdate()
310
"ohlc", an open-high-low-close chart (also OHLC) is a type of chart typically used to illustrate movements in the price of a financial instrument over time. Each vertical line on the chart shows the price range (the highest and lowest prices) over one unit of time, e.g., one day or one hour. Tick marks project from each side of the line indicating the opening price (e.g., for a daily bar chart this would be the starting price for that day) on the left, and the closing price for that time period on the right. The bars may be shown in different hues depending on whether prices rose or fell in that period. (data requires array of array of four-numbers, such as [[open, high, low and close]], supports vertical field, scrollable)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "Date"
	var_CategoryAxis.Format = "value mid 9 left 2"
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
' oGraph.Series.Add("Open,High,Low,Close","msft").Type = "ohlc"
var_Serie = oGraph.Series.Add("Open,High,Low,Close","msft")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `ohlc`"

oGraph.EndUpdate()
309
"bubble", a bubble chart or bubble plot is a type of chart that displays three dimensions of data (a bubble chart is an extension of the scatter plot used to look at relationships between three numeric variables.). Each entity with its triplet (v1, v2, v3) of associated data is plotted as a disk that expresses two of the vi values through the disk's xy location and the third through its size. Bubble charts can facilitate the understanding of social, economical, medical, and other scientific relationships. (data requires array of array of three-numbers, such as [[x, y, size]], supports vertical field, non-scrollable)

Dim oGraph as P
Dim var_Serie as P
Dim var_Serie1 as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
var_Serie = oGraph.Series.Add("1 25 1,2 49 2,3 70 3,4 86 4,5 96 5,6 100 4,7 96 3,8 86 2,9 70 1,10 49 1,11 25 1","Bell<b>1")
	var_Serie.Type = "bubble"
	' var_Serie.Misc(1) = 32
	oGraph.TemplateDef = "dim var_Serie"
	oGraph.TemplateDef = var_Serie
	oGraph.Template = "var_Serie.Misc(1) = 32"

var_Serie1 = oGraph.Series.Add("1 -25 1,2 -49 2,3 -70 3,4 -86 4,5 -96 5,6 -100 6,7 -96 5,8 -86 4,9 -70 3,10 -49 2,11 -25 1","Bell<b>2")
	var_Serie1.Type = "bubble"
	' var_Serie1.Misc(1) = 32
	oGraph.TemplateDef = "dim var_Serie1"
	oGraph.TemplateDef = var_Serie1
	oGraph.Template = "var_Serie1.Misc(1) = 32"

oGraph.EndUpdate()
308
"scatter", a scatter plot (also called a scatterplot, scatter graph, scatter chart, scattergram, or scatter diagram) is a type of plot or mathematical diagram using Cartesian coordinates to display values for typically two variables for a set of data. (data requires array of array of two-numbers, such as [[x, y]], supports vertical field, non-scrollable)

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
' oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatter"
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `scatter`"

' oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatter"
var_Serie1 = oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `scatter`"

oGraph.EndUpdate()
307
"scatterline", curved

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell")
	var_Serie.Type = "scatterline"
	var_Serie.Style = 1
oGraph.EndUpdate()
306
"scatterline", a scatter line chart is similar with "scatter" type, excepts that lines are shown between scatter plots. (data requires array of array of two-numbers, such as [[x, y]], supports vertical field, non-scrollable)

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
' oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatterline"
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `scatterline`"

' oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatterline"
var_Serie1 = oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `scatterline`"

oGraph.EndUpdate()
305
"scatterarea", curved

Dim oGraph as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell")
	var_Serie.Type = "scatterarea"
	var_Serie.Style = 1
oGraph.EndUpdate()
304
"scatterarea", a scatter area chart is similar with "scatterLine" type, excepts that scatter plots zone is filled. (data requires array of array of two-numbers, such as [[x, y]], supports vertical field, non-scrollable)

Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as local

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Pad = 18
' oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatterarea"
var_Serie = oGraph.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `scatterarea`"

' oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatterarea"
var_Serie1 = oGraph.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `scatterarea`"

oGraph.EndUpdate()
303
"polarscatter", shows the serie as non-connected data points (data requires array of array of two-numbers, such as [[angle, value]], non-scrollable)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(16) = False" // oGraph.Misc(16) = .f.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "45,90,135,180,225,270,315,360"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38,300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
	var_Serie.Type = "polarscatter"
	var_Serie.Color = "red"
oGraph.EndUpdate()
302
"polarline", represents data points connected with straight line segments (data requires array of array of two-numbers, such as [[angle, value]], non-scrollable)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(16) = False" // oGraph.Misc(16) = .f.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "45,90,135,180,225,270,315,360"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38,300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
	var_Serie.Type = "polarLine"
	var_Serie.Color = "red"
oGraph.EndUpdate()
301
"polararea", represents data points connected with straight line segments that enclose a filled area together with the chart pole (data requires array of array of two-numbers, such as [[angle, value]], non-scrollable)

Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P

oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(16) = False" // oGraph.Misc(16) = .f.
var_CategoryAxis = oGraph.CategoryAxis
	var_CategoryAxis.Categories = "45,90,135,180,225,270,315,360"
	var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38,300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
	var_Serie.Type = "polarArea"
	var_Serie.Color = "lime"
oGraph.EndUpdate()