| 4D v13WR Get stylesheet font | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 
 | 
    4D Write v13
 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
	プロダクト: 4D
	テーマ: WRスタイルシート
	番号: 
        89462
        
        
        
	
	初出: 4D Write 6.5
WR Get font
WR SET STYLESHEET FONT