تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مقال- أفكار في الدوت نت Overrides DisplayRectangle Property
#1
كاتب الموضوع : silverlight


بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

بالتأكيد الكثير منكم قد سمع بخاصية DisplayRectangle وهي خاصية ReadOnly ويمتلكها وبلا إستثناء جميع الكونترول الموجودة في الدوت نت ولمزيد من التفاصيل عن هذه الخاصية يمكنكم مراجعة اللينك التالي.

Control.DisplayRectangle Property

وتكمن أهم مميزات هذه الخاصية في أنها تمثل المنطقة التي يتم إضافة أي كونترول بها ويمكن إعتبارها المنطقة التي يتعامل معها المستخدم بشكل عام ويطلق عليها إسم Client Area وفي واقع الأمر وكما ستلاحظون من اللينك أعلاه لم توضح شركة مايكروسوفت الكثير عن هذه الخاصية لكن ولكي نقوم بعمل Overrides لهذه الخاصية ومن ثم نتأكد من نجاحنا في هذا الأمر يجب علينا تحديدا أن نتعامل مع OnLayout Method وذلك لكي نتأكد أن أي كونترول يتم إضافته يكون في مكانه المناسب في حالة Design Time وفي حالة Run Time

أيضا عمل Overrides لهذه الخاصية يتيح للمبرمج أن بحدد المنطقة التي يمكن أن نطلق عليها Non Client Area وبالتالي نستطيع أن نرسم بها ما نشاء بدون أن يؤثر ذلك علي حدود أو أبعاد DispalyRectangle

عموما لقد حاولت بقدر الإمكان أن أجعل الكود بسيطا وبالتأكيد يمكنكم استخدام نفس الفكرة الموجودة بالمثال وتطبيقها علي بعض الكونترول الأخري حيث يمكن تطبيقها مع الفورم أو البانل علي سبيل المثال ويجب الوضع في الاعتبار أن هذه الفكرة قد لا تنجح مع بعض الكونترول الأخري

أرجو أن تدرسوا الكود جيدا ومن لديه أي إستفسار يستطيع أن بسأل ما يشاء وأترككم مع الكود والمثال لدراسته

المثال


كود :
[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]
تقبلوا تحياتي
أخوكم عمر
}}}
تم الشكر بواسطة:
#2
الكود بالمرفقات وبنسخة الفيجوال استوديو 2010


الملفات المرفقة
.rar   DisplayRectangle_src.rar (الحجم : 52.47 ك ب / التحميلات : 63)
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعامل مع الصور Images في بيئة الدوت نت باستخدام +GDI - مقدمة RaggiTech 3 5,856 30-07-21, 05:14 PM
آخر رد: kebboud
  مقال: الكومبو بوكس ComboBox كيف تضيف أيقونات Blue Sky 1 3,158 30-06-19, 10:41 AM
آخر رد: invocker
  التــعامل مع cmd من خلال الدوت نت مبتدئ في الاحتراف 3 3,778 02-06-18, 12:36 AM
آخر رد: YousefOkasha
  أفكار في الجرافكس AlignRectangle silverlight 0 1,557 14-10-17, 02:02 PM
آخر رد: silverlight
  WriteOnly Property silverlight 0 1,716 08-07-17, 08:12 AM
آخر رد: silverlight
  تفقيط الارقام فى الدوت نت مبرمج أوتار 17 12,388 20-04-17, 12:21 PM
آخر رد: محمد بوقزاحة
  [مقال] تشغيل برمجيات الدوت نت بدون تنصيب النت فروم ويرك m0075 13 10,481 13-02-14, 08:29 PM
آخر رد: Omar Mekkawy
  مقال- كيفية الاستغناء عن الداتا بيز التقليدية في برامجنا – ألجزء الأول RaggiTech 1 3,426 06-10-12, 12:23 AM
آخر رد: RaggiTech
  مقال- تطوير الكونترول Property Attributes الجزء الثالث RaggiTech 0 2,267 06-10-12, 12:20 AM
آخر رد: RaggiTech
  مقال- تطوير الكونترول Skin Control RaggiTech 0 2,428 06-10-12, 12:08 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم