Removing the opening address Cerbero report in your default browser.

Opening a small dialog which allows you to open your default browser or
copy the address.

src/i-nex/.project

@@ -1,5 +1,5 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 3.5.2
+# Compiled with Gambas 3.5.3
 Title=I-Nex
 Startup=Start_App_Args
 Icon=logo/i-nex.0.4.x.png

src/i-nex/.settings

@@ -1,6 +1,5 @@
 [Bookmarks]
 CFlags=[9]
-Finfosys=[]
 
 [Breakpoints]
 Count=0
@@ -32,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:30.42"
+File[8]=".src/ScreenShot.class:60.1"
 File[9]=".src/ScreenShotM.module:18.0"
 File[10]=".src/USB_Drives.module:15.70"
 File[11]=".src/Asound_Drives.module:43.3"
@@ -49,8 +48,7 @@ File[21]=".src/Network.module:15.70"
 File[22]="Data/report-ng.sh:5.3"
 File[23]=".src/Distribution_Detect.module:96.10"
 File[24]=".src/FFlags.module:19.14"
-Active=25
-File[25]=".src/Finfosys.class:900.29"
+File[25]=".src/Finfosys.class:928.22"
 File[26]=".src/FDF.form"
 File[27]=".src/FDF.class:15.70"
 File[28]=".src/FNET_R_T.form"
@@ -59,7 +57,7 @@ File[30]=".src/FGraphic.module:15.70"
 File[31]=".src/FCPU.module:15.70"
 File[32]=".src/FUdisks.form"
 File[33]=".src/FUdisks.class:15.70"
-File[34]=".src/FCpudb.module:69.34"
+File[34]=".src/FCpudb.module:69.85"
 File[35]=".src/JSON.module:194.20"
 File[36]=".src/Settings.class:486.2"
 File[37]=".src/Main.module:27.38"
@@ -80,20 +78,23 @@ File[51]=".src/Reports/MDRIVES_REPORT.module:7.0"
 File[52]=".src/FInputDate.form"
 File[53]=".src/MInit.module:48.32"
 File[54]=".src/FEDID.form"
-File[55]=".src/FEDID.class:84.22"
+File[55]=".src/FEDID.class:80.27"
 File[56]=".src/Logger.class:15.70"
 File[57]=".src/Formatter.module:15.70"
 File[58]=".src/FDirDialog.class:15.70"
 File[59]=".src/FFileDialog.class:99.2"
 File[60]=".src/FInputDate.class:15.70"
 File[61]=".src/FDIMM.form"
-File[62]=".src/FDIMM.class:15.70"
+File[62]=".src/FDIMM.class:58.40"
 File[63]=".src/Reports/FCPUID_REPORT.module:28.92"
-File[64]=".src/MCPUSAGE.module:9.65"
-File[65]=".src/Reports/VALIDATE.module:144.155"
+File[64]=".src/MCPUSAGE.module:31.0"
+File[65]=".src/Reports/VALIDATE.module:127.64"
 File[66]=".src/FValidate.form"
 File[67]=".src/FValidate.class:16.1"
-Count=67
+File[68]=".src/FCopyUrl.form"
+Active=69
+File[69]=".src/FCopyUrl.class:27.3"
+Count=69
 
 [Watches]
 Count=0

src/i-nex/.src/FCopyUrl.class

@@ -0,0 +1,28 @@
+' Gambas class file
+
+
+Public Sub Form_Open()
+
+  Me.Center
+
+End
+
+Public Sub Button1_Click()
+
+ Me.Close
+
+End
+
+Public Sub Button2_Click()
+
+ If TextBox1.Text Begins "http://" Then
+  Desktop.Open(TextBox1.Text)
+ Endif
+
+End
+
+Public Sub Button3_Click()
+
+ Clipboard.Copy(TextBox1.Text)
+
+End

src/i-nex/.src/FCopyUrl.form

@@ -0,0 +1,28 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  Move(0,0,714,56)
+  #Scaled = False
+  Resizable = False
+  Border = False
+  Opacity = 0
+  { TextBox1 TextBox
+    Move(0,0,714,28)
+    Text = ("TextBox1")
+  }
+  { Button1 Button
+    Move(315,28,28,28)
+    ToolTip = ("Close")
+    Picture = Picture["AppIcons/application-exit2.png"]
+  }
+  { Button2 Button
+    Move(343,28,28,28)
+    ToolTip = ("Open i default web browser")
+    Picture = Picture["AppIcons/applications-internet.png"]
+  }
+  { Button3 Button
+    Move(371,28,28,28)
+    ToolTip = ("Copy")
+    Picture = Picture["AppIcons/edit-copy.png"]
+  }
+}

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

@@ -850,7 +850,8 @@ TabPanel1_Click()
  Else
   Button6.Visible = False
  Endif
- Me.Text = "I-Nex / " & TabStrip1.Current.Text 
+ Me.Text = "I-Nex / " & TabStrip1.Current.Text
+
 End
 
 Public Sub Button11_Click()
@@ -869,8 +870,13 @@ Public Sub TabPanel1_Click()
 
  If TabPanel1.Current.Text = "CPUID" Then
   ComboBox1.Visible = False
+  Button17.Visible = False
  Else If TabPanel1.Current.Text = "CPUINFO" Then
   ComboBox1.Visible = True
+  Button17.Visible = True
+ Else
+  ComboBox1.Visible = False
+  Button17.Visible = False
  Endif
 
 End
@@ -916,8 +922,8 @@ Public Sub Button17_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"])
- Clipboard.Copy(URL)
- Desktop.Open(URL)
+ FCopyUrl.TextBox1.Text = URL
+ FCopyUrl.Show
 End
 
 Public Sub Button13_Click()