WR Get font

4D Write v15

WR Get font


WR Get font ( area ; sameFont ) -> 戻り値

引数	型	説明
area	倍長整数	4D Write エリア
sameFont	倍長整数	1= 選択範囲内で同じフォントを適用 0= 選択範囲内で異なるフォントを適用
戻り値	文字	選択された文字列の最後の文字のフォント名

説明

WR Get fontコマンドはareaで参照される4D Writeエリア内で選択されている箇所の最終文字に適用されているフォントの名前を返します。

sameFont = 1の場合、選択されている全範囲に同じフォントが適用されてます。
sameFont = 0の場合、選択されている範囲に異なるフォントが適用されてます。

例題

現在の選択範囲のフォントをドキュメント全体に適用します:

 vFont:=WR Get font(Area;vUniform)

 If(vUniform=0) `現在の選択範囲に複数のフォントがある場合

    CONFIRM("選択範囲内に複数のフォントが存在します。最後の文字に使われたフォントは"

    +vFont+"です。このフォントをドキュメント全体に適用しますか?")

 Else

    CONFIRM("選択範囲のフォントは"+vFont+"です。このフォントをドキュメント全体に適用しますか?")

 End if

 If(OK=1)

    WR EXECUTE COMMAND(Area;wr cmd select all) `ドキュメント全体を選択

    WR SET FONT(Area;vFont) `新しいフォントを適用

  `ドキュメントの開始位置に挿入ポイントを移動

    WR SET SELECTION(Area;0;0)

    WR SCROLL TO SELECTION(Area) `現在のテキストの選択範囲を表示

    End i

参照

WR Get stylesheet font
WR Get text property
WR SET FONT