| 4D v13WR DELETE STYLESHEET | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 
 | 
    4D Write v13
 WR DELETE STYLESHEET 
         | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WR DELETE STYLESHEET ( area ; stylesheetNum ) | ||||||||
| 引数 | 型 | 説明 | ||||||
| area | 倍長整数 |   | 4D Writeエリア | |||||
| stylesheetNum | 倍長整数 |   | スタイルシート番号 | |||||
WR DELETE STYLESHEETは、areaで参照される4D WriteエリアからstyleSheetNumで渡された番号のスタイルシートを削除します。
警告: システムのスタイルシートは削除できません。WR GET STYLESHEET INFOを使うことにより、そのスタイルシートが削除から保護されているかどうかを確認することができます。ドキュメント内の保護されていないスタイルシートを削除します:
 C_LONGINT(Area)
 C_INTEGER(NbStyleSheet;$SheetNum)
  `スタイルシートの数を取得
 NbStyleSheet:=WR Count(Area;wr nb stylesheets)
 $SheetNum:=1
 For($i;1;NbStyleSheet)
    WR GET STYLESHEET INFO(Area;$SheetNum;$Name;$ApplyTo;$Protected;$Shortcut)
    If($Protected=0) `スタイルシートが保護されていなければ...
       WR DELETE STYLESHEET(Area;$SheetNum)
    Else
       $SheetNum:=$SheetNum+1
    End if
 End for
	プロダクト: 4D
	テーマ: WRスタイルシート
	番号: 
        89451
        
        
        
	
	初出: 4D Write 6.5