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 = {} 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