WR Get text property

4D Write v16


WR Get text property ( area ; property ; sameProperty ) -> 戻り値

引数	型	説明
area	倍長整数	4D Write エリア
property	整数	プロパティ番号
sameProperty	整数	0= 選択範囲の一部または全体にプロパティがない場合 1= 選択範囲全体にプロパティがある場合
戻り値	実数	プロパティによる

説明

WR Get text propertyコマンドで、property で渡されたプロパティがareaの4D Write エリア内で現在選択されている範囲内で使用されているかどうかを調べることができます。

sameProperty が1 の場合、そのプロパティは選択されている範囲全体に適用されています。
sameProperty が0 の場合、そのプロパティは選択されている範囲内の一部のみに適用されています。
このとき、返される値は選択範囲の最終文字のステータスに対応します。

property引数でテストするプロパティを指定します。詳細はWR SET TEXT PROPERTYコマンドの説明を参照してください。.

無効なプロパティ番号を渡すと、エラー1075が返されます。

例題 1

マージンが指定値を超えていないことを確かめます:

 LEFT:=WR Get text property(Area;wr left margin;$Uniform)

 If(LEFT<3) `左マージンを3に設定

    WR SET TEXT PROPERTY(Area;wr left margin;3)

 End if

 RIGHT:=WR Get text property(Area;wr right margin;$Uniform)

 If(RIGHT>43) `右マージンを43に設定

    WR SET TEXT PROPERTY(Area;wr right margin;43)

 End if

例題 2

ユーザーにメニューやルーラーにはアクセスさせずに、行間と行揃えを設定させたいものとします。入力フォームに情報とラベル付けされたボタンと、2 つの変数（LineSpacing及びAlignment）を置き、メソッドを設定します。

- 情報ボタンのオブジェクトメソッドで、現在のカーソル位置の情報を取得します:

 LineSpacing:=WR Get text property(Area;wr line spacing;$Uniform)

 If($Uniform=0)

    ALERT("The selection contains several types of line spacings.")

    $Assign:=True

 Else

    $Assign:=False

 End if

 Alignment:=WR Get text property(Area;wr justification;$Uniform)

 If($Uniform=0)

    ALERT("The selection contains several types of alignments.")

 End if

- LineSpacingオブジェクトメソッドは、ユーザが行間を選択した場合に設定を行います:

WR SET TEXT PROPERTY(Area;LineSpacing)

- Alignmentオブジェクトメソッドは、ユーザが行揃えを選択した場合の設定を行います:

WR SET TEXT PROPERTY(Area;Alignment)

- On Ｌoad フォームイベントにおいて、メニューとルーラーを隠します:

 If(Form event=On Load)

    WR SET DOC PROPERTY(Area;wr view menubar;0)

    WR SET DOC PROPERTY(Area;wr view rulers;0)

 End if

参照

WR SET TEXT PROPERTY