powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / msGraph.Chart
7 сообщений из 7, страница 1 из 1
msGraph.Chart
    #36615271
Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если кто-нибудь знает ссылочку на полное описание свойств и методов
объекта msGraph.Chart.8, киньте ссылочку.
...
Рейтинг: 0 / 0
msGraph.Chart
    #36617290
Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что то нашел сам. Пытаюсь без таблицы с полем генерал загнать данные в таблицу MsGraph.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
SCAN ALL
     WITH ThisForm.PgFrameShow.Page2.OleG.OBJECT.application.DataSheet
          .Cells(RECNO('curG')+ 1 , 1 ).Value=curG.dDt
          .Cells(RECNO('curG')+ 1 , 2 ).Value=curG.nG1
          .Cells(RECNO('curG')+ 1 , 3 ).Value=curG.nG2
     ENDWITH 
ENDSCAN 
Получилось, но ощутимые задержки все портят. Если кто-нибудь работал c MsGraph, откликнитесь.
Через General быстрее получается или нет?

Может для таблицы объекта есть другой вариант данные подсовывать?
...
Рейтинг: 0 / 0
msGraph.Chart
    #36617352
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Korolyov,

Вот так я красиво показываю "таблетку" - круговую диаграму.
Правда сначала курсор с данными нужно сформировать, из него потом переменную сформировать и показвай:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
SELECT (xcursor)
GO TOP
	graph_var = " " + chr(9) + " " + chr(13) + chr(10) 
SCAN
*	graph_var = graph_var + STR(Tot_Amount,12,2) +' - '+ ALLTRIM(Text) + chr(9) + STR(Tot_Amount,12,2) + chr(13) + chr(10) 
	graph_var = graph_var + PADR(ALLTRIM(Text)+' ',30,'-') +  STR(Tot_Amount,10,2) +chr(9) + STR(Tot_Amount,12,2) + chr(13) + chr(10) 
              
ENDSCAN

CREATE CURSOR mygraph (graph_fld G)
	APPEND BLANK
	APPEND GENERAL graph_fld CLASS "MsGraph.Chart" DATA graph_var

seleCt mygraph
      APPEND GENERAL graph_fld CLASS "MsGraph.Chart" DATA graph_var

WITH THISFORM
   .Ole1.ControlSource = "mygraph.graph_fld"
   .Ole1.HasLegend = .T.
   .Ole1.Type = 13
   .Ole1.Object.Application.PlotBy = 2
   .Ole1.Object.Legend.Font.Size = 10
   .Ole1.Object.Legend.Font.Bold = .F.
   .Ole1.Object.Legend.Font.Name = "Courier"
   .Ole1.Object.Legend.Top = 0  

With .Ole1.SeriesCollection(1)
	.ApplyDataLabels(3)
	.DataLabels.Font.Size 	= 10
	.DataLabels.Font.Bold 	= .F.
   endwith
ENDWITH
...
Рейтинг: 0 / 0
msGraph.Chart
    #36617841
Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ты это делаешь через таблицу. Может это и удобнее,
но тогда нужно знать свойства объекта, что бы настроить его
для более привлекательного отображения. Если знаешь где можно
черпануть информацию, кинь ссылочку.

Я вставил объект напрямую в форму (без OleBoundControl). Удобно настраивать
вид отображения. Но заполнять таблицу значениями для построения диаграммы
быстро не получается. Хотя и
Код: plaintext
APPEND GENERAL graph_fld CLASS "MsGraph.Chart" DATA graph_var
тоже тормозит.

Как можно ускорить заполнение таблицы объекта информацией? Ведь в режиме редактирования запущенного объекта вставка из буфера происходит моментально
...
Рейтинг: 0 / 0
msGraph.Chart
    #36617981
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Korolyov,

порой в MS Excell там есть его свойства.
...
Рейтинг: 0 / 0
msGraph.Chart
    #36617985
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Korolyov,

Ничего не тормозит, все летает моментом, ты же не отображаешь в круговой диаграмме огромное кол-во записей - ну от силы 100 шт.
там нечему тормозить.
...
Рейтинг: 0 / 0
msGraph.Chart
    #36621090
Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
        SELECT Tempare 
        APPEND GENERAL Tempare.PDay  DATA cPDay
        APPEND GENERAL Tempare.TDay  DATA cTDay
        DO CASE 
           CASE SprUchet.nCode<= 2 
                APPEND GENERAL Tempare.gOt   DATA cGot           
                APPEND GENERAL Tempare.DtDay DATA cDtDay
                IF SprUchet.nCode= 1 
                   APPEND GENERAL Tempare.Not   DATA cNot                
                ENDIF 
           CASE SprUchet.nCode> 2 
                APPEND GENERAL Tempare.gGws  DATA cGgws
                APPEND GENERAL Tempare.KGws  DATA cKGws
                APPEND GENERAL Tempare.NGws  DATA cNGws
        ENDCASE 


Мне нужно сформировать сразу до 5ти диаграммок. В каждой до 300 строчек
При выполнении выше указанного кода задержка примерно на 3 секунды.
Вроде быстро но когда постоянно одно и тоже делаешь, напрягают и 3 сек.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / msGraph.Chart
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]