mirror of
https://github.com/brmlab/ratbox.git
synced 2025-06-07 17:34:07 +02:00
46 lines
752 B
Text
46 lines
752 B
Text
' 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
|