Add CheckBox for "Close this window when finished."

i-nex · Dec 3, 2013 · 7d75c07 · 7d75c07
1 parent 4d8f9fb
commit 7d75c07
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 4 deletions.
diff --git a/src/i-nex/.settings b/src/i-nex/.settings
@@ -1,3 +1,6 @@
+[Bookmarks]
+FReport_Gen=[]
+
 [Breakpoints]
 Count=0
 
@@ -32,9 +35,9 @@ File[8]=".src/ScreenShot.class:20.21"
 File[9]=".src/ScreenShotM.module:7.0"
 File[10]=".src/USB_Drives.module:13.0"
 File[11]=".src/Asound_Drives.module:34.12"
+Active=12
 File[12]=".src/FReport_Gen.form"
-Active=13
-File[13]=".src/FReport_Gen.class:67.3"
+File[13]=".src/FReport_Gen.class:66.0"
 File[14]=".src/Start_App_Args.form"
 File[15]=".src/Start_App_Args.class:26.17"
 File[16]=".src/ChkPrm.module:21.19"

diff --git a/src/i-nex/.src/FReport_Gen.class b/src/i-nex/.src/FReport_Gen.class
@@ -33,28 +33,41 @@ Me.Center
 End
 
 Public Sub Button1_Click()
+'Before generate report. Old report must be removed
 Shell "rm " & ButtonBox1.Text & "" Wait
+'Check Value, select report to be generated.
 If CheckBox1.Value = True Then
  Object.Call(MCPU_REPORT, "_inits")
 Endif
+
 If CheckBox3.Value = True Then
  Object.Call(MGPU_REPORT, "_inits")
 Endif
+
 If CheckBox2.Value = True Then
  Object.Call(MMOBO_REPORT, "_inits")
 Endif
+
 If CheckBox4.Value = True Then
  Object.Call(MSOUND_REPORT, "_inits")
 Endif
+
 If CheckBox5.Value = True Then
  Object.Call(MSYSTEM_REPORT, "_inits")
 Endif
+
 If CheckBox12.Value = True Then
  Object.Call(MKERNEL_REPORT, "_inits")
 Endif
+
 If CheckBox11.Value = True Then
  TextBox1.Text = MPastebinit.pastebin(True, ButtonBox1.Text, ComboBox1.Text)
 Endif
+
+If CheckBox13.value = True Then
+ Me.Close
+ Finfosys.Show
+Endif
 End
 
 Public Sub ButtonBox1_Click()
@@ -67,6 +80,14 @@ Public Sub ButtonBox1_Click()
  Endif
 End
 
+Public Sub Button2_Click()
+
+ Me.Close
+ Finfosys.Show
+
+End
+
+
 Public Sub Button3_Click()
  If TextBox1.Text Like "*http*" Then
   Desktop.Open(TextBox1.Text)

diff --git a/src/i-nex/.src/FReport_Gen.form b/src/i-nex/.src/FReport_Gen.form
@@ -11,10 +11,10 @@
     ReadOnly = True
   }
   { ProgressBar1 ProgressBar
-    Move(7,434,476,14)
+    Move(7,448,476,14)
   }
   { TextLabel1 TextLabel
-    Move(7,448,476,28)
+    Move(7,462,476,28)
     Alignment = Align.Left
   }
   { HBox1 HBox
@@ -127,4 +127,9 @@
       ReadOnly = True
     }
   }
+  { CheckBox13 CheckBox
+    Move(7,427,476,21)
+    Text = ("Close this window when finished.")
+    Value = CheckBox.True
+  }
 }