Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

3 Декабрь 2020, 04:39 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: [Решено] Кривые Безье в Draw  (Прочитано 4442 раз)
0 Пользователей и 1 Гость смотрят эту тему.
spyAndrey
Участник
**
Offline Offline

Сообщений: 33


« Ответ #35664: 30 Май 2016, 23:34 »

Вот код:
Sub DrawClosedBezierShape
Dim oDoc
Dim oPage
 'Страница для рисования
Dim oShape 'Фигура для вставки
Dim oCoords 'Координаты многоугольника для вставки
oCoords = createUnoStruct("com.sun.star.drawing.PolyPolygonBezierCoords")
REM Заливка в фактических координатах. Первая и последняя точки
REM - обычные точки, а средние точки - контрольные точки Безье.
'MsgBox oCoords.dbg_methods просмотп методов
MsgBox oCoords.dbg_properties

 oCoords.Coordinates = Array(_
    Array(_
      CreatePoint( 1000, 1000 ),_
      CreatePoint( 3000, 4000 ),_
      CreatePoint( 3000, 4000 ),_
      CreatePoint( 5000, 1000 )_
    )_
  )
  oCoords.Flags = Array(_
    Array(_
      com.sun.star.drawing.PolygonFlags.NORMAL,_
      com.sun.star.drawing.PolygonFlags.CONTROL,_
      com.sun.star.drawing.PolygonFlags.CONTROL,_
      com.sun.star.drawing.PolygonFlags.NORMAL _
    )_
  )
oDoc = ThisComponent
oPage = createDrawPage(ThisComponent, "Test Draw", True)
oShape = oDoc.createInstance("com.sun.star.drawing.ClosedBezierShape")
oPage.add(oShape)
oShape.FillStyle = com.sun.star.drawing.FillStyle.GRADIENT
oShape.PolyPolygonBezier = oCoords
End Sub
у Питоньяка он работает, на ура. У него это группа макросов Draw, стр 566.
Выделил в свой модуль что бы поработать.
вот в этой строке: oCoords.Coordinates = Array(_
ругается на "Подпрограмма или функция не определена.", ведь тут объект который объявлен и правильно заполнен, в чём проблема подскажите
« Последнее редактирование: 5 Июнь 2016, 22:15 от spyAndrey » Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!