Pridan FullScreen mod

This commit is contained in:
Tomas Suchan 2011-09-27 01:06:08 +02:00
parent ac93644b9c
commit d2d329fabd
5 changed files with 85 additions and 10 deletions

View file

@ -1,14 +1,44 @@
' 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 PictureBox1_MouseDown()
PUBLIC SUB Form_Show()
WAIT
PictureBox1.Width = Form1.Width
PictureBox1.Height = Form1.Height
WAIT
END
PUBLIC SUB PictureBox1_Menu()
FMain.remstart()
END