Spread Windows Forms 13.0 Product Documentation
FarPoint.Win.Spread Assembly / FarPoint.Win.Spread Namespace / PreviewRowInfo Class / Border Property
Example


In This Topic
    Border Property (PreviewRowInfo)
    In This Topic
    Gets or sets the border for preview row.
    Syntax
    'Declaration
     
    Public Overridable Property Border As IBorder
    'Usage
     
    Dim instance As PreviewRowInfo
    Dim value As IBorder
     
    instance.Border = value
     
    value = instance.Border
    public virtual IBorder Border {get; set;}
    Example
    This example creates a preview row.
    private void Form1_Load(object sender, EventArgs e)
    {
    FarPoint.Win.BevelBorder bord = new FarPoint.Win.BevelBorder(FarPoint.Win.BevelBorderType.Raised, Color.Red, Color.Blue);
    fpSpread1.Sheets[0].Cells[0, 1, 10, 1].Text = "Preview Row";
    fpSpread1.Sheets[0].PreviewRowInfo.Visible = true;
    fpSpread1.Sheets[0].PreviewRowInfo.BackColor = Color.BurlyWood;
    fpSpread1.Sheets[0].PreviewRowInfo.ForeColor = Color.Black;
    fpSpread1.Sheets[0].PreviewRowInfo.Border = bord;
    }
    
    private void fpSpread1_PreviewRowFetch(object sender, FarPoint.Win.Spread.PreviewRowFetchEventArgs e)
    {
      FarPoint.Win.Spread.SheetView sheetView = e.View.GetSheetView();
      if (sheetView.SheetName == "Sheet1")
      {
        if (e.PreviewRowContent == string.Empty)
          e.PreviewRowContent = "The preview row content is empty";
        if ((e.Row + 1) % 2 == 0)
          e.PreviewRowContent = string.Format("Preview Row Content is: {0}", e.PreviewRowContent);
      }
    }
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim bord As New FarPoint.Win.BevelBorder(FarPoint.Win.BevelBorderType.Raised, Color.DarkBlue, Color.Blue)
    fpSpread1.Sheets(0).Cells(0, 1, 10, 1).Text = "Preview Row"
    fpSpread1.Sheets(0).PreviewRowInfo.Visible = True
    fpSpread1.Sheets(0).PreviewRowInfo.BackColor = Color.BurlyWood
    fpSpread1.Sheets(0).PreviewRowInfo.ForeColor = Color.Black
    fpSpread1.Sheets(0).PreviewRowInfo.Border = bord
    End Sub
    
    Private Sub fpSpread1_PreviewRowFetch(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.PreviewRowFetchEventArgs) Handles fpSpread1.PreviewRowFetch
            Dim sheetView As FarPoint.Win.Spread.SheetView
            sheetView = e.View.GetSheetView()
            If sheetView.SheetName = "Sheet1" Then
                If (e.PreviewRowContent = String.Empty) Then
                    e.PreviewRowContent = "The preview row content is empty"
                End If
                If ((e.Row + 1) / 2 = 0) Then
                    e.PreviewRowContent = String.Format("Preview Row Content is: {0}", e.PreviewRowContent)
                End If
            End If
    End Sub
    See Also