mirror of
https://github.com/brmlab/ratbox.git
synced 2025-06-08 01:44:35 +02:00
44 lines
569 B
Text
44 lines
569 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 PictureBox1_DblClick()
|
|
|
|
Form1.Visible = FALSE
|
|
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
|