78 lines
2.1 KiB
Plaintext
78 lines
2.1 KiB
Plaintext
object FormMain: TFormMain
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'Hash benchmark'
|
|
ClientHeight = 480
|
|
ClientWidth = 640
|
|
FormFactor.Width = 320
|
|
FormFactor.Height = 480
|
|
FormFactor.Devices = [Desktop]
|
|
OnCreate = FormCreate
|
|
OnResize = FormResize
|
|
DesignerMasterStyle = 0
|
|
object Rectangle1: TRectangle
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Fill.Color = claCadetblue
|
|
HitTest = False
|
|
Position.X = 8.000000000000000000
|
|
Position.Y = 8.000000000000000000
|
|
Size.Width = 625.000000000000000000
|
|
Size.Height = 41.000000000000000000
|
|
Size.PlatformDefault = False
|
|
object b_Start: TButton
|
|
Align = Client
|
|
Size.Width = 625.000000000000000000
|
|
Size.Height = 41.000000000000000000
|
|
Size.PlatformDefault = False
|
|
StyleLookup = 'playtoolbutton'
|
|
TabOrder = 0
|
|
Text = 'b_Start'
|
|
OnClick = b_StartClick
|
|
end
|
|
end
|
|
object sg_Results: TStringGrid
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
CanFocus = True
|
|
ClipChildren = True
|
|
Position.X = 8.000000000000000000
|
|
Position.Y = 56.000000000000000000
|
|
Size.Width = 625.000000000000000000
|
|
Size.Height = 369.000000000000000000
|
|
Size.PlatformDefault = False
|
|
StyleLookup = 'gridstyle'
|
|
TabOrder = 0
|
|
RowCount = 0
|
|
Options = [ColumnResize, ColLines, RowLines, RowSelect, Tabs, Header]
|
|
Viewport.Width = 621.000000000000000000
|
|
Viewport.Height = 344.000000000000000000
|
|
object StringColumn1: TStringColumn
|
|
Header = 'Algorithm'
|
|
ReadOnly = True
|
|
end
|
|
object StringColumn2: TStringColumn
|
|
Header = 'Speed MB/s'
|
|
end
|
|
object StringColumn3: TStringColumn
|
|
Header = 'Time (hh:mm:ss:ms)'
|
|
end
|
|
end
|
|
object TimerBenchmark: TTimer
|
|
Enabled = False
|
|
Interval = 50
|
|
OnTimer = TimerBenchmarkTimer
|
|
Left = 408
|
|
Top = 96
|
|
end
|
|
object b_CopyToClipboard: TButton
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
Position.X = 8.000000000000000000
|
|
Position.Y = 432.000000000000000000
|
|
Size.Width = 625.000000000000000000
|
|
Size.Height = 41.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TabOrder = 5
|
|
Text = 'Copy to clipboard'
|
|
OnClick = b_CopyToClipboardClick
|
|
end
|
|
end
|