resize main tab

src/i-nex/.settings

@@ -48,7 +48,7 @@ File[21]=".src/net.module:2.19"
 File[22]="Data/report-ng.sh:5.3"
 File[23]=".src/Distribution_Detect.module:13.1"
 File[24]=".src/FFlags.module:2.19"
-File[25]=".src/Finfosys.class:580.3"
+File[25]=".src/Finfosys.class:592.45"
 File[26]=".src/FDF.form"
 File[27]=".src/FDF.class:26.6"
 File[28]=".src/FNET_R_T.form"
@@ -58,7 +58,8 @@ File[31]="logo/fb.png"
 File[32]=".src/FCPU.module:2.19"
 File[33]=".src/FUdisks.form"
 File[34]=".src/FUdisks.class:26.6"
-File[35]=".src/FCpudb.module:19.29"
+Active=35
+File[35]=".src/FCpudb.module:53.17"
 File[36]=".src/JSON.module:121.31"
 File[37]=".src/Settings.class:2.19"
 File[38]=".src/Main.module:2.19"
@@ -88,7 +89,6 @@ File[61]=".src/FInputDate.class:2.19"
 File[62]=".src/FDIMM.form"
 File[63]=".src/FDIMM.class:72.16"
 File[64]=".src/Reports/FCPUID_REPORT.module:2.0"
-Active=65
 File[65]=".src/MCPUSAGE.module:11.29"
 Count=65
 

src/i-nex/.src/FCpudb.module

@@ -42,7 +42,7 @@ Public Sub _inits()
     If database["DATABASE"][z]["PROCESSOR_MODEL_NAME"] Like "*" & cpucache & "*" Then 
 
       Finfosys.PictureBox3.Picture = Picture["Database/Logos/" & database["DATABASE"][z]["PROCESSOR_SOCKET_IMAGE"] & ""]
-
+      'Finfosys.PictureBox3.Picture = Picture["Database/Logos/306.gif"]
       Finfosys.Label103.Text = " Integrated GPU: " & database["DATABASE"][z]["PROCESSOR_INTEGRATEDGRAPHIC"]
       Finfosys.Label104.Text = " TDP: " & database["DATABASE"][z]["PROCESSOR_TDP"]
       Finfosys.Label110.Text = " PPS: " & database["DATABASE"][z]["PROCESSOR_PROCESS_SIZE"]

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

@@ -39,6 +39,8 @@ Public Sub Form_Open()
   Dim sLine As String
   Dim MTRR As New String[]
   Logs("Starting log", Logger.Info)
+  Button4.Visible = False
+
   MCPUSAGE.GetUSAGE()
   ''Okno na środku
   If Settings["Window/X"] = Null Then
@@ -150,11 +152,11 @@ Public Sub Form_Open()
 
   If Exist("/proc/mtrr", True) Then
      For i = 1 To MaxCount
-         Label[i] = New Label(Frame2)
+         Label[i] = New Label(ScrollView2)
                     With Label[i]
-                         .X = 4
+                         .X = 2
                          .Y = Int(i * 20)
-                         .Width = 460
+                         .Width = 440
                          .Height = 21
                          .Border = Border.Raised
                          .Padding = 3
@@ -163,7 +165,7 @@ Public Sub Form_Open()
                     End With
     Next
   Endif
-  Button4.Visible = ChkPrm.ChkExec("decode-dimms")
+
   If User.Name = "root" Then
     Message.Error(("Running as root is not allowed!\n " & User.Home & ""))
   Endif
@@ -289,7 +291,7 @@ Public Sub Form_Open()
 
  Label25.Text = Application.version
  Logs(Label25.Text, Logger.Info)
-
+ TabStrip1_Click()
 End
 
 Public Sub ComboBox1_Click()
@@ -573,11 +575,7 @@ Public Sub Button2_Click()
 End
 
 Public Sub Button1_Click()
-  Settings["Window/X"] = Me.X
-  Settings["Window/Y"] = Me.Y
-  Logs("Good bye!", Logger.Info)
-  MCPUSAGE.CPUusage.Kill
-  Me.Close
+  Form_Close()
 End
 
 Public Sub dospam_uptime()
@@ -929,7 +927,15 @@ Public Sub TabStrip1_Click()
   Button8.Visible = False
   Button14.Visible = False
  Endif
- '
+ If TabStrip1.Current.Text Like "*Memory*" And ChkPrm.ChkExec("decode-dimms") = True Then
+  HBox19.Visible = False
+  Button8.Visible = False
+  Button14.Visible = False
+  Button4.Visible = True
+ Else
+  Button4.Visible = False
+ Endif
+
  Me.Text = "I-Nex / " & TabStrip1.Current.Text 
  TabPanel1_Click()
 End
@@ -941,6 +947,17 @@ Public Sub Form_Move()
 
 End
 
+Public Sub Form_Close()
+
+  Settings["Window/X"] = Me.X
+  Settings["Window/Y"] = Me.Y
+  Logs("Good bye!", Logger.Info)
+  MCPUSAGE.CPUusage.Kill
+  Me.Close
+
+End
+
+
 Public Sub Button11_Click()
 
  FEDID.Show
@@ -970,4 +987,4 @@ Public Sub Button4_Click()
 
  FDIMM.Show
 
-End
+End