Spread Windows Forms 13.0 Product Documentation
FarPoint.Win.Spread Assembly / FarPoint.Win.Spread.DrawingSpace Namespace / PSGradient Class / Clone Method
Example


In This Topic
    Clone Method (PSGradient)
    In This Topic
    Creates a new gradient object by copying the current object properties.
    Syntax
    'Declaration
     
    Public Overridable Function Clone() As Object
    'Usage
     
    Dim instance As PSGradient
    Dim value As Object
     
    value = instance.Clone()
    public virtual object Clone()

    Return Value

    Object containing the copied object
    Example
    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.PSGradient g1 = new FarPoint.Win.Spread.DrawingSpace.PSGradient();
    g1 = g.Clone();
    
    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 = g1;
    fpSpread1.ActiveSheet.AddShape(arrow);
    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 g1 As New FarPoint.Win.Spread.DrawingSpace.PSGradient
    g1 = g.Clone
    
    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 = g1
    FpSpread1.ActiveSheet.AddShape(arrow)
    See Also