home *** CD-ROM | disk | FTP | other *** search
- object Form7: TForm7
- Left = 169
- Top = 54
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Fade In'
- ClientHeight = 300
- ClientWidth = 339
- 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 = 14
- Width = 84
- Height = 19
- Caption = '&Initial percent:'
- 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 = 295
- Top = 64
- Width = 26
- Height = 13
- Caption = '100%'
- end
- object Label3: TLabel
- Left = 160
- Top = 64
- Width = 20
- Height = 13
- Caption = '50%'
- end
- object Label4: TLabel
- Left = 17
- Top = 64
- Width = 14
- Height = 13
- Caption = '0%'
- end
- object Label5: TLabel
- Left = 232
- Top = 92
- Width = 17
- Height = 24
- Caption = '%'
- 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 = 40
- Top = 96
- Width = 104
- Height = 19
- Caption = '&Manual selection:'
- FocusControl = Edit1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 46
- Top = 136
- Width = 108
- Height = 108
- end
- object Bevel2: TBevel
- Left = 46
- Top = 190
- Width = 108
- Height = 2
- Shape = bsTopLine
- Style = bsRaised
- end
- object TrackBar1: TTrackBar
- Left = 8
- Top = 32
- Width = 321
- Height = 33
- Max = 100
- Orientation = trHorizontal
- Frequency = 10
- Position = 100
- SelEnd = 100
- SelStart = 0
- TabOrder = 0
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = TrackBar1Change
- end
- object Edit1: TEdit
- Left = 160
- Top = 88
- Width = 57
- Height = 32
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- Text = '100'
- OnExit = Edit1Exit
- OnKeyPress = Edit1KeyPress
- end
- object Button1: TButton
- Left = 88
- Top = 265
- Width = 75
- Height = 25
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 2
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 177
- Top = 265
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 3
- OnClick = Button2Click
- end
- object RadioGroup1: TRadioGroup
- Left = 184
- Top = 130
- Width = 108
- Height = 115
- Caption = '&Progression type:'
- ItemIndex = 0
- Items.Strings = (
- 'Linear'
- 'Exponential'
- 'Logarithm')
- TabOrder = 4
- OnClick = RadioGroup1Click
- end
- end
-