home *** CD-ROM | disk | FTP | other *** search
- object Form14: TForm14
- Left = 95
- Top = 108
- BorderStyle = bsDialog
- Caption = 'Echo'
- ClientHeight = 260
- ClientWidth = 339
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- OnPaint = FormPaint
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = -77
- Top = 0
- Width = 416
- Height = 27
- Stretch = True
- end
- object Bevel5: TBevel
- Left = 177
- Top = 135
- Width = 13
- Height = 18
- Shape = bsLeftLine
- end
- object Label1: TLabel
- Left = 10
- Top = 143
- Width = 57
- Height = 13
- Caption = '&Delay in ms:'
- FocusControl = TrackBar1
- end
- object Label2: TLabel
- Left = 274
- Top = 167
- 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 = 146
- Top = 55
- Width = 191
- Height = 81
- Shape = bsLeftLine
- end
- object Bevel2: TBevel
- Left = 138
- Top = 127
- Width = 161
- Height = 9
- Shape = bsTopLine
- end
- object Label3: TLabel
- Left = 306
- Top = 119
- 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 = 130
- Top = 39
- Width = 46
- Height = 13
- Caption = 'Amplitude'
- end
- object Bevel3: TBevel
- Left = 167
- Top = 135
- Width = 20
- Height = 2
- Shape = bsTopLine
- end
- object Bevel4: TBevel
- Left = 89
- Top = 151
- Width = 89
- Height = 9
- Shape = bsTopLine
- end
- object Label5: TLabel
- Left = 10
- Top = 195
- Width = 103
- Height = 13
- Caption = '&Number of repetitions:'
- FocusControl = TrackBar2
- end
- object Label6: TLabel
- Left = 178
- Top = 211
- 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 Image3: TImage
- Left = 275
- Top = 0
- Width = 64
- Height = 260
- Align = alRight
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Image2: TImage
- Left = 8
- Top = 8
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- Transparent = True
- end
- object RadioGroup1: TRadioGroup
- Left = 10
- Top = 47
- Width = 105
- Height = 81
- Caption = '&Echo type'
- ItemIndex = 0
- Items.Strings = (
- 'Simple'
- 'Multiple')
- TabOrder = 0
- OnClick = RadioGroup1Click
- end
- object Button1: TButton
- Left = 254
- Top = 202
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 254
- Top = 227
- Width = 75
- Height = 25
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = Button2Click
- end
- object TrackBar1: TTrackBar
- Left = 2
- Top = 161
- Width = 265
- Height = 33
- Max = 2000
- Min = 50
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 100
- Position = 50
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object TrackBar2: TTrackBar
- Left = 2
- Top = 211
- Width = 169
- Height = 45
- Min = 1
- Orientation = trHorizontal
- Frequency = 1
- Position = 1
- SelEnd = 0
- SelStart = 0
- TabOrder = 4
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar2Change
- end
- end
-