mirror of
https://github.com/brmlab/ratbox.git
synced 2025-06-08 18:04:05 +02:00
Pridan FullScreen mod
This commit is contained in:
parent
ac93644b9c
commit
d2d329fabd
5 changed files with 85 additions and 10 deletions
36
Form1.class
36
Form1.class
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue