57 lines
1.9 KiB
VB.net
57 lines
1.9 KiB
VB.net
Imports DevExpress.ExpressApp.Model
|
|
Imports DevExpress.ExpressApp.Editors
|
|
Imports DevExpress.ExpressApp.Win.Editors
|
|
Imports DevExpress.ExpressApp.Win.Core.ModelEditor
|
|
Imports DevExpress.XtraEditors
|
|
|
|
|
|
<PropertyEditor(GetType([String]), False)> _
|
|
Public Class FieldPickerPropertyEditor
|
|
Inherits DXPropertyEditor
|
|
Public Sub New(type As Type, model As IModelMemberViewItem)
|
|
MyBase.New(type, model)
|
|
End Sub
|
|
Protected Overrides Function CreateControlCore() As Object
|
|
Dim control As New FieldPicker()
|
|
control.Properties.ClassType = Me.ObjectType
|
|
Return control
|
|
End Function
|
|
End Class
|
|
<PropertyEditor(GetType([String]), False)> _
|
|
Public Class FieldPickerPropertyEditorContacts
|
|
Inherits DXPropertyEditor
|
|
Public Sub New(type As Type, model As IModelMemberViewItem)
|
|
MyBase.New(type, model)
|
|
End Sub
|
|
Protected Overrides Function CreateControlCore() As Object
|
|
Dim control As New FieldPicker()
|
|
control.Properties.ClassType = GetType(Contacts)
|
|
Return control
|
|
End Function
|
|
End Class
|
|
<PropertyEditor(GetType([String]), False)> _
|
|
Public Class FieldPickerPropertyEditorContract
|
|
Inherits DXPropertyEditor
|
|
Public Sub New(type As Type, model As IModelMemberViewItem)
|
|
MyBase.New(type, model)
|
|
End Sub
|
|
Protected Overrides Function CreateControlCore() As Object
|
|
Dim control As New FieldPicker()
|
|
control.Properties.ClassType = GetType(Contracts)
|
|
Return control
|
|
End Function
|
|
End Class
|
|
<PropertyEditor(GetType([String]), False)> _
|
|
Public Class FieldPickerPropertyEditorAPCShettByProducts
|
|
Inherits DXPropertyEditor
|
|
Public Sub New(type As Type, model As IModelMemberViewItem)
|
|
MyBase.New(type, model)
|
|
End Sub
|
|
Protected Overrides Function CreateControlCore() As Object
|
|
Dim control As New FieldPicker()
|
|
control.Properties.ClassType = GetType(APCSheetByProducts)
|
|
Return control
|
|
End Function
|
|
End Class
|
|
|