Michael Schimmel
93 lines
1.8 KiB
ObjectPascal
93 lines
1.8 KiB
ObjectPascal
object Form1: TForm1
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'Form1'
|
|
ClientHeight = 815
|
|
ClientWidth = 677
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
DesignSize = (
|
|
677
|
|
815)
|
|
TextHeight = 15
|
|
object Button1: TButton
|
|
Left = 16
|
|
Top = 8
|
|
Width = 137
|
|
Height = 25
|
|
Caption = 'Button1'
|
|
TabOrder = 0
|
|
OnClick = Button1Click
|
|
end
|
|
object ResultMemo: TMemo
|
|
Left = 16
|
|
Top = 168
|
|
Width = 638
|
|
Height = 591
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
TabOrder = 1
|
|
ExplicitWidth = 585
|
|
ExplicitHeight = 217
|
|
end
|
|
object RmsBar: TProgressBar
|
|
Left = 16
|
|
Top = 781
|
|
Width = 638
|
|
Height = 17
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
TabOrder = 2
|
|
ExplicitTop = 407
|
|
ExplicitWidth = 585
|
|
end
|
|
object UpdateButton: TButton
|
|
Left = 16
|
|
Top = 39
|
|
Width = 137
|
|
Height = 25
|
|
Caption = 'Update'
|
|
TabOrder = 3
|
|
OnClick = UpdateButtonClick
|
|
end
|
|
object SilenceEdit: TSpinEdit
|
|
Left = 184
|
|
Top = 8
|
|
Width = 49
|
|
Height = 24
|
|
MaxValue = 20
|
|
MinValue = 1
|
|
TabOrder = 4
|
|
Value = 3
|
|
OnChange = SilenceEditChange
|
|
end
|
|
object OptsMemo: TMemo
|
|
Left = 296
|
|
Top = 8
|
|
Width = 358
|
|
Height = 154
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 5
|
|
ExplicitWidth = 305
|
|
end
|
|
object LoggingCheckBox: TCheckBox
|
|
Left = 16
|
|
Top = 80
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Logging'
|
|
TabOrder = 6
|
|
end
|
|
object RmsTimer: TTimer
|
|
Interval = 100
|
|
OnTimer = RmsTimerTimer
|
|
Left = 192
|
|
Top = 40
|
|
end
|
|
end
|