home *** CD-ROM | disk | FTP | other *** search
- object fmEcho: TfmEcho
- Left = 225
- Top = 144
- BorderStyle = bsDialog
- Caption = 'Echo'
- ClientHeight = 172
- ClientWidth = 238
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsItalic]
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 14
- object Label2: TLabel
- Left = 16
- Top = 16
- Width = 35
- Height = 14
- Caption = 'Interval'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 120
- Top = 16
- Width = 28
- Height = 14
- Caption = 'Count'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 112
- Top = 98
- Width = 39
- Height = 14
- Caption = 'Velocity'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 16
- Top = 48
- Width = 207
- Height = 3
- Style = bsRaised
- end
- object RotateLabel1: TRotateLabel
- Left = 11
- Top = 137
- Width = 53
- Height = 27
- Escapement = 355
- TextStyle = tsRecessed
- Caption = 'Echo'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object panelRes: TPanel
- Left = 65
- Top = 13
- Width = 30
- Height = 19
- Cursor = crHandPoint
- Hint = 'Edit resolution'
- BevelOuter = bvNone
- Caption = '16'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnMouseDown = panelResMouseDown
- OnMouseUp = panelResMouseUp
- end
- object Button1: TButton
- Left = 154
- Top = 138
- Width = 71
- Height = 25
- Caption = '&Cancel'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ModalResult = 2
- ParentFont = False
- TabOrder = 2
- end
- object Button2: TButton
- Left = 74
- Top = 138
- Width = 71
- Height = 25
- Caption = '&OK'
- Default = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ModalResult = 1
- ParentFont = False
- TabOrder = 0
- OnClick = Button2Click
- end
- object rbFading: TRadioButton
- Left = 16
- Top = 67
- Width = 57
- Height = 17
- Caption = 'Fading'
- Checked = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- TabStop = True
- end
- object rbStatic: TRadioButton
- Left = 16
- Top = 97
- Width = 57
- Height = 17
- Caption = 'Static'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- end
- object editCount: TEdit
- Left = 160
- Top = 12
- Width = 40
- Height = 21
- Hint = 'Repeat count (1-20)'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- Text = '3'
- OnExit = editCountExit
- OnKeyPress = editCountKeyPress
- end
- object editVel: TEdit
- Left = 160
- Top = 95
- Width = 41
- Height = 21
- Hint = 'Statis velocity (1-127)'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- Text = '64'
- OnExit = editVelExit
- OnKeyPress = editVelKeyPress
- end
- object PopupRes: TPopupMenu
- Left = 216
- Top = 144
- object N641: TMenuItem
- Caption = '64'
- OnClick = N641Click
- end
- object N321: TMenuItem
- Caption = '32'
- OnClick = N321Click
- end
- object N162: TMenuItem
- Caption = '16'
- OnClick = N162Click
- end
- object N42: TMenuItem
- Caption = '8'
- OnClick = N42Click
- end
- object N22: TMenuItem
- Caption = '4'
- OnClick = N22Click
- end
- object N23: TMenuItem
- Caption = '2'
- OnClick = N23Click
- end
- end
- end
-