Imports System Imports System.ComponentModel Imports DevExpress.Xpo Imports DevExpress.Data.Filtering Imports DevExpress.ExpressApp Imports DevExpress.Persistent.Base Imports DevExpress.Persistent.BaseImpl Imports DevExpress.Persistent.Validation Imports System.Drawing Imports DevExpress.ExpressApp.Utils _ Public Class ModelActions Inherits BaseObject Public Sub New(ByVal session As Session) MyBase.New(session) ' This constructor is used when an object is loaded from a persistent storage. ' Do not place any code here or place it only when the IsLoading property is false: ' if (!IsLoading){ ' It is now OK to place your initialization code here. ' } ' or as an alternative, move your initialization code into the AfterConstruction method. End Sub Public Overrides Sub AfterConstruction() MyBase.AfterConstruction() ' Place here your initialization code. Action_Enabled = True End Sub Property Action_ID As String Property Action_ImageName As String Property Action_Controller As String Property Action_Caption As String Property Action_SISGroup1 As String Property Action_SISGroup2 As String Property Action_Enabled As Boolean _ ReadOnly Property Image1 As Image Get Return ImageLoader.Instance.GetImageInfo(Action_ImageName).Image End Get End Property _ ReadOnly Property Action_Enabled_Image As Image Get If Action_Enabled Then Return ImageLoader.Instance.GetImageInfo("Action_Grant").Image Else Return ImageLoader.Instance.GetImageInfo("Action_Deny").Image End If End Get End Property End Class