MS Validator Error Color as Control is Devexpress
This commit is contained in:
parent
e0e32790d8
commit
c5454ef0cd
17
app/TaskFlow/frmMain.Designer.vb
generated
17
app/TaskFlow/frmMain.Designer.vb
generated
@ -95,8 +95,6 @@ Partial Class frmMain
|
||||
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageAktionen = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup8 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RepositoryItemTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
@ -294,7 +292,7 @@ Partial Class frmMain
|
||||
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
|
||||
Me.RibbonControl1.MaxItemId = 54
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageTabelle, Me.RibbonPageAktionen, Me.RibbonPage1})
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageTabelle, Me.RibbonPageAktionen})
|
||||
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1, Me.RepositoryItemTrackBar1, Me.cmbGridFontSize})
|
||||
Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013
|
||||
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
|
||||
@ -823,17 +821,6 @@ Partial Class frmMain
|
||||
Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItemMassValidation)
|
||||
Me.RibbonPageGroup8.Name = "RibbonPageGroup8"
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup9})
|
||||
Me.RibbonPage1.Name = "RibbonPage1"
|
||||
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
|
||||
'
|
||||
'RibbonPageGroup9
|
||||
'
|
||||
Me.RibbonPageGroup9.Name = "RibbonPageGroup9"
|
||||
resources.ApplyResources(Me.RibbonPageGroup9, "RibbonPageGroup9")
|
||||
'
|
||||
'RepositoryItemTrackBar1
|
||||
'
|
||||
Me.RepositoryItemTrackBar1.LabelAppearance.Options.UseTextOptions = True
|
||||
@ -1787,8 +1774,6 @@ Partial Class frmMain
|
||||
Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPageAktionen As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup8 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RepositoryItemTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
|
||||
Friend WithEvents Panel2 As Panel
|
||||
Friend WithEvents lblCaptionMainGrid As Label
|
||||
|
||||
@ -125,7 +125,7 @@
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAAVgBCgFYAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAAWABCgFgAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
@ -1494,12 +1494,6 @@
|
||||
<data name="RibbonPageAktionen.Text" xml:space="preserve">
|
||||
<value>Aktionen</value>
|
||||
</data>
|
||||
<data name="RibbonPageGroup9.Text" xml:space="preserve">
|
||||
<value>RibbonPageGroup9</value>
|
||||
</data>
|
||||
<data name="RibbonPage1.Text" xml:space="preserve">
|
||||
<value>RibbonPage1</value>
|
||||
</data>
|
||||
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1481, 158</value>
|
||||
</data>
|
||||
@ -2667,18 +2661,6 @@
|
||||
<data name=">>RibbonPageGroup8.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>RibbonPage1.Name" xml:space="preserve">
|
||||
<value>RibbonPage1</value>
|
||||
</data>
|
||||
<data name=">>RibbonPage1.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>RibbonPageGroup9.Name" xml:space="preserve">
|
||||
<value>RibbonPageGroup9</value>
|
||||
</data>
|
||||
<data name=">>RibbonPageGroup9.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>RepositoryItemTrackBar1.Name" xml:space="preserve">
|
||||
<value>RepositoryItemTrackBar1</value>
|
||||
</data>
|
||||
|
||||
22
app/TaskFlow/frmValidator.Designer.vb
generated
22
app/TaskFlow/frmValidator.Designer.vb
generated
@ -105,6 +105,8 @@ Partial Class frmValidator
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
@ -453,9 +455,9 @@ Partial Class frmValidator
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6})
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem2, Me.BarLinkContainerItem1, Me.btnitemConversationEnd, Me.BarLinkContainerItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6, Me.BarButtonItem7})
|
||||
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
|
||||
Me.RibbonControl1.MaxItemId = 33
|
||||
Me.RibbonControl1.MaxItemId = 34
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3})
|
||||
@ -694,7 +696,7 @@ Partial Class frmValidator
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2})
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2, Me.RibbonPageGroup1})
|
||||
Me.RibbonPage1.Name = "RibbonPage1"
|
||||
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
|
||||
'
|
||||
@ -759,6 +761,18 @@ Partial Class frmValidator
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem7)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
|
||||
'
|
||||
'BarButtonItem7
|
||||
'
|
||||
resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7")
|
||||
Me.BarButtonItem7.Id = 33
|
||||
Me.BarButtonItem7.Name = "BarButtonItem7"
|
||||
'
|
||||
'frmValidator
|
||||
'
|
||||
Me.Appearance.Options.UseFont = True
|
||||
@ -880,4 +894,6 @@ Partial Class frmValidator
|
||||
Friend WithEvents TITLELabel1 As DevExpress.XtraEditors.LabelControl
|
||||
Friend WithEvents PanelValidatorControl As DevExpress.XtraEditors.XtraScrollableControl
|
||||
Friend WithEvents PanelValidatorControlBorder As DevExpress.XtraEditors.PanelControl
|
||||
Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
End Class
|
||||
|
||||
@ -344,7 +344,7 @@
|
||||
<value>DocumentViewerValidator</value>
|
||||
</data>
|
||||
<data name=">>DocumentViewerValidator.Type" xml:space="preserve">
|
||||
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.2.0, Culture=neutral, PublicKeyToken=null</value>
|
||||
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.4.0, Culture=neutral, PublicKeyToken=null</value>
|
||||
</data>
|
||||
<data name=">>DocumentViewerValidator.Parent" xml:space="preserve">
|
||||
<value>SplitContainer1.Panel2</value>
|
||||
@ -947,6 +947,9 @@
|
||||
TDElppgSU0yJKabEFNPhDn4CUL0KSeYATWkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonItem7.Caption" xml:space="preserve">
|
||||
<value>Color</value>
|
||||
</data>
|
||||
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
@ -975,6 +978,9 @@
|
||||
<data name="RibbonPageGroup2.Text" xml:space="preserve">
|
||||
<value>Information</value>
|
||||
</data>
|
||||
<data name="RibbonPageGroup1.Text" xml:space="preserve">
|
||||
<value>RibbonPageGroup1</value>
|
||||
</data>
|
||||
<data name="RibbonPage1.Text" xml:space="preserve">
|
||||
<value>Start</value>
|
||||
</data>
|
||||
@ -1626,6 +1632,18 @@
|
||||
<data name=">>FolderBrowserDialog1.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.FolderBrowserDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name=">>RibbonPageGroup1.Name" xml:space="preserve">
|
||||
<value>RibbonPageGroup1</value>
|
||||
</data>
|
||||
<data name=">>RibbonPageGroup1.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>BarButtonItem7.Name" xml:space="preserve">
|
||||
<value>BarButtonItem7</value>
|
||||
</data>
|
||||
<data name=">>BarButtonItem7.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>$this.Name" xml:space="preserve">
|
||||
<value>frmValidator</value>
|
||||
</data>
|
||||
|
||||
@ -1,4 +1,5 @@
|
||||
Imports DevExpress.XtraBars
|
||||
Imports DevExpress.DataAccess.Native.Sql
|
||||
Imports DevExpress.XtraBars
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
@ -1220,7 +1221,7 @@ Public Class frmValidator
|
||||
Select Case oAction.ToString.ToUpper
|
||||
Case "SetButton".ToUpper
|
||||
btnSave.Text = oCaption & " (F2)"
|
||||
btnSave.BackColor = oColor
|
||||
btnSave.Appearance.BackColor = oColor
|
||||
Case "Override_Question".ToUpper
|
||||
If oQuestion <> "" Then
|
||||
Dim result As MsgBoxResult
|
||||
@ -1454,7 +1455,7 @@ Public Class frmValidator
|
||||
If oControlDataResult Is Nothing Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oButtonFinishSet As Boolean = False
|
||||
For Each oResultRow As DataRow In oControlDataResult.Rows
|
||||
Try
|
||||
_SetControlValue_In_Action = True
|
||||
@ -1467,9 +1468,9 @@ Public Class frmValidator
|
||||
|
||||
If oControl2Set.ToString.ToUpper = "BTN_FINISH".ToUpper Then
|
||||
btnSave.Text = oControlCaption & " (F2)"
|
||||
btnSave.BackColor = oControlBackColor
|
||||
btnSave.ForeColor = oControlFontColor
|
||||
|
||||
btnSave.Appearance.BackColor = oControlBackColor
|
||||
btnSave.Appearance.ForeColor = oControlFontColor
|
||||
oButtonFinishSet = True
|
||||
_SetControlValue_In_Action = False
|
||||
Continue For
|
||||
End If
|
||||
@ -1493,7 +1494,7 @@ Public Class frmValidator
|
||||
Dim oControl As Control = oControlObject2Set
|
||||
Dim oMeta As ClassControlCreator.ControlMetadata = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata)
|
||||
|
||||
Logger.Debug($"Got the Control22Set: {oControlId2Set}..Setting the values..")
|
||||
Logger.Debug($"Got the Control2Set: {oControlId2Set}..Setting the values..")
|
||||
|
||||
|
||||
Select Case True
|
||||
@ -1504,8 +1505,8 @@ Public Class frmValidator
|
||||
oControl.Text &= oControlCaption
|
||||
End If
|
||||
|
||||
btnSave.BackColor = oControlBackColor
|
||||
btnSave.ForeColor = oControlFontColor
|
||||
oControl.BackColor = oControlBackColor
|
||||
oControl.ForeColor = oControlFontColor
|
||||
|
||||
Case oControl.GetType() = GetType(LookupControl3)
|
||||
Dim oDependingLookup As LookupControl3 = oControl
|
||||
@ -3164,12 +3165,15 @@ Public Class frmValidator
|
||||
Dim oRowData As New List(Of Object)
|
||||
|
||||
For index = 1 To oColValuesfromSource.Length
|
||||
Dim oColumnType = oDTColumnsPerDevExGrid.Rows.Item(index - 1).Item("TYPE_COLUMN")
|
||||
Logger.Debug($"oColumnType of DGView-Column ({oColumnType.ToString})")
|
||||
Dim oConvertedValue = ClassFormat.GetConvertedValue(oColValuesfromSource(index - 1), oColumnType)
|
||||
oRowData.Add(oConvertedValue)
|
||||
Try
|
||||
Dim oColumnType = oDTColumnsPerDevExGrid.Rows.Item(index - 1).Item("TYPE_COLUMN")
|
||||
Logger.Debug($"oColumnType of DGView-Column ({oColumnType.ToString})...")
|
||||
Dim oConvertedValue = ClassFormat.GetConvertedValue(oColValuesfromSource(index - 1), oColumnType)
|
||||
oRowData.Add(oConvertedValue)
|
||||
Catch ex As Exception
|
||||
Logger.Warn($"Error while converting/adding Value to oRowData: " & ex.Message)
|
||||
End Try
|
||||
Next
|
||||
|
||||
oDataSource.Rows.Add(oRowData.ToArray())
|
||||
Catch ex As Exception
|
||||
Logger.Warn($"Error while adding datarow [{oRow.Item(0).ToString}] to Grid: " & ex.Message)
|
||||
@ -3181,7 +3185,7 @@ Public Class frmValidator
|
||||
|
||||
End If
|
||||
Else
|
||||
|
||||
Logger.Info($"DevExpressGrid: There are no columns configured/listed for control {oControlId}.")
|
||||
End If
|
||||
|
||||
Case Else
|
||||
@ -3736,7 +3740,7 @@ Public Class frmValidator
|
||||
Try
|
||||
Dim oSQL = PROFIL_FINISH_SQL
|
||||
oSQL = clsPatterns.ReplaceAllValues(oSQL, PanelValidatorControl, True)
|
||||
sd
|
||||
|
||||
Dim oDT_ACTIONS As DataTable = DatabaseFallback.GetDatatableECM(oSQL)
|
||||
If IsNothing(oDT_ACTIONS) Then
|
||||
MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
|
||||
@ -5746,4 +5750,11 @@ Public Class frmValidator
|
||||
End Using
|
||||
Return tmpImg
|
||||
End Function
|
||||
|
||||
Private Sub BarButtonItem7_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem7.ItemClick
|
||||
Dim oControlFontColor = Color.FromName("Black")
|
||||
Dim oControlBackColor = Color.FromName("Red")
|
||||
btnSave.Appearance.ForeColor = oControlFontColor
|
||||
btnSave.Appearance.BackColor = oControlBackColor
|
||||
End Sub
|
||||
End Class
|
||||
Loading…
x
Reference in New Issue
Block a user