4D Doc Center : WR Get stylesheet font

4D Write v14

WR Get stylesheet font


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

引数	型	説明
area	倍長整数	4D Writeエリア
stylesheetNumber	倍長整数	スタイルシート番号
戻り値	文字	フォント名、フォントが割り当てられていない場合は空の文字列

説明

WR Get stylesheet fontは、areaで参照される4D Writeエリア内にあるstyleSheetNumberを持つスタイルシートに割り当てられたフォントの名前を返します。スタイルシートは先頭から末端に番号が振られ、スタイルシートダイアログに一覧表示されます。このスタイルシート用に定義されたフォントがない場合は、空の文字列が返されます。

例題

システムに入っていない特定のフォントが使われているスタイルシートからフォント属性をなくしたいものとします。:

 ARRAY STRING(80;FontsArray)

 WR FONTS TO ARRAY(FontsArray)

 $StyleSheetNum:=WR Count(Area;wr nb stylesheets)

 For($i;1;$StyleSheetNum)

    $Fonts:=WR Get stylesheet font(Area;$i)

    If(($Fonts#"")&(Find in array(Area;$Fonts)=0))

       WR SET STYLESHEET FONT(Area;$i;"")

    End if

 End for