Add NewFileIndex

This commit is contained in:
Jonathan Jenne
2019-03-04 17:13:49 +01:00
parent 6f0164d010
commit bbd761c0ad
51 changed files with 408 additions and 437 deletions

View File

@@ -26,13 +26,9 @@ Public Class frmMain
If My.Application.Service.Online Then
LabelServiceOnline.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
LabelServiceOffline.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'LabelServiceOnline.Caption = "Service Online"
'LabelServiceOnline.ItemAppearance.Normal.ForeColor = Color.Green
Else
LabelServiceOnline.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
LabelServiceOffline.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
'LabelServiceOnline.Caption = "Service Offline"
'LabelServiceOnline.ItemAppearance.Normal.ForeColor = Color.Red
End If
End Sub