'Declaration Public Overrides Property Visible As Boolean
'Usage Dim instance As PSObject Dim value As Boolean instance.Visible = value value = instance.Visible
public override bool Visible {get; set;}
'Declaration Public Overrides Property Visible As Boolean
'Usage Dim instance As PSObject Dim value As Boolean instance.Visible = value value = instance.Visible
public override bool Visible {get; set;}
System.Drawing.Point[] pts = {new System.Drawing.Point(25, 0), new System.Drawing.Point(0, 50), new System.Drawing.Point(20, 50), new System.Drawing.Point((int)2.5, 100), new System.Drawing.Point(40, 40), new System.Drawing.Point(20, 40), new System.Drawing.Point(40, 0), new System.Drawing.Point(25, 0)}; System.Drawing.Drawing2D.GraphicsPath gpath = new System.Drawing.Drawing2D.GraphicsPath(); gpath.AddPolygon(pts); Point pt = new Point(150, 60); FarPoint.Win.Spread.DrawingSpace.PSObject pso = new FarPoint.Win.Spread.DrawingSpace.CustomShape(); pso.BackColor = Color.Black; pso.AlphaBlendBackColor = 90; pso.Enabled = true; pso.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical; pso.CanRotate = true; pso.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth; pso.Shape = gpath; pso.SetBounds(250, 250, 120, 120); pso.Location = pt; pso.Height = 20; pso.Left = pt.X; pso.Top = pt.X; pso.Visible = true; fpSpread1.ActiveSheet.AddShape((FarPoint.Win.Spread.DrawingSpace.PSShape)pso);
Dim pts As System.Drawing.Point() = {New System.Drawing.Point(25, 0), _ New System.Drawing.Point(0, 50), _ New System.Drawing.Point(20, 50), _ New System.Drawing.Point(2.5, 100), _ New System.Drawing.Point(40, 40), _ New System.Drawing.Point(20, 40), _ New System.Drawing.Point(40, 0), _ New System.Drawing.Point(25, 0)} Dim gpath As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath gpath.AddPolygon(pts) dim pt As New Point(150, 60) Dim pso As New FarPoint.Win.Spread.DrawingSpace.CustomShape pso.BackColor = Color.Black pso.AlphaBlendBackColor = 90 pso.Enabled = True pso.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical pso.CanRotate = True pso.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth pso.Shape = gpath pso.SetBounds(40, 40, 60, 60) pso.Location = pt pso.Height = 20 pso.Left = pt.X pso.Top = pt.X pso.Visible = True FpSpread1.ActiveSheet.AddShape(pso)