AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Diverses

Browse Source
This commit is contained in:
SchreiberM
2022-05-11 10:30:52 +02:00
parent 2dd19e6c3e
commit 924e379733
8 changed files with 94 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -1282,15 +1282,15 @@ Public Class frmFlowForm
If oDT.Rows.Count > 0 Then
Dim oTooLTip = "TaskFlow "
PMTaskBadgeGroup.Visible = False
PMTaskBadgeInd.Visible = False
PMTaskBadgeIndividual.Visible = False
For Each oRow As DataRow In oDT.Rows
If oRow.Item("JOB_TITLE") = "PM_INDIVIDUAL_JOB" Then
PMTaskBadgeInd.Properties.Text = oRow.Item("DESCR")
PMTaskBadgeIndividual.Properties.Text = oRow.Item("DESCR")
PMTaskBadgeInd.Visible = True
PMTaskBadgeIndividual.Visible = True
oTooLTip += $"({PMTaskBadgeInd.Properties.Text} Individual"
oTooLTip += $"({PMTaskBadgeIndividual.Properties.Text} Individual"
ElseIf oRow.Item("JOB_TITLE") = "PM_GROUP_JOB" Then
PMTaskBadgeGroup.Properties.Text = oRow.Item("DESCR")
oTooLTip += $"- and {PMTaskBadgeGroup.Properties.Text} Group-"
@@ -1301,12 +1301,10 @@ Public Class frmFlowForm
PictureBoxPM.ToolTip = oTooLTip
Else
PMTaskBadgeGroup.Visible = False
PMTaskBadgeInd.Visible = False
PMTaskBadgeIndividual.Visible = False
End If
Else
PMTaskBadgeGroup.Visible = False
PMTaskBadgeInd.Visible = False
PMTaskBadgeIndividual.Visible = False
End If