Thank you, The cursor works
I tried to insert in my cursor in a GDI samble
But it does not work, because the sample have many columns

I just want to adapt my 2 column cursor in the sample below

(fields sum and month)

My cursor is too simple, so I would like to remove the SQL code below and insert
my cursor directly in the form methods

SET TALK OFF
SET DELETED ON

CREATE CURSOR sales (Chart1 n(8,2), Chart2 n(8,2), Chart3 n(8,2), Chart4 n(8,2), Chart5 n(8,2), ;
	Legenda c(5), Destacar l, Color i, DadosX c(5), Hide_Slice l)

INSERT INTO sales VALUES (101, 100,  80,  55, 11 ,"JAN", .F., RGB(64,64,255) , "01" , .F.)
INSERT INTO sales VALUES (102,  60,  44,  88, 22 ,"FEB", .F., RGB(32,160,64) , "02" , .F.)
INSERT INTO sales VALUES (103, 100,  75,  43, 33 ,"MAR", .T., RGB(255,160,60), "03" , .F.)
INSERT INTO sales VALUES (104,  50, 100, 110, 44 ,"APR", .F., RGB(0,164,128) , "04" , .F.)
INSERT INTO sales VALUES (105,  90,  60,  88, 55 ,"MAY", .F., RGB(255,0,0)   , "05" , .F.)
INSERT INTO sales VALUES (106, 100, 200, 130, 66 ,"JUN", .T., RGB(96,96,96)  , "06" , .F.)
INSERT INTO sales VALUES (107, 100, 200, 130, 77 ,"JUL", .F., RGB(164,0,164) , "07" , .F.)
INSERT INTO sales VALUES (108, 100, 200, 130, 88 ,"AUG", .F., RGB(255,255,0) , "08" , .F.)
*!*	INSERT INTO sales VALUES (109, 100,  80,  55, 99 ,"SET", .T., RGB(64,64,255) , "09" , .F.)
*!*	INSERT INTO sales VALUES (110,  60,  44,  88, 100,"OUT", .F., RGB(32,160,64) , "10" , .F.)
*!*	INSERT INTO sales VALUES (111, 100,  75,  43, 110,"NOV", .F., RGB(255,160,60), "11" , .F.)
*!*	INSERT INTO sales VALUES (112,  50, 100, 110, 120,"DEZ", .F., RGB(255,164,128),"12" , .F.)



WITH Thisform.FoxCharts1 as FoxCharts OF "FoxCharts.vcx"

	.ChartsCount = 5
	.SourceAlias = "Sales"
	.FieldXAxis  = "DadosX"
	.FieldHideSlice = "Hide_Slice"

	.FieldValue1 = "Chart1"
	.Legend1 = "GR1"
	.Color1 = RGB(100,175,213) && Azul

	.FieldValue2 = "Chart2"
	.Legend2 = "GR2"
	.Color2 = RGB(162,169,167) && Cinza
	
	.FieldValue3 = "Chart3"
	.Legend3 = "GR3"
	.Color3 = RGB(192,251,74) && Verde

	.FieldValue4 = "Chart4"
	.Legend4 = "GR4"
	.Color4 = RGB(152,51,238) && Roxo

	.FieldValue5 = "Chart5"
	.Legend5 = "GR5"
	.Color5 = RGB(255,255,0) && Roxo

	.FieldColor = "Color"
	.FieldDetachSlice = "Destacar"
	.FieldLegend = "Legenda"


	*-------------------HERE THE GRAPH STARTS
	.Title.Caption = "Chart Main Title"
	.SubTitle.Caption = "Chart SubTitle"
	.FontName = "Verdana"
	.ChartType = 1


	* Adjust Colors
	.BackColor = Thisform.pf.p4.cntBackGround.ShpBack.BackColor
	.BackColor2 = Thisform.pf.p4.cntBackGround.ShpBack2.BackColor 
	._3D = Thisform.pf.p1.Spn3D.Value
	.GradientLevel = Thisform.pf.p4.cntBackGround.spnGradLevel.Value
	Thisform.PF.P4.ShpMainColor.BackColor = .Color1
	Thisform.pf.p3.ShpAxisColor.BackColor = This.Foxcharts1.AxisColor
	.ColorType = This.PF.P4.Optiongroup1.Value - 1
	.BrushType = This.PF.P4.OptBrushType.Value


	.PieCompensateAngles = Thisform.PF.P1.CntDonut.Check1.Value

	.DrawChart()
ENDWITH 





LOCAL XAREA
XAREA=Thisform.FoxCharts1.SourceAlias
SELECT(XAREA)
GO TOP

LOCAL loGrid as Grid 
loGrid = THISform.PF.P8.Grid1


loGrid.RecordSource=XAREA
loGrid.Refresh
loGrid.AutoFit()

loGrid.Column6.Header1.Caption = "Legend"
loGrid.Column7.Header1.Caption = "Detach"
loGrid.Column10.Header1.Caption = "Hide Slice"


* Preparar as cores na grade
loGrid.Column8.DynamicBackColor = "sales.Color"
BINDEVENT(loGrid.Column8.Text1,"DblClick",Thisform,"ColorClick")



* Add CheckBox for detaching pie slices
Thisform.PF.P8.Grid1.Column7.AddObject("Check1","CheckBox")
Thisform.PF.P8.Grid1.Column7.RemoveObject("Text1")

LOCAL loCheck as CheckBox 
loCheck = Thisform.PF.P8.Grid1.Column7.Check1
loCheck.Visible = .T. 
loCheck.Caption = "" 
Thisform.PF.P8.Grid1.Column7.Sparse = .F.
Thisform.PF.P8.Grid1.Column7.CurrentControl = "Check1"
Thisform.PF.P8.Grid1.Column7.Alignment = 2 && Center

BINDEVENT(loGrid.Column7.Check1,"InteractiveChange",Thisform,"DetachClick")




* Add CheckBox for hiding pie slices
Thisform.PF.P8.Grid1.Column10.AddObject("Check1","CheckBox")
Thisform.PF.P8.Grid1.Column10.RemoveObject("Text1")

LOCAL loCheck as CheckBox 
loCheck = Thisform.PF.P8.Grid1.Column10.Check1
loCheck.Visible = .T. 
loCheck.Caption = "" 
Thisform.PF.P8.Grid1.Column10.Sparse = .F.
Thisform.PF.P8.Grid1.Column10.CurrentControl = "Check1"
Thisform.PF.P8.Grid1.Column10.Alignment = 2 && Center

BINDEVENT(loGrid.Column10.Check1, "InteractiveChange", Thisform, "HideClick")


loGrid.Refresh()

RETURN