unit1.pas

AVS生成工具

if checkbox18.Checked =true then Writeln(Files,combobox7.text+'()');
if checkbox24.Checked =true then Writeln(Files,'FlipVertical()');

if checkbox19.Checked =true then Writeln(Files,'MyParity=FieldOrder(0)');
if checkbox19.Checked =true then Writeln(Files,'Telecide(order=MyParity,guide=1,vthresh=50,blend=false,show=false).Decimate()');
if checkbox19.Checked =true then Writeln(Files,'#若发现有横纹拉丝，可把 vthresh=50 中的50分别改为30、20、15、10、0来试，或改blend=true。');
if checkbox19.Checked =true then Writeln(Files,'#若发现有些画面变形，可把 vthresh=50 中的50改大来试，最大为255。');
if checkbox25.Checked =true then Writeln(Files,'ffdshow("default")');
if checkbox22.Checked =true then Writeln(Files,'AutoCrop');
if checkbox22.Checked =true then Writeln(Files,'(mode=0,wmultof=4,hmultof=4,samples=10,aspect=0,threshold=34,samplestartframe=0)');
if checkbox7.Checked =true then Writeln(Files,'Crop('+edit7.text+')');
if checkbox8.Checked =true then Writeln(Files,'LanczosResize('+combobox5.text+')');
if checkbox5.Checked =true then Writeln(Files,'Levels('+edit5.text+')');
if checkbox11.Checked =true then Writeln(Files,'Tweak('+edit9.text+')');
if checkbox6.Checked =true then Writeln(Files,'FluxSmooth('+edit6.text+')');
if checkbox12.Checked =true then Writeln(Files,'Sharpen('+edit10.text+')');
if checkbox20.Checked =true then Writeln(Files,'Deen('+combobox9.text+')');
if checkbox21.Checked =true then Writeln(Files,'Convolution3D('+combobox10.text+')');
if checkbox23.Checked =true then Writeln(Files,'UnDot()');
if checkbox13.Checked =true then Writeln(Files,'AddBorders('+edit11.text+')');
if checkbox2.Checked =true then Writeln(Files,audio[0]);
if checkbox4.Checked =true then Writeln(Files,sub[1]);
if checkbox27.Checked =true then Writeln(Files,'SSRC(44100)');
if checkbox26.Checked =true then Writeln(Files,'EnsureVBRMP3Sync()');
if checkbox15.Checked =true then Writeln(Files,'GetChannel('+edit13.text+')');
if checkbox10.Checked =true then Writeln(Files,'AmplifydB('+edit8.text+')');
if checkbox16.Checked =true then Writeln(Files,'DelayAudio('+edit14.text+')');
if checkbox14.Checked =true then Writeln(Files,'Trim('+edit12.text+')');
if checkbox9.Checked =true then Writeln(Files,'ChangeFPS('+combobox6.text+')');
//===========================滤镜判断结束======================

CloseFile(Files);
end;
end;
//===========================文件建立结束======================

//===========================文件下方的控制===========================

procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TMainForm.Button6Click(Sender: TObject);
begin
if edit4.text='' then
begin
opendialog4.Execute;
if length(opendialog4.FileName)>0 then shellexecute(handle,'open','notepad.exe',pchar(opendialog4.FileName),nil,sw_shownormal);
end
else
begin
Chdir(ExtractFilePath(edit4.Text));
if FileExists(Edit4.Text) then
shellexecute(handle,'open','notepad.exe',pchar(edit4.Text),nil,sw_shownormal)
else
opendialog4.Execute;
end;
end;

procedure TMainForm.Button7Click(Sender: TObject);
begin
opendialog4.Execute;
if length(opendialog4.FileName)>0 then shellexecute(handle,'open',pchar(opendialog4.FileName),nil,nil,sw_shownormal);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
DragAcceptFiles(MainForm.Handle, True);
end;

//==========================实现文件拖拽========================
procedure TMainForm.dropfiles(var message:tmessage);
var
p:array[0..254] of char;
i:word;
begin
I:=dragqueryfile(message.wparam,$ffffffff,nil,0);
for I:=0 to I-1 do
begin
dragqueryfile(message.wparam,i,p,255);
edit1.text:=p;
end;
end;
//==========================实现文件拖拽========================

procedure TMainForm.FormActivate(Sender: TObject);
begin
MoveForm.Showmodal;
end;


//=====================滤镜过滤开始============================
procedure TMainForm.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked = true then
begin
edit5.Enabled := true;
edit5.Color :=clwindow;
end
else
begin
edit5.Enabled := false;
edit5.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked = true then
begin
edit6.Enabled := true;
edit6.Color :=clwindow;
end
else
begin
edit6.Enabled := false;
edit6.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox7Click(Sender: TObject);
begin
if checkbox7.Checked = true then
begin
edit7.Enabled := true;
edit7.Color :=clwindow;
end
else
begin
edit7.Enabled := false;
edit7.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox10Click(Sender: TObject);
begin
if checkbox10.Checked = true then
begin
edit8.Enabled := true;
edit8.Color :=clwindow;
end
else
begin
edit8.Enabled := false;
edit8.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox11Click(Sender: TObject);
begin
if checkbox11.Checked = true then
begin
edit9.Enabled := true;
edit9.Color :=clwindow;
end
else
begin
edit9.Enabled := false;
edit9.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox12Click(Sender: TObject);
begin
if checkbox12.Checked = true then
begin
edit10.Enabled := true;
edit10.Color :=clwindow;
end
else
begin
edit10.Enabled := false;
edit10.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox13Click(Sender: TObject);
begin
if checkbox13.Checked = true then
begin
edit11.Enabled := true;
edit11.Color :=clwindow;
end
else
begin
edit11.Enabled := false;
edit11.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox14Click(Sender: TObject);
begin
if checkbox14.Checked = true then
begin
edit12.Enabled := true;
edit12.Color :=clwindow;
end
else
begin
edit12.Enabled := false;
edit12.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox15Click(Sender: TObject);
begin
if checkbox15.Checked = true then
begin
edit13.Enabled := true;
edit13.Color :=clwindow;
end
else
begin
edit13.Enabled := false;
edit13.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox16Click(Sender: TObject);
begin
if checkbox16.Checked = true then
begin
edit14.Enabled := true;
edit14.Color :=clwindow;
end
else
begin
edit14.Enabled := false;
edit14.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox8Click(Sender: TObject);
begin
if checkbox8.Checked = true then
begin
combobox5.Enabled := true;
combobox5.Color :=clwindow;
end
else
begin
combobox5.Enabled := false;
combobox5.Color :=cl3dlight;
end;
end;
//=====================滤镜过滤结束============================

//=====================更多滤镜开始============================
procedure TMainForm.Button8Click(Sender: TObject);
begin
if groupbox3.Visible then
begin
groupbox3.Visible := false;
button8.Caption :='返回';
groupbox4.Visible := true;
end
else
begin
groupbox3.Visible := true;
button8.Caption :='更多滤镜';
groupbox4.Visible := false;
end;
end;
//=====================更多滤镜结束============================
procedure TMainForm.CheckBox18Click(Sender: TObject);
begin
if checkbox18.Checked = true then
begin
combobox7.Enabled := true;
combobox7.Color :=clwindow;
end
else
begin
combobox7.Enabled := false;
combobox7.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox19Click(Sender: TObject);
begin
if checkbox19.Checked = true then
begin
combobox8.Enabled := true;
combobox8.Color :=clwindow;
end
else
begin
combobox8.Enabled := false;
combobox8.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox20Click(Sender: TObject);
begin
if checkbox20.Checked = true then
begin
combobox9.Enabled := true;
combobox9.Color :=clwindow;
end
else
begin
combobox9.Enabled := false;
combobox9.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox21Click(Sender: TObject);
begin
if checkbox21.Checked = true then
begin
combobox10.Enabled := true;
combobox10.Color :=clwindow;
end
else
begin
combobox10.Enabled := false;
combobox10.Color :=cl3dlight;
end;
end;

procedure TMainForm.CheckBox22Click(Sender: TObject);
begin
if checkbox22.Checked then
begin
radiobutton3.Enabled := true;
radiobutton4.Enabled := true;
end
else
begin
radiobutton3.Enabled := false;
radiobutton4.Enabled := false;
end;
end;

procedure TMainForm.Edit1Change(Sender: TObject);
begin
if length(edit1.Text)>0 then edit4.text:=ChangeFileExt(edit1.Text,'.avs');
end;

procedure TMainForm.CheckBox28Click(Sender: TObject);
begin
if checkbox28.Checked then
begin
formstyle:=fsStayOnTop;
end
else
begin
FormStyle := fsNormal;
end;
end;

end.