FarPoint.Win.Spread.StyleInfo info = new FarPoint.Win.Spread.StyleInfo();
ColorDialog c = new ColorDialog();
bool b;
if (c.ShowDialog() == DialogResult.OK)
{
info.ForeColor = c.Color;
b = info.IsPropertySet(FarPoint.Win.Spread.SheetStyleProperty.ForeColor);
listBox1.Items.Add(b.ToString());
fpSpread1.ActiveSheet.DefaultStyle = info;
}
Dim info As New FarPoint.Win.Spread.StyleInfo()
Dim c As New ColorDialog()
Dim b As Boolean
FpSpread1.ActiveSheet.DefaultStyle = info
If c.ShowDialog() = DialogResult.OK Then
info.ForeColor = c.Color
b = info.IsPropertySet(FarPoint.Win.Spread.SheetStyleProperty.ForeColor)
ListBox1.Items.Add(b.ToString())
FpSpread1.ActiveSheet.DefaultStyle = info
End If