Ребята доброе время суток, по форуму поискал нашёл что то подходящее для себя взял код сделал под себя. но вот есть проблемка там делается через простые графики, а мне бы хотелось бы сделать через круги (фаил во вложении). ну и код сам! Сам до переть не могу, т.к. ни когда не работал с такими объектами!!!!
прошу пожалуйста, дайте или ссылку или подскажите как сделать[code]Set Step On
*!* SET DEFAULT TO C:FoxPro6ProbnikTestDBF
*!* USE TblProbnik.dbf IN a
SELECT TblProbnik
Select * from TblProbnik Into Cursor _Mes
nChartType = 5 && parm2 Круги
*nChartType = 3 && parm2 - линии
nChartSubType = 1 && parm3
cTitle = "Пробник" && parm4
lSeriesByRow = .F. && parm5
lAddLegend = .T. && parm6
lUseAutoformat = .F. && parm7
cOutFile = "grafik.tmp" && parm8
cModGen = .T. && parm9
DO HOME()+'WIZARDSWZGRAPH.APP' WITH "AUTOGRAPH",nChartType, nChartSubType, cTitle,;
lSeriesByRow,lAddLegend,lUseAutoformat,cOutFile,cModGen
&& DO 'WZGRAPH.APP' WITH "AUTOGRAPH",nChartType, nChartSubType, cTitle,;
&& lSeriesByRow,lAddLegend,lUseAutoformat,cOutFile,cModGen
DO FORM grafik.scx NOSHOW
&& grafik.Name="grafik"
grafik.Caption='График'
grafik.AutoCenter = .T.
grafik.MaxButton=.f.
grafik.MinButton=.f.
grafik.Height=500
grafik.Width=650
xKoor=grafik.Width
yKoor=grafik.Height-50
&& --- Редактируем график
grafik.OCHART.Width=xKoor
grafik.OCHART.Height=yKoor
&& &&&&&&&&&&&&&&&&&& Начинаем редактировать &&&&&&&&&&&&&
grafik.OCHART.AutoActivate=1
WITH grafik.OCHART
.ChartTitle.Font.Size=20
.Haslegend =.F. && --- отключаем легенду
ENDWITH
&& ****************** Устанавливаем толщину столбцов ===========
WITH grafik.OCHART.Axes(1)
*!* .CategoryType = -4105
*!* .TickLabels.AutoScaleFont = .F.
*!* .TickLabels.Font.Size=10
*!* .TickLabels.Font.Bold=.T.
*!* .TickLabels.Font.ColorIndex = 1
*!* .HasTitle = .T.
*!* .AxisTitle.Font.Size=14
*!* .AxisTitle.Text = "Месяцы"
*!* .HasMajorGridlines = .F.
*!* .HasMinorGridlines = .F.
ENDWITH
WITH grafik.OCHART.Axes(2) && --- Ось Y
*!* .HasTitle = .T.
*!* .HasMajorGridlines = .F.
*!* .HasMinorGridlines = .F.
*!* .TickLabels.AutoScaleFont = .F.
*!* .TickLabels.Font.ColorIndex = 1
*!* .TickLabels.Font.Size=14
*!* .AxisTitle.Text = "Значения"
*!* .AxisTitle.Font.Size=14
*!* .AxisTitle.Orientation=90
ENDWITH
WITH grafik.OCHART.PlotArea
.Interior.ColorIndex = -4142
.Border.Weight = 2 && --- Толщина бордюра
.Border.ColorIndex = -4142 && --- Бордюр бесцветный
ENDWITH
WITH grafik.OCHART.ChartGroups(1)
.GapWidth = 500
.VaryByCategories=.T.
ENDWITH
WITH grafik.OCHART.SeriesCollection(1)
.ApplyDataLabels
.DataLabels.HorizontalAlignment = 1
.DataLabels.VerticalAlignment =1
.DataLabels.Orientation=90
WITH .DataLabels.Font
.Size = 8
.ColorIndex = 1
ENDWITH
ENDWITH
&& --- Закрываем редактор
grafik.OCHART.AutoActivate=0
grafik.AddObject("Command1","myButton")
WITH grafik.Command1
.Top = 463
.Left = 550
.Height = 46
.Width = 100
.Caption = "Печать"
ENDWITH
grafik.Command1.Visible=.t.
grafik.show(1) && --- Показываем форму
IF FILE('grafik.scx')=.t.
DELETE FILE('grafik.scx')
DELETE FILE('grafik.SCT')
ENDIF
DEFINE CLASS myButton AS CommandButton
&& Caption='Печать'
PROCEDURE Click
grafik.OCHART.AutoActivate=1 && --- Открываем для редактирования
grafik.OCHART.ChartArea.Copy && --- Делаем копию графика
grafik.OCHART.AutoActivate=0 && --- Закрываем редактирование
ObjExcel= CREATEOBJECT("Excel.Application")
WITH ObjExcel
.DisplayAlerts = .f.
* .visible=.t.
.Workbooks.add()
.ActiveSheet.Paste
.ActiveSheet.PageSetup.Orientation = 2 && --- Ориентация Альбом
.ActiveSheet.Shapes(1).Select
WITH .Selection.ShapeRange
.IncrementLeft(10)
.IncrementTop(15)
&& .ScaleWidth(2,.t.)
&& .scaleheight(2,.t.)
*.ScaleWidth(1.95,.t.)
*.scaleheight(1.95,.t.)
endwith
.ActiveSheet.PrintOut()
.quit
endwith
ObjExcel=.NULL.
grafik.OCHART.SetFocuS()
ENDPROC
ENDDEFINE[/code]
Если что код брал от сюда https://forum.foxclub.ru/read.php?29,391968
Еще мне надо что то сделать с обновлением данных на графике. опять же нашёл здесь http://forum.foxclub.ru/read.php?29,391968,637683, но опять же до конца не понял как там!