Отправлено: 21.05.07 09:57. Заголовок: TChart ?

Подскажите плз есть ли класс для рисования диаграмм

 Отправлено: 21.05.07 10:13. Заголовок: Рабочий пример для xHarbour

PROCEDURE MAIN
LOCAL oXL
LOCAL oWorkBook
LOCAL oSheet
LOCAL oChart
LOCAL oRange
LOCAL aResults, aPeople, aYears
LOCAL cCell, cRange
LOCAL nCounter1, nCounter2

oXL := CreateObject("Excel.Application")
aPeople := {"John","Paul","George","Ringo"}
aYears := {1995,1996,1997,1998}
aResults := {{0,11,18,28},{12,18,22,31},{15,22,25,29},{18,24,20,27}}

oWorkBook := oXL:Workbooks:Add() // create a workbook
oSheet := oWorkbook:Worksheets(1) // select the first sheet
// Enter years
FOR nCounter1 := 1 TO LEN(aYears)
cCell := CHR(64 + nCounter1 + 1)+"1"
// use columns B, C, D, ...
oSheet:Range(cCell):Value := aYears[nCounter1]
NEXT
// Enter names
FOR nCounter1 := 1 TO LEN(aPeople)
cCell := "A"+ ALLTRIM(STR(nCounter1 + 1))
// use rows 2, 3, 4, ...
oSheet:Range(cCell):Value := aPeople[nCounter1]
NEXT
// Enter results
FOR nCounter1 := 1 TO LEN(aYears)
FOR nCounter2 := 1 TO LEN(aPeople)
// calculate the destination
cCell := CHR(64 + nCounter1 + 1) + ALLTRIM(STR(nCounter2 + 1))
oSheet:Range(cCell):Value := aResults[nCounter2, nCounter1]
NEXT
NEXT
// store everything in a Range object
cRange := "A1:" + CHR(64 + LEN(aYears) + 1) + ALLTRIM(STR(LEN(aPeople) +1))
oRange := oSheet:Range(cRange)
// create a chart sheet
oChart := oXL:Charts:Add()
oChart:ChartType := -4100 // 3D Column
oChart:SetSourceData(oRange) // set source data range
oChart:HasTitle := .T.
// add a title to the graph
oChart:ChartTitle:Characters:Text := "Sales Summary"
oXL:Visible := .T. // show it
RETURN

 Отправлено: 21.05.07 10:29. Заголовок: Re:

Это мысль, спасибо
Можно и через эксель диаграммы рисовать

 Отправлено: 21.05.07 11:12. Заголовок: Re:

С FWH можно использовать CLASS TRMChartX.

Подробнее http://www.rmchart.com/

 Отправлено: 21.05.07 12:59. Заголовок: Re:

Pasha пишет:

цитата:

для рисования диаграмм

Из всего , что пробовал (чем и пользуюсь )понравилось больше всего TGraph ,Alfredo Arteaga
Легко "внедряется" сам класс позволяет отображать диаграмы в разных видах ( встроенное меню) , менять настройки отображения,
сохранять и потом загружать "готовые" графики

 Отправлено: 21.05.07 15:18. Заголовок: Re:

ММК пишет:

цитата:

TGraph ,Alfredo Arteaga

нашел скачал смотрю