|
|
Namespace Controls.Form
Public Class HorizontalAlignmentColumnFactory
Inherits BaseColumnFactory
Private _comboFactory As New ComboBoxColumnFactory
Sub New()
StyleName = Defaults("Form.Column.HorizontalAlignment.StyleName")
Height = Defaults("Form.Column.HorizontalAlignment.Height")
Width = Defaults("Form.Column.HorizontalAlignment.Width")
SuppressHeading = Defaults("Form.Column.HorizontalAlignment.SuppressHeading")
Stretch = Defaults("Form.Column.HorizontalAlignment.Stretch")
IsRequired = Defaults("Form.Column.HorizontalAlignment.IsRequired")
IsReadonly = Defaults("Form.Column.HorizontalAlignment.IsReadonly")
End Sub
Public Overloads Overrides Function CreateControl(form As ItemForm) As FrameworkElement
_comboFactory.StyleName = StyleName
_comboFactory.Height = Height
_comboFactory.Width = Width
_comboFactory.SuppressHeading = SuppressHeading
_comboFactory.Stretch = Stretch
_comboFactory.IsRequired = IsRequired
_comboFactory.IsReadonly = IsReadonly
_comboFactory.ItemsSource = New HorizontalAlignment
_comboFactory.Path = Path
_comboFactory.Header = Header
Return _comboFactory.CreateControl(form)
End Function
End Class
End Namespace
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
I enjoy my wife, living in the woods, my 7 dogs, and learning new things. I like to play with UI stuff and model based coding.
Submit an article or tip