diff --git a/app/TaskFlow/ModuleControlProperties.vb b/app/TaskFlow/ModuleControlProperties.vb index d77a177..d702eee 100644 --- a/app/TaskFlow/ModuleControlProperties.vb +++ b/app/TaskFlow/ModuleControlProperties.vb @@ -211,7 +211,7 @@ Public Module ModuleControlProperties Public Property RegexMessage As String - + Public Property DisplayFormat As String @@ -226,10 +226,10 @@ Public Module ModuleControlProperties Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection Dim displayFormatList = New List(Of String) From { ClassControlCreator.CONTROL_TYPE_TEXT, - ClassControlCreator.CONTROL_TYPE_BOOLEAN, - ClassControlCreator.CONTROL_TYPE_INTEGER, ClassControlCreator.CONTROL_TYPE_DOUBLE, - ClassControlCreator.CONTROL_TYPE_CURRENCY + ClassControlCreator.CONTROL_TYPE_CURRENCY, + ClassControlCreator.CONTROL_TYPE_DATE, + ClassControlCreator.CONTROL_TYPE_DATETIME } Dim values As New StandardValuesCollection(displayFormatList) Return values diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index e553fe3..0f5db73 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -17,6 +17,7 @@ Imports DevExpress.XtraGrid.Views.BandedGrid Imports DevExpress.XtraBars.Ribbon Imports DigitalData.Modules.ZooFlow Imports DevExpress.LookAndFeel +Imports DigitalData.Modules.Base Public Class frmMain Private Property FormHelper As FormHelper @@ -402,8 +403,10 @@ Public Class frmMain Check_Timer_Notification() Timer_Inactivity_Reset_Disable("FormLoad") - Restore_Form_Position() - + 'Restore_Form_Position() + ScreenEx.RestoreFormPosition(Me, My.Settings.frmMainPosition) + ScreenEx.RestoreFormState(Me, My.Settings.frmMainWindowState) + Size = My.Settings.frmMainSize If IDB_ACTIVE = False And ERROR_STATE = "" Then Try