home *** CD-ROM | disk | FTP | other *** search
- object Form6: TForm6
- Left = 178
- Top = 123
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Amplify volume'
- ClientHeight = 263
- ClientWidth = 308
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 144
- Height = 19
- Caption = '&Percent of amplification:'
- FocusControl = TrackBar1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 16
- Top = 80
- Width = 14
- Height = 13
- Caption = '0%'
- end
- object Label3: TLabel
- Left = 144
- Top = 80
- Width = 26
- Height = 13
- Caption = '100%'
- end
- object Label4: TLabel
- Left = 272
- Top = 80
- Width = 26
- Height = 13
- Caption = '200%'
- end
- object Label6: TLabel
- Left = 16
- Top = 104
- Width = 104
- Height = 19
- Caption = '&Manual selection:'
- FocusControl = Edit1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 232
- Top = 104
- Width = 16
- Height = 20
- Caption = '%'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object TrackBar1: TTrackBar
- Left = 8
- Top = 48
- Width = 289
- Height = 33
- LineSize = 2
- Max = 200
- Min = 1
- Orientation = trHorizontal
- Frequency = 10
- Position = 100
- SelEnd = 100
- SelStart = 0
- TabOrder = 0
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object RadioGroup1: TRadioGroup
- Left = 16
- Top = 136
- Width = 161
- Height = 105
- Caption = '&Action:'
- ItemIndex = 2
- Items.Strings = (
- 'Double volume (200%)'
- 'Half volume (50%)'
- 'Manual selection')
- TabOrder = 1
- OnClick = RadioGroup1Click
- end
- object Button1: TButton
- Left = 216
- Top = 160
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 2
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 216
- Top = 200
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 3
- OnClick = Button2Click
- end
- object Edit1: TEdit
- Left = 144
- Top = 102
- Width = 73
- Height = 28
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- OnExit = Edit1Exit
- OnKeyPress = Edit1KeyPress
- end
- end
-