Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Data
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraBars.Demos.Tutorials
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.LookAndFeel
Imports DevExpress.XtraEditors
Imports DevExpress.Skins

Namespace DevExpress.XtraBars.Demos.Tutorials
	Public Partial Class ContextTabs
		Inherits TutorialControl
		Public Sub New()
			InitializeComponent()
		End Sub
	End Class
	Public Class PreviewRibbonsWithForm
		Inherits XtraUserControl
		Private form As RibbonPreviewForm
		Private ribbonPreview_Renamed As previewRibbon
		Public Sub New()
			Me.ribbonPreview_Renamed = New previewRibbon()
			form = New RibbonPreviewForm()
			form.ControlBox = False
			form.TopLevel = False
			form.Parent = Me
			form.Controls.Add(ribbonPreview_Renamed.ribbonControl1)
			form.Controls.Add(ribbonPreview_Renamed.ribbonStatusBar1)
			ribbonPreview_Renamed.Dock = DockStyle.Fill
			form.Controls.Add(ribbonPreview_Renamed)
			form.Visible = True
		End Sub
		Public ReadOnly Property RibbonPreview() As previewRibbon
			Get
				Return ribbonPreview_Renamed
			End Get
		End Property
		Public ReadOnly Property Ribbon() As RibbonControl
			Get
				Return ribbonPreview_Renamed.ribbonControl1
			End Get
		End Property
		Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
			MyBase.OnSizeChanged(e)
			form.Bounds = ClientRectangle
		End Sub
		Public Overridable Sub UpdateLookAndFeel(ByVal skinLookAndFeel As UserLookAndFeel)
			form.LookAndFeel.ParentLookAndFeel = skinLookAndFeel
			'ribbonPreview.UpdateLookAndFeel(skinLookAndFeel);
		End Sub
		Public Property DisplayAsActive() As Boolean
			Get
				Return form.DisplayAsActive
			End Get
			Set
				form.DisplayAsActive = Value
			End Set
		End Property
		Protected Class RibbonPreviewForm
			Inherits RibbonForm
			Private displayAsActive_Renamed As Boolean = True
			Protected Overrides Function CreateFormBorderPainter() As DevExpress.Skins.XtraForm.FormPainter
				Return New RibbonPreviewPainter(Me, LookAndFeel)
			End Function
			Public Property DisplayAsActive() As Boolean
				Get
					Return displayAsActive_Renamed
				End Get
				Set
					displayAsActive_Renamed = Value
					DevExpress.Skins.XtraForm.FormPainter.InvalidateNC(Me)
					Update()
				End Set
			End Property
		End Class
		Protected Class RibbonPreviewPainter
			Inherits DevExpress.Skins.XtraForm.RibbonFormPainter
			Public Sub New(ByVal form As RibbonForm, ByVal provider As ISkinProvider)
				MyBase.New(form, provider)
			End Sub
			Protected Overrides Property IsWindowActive() As Boolean
				Get
					Return (CType(Owner, RibbonPreviewForm)).DisplayAsActive
				End Get
				Set
				End Set
			End Property
		End Class
	End Class
End Namespace