FarPoint.Win.Spread Assembly > FarPoint.Win.Spread Namespace > GradientSelectionRenderer Class : PaintSelection Method |
'Declaration Public Sub PaintSelection( _ ByVal g As Graphics, _ ByVal x As Integer, _ ByVal y As Integer, _ ByVal width As Integer, _ ByVal height As Integer _ )
public class SelectionRenderer : FarPoint.Win.Spread.GradientSelectionRenderer { private Color clr1; private Color clr2; private System.Drawing.Drawing2D.LinearGradientMode gradMode; private int op; public SelectionRenderer(Color color1, Color color2, System.Drawing.Drawing2D.LinearGradientMode mode, int opacity) : base(Color.Beige, Color.Blue, Drawing2D.LinearGradientMode.ForwardDiagonal, 220) { clr1 = color1; clr2 = color2; gradMode = mode; op = opacity; } public new void PaintSelection(Graphics g, int x, int y, int width, int height) { if (((width > 0) && (height > 0))) { Color c1 = Color.FromArgb(op, clr1.R, clr1.G, clr1.B); Color c2 = Color.FromArgb(op, clr2.R, clr2.G, clr2.B); object selectionBrush = new System.Drawing.Drawing2D.LinearGradientBrush(new Rectangle(x, y, width, height), c1, c2, gradMode); g.FillRectangle(selectionBrush, x, y, width, height); selectionBrush.Dispose(); } } } fpSpread1.SelectionRenderer = new SelectionRenderer(Color.Beige, Color.Blue, Drawing2D.LinearGradientMode.ForwardDiagonal, 220);
Public Class SelectionRenderer Inherits FarPoint.Win.Spread.GradientSelectionRenderer Private clr1 As Color Private clr2 As Color Private gradMode As System.Drawing.Drawing2D.LinearGradientMode Private op As Integer Public Sub New(ByVal color1 As Color, ByVal color2 As Color, ByVal mode As System.Drawing.Drawing2D.LinearGradientMode, ByVal opacity As Integer) MyBase.New(Color.Beige, Color.Blue, Drawing2D.LinearGradientMode.ForwardDiagonal, 220) clr1 = color1 clr2 = color2 gradMode = mode op = opacity End Sub Public Shadows Sub PaintSelection(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer) If width > 0 And height > 0 Then Dim c1 As Color = Color.FromArgb(op, clr1.R, clr1.G, clr1.B) Dim c2 As Color = Color.FromArgb(op, clr2.R, clr2.G, clr2.B) Dim selectionBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Rectangle(x, y, width, height), c1, c2, gradMode) g.FillRectangle(selectionBrush, x, y, width, height) selectionBrush.Dispose() End If End Sub End Class FpSpread1.SelectionRenderer = New SelectionRenderer(Color.Beige, Color.Blue, Drawing2D.LinearGradientMode.ForwardDiagonal, 220)
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows Server 2012 R2, Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8, Windows 8.1, Windows 10