object MainForm: TMainForm Left = 256 Top = 193 BorderIcons = [biSystemMenu] BorderStyle = bsToolWindow Caption = 'AVI [FR] Changer 1.01 by [Blight]' ClientHeight = 109 ClientWidth = 213 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object BrowseButton: TSpeedButton Left = 190 Top = 54 Width = 21 Height = 21 Flat = True Glyph.Data = { 7E030000424D7E030000000000003600000028000000120000000F0000000100 18000000000048030000120B0000120B00000000000000000000FF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FF0000FF00FF0000000000000000000000 00000000000000000000000000000000000000000000000000000000FF00FFFF 00FFFF00FFFF00FF0000FF00FF0000008AF4FF7BD9E36EC3CC66B4BD60AAB35E A6AE5EA6AE5EA6AE5EA6AE5EA6AE5EA6AE5EA6AE000000FF00FFFF00FFFF00FF 0000FF00FF0000000000008AF4FF47ECFF44E1F344E1F343DEF043DEF043DEF0 42DCEE40D5E63CC9D95EA6AE000000FF00FFFF00FFFF00FF0000FF00FF000000 89ABAB0000008AF4FF47ECFF44E1F343DEF043DEF043DEF043DEF043DEF042DC EE3CC9D95EA6AE000000FF00FFFF00FF0000FF00FF0000008FB3B30000008AF4 FF47ECFF44E1F344E1F343DEF043DEF043DEF043DEF043DEF040D5E660AAB300 0000FF00FFFF00FF0000FF00FF0000008FB3B37A999900000099F5FF47ECFF44 E1F344E1F344E1F344E1F343DEF043DEF043DEF042DCEE66B4BD000000FF00FF 0000FF00FF00000095BABA7A9999000000A6F7FF47ECFF47ECFF47ECFF47ECFF 44E1F344E1F344E1F344E1F344E1F36EC3CC000000FF00FF0000FF00FF000000 95BABA7A9999749191000000B8F8FFA6F7FF99F5FF8AF4FF47ECFF47ECFF47EC FF47ECFF47ECFF7BD9E3000000FF00FF0000FF00FF0000009BC2C27A99997491 916C87870000000000000000000000008AF4FF8AF4FF8AF4FF8AF4FF8AF4FF00 0000FF00FFFF00FF0000FF00FF0000009BC2C27A999974919174919174919174 9191749191749191000000000000000000000000000000FF00FFFF00FFFF00FF 0000FF00FF000000A3CCCC7A99997A99997A99997A99997A999989ABAB89ABAB 83A3A381A1A181A1A1000000FF00FFFF00FFFF00FFFF00FF0000FF00FFFF00FF 000000A3CCCC9BC2C29BC2C295BABA95BABA0000000000000000000000000000 00000000FF00FFFF00FFFF00FFFF00FF0000FF00FFFF00FFFF00FF0000000000 00000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF 0000} OnClick = BrowseButtonClick end object Label1: TLabel Left = 2 Top = 5 Width = 83 Height = 13 Caption = 'New Frame Rate:' end object Label2: TLabel Left = 2 Top = 31 Width = 95 Height = 13 Caption = 'Current Frame Rate:' end object AVIName: TEdit Left = 2 Top = 54 Width = 183 Height = 21 TabStop = False Color = clBtnFace ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 0 OnEnter = AVINameEnter end object NewFrameRate: TComboBox Left = 108 Top = 2 Width = 103 Height = 21 DropDownCount = 19 ItemHeight = 13 Items.Strings = ( '01.000' '02.000' '03.000' '05.000' '06.000' '10.000' '12.000' '12.500' '14.985' '15.000' '23.976' '23.980' '24.000' '25.000' '29.970' '30.000' '40.000' '50.000' '60.000') MaxLength = 9 TabOrder = 1 Text = '24.000' OnKeyPress = NewFrameRateKeyPress end object CurFrameRate: TEdit Left = 108 Top = 28 Width = 103 Height = 21 TabStop = False Color = clBtnFace ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 2 OnEnter = AVINameEnter end object Panel1: TPanel Left = 0 Top = 80 Width = 213 Height = 29 Align = alBottom BevelOuter = bvLowered TabOrder = 3 object ApplyButton: TSpeedButton Left = 129 Top = 4 Width = 80 Height = 21 Hint = 'Apply new frame rate' Caption = 'Apply' Enabled = False ParentShowHint = False ShowHint = True OnClick = ApplyButtonClick end object QuitButton: TSpeedButton Left = 4 Top = 4 Width = 80 Height = 21 Caption = 'Quit' OnClick = QuitButtonClick end end object OpenDialog: TOpenDialog DefaultExt = 'avi' Filter = 'AVI Files (*.AVI)|*.avi|All Files (*.*)|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Left = 78 Top = 80 end end