home *** CD-ROM | disk | FTP | other *** search
- object Form13: TForm13
- Left = 180
- Top = 105
- BorderStyle = bsDialog
- Caption = 'Speed Up/Down'
- ClientHeight = 241
- ClientWidth = 267
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 80
- Top = 16
- Width = 95
- Height = 13
- Caption = '&Percent of variation:'
- FocusControl = TrackBar1
- end
- object Label2: TLabel
- Left = 16
- Top = 128
- Width = 124
- Height = 13
- Caption = 'Actual number of samples:'
- end
- object Label3: TLabel
- Left = 168
- Top = 124
- Width = 41
- Height = 20
- Caption = '4002'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 16
- Top = 160
- Width = 140
- Height = 13
- Caption = '&Estimated number of samples:'
- FocusControl = Edit1
- end
- object Label5: TLabel
- Left = 114
- Top = 88
- Width = 50
- Height = 24
- Caption = '100%'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 120
- Top = 64
- Width = 14
- Height = 13
- Caption = '0%'
- end
- object Label7: TLabel
- Left = 224
- Top = 64
- Width = 26
- Height = 13
- Caption = '100%'
- end
- object Label8: TLabel
- Left = 24
- Top = 64
- Width = 29
- Height = 13
- Caption = '-100%'
- end
- object Button1: TButton
- Left = 56
- Top = 200
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 152
- Top = 200
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 1
- OnClick = Button2Click
- end
- object TrackBar1: TTrackBar
- Left = 16
- Top = 32
- Width = 233
- Height = 33
- Max = 2000
- Orientation = trHorizontal
- Frequency = 100
- Position = 1000
- SelEnd = 1000
- SelStart = 0
- TabOrder = 2
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object Edit1: TEdit
- Left = 168
- Top = 156
- Width = 81
- Height = 21
- TabOrder = 3
- OnExit = Edit1Exit
- OnKeyPress = Edit1KeyPress
- end
- object SpinButton1: TSpinButton
- Left = 24
- Top = 88
- Width = 20
- Height = 25
- DownGlyph.Data = {
- DE000000424DDE00000000000000360000002800000009000000060000000100
- 180000000000A800000000000000000000000000000000000000008080008080
- 0080800080800080800080800080800080800080800C00808000808000808000
- 8080000000008080008080008080008080640080800080800080800000000000
- 000000000080800080800080800B008080008080000000000000000000000000
- 0000000080800080802000808000000000000000000000000000000000000000
- 0000008080650080800080800080800080800080800080800080800080800080
- 804C}
- TabOrder = 4
- UpGlyph.Data = {
- DE000000424DDE00000000000000360000002800000009000000060000000100
- 180000000000A800000000000000000000000000000000000000008080008080
- 0080800080800080800080800080800080800080807000808000000000000000
- 0000000000000000000000000000008080000080800080800000000000000000
- 0000000000000000808000808000008080008080008080000000000000000000
- 0080800080800080808000808000808000808000808000000000808000808000
- 8080008080000080800080800080800080800080800080800080800080800080
- 8000}
- OnDownClick = SpinButton1DownClick
- OnUpClick = SpinButton1UpClick
- end
- object SpinButton2: TSpinButton
- Left = 216
- Top = 88
- Width = 20
- Height = 25
- DownGlyph.Data = {
- DE000000424DDE00000000000000360000002800000009000000060000000100
- 180000000000A800000000000000000000000000000000000000008080008080
- 0080800080800080800080800080800080800080800000808000808000808000
- 8080000000008080008080008080008080000080800080800080800000000000
- 0000000000808000808000808000008080008080000000000000000000000000
- 0000000080800080800000808000000000000000000000000000000000000000
- 0000008080000080800080800080800080800080800080800080800080800080
- 8000}
- TabOrder = 5
- UpGlyph.Data = {
- DE000000424DDE00000000000000360000002800000009000000060000000100
- 180000000000A800000000000000000000000000000000000000008080008080
- 0080800080800080800080800080800080800080800000808000000000000000
- 0000000000000000000000000000008080000080800080800000000000000000
- 0000000000000000808000808000008080008080008080000000000000000000
- 0080800080800080800000808000808000808000808000000000808000808000
- 8080008080000080800080800080800080800080800080800080800080800080
- 8000}
- OnDownClick = SpinButton2DownClick
- OnUpClick = SpinButton2UpClick
- end
- end
-