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