Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.10.2014, 00:47   #1
peace773
Новичок
Джуниор
 
Регистрация: 26.10.2014
Сообщений: 1
По умолчанию OpenOffice, как добавить линию на график?

Проблема проста - с помощью delphi открывает openoffic и строим график, а затем хотим добавить на этот график еще одну линию. Вот в этом та и проблем.

пробовал с помощью uOpenOffice


Код:
     Ar2[0]:=RAddress(1,2,3,1,stroka2);
     OC.Sheets[0].LineCharts.Append('Test3',PRect(8000,1000,10000,5000),Ar3,false,true);
     OC.Sheets[0].LineCharts[0].DataRow[1].DataPoints.DataCaption:=ocdcValue;
что дальше???????

пробовал с помощью OOoTools
Код:
 oTheFile := StarDesktop.loadComponentFromURL('file:///C:/1.ods', '_blank', 0, dummyArray);
 
   oAllSheets:= oTheFile.Sheets;
 
   oMySheet:= oAllSheets.getByIndex(2);  // first sheet of the spreadsheet
 
   oCharts := oMySheet.getCharts;
 
   oRectangle := oMySheet.Bridge_GetStruct('com.sun.star.awt.Rectangle');
   oRectangle.X      := 0; // X position
   oRectangle.Y      := 0; // Y position
   oRectangle.Width  := 30000;// width
   oRectangle.Height := 10000; // height
 
   oCellRangeAddress :=      oTheFile.Bridge_getStruct('com.sun.star.table.CellRangeAddress');
   oCellRangeAddress.Sheet       := 1; // First sheet of the file
   oCellRangeAddress.StartColumn := 0; // was 10
   oCellRangeAddress.StartRow    := 1;
   oCellRangeAddress.EndColumn   := 1;
   oCellRangeAddress.EndRow      := 275;
 
  oCharts.addNewByName('MyGraph',oRectangle,VarArrayOf(
       oCellRangeAddress),true, true);
  oChart := oCharts.getByName('MyGraph').EmbeddedObject;
  oChart.Diagram := oChart.createInstance('com.sun.star.chart.XYDiagram');
что дальше???????

Последний раз редактировалось Stilet; 26.10.2014 в 10:48.
peace773 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как нарисовать необычную линию Marsel737 Общие вопросы Delphi 2 17.05.2011 20:03
как стереть нарисованную линию? Yokka Общие вопросы .NET 4 06.02.2011 19:15
Как нарисовать линию по пикселям DenLab Общие вопросы Delphi 4 03.12.2008 09:34
как открыть в делфи OpenOffice???? Gumaris Общие вопросы Delphi 2 06.12.2007 21:59