Pridan FullScreen mod

.settings

@@ -16,9 +16,10 @@ SearchString=True
 
 [OpenFile]
 File[1]="FMain.form"
-File[2]="FMain.class:663.0"
+File[2]="FMain.class:958.0"
 Active=2
-Count=2
+File[3]="Form1.form"
+Count=3
 
 [Watches]
 Count=0

FMain.class

@@ -77,6 +77,7 @@ PUBLIC SUB BtnKonec_Click()
 END
 
 PUBLIC SUB TimerSystime_Timer()
+WAIT 
   TxtSysTime.Text = Format$(Now, "dd.mm.yy") & "  " & Format$(Now, "hh:nn:ss")
   SysWDT = SysWDT + 1
   IF SysWDT = 11 THEN
@@ -102,7 +103,7 @@ PUBLIC SUB TimerSystime_Timer()
   ELSE 
    CheckBox4.BackColor = Color.Red
   ENDIF 
-
+WAIT 
  IF PotkanAkceBuff = 8 THEN
    CheckBox5.BackColor = Color.Green
   ELSE 
@@ -118,14 +119,16 @@ PUBLIC SUB TimerSystime_Timer()
   ELSE 
    CheckBox7.BackColor = Color.Red
   ENDIF 
-
+WAIT 
 
 
 END
 
 PUBLIC SUB SysLogWrite(Udalost AS String)
   TxtSysLog.Text = Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost & Chr(13) & TxtSysLog.Text
+WAIT 
   PRINT #SysLogFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost 
+WAIT 
 END
 
 PUBLIC SUB WDTLooP()
@@ -245,7 +248,9 @@ PreBtnNastavTimeout_Click
     ExperimentBtnTime3_Click
     ExperimentNastavBtnTime2_Click
     WHILE ((PocetCiklu < PrePocetCiklu) AND (PreStop = FALSE)) 
+ 
     EXPSTART:
+ WAIT 
       IF (ExpChkNahoda.Value = FALSE) AND (ExpChkNeopakovat.Value = FALSE) THEN
         NextVisStim:
         IF VisStimIdx = 6 THEN VisStimIdx = 0
@@ -260,6 +265,7 @@ PreBtnNastavTimeout_Click
       IF ExpChkNahoda.Value = TRUE THEN
         IF ExpChkNeopakovat.Value = TRUE THEN 
           WHILE ExpLastStim = VisStimIdx
+      WAIT 
             RNDNOOPAK:
             SysLogWrite("Experiment_Vybirani_nahodneho_stimulu")
             VisStimIdx = Round(Rnd(1, 6), 0)
@@ -273,6 +279,7 @@ PreBtnNastavTimeout_Click
           WEND 
           ExpLastStim = VisStimIdx
         ELSE 
+         WAIT 
           RNDOPAK:
           SysLogWrite("Experiment_Vybirani_nahodneho_stimulu")
           VisStimIdx = Round(Rnd(1, 6), 0)
@@ -290,6 +297,7 @@ PreBtnNastavTimeout_Click
       SysLogWrite("Experiment_ZOBR_STIMUL: " & VisStimIdx)
       IF (VisStimIdx < 1) OR (VisStimIdx > 6) THEN GOTO EXPSTART
       ExperimentPicture.Picture = Picture.Load("/home/tomsuch/" & Str(VisStimIdx) & ".bmp")
+      Form1.stimul("/home/tomsuch/" & Str(VisStimIdx) & ".bmp")
 '      Form1.PictureBox1.Picture = Picture.Load("/home/tomsuch/" & Str(VisStimIdx) & ".bmp"))
 '      Form1.Picture = Picture.Load("/home/tomsuch/" & Str(VisStimIdx) & ".bmp")
       Label23.Text = VisStimIdx
@@ -336,6 +344,7 @@ PreBtnNastavTimeout_Click
         SysLogWrite("Experiment_ZHAS_STIMUL")
         ExperimentPicture.Picture = Picture.Load("/home/tomsuch/clear.bmp")
 '        Form1.PictureBox1.Picture = Picture.Load("/home/tomsuch/clear.bmp")
+        Form1.stimul("/home/tomsuch/clear.bmp")
         WAIT 
       ENDIF 
       WAIT 
@@ -470,7 +479,7 @@ PreBtnNastavTimeout_Click
   WEND 
   SysLogWrite("Experiment_KONEC")
   ExperimentPicture.Picture = Picture.Load("/home/tomsuch/clear.bmp")
-
+Form1.stimul("/home/tomsuch/clear.bmp")
 ELSE 
 
   PrePocetCiklu = TxtPrePocetCiklu.Text
@@ -487,7 +496,7 @@ PreLastBuffer = 0
 
 
 WHILE ((PocetCiklu < PrePocetCiklu) AND (PreStop = FALSE)) 
-
+WAIT 
 PocetCiklu = PocetCiklu + 1
 
 
@@ -609,7 +618,7 @@ GOTO preapres
 ELSE 
 
 
-
+WAIT 
 ENDIF 
 
 ' PreEaventPotkan = FALSE
@@ -955,3 +964,18 @@ SysLogWrite("Pre_Nastavuji_Timeout: " & Val(TxtPreTimeout.Text))
   PreTimeout = Val(TxtPreTimeout.Text)
 
 END
+
+
+PUBLIC SUB remstart()
+
+BtnPreStart_Click
+
+END 
+
+
+
+PUBLIC SUB BtnExpFull_Click()
+
+   Form1.Visible = TRUE
+
+END

FMain.form

@@ -725,4 +725,8 @@
     Move(21,42,98,21)
     Text = ("Vypnuti slotu:")
   }
+  { BtnExpFull Button
+    Move(245,378,315,35)
+    Text = ("FULLSCREEN")
+  }
 }

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

Form1.form

@@ -0,0 +1,16 @@
+# Gambas Form File 2.0
+
+{ Form Form
+  MoveScaled(0,0,37,35)
+  Background = &H000000&
+  Mouse = Mouse.Blank
+  Text = ("")
+  Border = Window.None
+  FullScreen = True
+  { PictureBox1 PictureBox
+    MoveScaled(0,0,34,31)
+    Mouse = Mouse.Blank
+    Stretch = True
+    Alignment = Align.Center
+  }
+}