object AVISetup: TAVISetup Left = 332 Top = 115 ActiveControl = Button1 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'AVI setup' ClientHeight = 211 ClientWidth = 325 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poDefault Scaled = False OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Label1: TLabel Left = 4 Top = 86 Width = 72 Height = 14 Caption = '&Frame count:' FocusControl = SpinEdit1 Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label16: TLabel Left = 0 Top = 182 Width = 325 Height = 29 Align = alBottom Alignment = taCenter AutoSize = False Caption = 'Please, use only "Microsoft Video 1" videocompression.'#13#10'Other vi' + 'deocompressors can work incorrectly.' Font.Charset = RUSSIAN_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Bevel1: TBevel Left = 0 Top = 177 Width = 325 Height = 5 Align = alBottom Shape = bsBottomLine end object SpinEdit1: TSpinEdit Left = 92 Top = 80 Width = 97 Height = 22 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Increment = 10 MaxValue = 1000000 MinValue = 10 ParentFont = False TabOrder = 1 Value = 50 end object GroupBox1: TGroupBox Left = 4 Top = 0 Width = 317 Height = 73 Caption = 'Advanced AVI setup:' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Label2: TLabel Left = 8 Top = 16 Width = 53 Height = 13 Caption = 'Frame rate:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 96 Top = 16 Width = 133 Height = 13 Caption = 'Time of each still (in frames):' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 101 Top = 48 Width = 3 Height = 11 Caption = '1' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 122 Top = 48 Width = 5 Height = 11 Caption = '3' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 143 Top = 48 Width = 5 Height = 11 Caption = '5' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 164 Top = 48 Width = 5 Height = 11 Caption = '7' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 185 Top = 48 Width = 5 Height = 11 Caption = '9' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 205 Top = 48 Width = 6 Height = 11 Caption = '11' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 226 Top = 48 Width = 8 Height = 11 Caption = '13' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 247 Top = 48 Width = 8 Height = 11 Caption = '15' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 268 Top = 48 Width = 8 Height = 11 Caption = '17' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label13: TLabel Left = 289 Top = 48 Width = 8 Height = 11 Caption = '19' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label14: TLabel Left = 100 Top = 58 Width = 19 Height = 11 Caption = 'Fast' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 292 Top = 58 Width = 20 Height = 11 Caption = 'Slow' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False end object Bevel2: TBevel Left = 88 Top = 16 Width = 5 Height = 53 Shape = bsLeftLine end object SpinEdit2: TSpinEdit Left = 8 Top = 32 Width = 65 Height = 22 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Increment = 5 MaxValue = 100 MinValue = 10 ParentFont = False TabOrder = 0 Value = 15 end object TrackBar1: TTrackBar Left = 96 Top = 32 Width = 217 Height = 17 Max = 20 Min = 1 Orientation = trHorizontal Frequency = 2 Position = 1 SelEnd = 0 SelStart = 0 TabOrder = 1 TickMarks = tmBottomRight TickStyle = tsAuto end end object Button1: TButton Left = 196 Top = 80 Width = 125 Height = 25 Caption = 'Start rendering' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = Button1Click end object Button2: TButton Left = 196 Top = 108 Width = 125 Height = 25 Cancel = True Caption = 'Close' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = Button2Click end object Button3: TButton Left = 196 Top = 148 Width = 125 Height = 25 Caption = 'Play AVI' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = Button3Click end object CheckBox1: TCheckBox Left = 4 Top = 112 Width = 125 Height = 17 Hint = 'Each fracme of this clip will be written as separate images.'#13#10'Al' + 'l files will be placed into "ANIM" folder.'#13#10'After generation of ' + 'all frames you can build a clip with'#13#10'another software.' Caption = 'Save as set of frames' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = CheckBox1Click end object BitBtn1: TBitBtn Left = 132 Top = 108 Width = 57 Height = 25 Hint = 'Select image format for frames.' Caption = 'as BMPs' Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BitBtn1Click end object Gauge2: TProgressBar Left = 4 Top = 140 Width = 185 Height = 16 Min = 0 Max = 100 TabOrder = 7 end object St1: TStaticText Left = 4 Top = 156 Width = 185 Height = 17 Alignment = taCenter AutoSize = False BorderStyle = sbsSunken Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 8 end object SaveDialog1: TSaveDialog DefaultExt = 'avi' FileName = 'untitled' Filter = 'Video for Windows files (*.avi)|*.avi' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn] Title = 'Save movie as' Top = 184 end end