home *** CD-ROM | disk | FTP | other *** search
- object Form13: TForm13
- Left = 180
- Top = 105
- BorderStyle = bsDialog
- Caption = 'Speed Up/Down'
- ClientHeight = 254
- ClientWidth = 267
- 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
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 275
- Height = 27
- Stretch = True
- end
- object Image3: TImage
- Left = 75
- Top = 0
- Width = 192
- Height = 254
- Align = alRight
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Transparent = True
- end
- object Label1: TLabel
- Left = 86
- Top = 40
- Width = 95
- Height = 13
- Caption = '&Percent of variation:'
- FocusControl = TrackBar1
- end
- object Label2: TLabel
- Left = 16
- Top = 152
- Width = 124
- Height = 13
- Caption = 'Actual number of samples:'
- end
- object Label3: TLabel
- Left = 168
- Top = 148
- 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 = 173
- Width = 140
- Height = 13
- Caption = '&Estimated number of samples:'
- FocusControl = Edit1
- end
- object Label5: TLabel
- Left = 109
- Top = 110
- 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 = 126
- Top = 88
- Width = 14
- Height = 13
- Caption = '0%'
- end
- object Label7: TLabel
- Left = 232
- Top = 88
- Width = 26
- Height = 13
- Caption = '100%'
- end
- object Label8: TLabel
- Left = 8
- Top = 88
- Width = 29
- Height = 13
- Caption = '-100%'
- end
- object Bevel1: TBevel
- Left = 8
- Top = 144
- Width = 249
- Height = 57
- end
- object Image2: TImage
- Left = 8
- Top = 8
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- Transparent = True
- end
- object Button1: TButton
- Left = 58
- Top = 216
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 133
- Top = 216
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 1
- OnClick = Button2Click
- end
- object TrackBar1: TTrackBar
- Left = 1
- Top = 56
- Width = 262
- Height = 33
- Max = 2000
- Orientation = trHorizontal
- Frequency = 100
- Position = 1000
- SelEnd = 1000
- SelStart = 0
- TabOrder = 2
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object Edit1: TEdit
- Left = 168
- Top = 169
- Width = 81
- Height = 21
- TabOrder = 3
- OnExit = Edit1Exit
- OnKeyPress = Edit1KeyPress
- end
- object SpinButton1: TSpinButton
- Left = 8
- Top = 110
- 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 = 236
- Top = 110
- 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
-