Skip to content

Commit

Permalink
Graphic Tab fixes and Add.....
Browse files Browse the repository at this point in the history
Add new labels for:
voltage_level
Gamma:
Maximum image size:

Change labels style from Plain to Raised
  • Loading branch information
eloaders committed Dec 29, 2013
1 parent 58c162b commit 57975f0
Show file tree
Hide file tree
Showing 3 changed files with 62 additions and 20 deletions.
9 changes: 7 additions & 2 deletions src/i-nex/.src/FGraphic.module
Original file line number Diff line number Diff line change
Expand Up @@ -19,27 +19,32 @@ Public Sub _inits()
End

Public Sub _check()
Dim status, enabled, dpms, monitor_name, manufacturer, serial_number As String
Dim status, enabled, dpms, monitor_name, manufacturer, serial_number, voltage_level, Gamma, Maximum_image_size As String

If Exist("/sys/class/drm/") Then

Try status = File.Load("/sys/class/drm/" & Finfosys.ComboBox8.Text & "/status")
Try enabled = File.Load("/sys/class/drm/" & Finfosys.ComboBox8.Text & "/enabled")
Try dpms = File.Load("/sys/class/drm/" & Finfosys.ComboBox8.Text & "/dpms")
Shell "/usr/bin/inex-edid /sys/class/drm/" & Finfosys.ComboBox8.Text & "/edid | grep 'ASCII string' | cut -d ':' -f 2" Wait To monitor_name

Shell "/usr/bin/inex-edid /sys/class/drm/" & Finfosys.ComboBox8.Text & "/edid | grep 'voltage level'" Wait To voltage_level
Shell "/usr/bin/inex-edid /sys/class/drm/" & Finfosys.ComboBox8.Text & "/edid | grep 'Manufacturer:' | cut -d ':' -f 2" Wait To manufacturer
Shell "/usr/bin/inex-edid /sys/class/drm/" & Finfosys.ComboBox8.Text & "/edid | grep 'Serial number:' | cut -d ':' -f 2" Wait To serial_number
Shell "/usr/bin/inex-edid /sys/class/drm/" & Finfosys.ComboBox8.Text & "/edid | grep 'Gamma:' | cut -d ':' -f 2" Wait To Gamma
Shell "/usr/bin/inex-edid /sys/class/drm/" & Finfosys.ComboBox8.Text & "/edid | grep 'Maximum image size:' | cut -d ':' -f 2" Wait To Maximum_image_size
If monitor_name = Null Then
Shell "/usr/bin/inex-edid /sys/class/drm/" & Finfosys.ComboBox8.Text & "/edid | grep 'Monitor name:' | cut -d ':' -f 2" Wait To monitor_name
Endif
Endif

Finfosys.Label155.Text = "Gamma: " & Replace(Replace(Gamma, "\n", " "), "\n", "")
Finfosys.Label100.Text = "Monitor name: " & Replace(Replace(monitor_name, "\n", " "), "\n", "")
Finfosys.Label65.Text = "Status: " & Replace(status, "\n", "")
Finfosys.Label66.Text = "Enabled: " & Replace(enabled, "\n", "")
Finfosys.Label67.Text = "DPMS: " & Replace(dpms, "\n", "")
Finfosys.Label101.Text = "Manufacturer: " & Replace(manufacturer, "\n", "")
Finfosys.Label102.Text = "Serial number: " & Replace(serial_number, "\n", "")
Finfosys.Label154.Text = Replace(voltage_level, "\n", "")
Finfosys.Label156.Text = "Maximum image size: " & Replace(Maximum_image_size, "\n", "")

End
11 changes: 7 additions & 4 deletions src/i-nex/.src/Finfosys.class
Original file line number Diff line number Diff line change
Expand Up @@ -251,12 +251,14 @@ Public Sub System()
End

Public Sub grafika()
Dim available_resolutions As String
Dim available_resolutions, Kernel_driver_in_use As String
Dim rozdzielczosc, gpu, memory_prefetchable, memory_non_prefetchable As String
Dim opengl_vendor_string, opengl_renderer_string, opengl_version_string As String

If ChkPrm.chkExec("glxinfo") = True Then
Shell "" & ChkPrm.ChkExecDir("lspci") & " | grep 'VGA' | cut -d ':' -f3 | cut -d '(' -f 1" Wait To gpu
'lspci -v -s `lspci | awk '/VGA/{print $1}'` | grep 'Kernel driver in use:' | cut -d ':' -f 2
Shell "" & ChkPrm.ChkExecDir("lspci") & " -v -s `lspci | awk '/VGA/{print $1}'` | grep 'Kernel driver in use:' | cut -d ':' -f 2" Wait To Kernel_driver_in_use
Shell "glxinfo | grep 'OpenGL vendor string:' | sed -n '1p' | cut -d ':' -f 2" Wait To opengl_vendor_string
Shell "glxinfo | grep 'OpenGL renderer string:' | sed -n '1p' | cut -d ':' -f 2" Wait To opengl_renderer_string
Shell "glxinfo | grep 'OpenGL version string:' | sed -n '1p' | cut -d ':' -f 2" Wait To opengl_version_string
Expand All @@ -265,8 +267,8 @@ Public Sub grafika()
Endif

Shell "xdpyinfo | grep 'dimensions:' | cut -d ':' -f 2" Wait To rozdzielczosc
Shell "/usr/bin/i-nex-lspci nonprefetchable" Wait To memory_non_prefetchable
Shell "/usr/bin/i-nex-lspci prefetchable" Wait To memory_prefetchable
Exec ["/bin/bash", "/usr/bin/i-nex-lspci", "nonprefetchable"] Wait To memory_non_prefetchable
Exec ["/bin/bash", "/usr/bin/i-nex-lspci", "prefetchable"] Wait To memory_prefetchable

'Rozdzielczość
If ChkPrm.ChkExec("xrandr") = True Then
Expand All @@ -277,6 +279,7 @@ Public Sub grafika()
Else
Message.Warning("Not found xrandr")
Endif
Label136.Text = "Kernel driver in use: " & Replace(Kernel_driver_in_use, "\n", "")
Label64.Text = "Total Memory prefetchable: " & Replace(memory_prefetchable, "\n", " - ")
Label146.Text = "Total Memory non-prefetchable: " & Replace(memory_non_prefetchable, "\n", " - ")
Label105.Text = "OpenGL Vendor: " & Replace(opengl_vendor_string, "\n", "")
Expand Down Expand Up @@ -666,4 +669,4 @@ Public Sub Button15_Click()

Clipboard.Copy(TextBox58.Text)

End
End
62 changes: 48 additions & 14 deletions src/i-nex/.src/Finfosys.form
Original file line number Diff line number Diff line change
Expand Up @@ -385,45 +385,45 @@
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Border = Border.Plain
Border = Border.Raised
}
{ Label107 Label
Move(7,385,455,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Border = Border.Plain
Border = Border.Raised
}
{ Label108 Label
Move(7,406,455,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Border = Border.Plain
Border = Border.Raised
}
{ Label106 Label
Move(7,364,455,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Border = Border.Plain
Border = Border.Raised
}
{ Label109 Label
Move(7,427,455,21)
#Translate = False
Font = Font["Bold,8"]
Border = Border.Plain
Border = Border.Raised
}
{ Label64 Label
Move(7,301,455,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Text = "Label64"
Border = Border.Plain
Border = Border.Raised
}
{ TextBox1 TextBox
Move(7,273,455,28)
Move(7,252,455,28)
#Translate = False
Font = Font["Bold,8"]
Text = "TextBox1"
Expand All @@ -440,51 +440,85 @@
Move(7,35,168,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Text = "Label65"
Border = Border.Plain
Border = Border.Raised
}
{ Label66 Label
Move(7,56,168,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Text = "Label66"
Border = Border.Plain
Border = Border.Raised
}
{ Label67 Label
Move(7,77,168,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Text = "Label67"
Border = Border.Plain
Border = Border.Raised
}
{ Label100 Label
Move(7,126,455,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Text = "Label100"
Border = Border.Plain
Border = Border.Raised
}
{ Label101 Label
Move(7,147,455,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Text = "Label101"
Border = Border.Plain
Border = Border.Raised
}
{ Label102 Label
Move(7,168,455,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Text = "Label102"
Border = Border.Plain
Border = Border.Raised
}
{ Label146 Label
Move(7,322,455,21)
#Translate = False
Font = Font["Bold,8"]
Padding = 3
Text = "Label146"
Border = Border.Plain
Border = Border.Raised
}
{ Label136 Label
Move(7,280,455,21)
Font = Font["Bold,8"]
Padding = 3
Text = ("Label136")
Border = Border.Raised
}
{ Label154 Label
Move(7,189,455,21)
Font = Font["Bold,8"]
Padding = 3
Text = ("Label154")
Border = Border.Raised
}
{ Label155 Label
Move(7,98,168,21)
Font = Font["Bold,8"]
Padding = 3
Text = ("Label155")
Border = Border.Raised
}
{ Label156 Label
Move(7,210,455,21)
Font = Font["Bold,8"]
Padding = 3
Text = ("Label156")
Border = Border.Raised
}
Index = 2
Text = ("Mobo")
Expand Down

0 comments on commit 57975f0

Please sign in to comment.