4D Write v14

WR Get font

ホーム

 
4D Write v14
WR Get font

WR Get font 


 

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

説明   

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

 
プロパティ 

プロダクト: 4D Write
テーマ: WRテキスト操作
番号: 89463

 
履歴 

初出: 4D Write 6.5

 
参照 

WR Get stylesheet font
WR Get text property
WR SET FONT

 
ARTICLE USAGE

4D Write ( 4D Write v11.6)
4D Write ( 4D Write v12)
4D Write ( 4D Write v14)
4D Write ( 4D v13)
4D Write ( 4D Write v14 R2)
4D Write ( 4D Write v14 R3)
4D Write ( 4D Write v14 R4)