Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports DevExpress.Web.ASPxClasses
Imports DevExpress.Web.ASPxTabControl
Imports System.Collections

Partial Public Class Widgets_News
	Inherits System.Web.UI.UserControl
	Private privateOwnerZoneID As String
	Public Property OwnerZoneID() As String
		Get
			Return privateOwnerZoneID
		End Get
		Set(ByVal value As String)
			privateOwnerZoneID = value
		End Set
	End Property

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
		NewsPanel.OwnerZoneUID = OwnerZoneID
	End Sub

	Protected Sub NewsTabControl_TabDataBound(ByVal sender As Object, ByVal e As TabControlEventArgs)
		e.Tab.Name = DataBinder.Eval(e.Tab.DataItem, "Category").ToString()
		e.Tab.Text = e.Tab.Name
	End Sub

	Protected Sub NewsTabControl_CustomJSProperties(ByVal sender As Object, ByVal e As CustomJSPropertiesEventArgs)
		Dim pageIDHash = New Hashtable()
		For Each tab As Tab In NewsTabControl.Tabs
			pageIDHash(tab.Name) = GetNewsPageID(DataBinder.Eval(tab.DataItem, "Category"))
		Next tab
		e.Properties("cpPageIDHash") = pageIDHash
	End Sub

	Protected Function GetNewsPageID(ByVal category As Object) As String
		Return String.Format("{0}_{1}Page", ClientID, category)
	End Function
	Protected Function GetBackgroundStyle(ByVal imageUrl As Object) As String
		Dim url As String = CStr(imageUrl)
		Return String.Format("background-image:url(""{0}"")", url.TrimStart("~"c, "/"c))
	End Function
End Class