using System;
using System.Drawing;
using System.Web.UI.WebControls;
using DevExpress.ExpressApp.Model;
using DevExpress.ExpressApp.Editors;
using DevExpress.ExpressApp.Web.Editors;
[PropertyEditor(typeof(Int32), false)]
public class CustomIntegerEditor : WebPropertyEditor {
public CustomIntegerEditor(Type objectType, IModelMemberViewItem info) : base(objectType, info) { }
protected override WebControl CreateViewModeControlCore() {
Label control = new Label();
control.ID = "editor";
return control;
}
protected override WebControl CreateEditModeControlCore() {
DropDownList control = new DropDownList();
control.ID = "editor";
control.Items.Add("0");
control.Items.Add("1");
control.Items.Add("2");
control.Items.Add("3");
control.Items.Add("4");
control.Items.Add("5");
control.SelectedIndexChanged = control_SelectedIndexChanged;
return control;
}
void control_SelectedIndexChanged(object sender, EventArgs e) {
EditValueChangedHandler(sender, e);
}
protected override object GetControlValueCore() {
int result = 0;
if(int.TryParse(((DropDownList)Editor).SelectedValue, out result)) {
return result;
}
return 0;
}
protected override void ReadEditModeValueCore() {
((DropDownList)Editor).SelectedValue = ((int)PropertyValue).ToString();
}
protected override void ReadViewModeValueCore() {
((Label)InplaceViewModeEditor).Text = ((int)PropertyValue).ToString();
}
}
Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Web.UI.WebControls
Imports DevExpress.ExpressApp.Model
Imports DevExpress.ExpressApp.Editors
Imports DevExpress.ExpressApp.Web.Editors
<PropertyEditor(GetType(Int32), False)> _
Public Class CustomIntegerEditor
Inherits WebPropertyEditor
Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
MyBase.New(objectType, info)
End Sub
Protected Overrides Function CreateViewModeControlCore() As WebControl
Dim control As New Label()
control.ID = "editor"
Return control
End Function
Protected Overrides Function CreateEditModeControlCore() As WebControl
Dim control As New DropDownList()
control.ID = "editor"
control.Items.Add("0")
control.Items.Add("1")
control.Items.Add("2")
control.Items.Add("3")
control.Items.Add("4")
control.Items.Add("5")
AddHandler control.SelectedIndexChanged, AddressOf control_SelectedIndexChanged
Return control
End Function
Private Sub control_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
EditValueChangedHandler(sender, e)
End Sub
Protected Overrides Function GetControlValueCore() As Object
Dim result As Integer = 0
If Integer.TryParse(CType(Editor, DropDownList).SelectedValue, result) Then
Return result
End If
Return 0
End Function
Protected Overrides Sub ReadEditModeValueCore()
CType(Editor, DropDownList).SelectedValue = CInt(Fix(PropertyValue)).ToString()
End Sub
Protected Overrides Sub ReadViewModeValueCore()
CType(InplaceViewModeEditor, Label).Text = CInt(Fix(PropertyValue)).ToString()
End Sub
End Class
