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

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

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

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

Пол: Мужской
Сообщений: 233


WWW
« Ответ #56130: 29 Сентябрь 2020, 20:28 »

У Питоньяка эта техника изложена в подразделе "Keep the view cursor and text cursor in sync"
Процедура TextCursorPage показывает, находится ли текстовый курсор в начале или конце страницы.

Код:
Sub TextCursorPage(Byval oDoc, Byval oTextCursor)
  Dim oViewCursor, oText
  oText=oDoc.Text
  oViewCursor = oDoc.CurrentController.getViewCursor()
  oViewCursor.gotoRange(oTextCursor, False)
 
  oViewCursor.jumpToStartOfPage()
  Msgbox "Курсор находится " & IIf(oText.compareRegionStarts(oTextCursor, oViewCursor)=0, "", " не ") & "на начале страницы"
 
  oViewCursor.jumpToEndOfPage()
  Msgbox "Курсор находится " & IIf(oText.compareRegionStarts(oTextCursor, oViewCursor)=0, "", " не ") & "в конце страницы"

End Sub

Sub TestCursor()
  Dim oTextCursor
  oTextCursor =ThisComponent.Text.createTextCursorByRange(ThisComponent.CurrentController.getViewCursor())
  TextCursorPage ThisComponent, oTextCursor
End Sub

Записан

Владимир.
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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