diff --git a/MultiTool.Common/Templates/Template.vb b/MultiTool.Common/Templates/Template.vb index d312fb1..2695189 100644 --- a/MultiTool.Common/Templates/Template.vb +++ b/MultiTool.Common/Templates/Template.vb @@ -22,6 +22,11 @@ Namespace Templates Public Property OutputDirectory As String Public Property ArchiveDirectory As String + ''' + ''' Last modified date of the template file + ''' + Public Property LastModified As Date + Public ReadOnly Property DocType As DocumentType Get Dim oDocType As String = GetParameter("DOCTYPE") diff --git a/MultiTool.Form/frmMain.Designer.vb b/MultiTool.Form/frmMain.Designer.vb index d6f81d8..90fffb7 100644 --- a/MultiTool.Form/frmMain.Designer.vb +++ b/MultiTool.Form/frmMain.Designer.vb @@ -45,6 +45,7 @@ Partial Class frmMain Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() Me.colDescription = New DevExpress.XtraGrid.Columns.GridColumn() Me.colFileName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colChangedWhen = New DevExpress.XtraGrid.Columns.GridColumn() Me.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.MultiTool.Form.frmWaitForm), True, True) CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -204,7 +205,7 @@ Partial Class frmMain ' 'GridViewTemplates ' - Me.GridViewTemplates.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colDescription, Me.colFileName}) + Me.GridViewTemplates.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colDescription, Me.colFileName, Me.colChangedWhen}) Me.GridViewTemplates.GridControl = Me.GridControlTemplates Me.GridViewTemplates.Name = "GridViewTemplates" ' @@ -232,6 +233,14 @@ Partial Class frmMain Me.colFileName.Visible = True Me.colFileName.VisibleIndex = 2 ' + 'colChangedWhen + ' + Me.colChangedWhen.Caption = "Letzte Änderung" + Me.colChangedWhen.FieldName = "LastModified" + Me.colChangedWhen.Name = "colChangedWhen" + Me.colChangedWhen.Visible = True + Me.colChangedWhen.VisibleIndex = 3 + ' 'SplashScreenManager ' Me.SplashScreenManager.ClosingDelay = 500 @@ -283,4 +292,5 @@ Partial Class frmMain Friend WithEvents btnOpenSchemaDirectory As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents btnReloadWinlineData As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colChangedWhen As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/MultiTool.Form/frmMain.vb b/MultiTool.Form/frmMain.vb index cce5387..7feaf4c 100644 --- a/MultiTool.Form/frmMain.vb +++ b/MultiTool.Form/frmMain.vb @@ -124,6 +124,19 @@ Public Class frmMain Dim oBindingSource = New BindingList(Of Template) For Each oTemplate As Template In TemplateLoader.TemplateList + + ' Check template files and update modified date + Try + Dim oFilePath = IO.Path.Combine(My.GeneralConfiguration.TemplateDirectory, oTemplate.FileName) + Dim oFileInfo = New FileInfo(oFilePath) + + If oFileInfo.Exists Then + oTemplate.LastModified = oFileInfo.LastWriteTime + End If + Catch ex As Exception + Logger.Error(ex) + End Try + oBindingSource.Add(oTemplate) Next Return oBindingSource @@ -287,4 +300,8 @@ Public Class frmMain RibbonPageGroupStart.Enabled = True SplashScreenManager.CloseWaitForm() End Sub + + Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click + + End Sub End Class \ No newline at end of file