WR DELETE STYLESHEET

4D Write v16


WR DELETE STYLESHEET ( area ; stylesheetNum )

引数	型	説明
area	倍長整数	4D Writeエリア
stylesheetNum	倍長整数	スタイルシート番号

説明

WR DELETE STYLESHEETは、areaで参照される4D WriteエリアからstyleSheetNumで渡された番号のスタイルシートを削除します。

警告: システムのスタイルシートは削除できません。WR GET STYLESHEET INFOを使うことにより、そのスタイルシートが削除から保護されているかどうかを確認することができます。

例題

ドキュメント内の保護されていないスタイルシートを削除します:

 C_LONGINT(Area)

 C_LONGINT(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