Skip to content

Commit

Permalink
2.6.4 beta
Browse files Browse the repository at this point in the history
  • Loading branch information
@tedsmith
tedsmith committed Nov 25, 2015
1 parent 5ed1d23 commit c59c9a4
Show file tree
Hide file tree
Showing 2 changed files with 52 additions and 53 deletions.
103 changes: 51 additions & 52 deletions DiskModule/diskmoduleunit1.lfm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,11 +3,11 @@ object frmDiskHashingModule: TfrmDiskHashingModule
Height = 600
Top = 225
Width = 691
Caption = 'QuickHash 2.6.2.b (2011 - 2015) (c) Ted Smith - Disk Hashing Module'
Caption = 'QuickHash 2.6.4 (2011 - 2015) (c) Ted Smith - Disk Hashing Module'
ClientHeight = 600
ClientWidth = 691
Position = poScreenCenter
LCLVersion = '1.4.0.4'
LCLVersion = '1.4.4.0'
object ListBox1: TListBox
Left = 16
Height = 208
Expand All @@ -22,7 +22,6 @@ object frmDiskHashingModule: TfrmDiskHashingModule
ScrollWidth = 657
ShowHint = True
TabOrder = 0
TopIndex = -1
end
object btnListDisks: TButton
Left = 16
Expand All @@ -40,84 +39,84 @@ object frmDiskHashingModule: TfrmDiskHashingModule
Width = 657
Anchors = [akTop, akLeft, akRight]
Caption = 'Status'
ClientHeight = 185
ClientWidth = 655
ClientHeight = 183
ClientWidth = 653
TabOrder = 2
object lblDiskNameA: TLabel
Left = 8
Height = 15
Height = 13
Top = 8
Width = 54
Width = 43
Caption = 'Disk ID : '
ParentColor = False
end
object lblDiskNameB: TLabel
Left = 104
Height = 15
Height = 13
Top = 8
Width = 12
Caption = '...'
ParentColor = False
end
object lblByteCapacityA: TLabel
Left = 8
Height = 15
Height = 13
Top = 80
Width = 95
Width = 77
Caption = 'Byte Capacity : '
ParentColor = False
end
object lblByteCapacityB: TLabel
Left = 104
Height = 15
Height = 13
Top = 80
Width = 12
Caption = '...'
ParentColor = False
end
object lblBytesLeftToHashA: TLabel
Left = 9
Height = 15
Height = 13
Top = 102
Width = 117
Width = 95
Caption = 'Bytes left to hash : '
ParentColor = False
end
object lblBytesLeftToHashB: TLabel
Left = 104
Height = 15
Height = 13
Top = 102
Width = 12
Caption = '...'
ParentColor = False
end
object lblEndTimeA: TLabel
Left = 368
Height = 15
Height = 13
Top = 128
Width = 65
Width = 50
Caption = 'End Time :'
ParentColor = False
end
object lblEndTimeB: TLabel
Left = 463
Height = 15
Height = 13
Top = 128
Width = 12
Caption = '...'
ParentColor = False
end
object lblStartTimeA: TLabel
Left = 368
Height = 15
Height = 13
Top = 80
Width = 71
Width = 56
Caption = 'Start Time :'
ParentColor = False
end
object lblStartTimeB: TLabel
Left = 463
Height = 15
Height = 13
Top = 80
Width = 12
Caption = '...'
Expand All @@ -134,111 +133,111 @@ object frmDiskHashingModule: TfrmDiskHashingModule
end
object lblSpeedA: TLabel
Left = 368
Height = 15
Height = 13
Top = 102
Width = 42
Width = 34
Caption = 'Speed:'
ParentColor = False
end
object lblSpeedB: TLabel
Left = 463
Height = 15
Height = 13
Top = 102
Width = 12
Caption = '...'
ParentColor = False
end
object lblInterfaceB: TLabel
Left = 463
Height = 15
Height = 13
Top = 32
Width = 12
Caption = '...'
ParentColor = False
end
object lblModelA: TLabel
Left = 9
Height = 15
Height = 13
Top = 32
Width = 43
Width = 35
Caption = 'Model :'
ParentColor = False
end
object lblModelB: TLabel
Left = 104
Height = 15
Height = 13
Top = 32
Width = 12
Caption = '...'
ParentColor = False
end
object lblMediaTypeA: TLabel
Left = 368
Height = 15
Height = 13
Top = 8
Width = 70
Width = 59
Caption = 'Media Type:'
ParentColor = False
end
object lblMediaTypeB: TLabel
Left = 463
Height = 15
Height = 13
Top = 8
Width = 12
Caption = '...'
ParentColor = False
end
object lblInterfaceA: TLabel
Left = 368
Height = 15
Height = 13
Top = 32
Width = 58
Width = 49
Caption = 'Interface:'
ParentColor = False
end
object lblManufacturerA: TLabel
Left = 9
Height = 15
Height = 13
Top = 56
Width = 85
Width = 69
Caption = 'Manufacturer:'
ParentColor = False
end
object lblManufacturerB: TLabel
Left = 104
Height = 15
Height = 13
Top = 56
Width = 12
Caption = '...'
ParentColor = False
end
object lblSectorsA: TLabel
Left = 368
Height = 15
Height = 13
Top = 56
Width = 49
Width = 40
Caption = 'Sectors:'
ParentColor = False
end
object lblSectorsB: TLabel
Left = 463
Height = 15
Height = 13
Top = 56
Width = 12
Caption = '...'
ParentColor = False
end
object lblTimeTakenA: TLabel
Left = 368
Height = 15
Height = 13
Top = 152
Width = 71
Width = 58
Caption = 'Time Taken:'
ParentColor = False
end
object lblTimeTakenB: TLabel
Left = 463
Height = 15
Height = 13
Top = 152
Width = 12
Caption = '...'
Expand All @@ -247,17 +246,17 @@ object frmDiskHashingModule: TfrmDiskHashingModule
end
object Label1: TLabel
Left = 16
Height = 15
Height = 13
Top = 528
Width = 159
Width = 130
Caption = 'Computed SHA-1 Hash:'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object edtComputedHash: TEdit
Left = 168
Height = 25
Height = 21
Top = 528
Width = 400
Font.Style = [fsBold]
Expand All @@ -275,7 +274,7 @@ object frmDiskHashingModule: TfrmDiskHashingModule
end
object DateEdit1: TDateEdit
Left = 416
Height = 25
Height = 21
Hint = 'This timer only takes effect IF YOU ALSO'#13#10' SPECIFY A 24hr START TIME --->'
Top = 32
Width = 96
Expand All @@ -295,15 +294,15 @@ object frmDiskHashingModule: TfrmDiskHashingModule
end
object Label2: TLabel
Left = 288
Height = 15
Height = 13
Top = 32
Width = 151
Width = 118
Caption = 'Don''t start hashing until:'
ParentColor = False
end
object lbledtStartAtTime: TLabeledEdit
Left = 536
Height = 25
Height = 21
Hint = 'Enter a 24hr time here to use the timer'#13#10'e.g. 06:15 or 09:45 or 18:35 or 22:00'
Top = 32
Width = 80
Expand All @@ -312,9 +311,9 @@ object frmDiskHashingModule: TfrmDiskHashingModule
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = lbledtStartAtTime
EditLabel.Left = 536
EditLabel.Height = 15
EditLabel.Height = 13
EditLabel.Hint = 'Enter 4-digit start time. For example: '#13#10'18:25 or 02:35 or 19:55 or 23:00'
EditLabel.Top = 14
EditLabel.Top = 16
EditLabel.Width = 80
EditLabel.Caption = 'Start At Time:'
EditLabel.ParentColor = False
Expand All @@ -326,9 +325,9 @@ object frmDiskHashingModule: TfrmDiskHashingModule
end
object Label3: TLabel
Left = 418
Height = 15
Height = 13
Top = 16
Width = 83
Width = 68
Caption = 'Start At Date:'
ParentColor = False
end
Expand Down
2 changes: 1 addition & 1 deletion DiskModule/diskmoduleunit1.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -28,7 +28,7 @@ interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, EditBtn, strutils, sha1Customised, DateUtils;
ExtCtrls, EditBtn, strutils, sha1Customised, DateUtils,
{$ifdef Windows}
// For physical disk access in Windows:
ActiveX, ComObj, Variants, Windows;
Expand Down

0 comments on commit c59c9a4

Please sign in to comment.