Sub pnlOffsetsImageHolder_Click
If loadedfile = "" Then
CallPromptBox("You must save your program to take pictures. Save now?", False, "ForceSave", False)
Return
End If
If QWERTYPanelBackground.visible = True Then txtOffsetsCommentBox_EnterPressed
Dim panel1 As Panel
panel1.Initialize("")
If Sender Is Timer Then
Dim tim As Timer
tim = Sender
Log(tim.Interval)
Else If Sender Is Panel Then
panel1 = Sender
End If
intCameraSelected = panel1.Tag
If pnlOffsetsImageHolder(intCameraSelected-1).GetView(0).IsInitialized Then
SetCamera
Else
pnlOffsetsImageHolder(0).Enabled = False
pnlOffsetsImageHolder(1).Enabled = False
pnlOffsetsImageHolder(2).Enabled = False
DoEvents
Dim PressHold As Label
PressHold.Initialize("PressHold")
PressHold.Text = "Hold to delete picture."
PressHold.TextSize = 20
PressHold.TextColor = Colors.White
PressHold.Color = Colors.Black
pnlOffsetsImageHolder(intCameraSelected-1).AddView(PressHold,0, 0, pnlOffsetsImageHolder(intCameraSelected-1).Width, pnlOffsetsImageHolder(intCameraSelected-1).Height)
PressHold.Gravity = Gravity.CENTER
PressHold.BringToFront
PressHold.Visible = True
Dim FadeInOut As Animation
FadeInOut.InitializeAlpha("FadeInOut", 0, 1)
FadeInOut.RepeatMode = FadeInOut.REPEAT_REVERSE
FadeInOut.RepeatCount = 1
FadeInOut.Duration = 1000
FadeInOut.Start(PressHold)
End If