This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-12 13:48:22 +02:00
parent 8c901be00c
commit 292b241fd1
38 changed files with 1445 additions and 1114 deletions

View File

@@ -43,16 +43,27 @@
Else
lbValidUntil.Text = LICENSE_DATE.ToString("MM-dd-yyyy")
End If
DataGridViewAddOns.DataSource = DT_LICENSE_ADDONS
DataGridViewAddOns.Columns(0).Width = 200
DataGridViewAddOns.Columns(1).Visible = False
DataGridViewAddOns.Columns(2).Width = 100
GridColor()
If (CBool(LICENSE_SAP_Connect) = True) Then
chkSAP.Checked = True
Else
chkSAP.Checked = False
End If
If (CBool(LICENSE_SITE_PROXY) = True) Then
chkSite.Checked = True
Else
chkSite.Checked = False
End If
End Sub
Sub GridColor()
Try
For i = 0 To DataGridViewAddOns.RowCount - 1
If DataGridViewAddOns.Rows(i).Cells(2).Value.ToString = "Valid" Then
DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen
Else
DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
Catch ex As Exception
End Try
End Sub
End Class