Show SATA Picture in Drives

I-Nex/i-nex/.src/Disk_Drives.module

@@ -60,6 +60,7 @@ Public Logical_Size As String
 Public hw_sata_spd_limit As String
 Public sata_spd As String
 Public sata_spd_limit As String
+Public SATA_PIC As Picture 
 Function _inits()
   Dim Avail_HDD As Integer 
   Logs("Add Drives to ComboBox", Logger.Info)
@@ -369,6 +370,17 @@ Public Sub disks()
      Next
     End With
   Next
+
+  Select Case sata_spd
+    Case Like "*1.5*Gbps*"
+     SATA_PIC = Picture.Load("Data/SATA/SATA1.jpg")
+    Case Like "*3.0*Gbps*"
+     SATA_PIC = Picture.Load("Data/SATA/SATA2.jpg")
+    Case Like "*6.0*Gbps*"
+     SATA_PIC = Picture.Load("Data/SATA/SATA3.jpg")
+    Case Like "*<unknown>*"
+     SATA_PIC = Picture.Load("Data/SATA/SATA.jpg")
+  End Select
 End
 
 Function SETNULL()

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

@@ -912,6 +912,7 @@ Label134.Text = "Rq affinity: " & Disk_Drives.rq_affinity
  Label253.Text = "SATA SPD Limit:" & Space$(2) & Disk_Drives.sata_spd_limit
  Label253.Tooltip = "Maximum speed imposed by libata."
 
+ PictureBox4.Picture = Disk_Drives.SATA_PIC
 End
 
 Public Sub ComboBox5_Click()

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

@@ -1441,6 +1441,10 @@
       Text = ("Label253")
       Border = Border.Raised
     }
+    { PictureBox4 PictureBox
+      Move(392,224,77,63)
+      Stretch = True
+    }
     Index = 5
     Text = "System"
     Picture = Picture["AppIcons/Finfosys/applications-system.png"]