' Gambas class file


Public Sub Form_Open()
Wait
  PictureBox1.Width = Form1.Width
  PictureBox1.Height = Form1.Height
Wait
End

Public Sub stimul(xxx As String)
  Wait
  PictureBox1.Picture = Picture.Load(xxx)
  Wait
End

Public Sub loginfo(aaa As String)
  Label1.Text = aaa
End
Public Sub cyklusinfo(bbb As String)
  label2.Text = bbb
End

Public Sub PictureBox1_DblClick()
  Form1.FullScreen = False
  Form1.Visible = False
  FMain.Visible = True
  Form1.Close
Wait
End

Public Sub Form_Resize()
  PictureBox1.Width = Form1.Width
  PictureBox1.Height = Form1.Height
End

Public Sub Form_Show()
  Wait
    PictureBox1.Width = Form1.Width
    PictureBox1.Height = Form1.Height
  Wait
End

Public Sub PictureBox1_Menu()
  FMain.remstart()
End

Public Sub Form_KeyPress()
  If Key.Code = Key["0"] Or Key.Code = Key["KP_0"] Then FMain.AparaturaNastavPitko(0) 
  If Key.Code = Key["1"] Or Key.Code = Key["KP_1"] Then FMain.AparaturaNastavPitko(1) 
  If Key.Code = Key["2"] Or Key.Code = Key["KP_2"] Then FMain.AparaturaNastavPitko(2) 
  If Key.Code = Key["3"] Or Key.Code = Key["KP_3"] Then FMain.AparaturaNastavPitko(3) 
  If Key.Code = Key["4"] Or Key.Code = Key["KP_4"] Then FMain.AparaturaNastavPitko(4) 
  If Key.Code = Key["5"] Or Key.Code = Key["KP_5"] Then FMain.AparaturaNastavPitko(5) 
  If Key.Code = Key["6"] Or Key.Code = Key["KP_6"] Then FMain.AparaturaNastavPitko(6) 
End