Version 3.0.1 Build 5410

README.md

@@ -4,7 +4,7 @@
 A simple system information and real-time network monitoring utility.\
 This utility reads all system information directly from WMI database.
 
-## Current stable version: 3.0.0 Build 5400 (2019-11-25)
+## Current stable version: 3.0.1 Build 5410 (2019-11-27)
 
 ![](Screenshots/SINMx86_LoadSplash.png)
 
@@ -23,6 +23,12 @@ __Requirements:__ Microsoft .NET Framework 3.5 (Minimum required: 2.0 SP2).
 
 ## Changelog since version 2.1.0 (Hungarian only)
 
+__2019-11-27 - Version 3.0.1 / Build 5410 (stable)__
+
+- Cellaszélesség beállítása az infó ablakokban, a gördítősáv figyelembevételével,
+- Ablak eltűnésének javítása a második példány indításakor (Windows 10),
+- Aktuális órajel eltűntetése a CPU-infó ablakból (nem frissül és nincs is jelentősége),
+
 __2019-11-25 - Version 3.0.0 / Build 5400 (stable)__
 
 - Windows XP hiányzó processzor név patch lekezelése (KB953955),

SINMx86/ApplicationEvents.vb

@@ -13,10 +13,28 @@ Namespace My
 
     Partial Friend Class MyApplication
 
+        ' Második példány indítása esetén végrhajtandó
         Private Sub MyApplication_StartupNextInstance(ByVal sender As System.Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
 
+            ' Ha a főablak be van töltve
             If MainWindowDone Then
+
+                ' Buboréküzenet megjelenítése
                 MainWindow.MainNotifyIcon.ShowBalloonTip(3000, MyName + " - " + GetLoc("Note"), GetLoc("AlreadyRun"), ToolTipIcon.Info)
+
+                ' Főablak megjelenítésének engedélyezése
+                If MainWindow.Visible = False Then
+                    MainWindow.Visible = True
+                End If
+
+                ' Visszaállítás normálra, ha kis méretű
+                If MainWindow.WindowState = FormWindowState.Minimized Then
+                    MainWindow.WindowState = FormWindowState.Normal
+                End If
+
+                ' Előtérbe hozás
+                MainWindow.BringToFront()
+
             End If
 
         End Sub

SINMx86/CPUInfo.vb

@@ -13,6 +13,7 @@ Public Class CPUInfo
 
     ' CPU-infó tábla változói
     Public CPUCount As Int32 = 0                                ' Processzorok száma
+    Public RowNumber As Int32 = 0                               ' Sorok száma a listanézetben
 
     ' *** FŐ ELJÁRÁS: CPU-infó ablak betöltése (MyBase.Load -> CPUInfo) ***
     ' Eseményvezérelt: Ablak megnyitása
@@ -116,7 +117,7 @@ Public Class CPUInfo
 
         ' WMI értékek lekérdezése: Win32_Processor -> CPU-információk
         objPR = New ManagementObjectSearcher("SELECT DeviceID, Manufacturer, Name, Description, SocketDesignation, CurrentVoltage, " +
-                                             "Architecture, CurrentClockSpeed, MaxClockSpeed, ExtClock, L2CacheSize FROM Win32_Processor")
+                                             "Architecture, MaxClockSpeed, ExtClock, L2CacheSize FROM Win32_Processor")
 
         ' Értékek beállítása -> Processzor
         For Each Me.objMgmt In objPR.Get()
@@ -177,17 +178,12 @@ Public Class CPUInfo
                     End If
                 Next
 
-                ' Üres aktuális órajel ellenőrzése
-                If objMgmt("CurrentClockSpeed") <> 0 Then
-                    CPUTableAddRow(GetLoc("CPUCurrentSpeed"), FixNumberFormat(objMgmt("CurrentClockSpeed"), 0, False), "MHz")
-                End If
-
-                ' Üres gyári órajel ellenőrzése
+                ' Beállított órajel ellenőrzése
                 If objMgmt("MaxClockSpeed") <> 0 Then
-                    CPUTableAddRow(GetLoc("CPUMaxSpeed"), FixNumberFormat(objMgmt("MaxClockSpeed"), 0, False), "MHz")
+                    CPUTableAddRow(GetLoc("CPURatedSpeed"), FixNumberFormat(objMgmt("MaxClockSpeed"), 0, False), "MHz")
                 End If
 
-                ' Üres busz órajel ellenőrzése
+                ' Busz órajel ellenőrzése
                 If objMgmt("ExtClock") <> 0 Then
                     CPUTableAddRow(GetLoc("CPUBusClock"), FixNumberFormat(objMgmt("ExtClock"), 0, False), "MHz")
                 End If
@@ -227,6 +223,17 @@ Public Class CPUInfo
             Next
         End If
 
+        ' Gördítősáv helyének kivonása, ha a lista nem fér el a táblában görgetés nélkül! (Ha az utolsó sor alja lejjebb van, mint a tábla magassága!)
+        If CPU_Table.Height <= CPU_Table.Items(RowNumber - 1).GetBounds(ItemBoundsPortion.Entire).Bottom Then
+
+            ' Érték oszlop szélességének csökkentése (a gördítősáv szélességével)
+            Me.Value.Width -= SystemInformation.VerticalScrollBarWidth
+
+        End If
+
+        ' Tábla kiválasztása (A gördítés miatt fontos!)
+        CPU_Table.Select()
+
     End Sub
 
     ' ----- FÜGGVÉNYEK -----
@@ -288,10 +295,11 @@ Public Class CPUInfo
             ListItem.SubItems.Add(ListFields(ListColumn))
         Next
 
-        ' Sor hozzáadása a lsitához
-
+        ' Sor hozzáadása a listához
         CPU_Table.Items.Add(ListItem)
 
+        ' Sorok számának növelése
+        RowNumber += 1
 
         ' Visszatérési érték beállítása
         Return False

SINMx86/IPInfo.vb

@@ -10,6 +10,9 @@ Public Class IPInfo
     Public objNA, objNC As ManagementObjectSearcher
     Public objMgmt As ManagementObject
 
+    ' IP-infó tábla változói
+    Public RowNumber As Int32 = 0                               ' Sorok száma a listanézetben
+
     ' *** FŐ ELJÁRÁS: IP-infó ablak betöltése (MyBase.Load -> IPInfo) ***
     ' Eseményvezérelt: Ablak megnyitása
     Private Sub IPInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
@@ -189,6 +192,14 @@ Public Class IPInfo
             End If
         Next
 
+        ' Gördítősáv helyének kivonása, ha a lista nem fér el a táblában görgetés nélkül! (Ha az utolsó sor alja lejjebb van, mint a tábla magassága!)
+        If IP_Table.Height <= IP_Table.Items(RowNumber - 1).GetBounds(ItemBoundsPortion.Entire).Bottom Then
+            Me.Value.Width -= SystemInformation.VerticalScrollBarWidth
+        End If
+
+        ' Tábla kiválasztása (A gördítés miatt fontos!)
+        IP_Table.Select()
+
     End Sub
 
     ' ----- FÜGGVÉNYEK -----
@@ -247,9 +258,10 @@ Public Class IPInfo
         Next
 
         ' Sor hozzáadása a lsitához
-
         IP_Table.Items.Add(ListItem)
 
+        ' Sorok számának növelése
+        RowNumber += 1
 
         ' Visszatérési érték beállítása
         Return False

SINMx86/Include/Localization.vb

@@ -132,8 +132,7 @@ Public Class Localization
                 AddLoc("CPUSocket", "Socket")
                 AddLoc("CPUVoltage", "Core voltage")
                 AddLoc("CPUArchitect", "Architecture")
-                AddLoc("CPUCurrentSpeed", "Current clock")
-                AddLoc("CPUMaxSpeed", "Maximum clock")
+                AddLoc("CPURatedSpeed", "Rated clock")
                 AddLoc("CPUBusClock", "Bus clock")
                 AddLoc("CPUL2", "Size of L2 cache")
                 AddLoc("CPUL3", "Size of L3 cache")
@@ -380,8 +379,7 @@ Public Class Localization
                 AddLoc("CPUSocket", "Tokozás")
                 AddLoc("CPUVoltage", "Magfeszültség")
                 AddLoc("CPUArchitect", "Architectúra")
-                AddLoc("CPUCurrentSpeed", "Jelenlegi órajel")
-                AddLoc("CPUMaxSpeed", "Maximális órajel")
+                AddLoc("CPURatedSpeed", "Beállított órajel")
                 AddLoc("CPUBusClock", "Busz órajel")
                 AddLoc("CPUL2", "L2 gyorsítótár mérete")
                 AddLoc("CPUL3", "L3 gyorsítótár mérete")

SINMx86/MainWindow.vb

@@ -536,7 +536,7 @@ Public Class MainWindow
             Value_OSLang.Enabled = True
             Value_OSLang.Text = OSLanguage
         Else
-            Value_OSLang.Enabled = False
+            Value_OSLang.Enabled = False
             Value_OSLang.Text = GetLoc("Unknown")
         End If
 
@@ -3263,9 +3263,20 @@ Public Class MainWindow
         If OpenFile Then
             Process.Start(SavePath)
         Else
-            ' Főablak előtérbe hozása
-            Me.Visible = True
-            Me.WindowState = FormWindowState.Normal
+
+            ' Főablak megjelenítésének engedélyezése
+            If Me.Visible = False Then
+                Me.Visible = True
+            End If
+
+            ' Visszaállítás normálra, ha kis méretű
+            If Me.WindowState = FormWindowState.Minimized Then
+                Me.WindowState = FormWindowState.Normal
+            End If
+
+            ' Előtérbe hozás
+            Me.BringToFront()
+
         End If
 
     End Sub

SINMx86/My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.0.0.5400")> 
-<Assembly: AssemblyFileVersion("3.0.0.5400")> 
+<Assembly: AssemblyVersion("3.0.1.5410")> 
+<Assembly: AssemblyFileVersion("3.0.1.5410")> 
 
 <Assembly: NeutralResourcesLanguageAttribute("hu-HU")>