Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections

Namespace DevExpress.XtraCharts.Demos.Modules
    Friend Structure MarkerKindStrings
        Private disableError As String
        Public Const square As String = "Square"
        Public Const diamond As String = "Diamond"
        Public Const triangle As String = "Triangle"
        Public Const invertedTriangle As String = "Inverted Triangle"
        Public Const circle As String = "Circle"
        Public Const plus As String = "Plus"
        Public Const cross As String = "Cross"
        Public Const star3 As String = "Star 3-points"
        Public Const star4 As String = "Star 4-points"
        Public Const star5 As String = "Star 5-points"
        Public Const star6 As String = "Star 6-points"
        Public Const star10 As String = "Star 10-points"
        Public Const pentagon As String = "Pentagon"
        Public Const hexagon As String = "Hexagon"
    End Structure

	Friend Class MarkerKindItem
		Private text_Renamed As String
		Private markerKind_Renamed As MarkerKind

		Public ReadOnly Property Text() As String
			Get
				Return Me.text_Renamed
			End Get
		End Property
		Public ReadOnly Property MarkerKind() As MarkerKind
			Get
				Return Me.markerKind_Renamed
			End Get
		End Property


		Public Sub New(ByVal text_Renamed As String, ByVal markerKind_Renamed As MarkerKind)
			Me.text_Renamed = text_Renamed
			Me.markerKind_Renamed = markerKind_Renamed
		End Sub
		Public Overrides Function ToString() As String
			Return Me.text_Renamed
		End Function
	End Class

	Friend Class StarMarkerKindItem
		Inherits MarkerKindItem
		Private pointCount_Renamed As Integer

		Public ReadOnly Property PointCount() As Integer
			Get
				Return Me.pointCount_Renamed
			End Get
		End Property


		Public Sub New(ByVal text As String, ByVal pointCount_Renamed As Integer)
			MyBase.New(text, MarkerKind.Star)
			Me.pointCount_Renamed = pointCount_Renamed
		End Sub
	End Class

	Friend Class MarkerKindItemCollection
		Inherits CollectionBase
		Public Shared Function CreateCollection() As MarkerKindItemCollection
			Dim itemCollection As MarkerKindItemCollection = New MarkerKindItemCollection()
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.square, MarkerKind.Square))
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.diamond, MarkerKind.Diamond))
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.triangle, MarkerKind.Triangle))
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.invertedTriangle, MarkerKind.InvertedTriangle))
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.circle, MarkerKind.Circle))
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.plus, MarkerKind.Plus))
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.cross, MarkerKind.Cross))
			itemCollection.Add(New StarMarkerKindItem(MarkerKindStrings.star3, 3))
			itemCollection.Add(New StarMarkerKindItem(MarkerKindStrings.star4, 4))
			itemCollection.Add(New StarMarkerKindItem(MarkerKindStrings.star5, 5))
			itemCollection.Add(New StarMarkerKindItem(MarkerKindStrings.star6, 6))
			itemCollection.Add(New StarMarkerKindItem(MarkerKindStrings.star10, 10))
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.pentagon, MarkerKind.Pentagon))
			itemCollection.Add(New MarkerKindItem(MarkerKindStrings.hexagon, MarkerKind.Hexagon))
			Return itemCollection
		End Function

		Public Shared Function GetSizeArray() As String()
			Return New String() {"8", "10", "12", "14", "16", "18", "20", "22", "24", "26", "28", "30"}
		End Function

		Public Sub New()
		End Sub

		Public Function Add(ByVal value As MarkerKindItem) As Integer
			Return(List.Add(value))
		End Function

		Public Sub CopyTo(ByVal objects As Object())
			List.CopyTo(objects, 0)
		End Sub

		Public Function GetItemByKind(ByVal markerKind As MarkerKind) As MarkerKindItem
			For Each item As MarkerKindItem In List
				If item.MarkerKind = markerKind Then
					Return item
				End If
			Next item
			Return Nothing
		End Function

		Public Function GetItemByStarPointCount(ByVal pointCount As Integer) As MarkerKindItem
			For Each item As MarkerKindItem In List
				If item.MarkerKind = MarkerKind.Star AndAlso (CType(item, StarMarkerKindItem)).PointCount = pointCount Then
					Return item
				End If
			Next item
			Return Nothing
		End Function
	End Class
End Namespace