Remove some graphic.

Remove text above icons

src/i-nex/.project

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

src/i-nex/.settings

@@ -23,7 +23,7 @@ SearchString=True
 [OpenFile]
 Active=1
 File[1]=".src/Finfosys.form"
-File[2]=".src/Finfosys.class:584.1"
+File[2]=".src/Finfosys.class:581.0"
 File[3]=".src/Global.class:6.65"
 File[4]=".src/About.form"
 File[5]=".src/About.class:63.30"

src/i-nex/.src/FReport_Gen.class

@@ -27,7 +27,7 @@ Me.Center
 End
 
 Public Sub Button1_Click()
- Dim URL As String
+
  If ButtonBox1.Text = Null Then
   Message.Warning("Please select directory to save the report about your hardware")
  Else

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

@@ -114,12 +114,12 @@ Public Sub Form_Open()
  dzwiek()
  Debug "Check graphic card"
  grafika()
- 'END Uruchomienie instrukcji dla poszczególnych zakładek w celu wydobycia informacji z systemu
+ ''END Uruchomienie instrukcji dla poszczególnych zakładek w celu wydobycia informacji z systemu
  Debug "Set Combobox to Procesor0"
- ComboBox1.Text = "Procesor0" 'Ustawienie combobox na Procesor0 / W przeciwnym wypadku nie pokaże nic
+ ComboBox1.Text = "Procesor0" ''Ustawienie combobox na Procesor0 / W przeciwnym wypadku nie pokaże nic
  Label25.Text = Application.Name & " v: " & Application.version
  Debug Label25.Text
- 'Okno na środku
+ ''Okno na środku
  Me.Center
 End
 
@@ -174,7 +174,7 @@ Public Sub bios()
 End
 
 Public Sub System()
-  Dim hostname, dist, release, arch, gcc, timezone, xorg_version, glx_version As String
+  Dim hostname, arch, gcc, timezone, xorg_version, glx_version As String
   Shell "cat /etc/timezone" Wait To timezone
   Shell "hostname" Wait To hostname
   Shell "uname -m" Wait To arch
@@ -211,9 +211,9 @@ Public Sub grafika()
   'Rozdzielczość
   If ChkPrm.ChkExec("xrandr") = True Then
     Shell "xrandr | grep current | grep 'Screen 0:' | cut -d ':' -f 2" Wait To available_resolutions
-    'Koniec sprawdzenia dostępnych rozdzielczości.
-    'Sprawdzane są tylko rozdzielczości dla Screen 0.
-    'W przyszłości trzeba będzie dać Combobox w którym będzie do wyboru Creen 0, Screen 1 itd.
+    ''Koniec sprawdzenia dostępnych rozdzielczości.
+    ''Sprawdzane są tylko rozdzielczości dla Screen 0.
+    ''W przyszłości trzeba będzie dać Combobox w którym będzie do wyboru Creen 0, Screen 1 itd.
   Else
     Message.Warning("Not found xrandr")
   Endif
@@ -239,14 +239,14 @@ Public Sub internet()
   Shell "x-www-browser -version" Wait To default_web_browser
   Shell "lspci | grep 'Network' | cut -d ':' -f 3 | cut -d '(' -f 1" Wait To network_controller
   Shell "lspci | grep 'Ethernet' | cut -d ':' -f 3 | cut -d '(' -f 1" Wait To ethernet_controller
-  'SHELL "ss -a" WAIT TO ssa
+  ''SHELL "ss -a" WAIT TO ssa
   default_web_browser = Replace(default_web_browser, "\n", " ")
   network_controller = Replace(network_controller, "\n", " ")
   ethernet_controller = Replace(ethernet_controller, "\n", " ")
   TextArea46.Text = default_web_browser
   TextArea22.Text = network_controller
   TextArea23.Text = ethernet_controller
-  'TextArea48.Text = ssa
+  ''TextArea48.Text = ssa
 End
 
 
@@ -368,7 +368,7 @@ Public Sub Wykrywanie_procesorow()
 End
 
 Public Sub Button2_Click()
-   ScreenShotM.pic = Desktop.Screenshot(Me.X, Me.Y, Me.W, Me.H + 30)
+   ScreenShotM.pic = Desktop.Screenshot(Me.X, Me.Y, Me.W + 4, Me.H + 30)
    ScreenShot.Show
 
 End
@@ -481,7 +481,7 @@ Public Sub ComboBox4_Click()
 End
 
 Public Sub refreshing()
- Dim realmount, realwith As String
+
  Label16.Text = "Device model: " & Disk_Drives.device_model & ""
  Label17.Text = "Device vendor: " & Disk_Drives.device_vendor & ""
  Label38.Text = "Device real size: " & Disk_Drives.real_size & ""
@@ -561,7 +561,7 @@ Public Sub Button12_Click()
 End
 
 Public Sub Timer1_Timer()
-  'Refresh temp 1500/ms
+  ''Refresh temp 1500/ms
   dospam_uptime()
   Object.Call(thermal_zone, "_inits")
   Print "Temp: " & (thermal_zone.calculate / 1000) & " C"
@@ -578,10 +578,4 @@ Public Sub Button13_Click()
  Exec ["apport-bug", "i-nex"] Wait
  Debug "Reporting bug to launchpad"
 
-End
-
-Public Sub TabStrip1_Click()
-
-
-
 End

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

@@ -18,13 +18,12 @@
     }
   }
   { Button2 Button
-    Move(7,497,138,24)
+    Move(7,497,24,24)
     Font = Font["10"]
-    Text = ("Take Screenshot")
     Picture = Picture["icon:/16/camera"]
   }
   { Button3 Button
-    Move(366,498,24,24)
+    Move(96,498,24,24)
     Font = Font["10"]
     Picture = Picture["icon:/16/help"]
   }
@@ -35,11 +34,11 @@
     Picture = Picture["icon:/16/quit"]
   }
   { Button12 Button
-    Move(336,498,24,24)
+    Move(66,498,24,24)
     Picture = Picture["icon:/16/printer"]
   }
   { Button13 Button
-    Move(306,498,24,24)
+    Move(36,498,24,24)
     Visible = False
     ToolTip = ("Report a bug")
     Picture = Picture["icon:/16/important"]
@@ -50,7 +49,7 @@
     Index = 0
     Text = ("CPU")
     { Frame2 Frame
-      Move(0,0,462,150)
+      Move(6,0,462,150)
       Font = Font["10"]
       Text = ("The main information\n")
       { TextArea2 TextArea
@@ -142,7 +141,7 @@
       }
     }
     { Frame3 Frame
-      Move(0,150,462,162)
+      Move(6,150,462,162)
       Font = Font["10"]
       Text = ("CPU")
       { Label3 Label
@@ -268,7 +267,7 @@
       }
     }
     { Frame4 Frame
-      Move(0,312,462,138)
+      Move(6,312,462,138)
       Font = Font["10"]
       Text = ("Cache")
       { ComboBox1 ComboBox
@@ -278,7 +277,7 @@
         Text = ("Select core")
       }
       { HPanel6 HPanel
-        Move(6,18,204,114)
+        Move(6,18,210,114)
         { Label12 Label
           Move(0,0,96,24)
           Font = Font["Bold"]

src/i-nex/.src/Start_App_Args.class

@@ -2,7 +2,7 @@
 
 Public Sub Form_Open()
   Dim S As Boolean = True
-  Dim sPath As String
+
 
   Select Case Application.Args[1]