Fix bug in send report about graphic

Add ProgressBar Values % in sending

src/i-nex/.settings

@@ -15,7 +15,6 @@ SearchComment=False
 SearchString=True
 
 [OpenFile]
-Active=1
 File[1]=".src/Finfosys.form"
 File[2]=".src/Finfosys.class:216.11"
 File[3]=".src/Global.class:127.23"
@@ -31,9 +30,10 @@ File[12]=".src/USB_Drives.module:56.37"
 File[13]=".src/Asound_Drives.module:36.32"
 File[14]=".src/HWmon_coretemp.module:3.18"
 File[15]=".src/Input_Devices.module:6.17"
-File[16]=".src/Reportm.module:342.74"
+Active=16
+File[16]=".src/Reportm.module:341.8"
 File[17]=".src/FReport_Gen.form"
-File[18]=".src/FReport_Gen.class:75.6"
+File[18]=".src/FReport_Gen.class:33.1"
 File[19]=".src/Start_App_Args.form"
 File[20]=".src/Start_App_Args.class:3.25"
 File[21]=".src/ChkPrm.module:14.3"

src/i-nex/.src/Reportm.module

@@ -123,7 +123,7 @@ Public Sub _generate(cpu As Boolean, mobo As Boolean, graphic As Boolean, sound
   Wait 0.1
   TextInfo("Generate Graphic Tab information")
   PBV(0.2)
-  Shell "echo 'Graphics card:      " & Finfosys.TextArea17.Text & "' >>" & save_dir & ""
+  Shell "echo 'Graphics card:      " & Finfosys.TextBox47.Text & "' >>" & save_dir & ""
   Wait 0.1
   TextInfo("Generate Graphic Tab information...")
   PBV(0.3)
@@ -201,18 +201,6 @@ Public Sub _generate(cpu As Boolean, mobo As Boolean, graphic As Boolean, sound
  'Motherboard
 End
 
-Public Sub TextInfo(Text As String)
-
- FReport_Gen.TextLabel1.Text = Text
-
-End
-
-Public Sub PBV(ProgressBar_Value As Float)
-
- FReport_Gen.ProgressBar1.Value = ProgressBar_Value
-
-End
-
 Public Sub include(lspci As Boolean, lsusb As Boolean, scsi As Boolean, dmesg As Boolean, save_dir As String)
  If lspci = True Then
   TextInfo("Include lspci information")
@@ -308,6 +296,7 @@ Public Sub include(lspci As Boolean, lsusb As Boolean, scsi As Boolean, dmesg As
   Wait 0.1
   PBV(1)
   TextInfo("Include dmesg information... ... ... ... Done")
+  Wait 0.1
  Endif
 End
 
@@ -340,10 +329,31 @@ End
 Public Function pastebin(Send As Boolean, Directory As String, Service As String) As String
   Dim links As String
   If Send = True Then
+  PBV(0.3)
+  Wait 0.1
+  TextInfo("Send report to " & FReport_Gen.ComboBox1.Text & "")
+  PBV(0.5)
+  Wait 0.1
   Shell "cat " & Directory & " | /usr/share/i-nex/pastebinit/pastebinit -b http://" & Service & "" Wait To links
+  PBV(0.7)
   links = Replace(links, "\n", "")
+  PBV(0.8)
+  TextInfo("Send report to " & FReport_Gen.ComboBox1.Text & " Done")
+  PBV(1)
   Return links
   Else
   Debug "Report not be send to nopaste service"
   Endif
 End
+
+Public Sub TextInfo(Text As String)
+
+ FReport_Gen.TextLabel1.Text = Text
+
+End
+
+Public Sub PBV(ProgressBar_Value As Float)
+
+ FReport_Gen.ProgressBar1.Value = ProgressBar_Value
+
+End