Add Option to save Validate data

src/i-nex/.settings

@@ -31,7 +31,7 @@ File[4]=".src/About.class:92.97"
 File[5]=".src/battery.module:15.70"
 File[6]=".src/Disk_Drives.module:19.29"
 File[7]=".src/ScreenShot.form"
-File[8]=".src/ScreenShot.class:60.1"
+File[8]=".src/ScreenShot.class:62.30"
 File[9]=".src/ScreenShotM.module:18.0"
 File[10]=".src/USB_Drives.module:15.70"
 File[11]=".src/Asound_Drives.module:43.3"
@@ -46,9 +46,10 @@ File[19]=".src/FModules.class:15.70"
 File[20]=".src/Input_Devices.module:15.70"
 File[21]=".src/Network.module:15.70"
 File[22]="Data/report-ng.sh:5.3"
-File[23]=".src/Distribution_Detect.module:96.10"
+File[23]=".src/Distribution_Detect.module:66.25"
 File[24]=".src/FFlags.module:19.14"
-File[25]=".src/Finfosys.class:928.22"
+Active=25
+File[25]=".src/Finfosys.class:929.24"
 File[26]=".src/FDF.form"
 File[27]=".src/FDF.class:15.70"
 File[28]=".src/FNET_R_T.form"
@@ -88,11 +89,10 @@ File[61]=".src/FDIMM.form"
 File[62]=".src/FDIMM.class:58.40"
 File[63]=".src/Reports/FCPUID_REPORT.module:28.92"
 File[64]=".src/MCPUSAGE.module:31.0"
-File[65]=".src/Reports/VALIDATE.module:127.64"
+File[65]=".src/Reports/VALIDATE.module:147.37"
 File[66]=".src/FValidate.form"
 File[67]=".src/FValidate.class:16.1"
 File[68]=".src/FCopyUrl.form"
-Active=69
 File[69]=".src/FCopyUrl.class:27.3"
 Count=69
 

src/i-nex/.src/Finfosys.class

@@ -816,10 +816,10 @@ Public Sub TabStrip1_Click()
 TabPanel1_Click()
  If TabStrip1.Current.Text Like "*CPU*" Then
   ComboBox1.Visible = True
-  Button17.Visible = True
+  MenuButton1.Visible = True
  Else
   ComboBox1.Visible = False
-  Button17.Visible = False
+  MenuButton1.Visible = False
  Endif
  If TabStrip1.Current.Text Like "*GPU*" Then
   ComboBox8.Visible = True
@@ -870,13 +870,13 @@ Public Sub TabPanel1_Click()
 
  If TabPanel1.Current.Text = "CPUID" Then
   ComboBox1.Visible = False
-  Button17.Visible = False
+  MenuButton1.Visible = False
  Else If TabPanel1.Current.Text = "CPUINFO" Then
   ComboBox1.Visible = True
-  Button17.Visible = True
+  MenuButton1.Visible = True
  Else
   ComboBox1.Visible = False
-  Button17.Visible = False
+  MenuButton1.Visible = False
  Endif
 
 End
@@ -918,14 +918,27 @@ Public Sub Form_Close()
 
 End
 
-Public Sub Button17_Click()
+Public Sub Button13_Click()
+FValidate.Show
+End
+
+Public Sub MenuButton1_Click()
+
  Dim URL As String
  VALIDATE._inits()
  URL = VALIDATE.SendReportToServer(User.Home & "/.i-nex/VALID", "Validate", "http://i-nex.pl/", Settings["Cerbero/USERNAME"], Settings["Cerbero/API"])
  FCopyUrl.TextBox1.Text = URL
  FCopyUrl.Show
+
 End
 
-Public Sub Button13_Click()
-FValidate.Show
+Public Sub Savevalid_Click()
+ VALIDATE._inits()
+ Dialog.SaveFile
+ If Exist(Dialog.Path) = True Then
+  Kill Dialog.Path
+ Endif
+ Copy User.Home & "/.i-nex/VALID" To Dialog.Path
+
+
 End

src/i-nex/.src/Finfosys.form

@@ -43,6 +43,14 @@
       Picture = Picture["icon:/16/make"]
     }
   }
+  { Menu2 Menu
+    Text = ("Menu2")
+    Visible = False
+    { Savevalid Menu
+      Text = ("Save Validate data")
+      Picture = Picture["AppIcons/document-save.png"]
+    }
+  }
   { Button2 Button
     Move(0,511,28,28)
     #Translate = False
@@ -2471,13 +2479,12 @@
     Font = Font["8,Bold"]
     Text = ("Show modules")
   }
-  { !Button17 Button
+  { MenuButton1 MenuButton
     Move(210,511,112,28)
-    #Public = True
     Font = Font["Bold,8"]
-    Background = &H00BA8B&
-    ToolTip = ("Publish data online")
+    Foreground = &H0000FF&
     Text = ("Validate")
-    Picture = Picture["icon:/16/new"]
+    Picture = Picture["icon:/16/server"]
+    Menu = "Menu2"
   }
 }

src/i-nex/.src/Reports/VALIDATE.module

@@ -8,6 +8,7 @@ Public DMESG As String
 Public LSPCI As String
 Public LSUSB As String
 Public CPUINFO As String
+
 Public Sub _inits()
 CPUINFO = File.Load("/proc/cpuinfo")
 Exec [ChkPrm.ChkExecDir("dmesg")] Wait To DMESG