'Declaration Public Overridable Sub ResetStyle()
'Usage Dim instance As PSGradient instance.ResetStyle()
public virtual void ResetStyle()
'Declaration Public Overridable Sub ResetStyle()
'Usage Dim instance As PSGradient instance.ResetStyle()
public virtual void ResetStyle()
FarPoint.Win.Spread.DrawingSpace.PSGradient g = new FarPoint.Win.Spread.DrawingSpace.PSGradient(); g.Name = "custom"; g.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialIntoCenter; g.Sections[0].Color = Color.Navy; g.Sections[0].AlphaBlend = 128; g.Sections[1].Color = Color.Magenta; g.Sections[1].AlphaBlend = 255; FarPoint.Win.Spread.DrawingSpace.ArrowShape arrow = new FarPoint.Win.Spread.DrawingSpace.ArrowShape(fpSpread1); arrow.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth; arrow.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical; arrow.Anchor = 20; arrow.SetBounds(15, 15, 50, 50); arrow.Gradient = g; fpSpread1.ActiveSheet.AddShape(arrow); DialogResult dlg; dlg = MessageBox.Show("Do you want to reset the gradient style??", "ResetGradient", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { g.ResetStyle() }
Dim g As New FarPoint.Win.Spread.DrawingSpace.PSGradient g.Name = "custom" g.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialIntoCenter g.Sections(0).Color = Color.Navy g.Sections(0).AlphaBlend = 128 g.Sections(1).Color = Color.Magenta g.Sections(1).AlphaBlend = 255 Dim arrow As New FarPoint.Win.Spread.DrawingSpace.ArrowShape(FpSpread1) arrow.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth arrow.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical arrow.Anchor = 20 arrow.SetBounds(15, 15, 50, 50) arrow.Gradient = g FpSpread1.ActiveSheet.AddShape(arrow) Dim dlg As DialogResult dlg = MessageBox.Show("Do you want to reset the gradient style??", "ResetGradient", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then g.ResetStyle() End If