Форум » FiveWin » TChart ? » Ответить
TChart ?
Pasha: Подскажите плз есть ли класс для рисования диаграмм
Ответов - 5
gfilatov: 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
Pasha: Это мысль, спасибо Можно и через эксель диаграммы рисовать
Петр: С FWH можно использовать CLASS TRMChartX. Подробнее http://www.rmchart.com/
ММК: Pasha пишет: для рисования диаграмм Из всего , что пробовал (чем и пользуюсь )понравилось больше всего TGraph ,Alfredo Arteaga Легко "внедряется" сам класс позволяет отображать диаграмы в разных видах ( встроенное меню) , менять настройки отображения, сохранять и потом загружать "готовые" графики
Pasha: ММК пишет: TGraph ,Alfredo Arteaga нашел скачал смотрю
полная версия страницы