مقال- أفكار في الدوت نت Overrides DisplayRectangle Property

كود :
[FONT=Courier New][SIZE=2]

' Permission is hereby granted, free of charge, to any person obtaining

' a copy of this software and associated documentation files (the

' "Software"), to deal in the Software without restriction, including

' without limitation the rights to use, copy, modify, merge, publish,

' distribute, sublicense, and/or sell copies of the Software, and to

' permit persons to whom the Software is furnished to do so, subject to

' the following conditions:

'

' The above copyright notice and this permission notice shall be

' included in all copies or substantial portions of the Software.

'

' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE

' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION

' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION

' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

'

' Copyright (c) 2011 Omar Amin Ibrahim.

'

' Author:

' Omar Amin Ibrahim (silverlight1212@yahoo.com)

'



Imports System.Windows.Forms

Imports System.Drawing.Drawing2D

Imports System.Drawing



Public Class RiverNilePanel

Inherits ContainerControl



#Region " Fields "



Private _nonClientHeight As Integer = 23

Private _backgroundColor As Color = Color.FromArgb(0, 0, 192)



#End Region



#Region " Constructor "



Public Sub New()



MyBase.SetStyle((ControlStyles.OptimizedDoubleBuffer Or (ControlStyles.AllPaintingInWmPaint Or (ControlStyles.ResizeRedraw Or ControlStyles.UserPaint))), True)



End Sub



#End Region



#Region " Properties "



Protected Overridable ReadOnly Property NonClientHeight As Integer

Get

Return _nonClientHeight

End Get

End Property



Friend ReadOnly Property NonClientHeightInternal As Integer

Get

Return Me.NonClientHeight

End Get

End Property



Protected Overrides ReadOnly Property DefaultPadding As Padding

Get

Return New Padding(3)

End Get

End Property



Protected Overrides ReadOnly Property DefaultSize As Size

Get

Return New Size(150, 150)

End Get

End Property



Public Overrides ReadOnly Property DisplayRectangle As System.Drawing.Rectangle

Get

Dim displayRect As Rectangle = MyBase.DisplayRectangle

Dim NonClientAreaHeight = Me.NonClientHeightInternal + MyBase.Padding.Top

Return New Rectangle(displayRect.X, (displayRect.Y + NonClientAreaHeight), displayRect.Width, Math.Max(0, (displayRect.Height - NonClientAreaHeight)))

End Get

End Property



Public Overloads ReadOnly Property ClientRectangle As Rectangle

Get

Return New Rectangle(Me.DisplayRectangle.X, Me.DisplayRectangle.Y, Me.DisplayRectangle.Width, Me.DisplayRectangle.Height)

End Get

End Property



Public Overloads Property ClientSize As Size

Get

Return New Size(Me.DisplayRectangle.Width, Me.DisplayRectangle.Height)

End Get

Set(ByVal value As Size)

Me.SetClientSizeCore(value.Width, value.Height)

End Set

End Property



Public Overridable Property BackgroundColor As Color

Get

Return Me._backgroundColor

End Get

Set(ByVal value As Color)

Me._backgroundColor = value

Me.Invalidate()

End Set

End Property



Public Overrides Property BackColor As System.Drawing.Color

Get

Return MyBase.BackColor

End Get

Set(ByVal value As System.Drawing.Color)

MyBase.BackColor = value

Me.Invalidate()

End Set

End Property



#End Region



#Region " Methods "



Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

MyBase.OnPaint(e)



Using BackBrush As New SolidBrush(_backgroundColor)

Dim controlBounds As Rectangle = New Rectangle(0, 0, Me.Bounds.Width, Me.Bounds.Height)

e.Graphics.FillRectangle(BackBrush, controlBounds)

End Using



' you may draw anything else in the non client area

' ......

' ......



Dim _blend As New Blend

Dim _Factors As Single() = {0.0F, 0.2F, 0.5F, 0.6F, 1.0F, 0.6F, 0.5F, 0.2F, 0.0F}

Dim _Positions As Single() = {0.0F, 0.1F, 0.3F, 0.4F, 0.5F, 0.6F, 0.7F, 0.8F, 1.0F}

_blend.Factors = _Factors

_blend.Positions = _Positions



Dim nonClientAreaRect As New Rectangle((MyBase.ClientRectangle.X + MyBase.Padding.Left), _

(MyBase.ClientRectangle.Y + MyBase.Padding.Top), _

(MyBase.ClientRectangle.Width - MyBase.Padding.Horizontal), _

Me.NonClientHeight)

Dim opacity As Single = 50

Dim a As Int32 = Me._backgroundColor.A

Dim r As Int32 = Me._backgroundColor.R + CInt(((255 - Me._backgroundColor.R) / 100) * opacity)

Dim g As Int32 = Me._backgroundColor.G + CInt(((255 - Me._backgroundColor.G) / 100) * opacity)

Dim b As Int32 = Me._backgroundColor.B + CInt(((255 - Me._backgroundColor.B) / 100) * opacity)



Dim _nonClientAreaLightColor As Color = Color.FromArgb(a, r, g, b)

Using lgb As New LinearGradientBrush(nonClientAreaRect, _nonClientAreaLightColor, Me._backgroundColor, 90, True)

lgb.Blend = _blend

e.Graphics.FillRectangle(lgb, nonClientAreaRect)

End Using



' fill the display rectangle

Using displayBrush As New SolidBrush(Me.BackColor)

Dim controlDisplayBounds As Rectangle = Me.DisplayRectangle

e.Graphics.FillRectangle(displayBrush, controlDisplayBounds)

End Using



End Sub



Protected Overrides Sub OnResize(ByVal e As System.EventArgs)

MyBase.OnResize(e)

Me.Invalidate()

End Sub



Protected Overrides Sub OnSizeChanged(ByVal e As System.EventArgs)

MyBase.OnSizeChanged(e)

Me.Invalidate()

End Sub



Protected Overrides Sub OnLayout(ByVal levent As System.Windows.Forms.LayoutEventArgs)

Dim displayRect As Rectangle = Me.DisplayRectangle

For Each ctrl As Control In MyBase.Controls

If (ctrl.Visible AndAlso (ctrl.Location.Y < displayRect.Y) AndAlso (ctrl.Location.X < displayRect.X)) Then

ctrl.Location = New Point(displayRect.X, displayRect.Top)

End If

Next

MyBase.OnLayout(levent)

End Sub



Protected Overrides Sub OnPaddingChanged(ByVal e As System.EventArgs)

MyBase.OnPaddingChanged(e)

Me.Invalidate()

End Sub



Protected Overrides Sub OnBackColorChanged(ByVal e As System.EventArgs)

MyBase.OnBackColorChanged(e)

Me.Invalidate()

End Sub



Protected Overrides Sub OnParentBackColorChanged(ByVal e As System.EventArgs)

MyBase.OnParentBackColorChanged(e)

Me.Invalidate()

End Sub



#End Region



End Class ' RiverNilePanel

[/SIZE][/FONT]