'Declaration Public Overrides Sub ResetLocked()
'Usage Dim instance As NamedStyle instance.ResetLocked()
public override void ResetLocked()
'Declaration Public Overrides Sub ResetLocked()
'Usage Dim instance As NamedStyle instance.ResetLocked()
public override void ResetLocked()
DialogResult dlg; FarPoint.Win.Spread.NamedStyle ns = new FarPoint.Win.Spread.NamedStyle("StyleData", "DataAreaDefault"); ns.BackColor = Color.LightBlue; ns.Border = new FarPoint.Win.LineBorder(Color.DarkBlue, 2); ns.CanFocus = true; ns.CellType = new FarPoint.Win.Spread.CellType.TextCellType(); ns.Editor = new FarPoint.Win.Spread.CellType.TextCellType(); ns.Font = new Font("Comic Sans Serif", 12); ns.ForeColor = Color.Red; ns.Formatter = new FarPoint.Win.Spread.CellType.TextCellType(); ns.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right; ns.Locked = true; ns.Name = "StyleData"; ns.NoteIndicatorColor = Color.Green; ns.Parent = "DataAreaDefault"; ns.Renderer = new FarPoint.Win.Spread.CellType.TextCellType(); ns.TabStop = true; ns.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Bottom; fpSpread1.NamedStyles.Add(ns); fpSpread1.ActiveSheet.Cells[0, 0].StyleName = "StyleData"; fpSpread1.ActiveSheet.SetText(0, 0, "NamedStyle"); fpSpread1.ActiveSheet.Columns[0].Width = 120; fpSpread1.ActiveSheet.Rows[0].Height = 80; dlg = MessageBox.Show("Do you want to reset the named style?", "Reset", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { ns.ResetBackColor(); ns.ResetBorder(); ns.ResetCanFocus(); ns.ResetCellType(); ns.ResetEditor(); ns.ResetFont(); ns.ResetForeColor(); ns.ResetFormatter(); ns.ResetHorizontalAlignment(); ns.ResetLocked(); ns.NoteIndicatorColor(); ns.ResetParent(); ns.ResetProperty(FarPoint.Win.Spread.SheetStyleProperty.VerticalAlignment); ns.ResetRenderer(); ns.TabStop(); ns.ResetVerticalAlignment(); }
Dim dlg As DialogResult Dim ns As New FarPoint.Win.Spread.NamedStyle("StyleData", "DataAreaDefault") ns.BackColor = Color.LightBlue ns.Border = New FarPoint.Win.LineBorder(Color.DarkBlue, 2) ns.CanFocus = True ns.CellType = New FarPoint.Win.Spread.CellType.TextCellType() ns.Editor = New FarPoint.Win.Spread.CellType.TextCellType() ns.Font = New Font("Comic Sans Serif", 12) ns.ForeColor = Color.Red ns.Formatter = New FarPoint.Win.Spread.CellType.TextCellType() ns.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right ns.Locked = True ns.Name = "StyleData" ns.NoteIndicatorColor = Color.Green ns.Parent = "DataAreaDefault" ns.Renderer = New FarPoint.Win.Spread.CellType.TextCellType() ns.TabStop = True ns.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Bottom FpSpread1.NamedStyles.Add(ns) FpSpread1.ActiveSheet.Cells(0, 0).StyleName = "StyleData" FpSpread1.ActiveSheet.SetText(0, 0, "NamedStyle") FpSpread1.ActiveSheet.Columns(0).Width = 120 FpSpread1.ActiveSheet.Rows(0).Height = 80 dlg = MessageBox.Show("Do you want to reset the named style?", "Reset", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then ns.ResetBackColor() ns.ResetBorder() ns.ResetCanFocus() ns.ResetCellType() ns.ResetEditor() ns.ResetFont() ns.ResetForeColor() ns.ResetFormatter() ns.ResetHorizontalAlignment() ns.ResetLocked() ns.ResetNoteIndicatorColor() ns.ResetParent() ns.ResetProperty(FarPoint.Win.Spread.SheetStyleProperty.VerticalAlignment) ns.ResetRenderer() ns.TabStop() ns.ResetVerticalAlignment() End If