Common: Improve Grids, Ribbons, UI

GUIs.Common/frmDocumentResultList.vb

@@ -215,7 +215,10 @@ Public Class frmDocumentResultList
                 Dim oDocumentInfo As DocumentResultList.Document = Nothing
 
                 ' Show Ribbon Category
-                RibbonPageCategoryFile.Visible = True
+                If RibbonPageCategoryFile.Visible = False Then
+                    RibbonPageCategoryFile.Visible = True
+                    RibbonControl.SelectedPage = RibbonPageActions1
+                End If
 
                 ' Load DocumentInfo 
                 oDocumentInfo = Documentloader.Load(oObjectId, oFullPath)
@@ -254,6 +257,7 @@ Public Class frmDocumentResultList
                 End If
             Else
                 RibbonPageCategoryFile.Visible = False
+                RibbonControl.SelectedPage = RibbonPageStart
             End If
         Catch ex As Exception
             ErrorHandler.ShowErrorMessage(ex, "GridView_FocusedRowChanged")
@@ -575,6 +579,15 @@ Public Class frmDocumentResultList
                 End Try
             Next
 
+            For Each oColumn As BandedGridColumn In GridView.Columns
+
+                If oColumn.ColumnType.Name = "DateTime" Then
+                    oColumn.DisplayFormat.FormatType = FormatType.DateTime
+                    oColumn.DisplayFormat.FormatString = "g"
+                End If
+
+            Next
+
             'Dim oCreated, oChanged As String
             'If UserLanguage = State.UserState.LANG_DE_DE Then
             '    oChanged = "Geändert"
@@ -952,4 +965,13 @@ Public Class frmDocumentResultList
     Private Sub BarButtonItem11_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem11.ItemClick
         GridView1.ShowCustomization()
     End Sub
+
+    Private Sub CtrlObjectPropertyDialog_Enter(sender As Object, e As EventArgs) Handles CtrlObjectPropertyDialog.Enter
+        RibbonPageCategoryAttribute.Visible = True
+        RibbonControl.SelectedPage = RibbonPageAttribute
+    End Sub
+
+    Private Sub CtrlObjectPropertyDialog_Leave(sender As Object, e As EventArgs) Handles CtrlObjectPropertyDialog.Leave
+        RibbonPageCategoryAttribute.Visible = False
+    End Sub
 End Class