OOobbs/8

OOobbs/8

• サマリ: ページの先頭を表示する
• 環境: Writer
• 状態: 投稿
• 投稿者: wata?
• 投稿日: 2004-02-23 (月) 09:44:09

質問

writerで画面に入りきらないような縦長の画像を使用すると
ビューカーソルを移動しても、画像の下にカーソルが行ってしまうため
ページの上の方が表示できません。

解決には、ビューカーソルオブジェクトの .screenUp() メソッドを
使用して画面をスクロールアップさせるのが簡単そうでした。

'====================================
' 先頭ページの一番上を画面に表示する
'====================================
Sub SubViewDocumentTop()
   dim document as Object      ' 対象となる文書
   dim oText as Object         ' 文書内のテキスト
   dim oCursor as Object       ' テキストカーソル
   dim oViewCursor as Object   ' 表示位置のカーソル
   dim ix as integer           ' カウンタ

   '------------------------------
   ' 各カーソルオブジェクトを取得
   '------------------------------
   document = ThisComponent
   oText = document.Text
   oCursor = oText.createTextCursor
   oViewCursor = document.CurrentController.getViewCursor()

   '------------------------
   ' カーソル表示位置の修正
   '------------------------
   oCursor.gotoStart(false)
   oViewCursor.jumpToFirstPage

   '------------------------------------------------------------------
   ' 画面をページの先頭にスクロールアップ
   ' （スクロールアップできなくなるまで .screenUp() メソッドを実行）
   '------------------------------------------------------------------
   while oViewCursor.screenUp() and ix<50
       ix = ix + 1
   wend
End Sub

回答