Public Sub Initialize(id As Long, image As ImageView, machineType As Int, machineName As String, bmp As Bitmap)
mID = id
mImage = image
mType = machineType
mName = machineName
mBMP = bmp
setMachineStatus(0, 0)
Private r As Reflector
r.Target = mImage
r.SetOnClickListener("machineClick")
End Sub
Public Sub machineClick(viewtag As Object)
cDlg.ShowAsync(mName.Trim, "OK", "", "", Null, True)
cDlg.SetSize(100%x, 385dip)
Wait For Dialog_Ready(pnl As Panel)
pnl.LoadLayout("popup")
pnl.Color = Colors.White
lblStatus.Text = $"Status: ${getStatusString}"$
' lblStatus.TextColor = mColor
If mStatus = 15 Then
lblInfo1.Text = $"Time Remaining: ${formatTimeLeft}"$
lblInfo1.Visible = True
Else
lblInfo1.Visible = False
End If
formatMachineInfo
Log(mName)
End Sub