Public Shared ReadOnly Renderer As SheetStyleProperty

Dim value As SheetStyleProperty
 
value = SheetStyleProperty.Renderer

public static readonly SheetStyleProperty Renderer

<Serializable()> 
public class rend : FarPoint.Web.Spread.GeneralCellType
{
        public override Control PaintCell(string id, System.Web.UI.WebControls.TableCell parent, FarPoint.Web.Spread.Appearance
style, FarPoint.Web.Spread.Inset margin, object value, bool upperLevel) 
        {    
    style.BackColor = Color.Tan;
    return base.PaintCell(id, parent, style, margin, value, upperLevel);
         }
}

FarPoint.Web.Spread.StyleInfo si = new FarPoint.Web.Spread.StyleInfo("DataAreaDefault");
si.Renderer = new rend();
FpSpread1.ActiveSheetView.DefaultStyle = si;
bool b;
b = si.IsPropertySet(FarPoint.Web.Spread.SheetStyleProperty.Renderer);
if (b)
{
    Response.Write("The renderer has been set.");
}

<Serializable()> 
Public Class rend
Inherits FarPoint.Web.Spread.GeneralCellType

Public Overrides Function PaintCell(ByVal id As String, ByVal parent As System.Web.UI.WebControls.TableCell, ByVal style As
FarPoint.Web.Spread.Appearance, ByVal margin As FarPoint.Web.Spread.Inset, ByVal value As Object, ByVal upperLevel As Boolean)
As System.Web.UI.Control
     style.BackColor = Color.Tan
     Return MyBase.PaintCell(id, parent, style, margin, value, upperLevel)
End Function

End Class

Dim s As FarPoint.Web.Spread.SheetStyleProperty
Dim si As New FarPoint.Web.Spread.StyleInfo("DataAreaDefault")
si.Renderer = New rend
FpSpread1.ActiveSheetView.DefaultStyle = si
Dim b As Boolean
If IsPostBack Then
    b = si.IsPropertySet(s.Renderer)
    If b Then
        Response.Write("The renderer has been set.")
    End If
End If