Программный файл: ...\Samples\Solution\OLE\Olegraph.scx

В предлагаемом примере показано как использовать системный Объект MS Graph в ваших Приложениях. Подсистема MS Graph 5.0 является стандартным средством автоматизации (Automation Server), система Visual FoxPro может создать соответствующий объект с помощью функции: CREATEOBJECT( ). С помощью стандартных средств Visual FoxPro, Графические объекты могут рассматриваться как обычные "внедряемые" OLE-объекты. Можно использовать объекты типа OleBoundControl (привязанные к соответствующим полям таблиц типа General), или программным способом ("на-лету") вставлять , строить необходимые графические объекты.

Сервер автоматизации  MS Graph's обеспечивает доступ только к графическим объектам, таблицами данных он не управляет. Требуемые данные могут быть добавлены в соответствующие графики с помощью команды APPEND GENERAL для соответствующего поля типа General. В представленном ниже программном коде используется свойство HasLegend, как пример настройки характеристик рассматриваемого объекта OLE automation:

  CopyCode imageКопировать Код
cGData = ""+TAB+"Cats"+TAB+"Dogs"+CRLF+;
"1994"+TAB+"11"+TAB+"22"+CRLF+;
"1995"+TAB+"33"+TAB+"44"+CRLF+;
"1996"+TAB+"55"+TAB+"55"+CRLF
APPEND GENERAL gen1 CLASS "msgraph.chart" DATA m.cGData
THIS.OleBoundControl1.ControlSource = "Gen1"
THIS.OleBoundControl1.HasLegend = .F.

С помощью команды APPEND GENERAL создается новая графическая диаграмма, графический объект. Если вы не укажете следующую секцию  CLASS "msgraph.chart" , данная диаграмма не будет изменяться. Секция CLASS создает новый экземпляр графической диаграммы, с новыми параметрами форматирования.

См. также