Remove ScreenshotM module and add anotations to Drives
This commit is contained in:
parent
33779f3178
commit
6173bc193f
|
@ -29,7 +29,7 @@ End
|
|||
|
||||
Public Sub Button1_Click()
|
||||
|
||||
ScreenShotM.pic = Desktop.Screenshot(Me.X, Me.Y, Me.W + 4, Me.H + 30)
|
||||
ScreenShot.pic = Desktop.Screenshot(Me.X, Me.Y, Me.W + 4, Me.H + 30)
|
||||
ScreenShot.Show
|
||||
|
||||
End
|
||||
|
|
|
@ -670,7 +670,7 @@ Public Sub Wykrywanie_procesorow()
|
|||
End
|
||||
|
||||
Public Sub Button2_Click()
|
||||
ScreenShotM.pic = Desktop.Screenshot(Me.X, Me.Y, Me.W + 12, Me.H + 30)
|
||||
ScreenShot.pic = Desktop.Screenshot(Me.X, Me.Y, Me.W + 12, Me.H + 30)
|
||||
ScreenShot.Show
|
||||
End
|
||||
|
||||
|
@ -821,24 +821,60 @@ Public Sub refreshing()
|
|||
Label44.Text = "Modalias: " & Disk_Drives.modalias
|
||||
Label46.Text = "Ext range: " & Disk_Drives.ext_range
|
||||
Label47.Text = "Range: " & Disk_Drives.range
|
||||
|
||||
Label49.Text = "Add random: " & Disk_Drives.add_random
|
||||
Label49.Tooltip = "This file allows to trun off the disk entropy contribution. \n"
|
||||
"Default value Of this file Is '1'(on)."
|
||||
|
||||
Label50.Text = "Discard granularity: " & Disk_Drives.discard_granularity
|
||||
Label50.Tooltip = "This shows the size of internal allocation of the device in bytes,\n"
|
||||
"if reported by the device. \n"
|
||||
"A value Of '0' means device does not support the discard functionality."
|
||||
|
||||
Label51.Text = "Discard max bytes: " & Disk_Drives.discard_max_bytes
|
||||
Label51.Tooltip = "Devices that support discard functionality may have internal limits on\n"
|
||||
"the number Of bytes that can be trimmed Or unmapped In a single operation.\n"
|
||||
"The discard_max_bytes parameter Is Set by the device driver\n"
|
||||
"To the maximum number Of bytes that can be discarded In a single operation.\n"
|
||||
"Discard requests issued To the device must Not exceed this limit.A discard_max_bytes\n"
|
||||
"value Of 0 means that the device does Not support discard functionality."
|
||||
|
||||
Label52.Text = "Discard zeroes data: " & Disk_Drives.discard_zeroes_data
|
||||
Label52.Tooltip = "When read, this file will show if the discarded block are zeroed by the device Or not.\n"
|
||||
"If its value Is '1' the blocks are zeroed otherwise not.\n"
|
||||
|
||||
Label53.Text = "HW sector size: " & Disk_Drives.hw_sector_size
|
||||
Label53.Tooltip = "This is the hardware sector size of the device, in bytes."
|
||||
|
||||
Label54.Text = "Max HW sectors kb: " & Disk_Drives.max_hw_sectors_kb
|
||||
Label54.Tooltip = "This is the maximum number of kilobytes supported in a single data transfer."
|
||||
|
||||
Label55.Text = "Max sectors kb: " & Disk_Drives.max_sectors_kb
|
||||
Label55.Tooltip = "This is the maximum number of kilobytes that the block layer will allow\n"
|
||||
"For a filesystem request.\n"
|
||||
"Must be smaller than Or equal To the maximum size allowed by the hardware."
|
||||
|
||||
Label56.Text = "Max segments: " & Disk_Drives.max_segments
|
||||
Label56.Tooltip = "Maximum number of segments of the device."
|
||||
|
||||
Label57.Text = "Max segment size: " & Disk_Drives.max_segment_size
|
||||
Label57.Tooltip = "Maximum segment size of the device."
|
||||
|
||||
Label58.Text = "Read ahead kb: " & Disk_Drives.read_ahead_kb
|
||||
Label59.Text = "..:Scheduler:.. \n " & Disk_Drives.scheduler
|
||||
|
||||
Label126.Text = "Logical block size: " & Disk_Drives.logical_block_size
|
||||
Label126.Tooltip = "This is the logcal block size of the device, in bytes."
|
||||
|
||||
Label127.Text = "IO stats: " & Disk_Drives.iostats
|
||||
Label128.Text = "Minimum IO size: " & Disk_Drives.minimum_io_size
|
||||
Label128.Tooltip = "This is the smallest preferred io size reported by the device."
|
||||
|
||||
Label129.Text = "Nomerges: " & Disk_Drives.nomerges
|
||||
Label130.Text = "Nr requests: " & Disk_Drives.nr_requests
|
||||
Label131.Text = "Optimal IO size: " & Disk_Drives.optimal_io_size
|
||||
Label131.Tooltip = "This is the optimal io size reported by the device."
|
||||
|
||||
Label132.Text = "Physical block size: " & Disk_Drives.physical_block_size
|
||||
Label133.Text = "Rotational: " & Disk_Drives.rotational
|
||||
Label134.Text = "Rq affinity: " & Disk_Drives.rq_affinity
|
||||
|
@ -870,8 +906,11 @@ Label134.Text = "Rq affinity: " & Disk_Drives.rq_affinity
|
|||
Label17.Text = Disk_Drives.Logical_Size
|
||||
|
||||
Label251.Text = "HW SATA SPD Limit:" & Space$(2) & Disk_Drives.hw_sata_spd_limit
|
||||
Label251.Tooltip = "Maximum speed supported by the connected SATA device."
|
||||
Label252.Text = "SATA SPD:" & Space$(2) & Disk_Drives.sata_spd
|
||||
Label252.Tooltip = "Current speed of the link [1.5, 3Gps,...]."
|
||||
Label253.Text = "SATA SPD Limit:" & Space$(2) & Disk_Drives.sata_spd_limit
|
||||
Label253.Tooltip = "Maximum speed imposed by libata."
|
||||
|
||||
End
|
||||
|
||||
|
|
|
@ -14,7 +14,7 @@
|
|||
'
|
||||
' You should have received a copy of the GNU General Public License
|
||||
' along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
Public pic As Picture
|
||||
Public Sub Form_Open()
|
||||
If Not Exist(User.Home & "/.i-nex") Then
|
||||
Mkdir User.Home & "/.i-nex"
|
||||
|
@ -30,7 +30,7 @@ Public Sub Form_Open()
|
|||
Try Me.X = Settings["Window/X", Me.X]
|
||||
Try Me.Y = Settings["Window/Y", Me.Y]
|
||||
Endif
|
||||
PictureBox1.Picture = ScreenShotM.pic
|
||||
PictureBox1.Picture = pic
|
||||
TextBox1.Text = Date & Time
|
||||
TextBox1.Text = Replace(TextBox1.Text, "/", "")
|
||||
TextBox1.Text = Replace(TextBox1.Text, ":", "")
|
||||
|
@ -50,7 +50,7 @@ End
|
|||
|
||||
Public Sub Button1_Click()
|
||||
|
||||
ScreenShotM.save(ButtonBox1.Text, TextBox1.Text, ComboBox1.Text, SliderBox1.Value)
|
||||
ScreenShot.save(ButtonBox1.Text, TextBox1.Text, ComboBox1.Text, SliderBox1.Value)
|
||||
File.Save("" & User.Home & "/.i-nex/lastsaveg", ButtonBox1.Text)
|
||||
|
||||
Form_Close()
|
||||
|
@ -82,3 +82,9 @@ Public Sub ComboBox1_Click()
|
|||
Endif
|
||||
|
||||
End
|
||||
|
||||
Public Sub save(directory As String, filename As String, fileformat As String, filequality As Integer)
|
||||
|
||||
Try pic.Save("" & directory & "/" & filename & "" & fileformat & "", filequality)
|
||||
|
||||
End
|
|
@ -1,24 +0,0 @@
|
|||
' Gambas module file
|
||||
|
||||
' Copyright(C) 2011-2014, Michał Głowienka aka eloaders <eloaders@linux.pl>
|
||||
'
|
||||
' This program is free software; you can redistribute it and/or modify
|
||||
' it under the terms of the GNU General Public License as published by
|
||||
' the Free Software Foundation; either version 3 of the License, or
|
||||
' (at your option) any later version.
|
||||
'
|
||||
' This program is distributed in the hope that it will be useful,
|
||||
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
' GNU General Public License for more details.
|
||||
'
|
||||
' You should have received a copy of the GNU General Public License
|
||||
' along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
Public pic As Picture
|
||||
|
||||
Public Sub save(directory As String, filename As String, fileformat As String, filequality As Integer)
|
||||
|
||||
Try pic.Save("" & directory & "/" & filename & "" & fileformat & "", filequality)
|
||||
|
||||
End
|
Loading…
Reference in New Issue