Common/DocumentResultList: More Performance Fixes
This commit is contained in:
Jonathan Jenne
parent
b63c1b5052
commit
124cc97e3b
@ -45,7 +45,8 @@ Partial Class frmDocumentResultList
|
||||
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.GridView1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
|
||||
Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
|
||||
Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView2 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridView()
|
||||
@ -281,6 +282,7 @@ Partial Class frmDocumentResultList
|
||||
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
|
||||
Me.GridView1.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1})
|
||||
Me.GridView1.GridControl = Me.GridControl1
|
||||
Me.GridView1.Name = "GridView1"
|
||||
Me.GridView1.OptionsBehavior.Editable = False
|
||||
@ -288,6 +290,18 @@ Partial Class frmDocumentResultList
|
||||
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
|
||||
Me.GridView1.OptionsView.ShowAutoFilterRow = True
|
||||
'
|
||||
'GridBand1
|
||||
'
|
||||
Me.GridBand1.AppearanceHeader.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GridBand1.AppearanceHeader.Options.UseFont = True
|
||||
Me.GridBand1.Caption = "GridBand1"
|
||||
Me.GridBand1.Name = "GridBand1"
|
||||
Me.GridBand1.OptionsBand.AllowHotTrack = False
|
||||
Me.GridBand1.OptionsBand.AllowMove = False
|
||||
Me.GridBand1.OptionsBand.AllowPress = False
|
||||
Me.GridBand1.OptionsBand.AllowSize = False
|
||||
Me.GridBand1.VisibleIndex = 0
|
||||
'
|
||||
'SplitContainerControl2
|
||||
'
|
||||
Me.SplitContainerControl2.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
|
||||
@ -467,5 +481,6 @@ Partial Class frmDocumentResultList
|
||||
Friend WithEvents RepositoryItemTextEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
|
||||
Friend WithEvents labelCriticalError As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents labelWarning As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridView
|
||||
Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand
|
||||
End Class
|
||||
|
||||
@ -311,7 +311,7 @@ Public Class frmDocumentResultList
|
||||
Select Case pIndex
|
||||
Case 0
|
||||
Dim oResult = pResultList.Item(0)
|
||||
'GridBand1.Caption = $"{oResult.Title} ({pCount})"
|
||||
GridBand1.Caption = $"{oResult.Title} ({pCount})"
|
||||
|
||||
Case 1
|
||||
Dim oResult = pResultList.Item(1)
|
||||
@ -323,7 +323,7 @@ Public Class frmDocumentResultList
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub CreateDocumentGrid(GridView As GridView, Result As DocumentResult)
|
||||
Private Sub CreateDocumentGrid(GridView As BandedGridView, Result As DocumentResult)
|
||||
Try
|
||||
If IsNothing(GridView.Columns("ICON")) Then
|
||||
Dim oIconColumn = GridView.Columns.AddVisible("ICON", "ICON")
|
||||
@ -337,6 +337,8 @@ Public Class frmDocumentResultList
|
||||
.MinWidth = 20
|
||||
.VisibleIndex = 0
|
||||
End With
|
||||
|
||||
GridView.Bands.First().Columns.Add(oIconColumn)
|
||||
End If
|
||||
|
||||
Dim oCreated, oChanged As String
|
||||
@ -389,8 +391,6 @@ Public Class frmDocumentResultList
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell
|
||||
If e.RowHandle < 0 Then
|
||||
Exit Sub
|
||||
@ -410,29 +410,6 @@ Public Class frmDocumentResultList
|
||||
|
||||
e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18)
|
||||
End If
|
||||
|
||||
'Dim view As GridView = TryCast(sender, GridView)
|
||||
'If e.Column.FieldName = COLUMN_FILENAME Then
|
||||
' Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo)
|
||||
' Dim oViewInfo As TextEditViewInfo = TryCast(oCellInfo.ViewInfo, TextEditViewInfo)
|
||||
' Dim oFilename As String = e.DisplayText
|
||||
|
||||
' If oViewInfo IsNot Nothing And oFilename <> String.Empty Then
|
||||
' If OperationMode = IResultForm.Mode.NoAppServer Then
|
||||
' ' oNewRow.Item(COLUMN_ICON) = _Helpers.GetIconByExtension(oFullpath)
|
||||
' ' oNewRow.Item(COLUMN_FILEPATH) = oFullpath
|
||||
' ' oNewRow.Item(COLUMN_FILENAME) = oFilename
|
||||
' Else
|
||||
' oViewInfo.ContextImage = _Helpers.GetIconByExtension(oFilename)
|
||||
' oViewInfo.ContextImageAlignment = ContextImageAlignment.Near
|
||||
' ' oNewRow.Item(COLUMN_ICON) = _Helpers.GetIconByExtension(oFilename)
|
||||
' ' oNewRow.Item(COLUMN_FILEPATH) = String.Empty
|
||||
' ' oNewRow.Item(COLUMN_FILENAME) = oFilename
|
||||
' End If
|
||||
' oViewInfo.CalcViewInfo()
|
||||
' End If
|
||||
'End If
|
||||
'e.DefaultDraw()
|
||||
End Sub
|
||||
|
||||
Private Function TryGetItem(DataRow As DataRow, ColumnName As String, Optional DefaultValue As String = "") As String
|
||||
@ -553,7 +530,7 @@ Public Class frmDocumentResultList
|
||||
|
||||
Private Sub SetActiveGridBand()
|
||||
If _ActiveGrid.Equals(GridControl1) Then
|
||||
'_ActiveGridBand = GridBand1
|
||||
_ActiveGridBand = GridBand1
|
||||
ElseIf _ActiveGrid.Equals(GridControl2) Then
|
||||
_ActiveGridBand = GridBand2
|
||||
ElseIf _ActiveGrid.Equals(GridControl3) Then
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user