GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberDecimalPartDisplayFieldInfo ndp = new GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberDecimalPartDisplayFieldInfo();
ndp.MaxDigits = 3;
ndp.BackColor = Color.Orange; //PaintByControl must be true for appearance properties
GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberDecimalSeparatorDisplayFieldInfo ndecimal = new GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberDecimalSeparatorDisplayFieldInfo();
ndecimal.DecimalSeparator = Convert.ToChar("A");
GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberIntegerPartDisplayFieldInfo npart = new GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberIntegerPartDisplayFieldInfo();
npart.MinDigits = 3;
npart.BackColor = Color.Bisque;
GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType ncell1 = new GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType();
ncell1.DropDownCalculator.FlatStyle = FlatStyle.Popup;
ncell1.DropDownCalculator.Font = new System.Drawing.Font("Comic Sans MS", 10);
ncell1.PaintByControl = true;
ncell1.DisplayFields.Add(ndp);
ncell1.DisplayFields.Add(ndecimal);
ncell1.DisplayFields.Add(npart);
fpSpread1.Sheets[0].Cells[1, 1].CellType = ncell1;
fpSpread1.ActiveSheet.Cells[1, 1].Value = 12.3189;
Dim ndp As New GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberDecimalPartDisplayFieldInfo()
ndp.MaxDigits = 3
ndp.BackColor = Color.Orange 'PaintByControl must be true for appearance properties
Dim ndecimal As New GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberDecimalSeparatorDisplayFieldInfo()
ndecimal.DecimalSeparator = Convert.ToChar("A")
Dim npart As New GrapeCity.Win.Spread.InputMan.CellType.Fields.NumberIntegerPartDisplayFieldInfo()
npart.MinDigits = 3
npart.BackColor = Color.Bisque
Dim ncell1 As New GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType()
ncell1.DropDownCalculator.FlatStyle = FlatStyle.Popup
ncell1.DropDownCalculator.Font = New System.Drawing.Font("Comic Sans MS", 10)
ncell1.PaintByControl = True
ncell1.DisplayFields.Add(ndp)
ncell1.DisplayFields.Add(ndecimal)
ncell1.DisplayFields.Add(npart)
fpSpread1.ActiveSheet.Cells(1, 1).CellType = ncell1
fpSpread1.ActiveSheet.Cells(1, 1).Value = 12.3189