home *** CD-ROM | disk | FTP | other *** search
- object Form14: TForm14
- Left = 95
- Top = 108
- BorderStyle = bsDialog
- Caption = 'Echo'
- ClientHeight = 243
- ClientWidth = 353
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnPaint = FormPaint
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel5: TBevel
- Left = 183
- Top = 104
- Width = 13
- Height = 18
- Shape = bsLeftLine
- end
- object Label1: TLabel
- Left = 16
- Top = 112
- Width = 57
- Height = 13
- Caption = '&Delay in ms:'
- FocusControl = TrackBar1
- end
- object Label2: TLabel
- Left = 280
- Top = 136
- Width = 44
- Height = 20
- Caption = '50ms'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 152
- Top = 24
- Width = 121
- Height = 81
- Shape = bsLeftLine
- end
- object Bevel2: TBevel
- Left = 144
- Top = 96
- Width = 161
- Height = 9
- Shape = bsTopLine
- end
- object Label3: TLabel
- Left = 312
- Top = 88
- Width = 3
- Height = 16
- Caption = 't'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 136
- Top = 8
- Width = 46
- Height = 13
- Caption = 'Amplitude'
- end
- object Bevel3: TBevel
- Left = 173
- Top = 104
- Width = 20
- Height = 2
- Shape = bsTopLine
- end
- object Bevel4: TBevel
- Left = 95
- Top = 120
- Width = 89
- Height = 9
- Shape = bsTopLine
- end
- object Label5: TLabel
- Left = 16
- Top = 176
- Width = 103
- Height = 13
- Caption = '&Number of repetitions:'
- FocusControl = TrackBar2
- end
- object Label6: TLabel
- Left = 184
- Top = 192
- Width = 11
- Height = 20
- Caption = '1'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object RadioGroup1: TRadioGroup
- Left = 16
- Top = 16
- Width = 105
- Height = 81
- Caption = '&Echo type'
- ItemIndex = 0
- Items.Strings = (
- 'Simple'
- 'Multiple')
- TabOrder = 0
- OnClick = RadioGroup1Click
- end
- object Button1: TButton
- Left = 260
- Top = 176
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 260
- Top = 208
- Width = 75
- Height = 25
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = Button2Click
- end
- object TrackBar1: TTrackBar
- Left = 8
- Top = 130
- Width = 265
- Height = 33
- Max = 2000
- Min = 50
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 100
- Position = 50
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object TrackBar2: TTrackBar
- Left = 8
- Top = 192
- Width = 169
- Height = 45
- Orientation = trHorizontal
- Frequency = 1
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- end
-