← Back to branch summary

~ubuntu-branches/ubuntu/karmic/winff/karmic

« back to all changes in this revision

Viewing changes to unit1.pas

  • Committer: Bazaar Package Importer
  • Author(s): Paul Gevers
  • Date: 2008-11-03 20:11:27 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20081103201127-o2ljpdlc3ti8r8aa
Tags: 0.43-2
* Added line to debian/rules to fix file permissions in
  /urs/share/winff/
* Changed title in debian/winff.doc-base

Show diffs side-by-side

added added

removed removed

Lines of Context:
unit1.pas
14
14
  {$IFDEF WIN32} windows, shellapi, dos,{$endif}
15
15
  {$IFDEF unix} baseunix, unix, {$endif}
16
16
  laz_xmlcfg, dom, xmlread, xmlwrite, StdCtrls, Buttons, ActnList, Menus, unit2, unit3,
17
 
  unit4, unit5, gettext, translations
 
17
  unit4, unit5, gettext, translations, process
18
18
  {$IFDEF TRANSLATESTRING}, DefaultTranslator{$ENDIF};
19
19
 
20
20
type
79
79
    procedure ClearBtnClick(Sender: TObject);
80
80
    procedure displaycmdlineClick(Sender: TObject);
81
81
    procedure ExitmenuClick(Sender: TObject);
 
82
    procedure filelistKeyPress(Sender: TObject; var Key: char);
 
83
    procedure filelistKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
82
84
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
83
85
    procedure FormCreate(Sender: TObject);
84
86
    procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
141
143
  {$IFDEF WIN32}
142
144
  PIDL : PItemIDList;
143
145
  ansicodepage: longint;
 
146
  usechcp: string;
144
147
  {$ENDIF}
145
148
  extraspath: string;
146
149
  lastpreset: string;
301
304
      else
302
305
        terminal:='cmd.exe';
303
306
  termoptions := '/c';
 
307
  
 
308
  usechcp:= getconfigvalue('win32/chcp');
 
309
  if usechcp = '' then
 
310
     begin
 
311
       usechcp := 'true';
 
312
       setconfigvalue('win32/chcp','true');
 
313
     end;
 
314
 
304
315
  {$endif}
305
316
 
306
317
  {$IFDEF UNIX}
822
833
begin
823
834
   Opendialog1.Title:=rsSelectVideoFiles;
824
835
   Opendialog1.InitialDir := getconfigvalue('general/addfilesfolder');
825
 
   OpenDialog1.Execute;
826
 
   setconfigvalue('general/addfilesfolder',opendialog1.InitialDir);
827
 
   filelist.items.AddStrings(OpenDialog1.Files);
 
836
   if OpenDialog1.Execute then
 
837
      begin
 
838
       setconfigvalue('general/addfilesfolder',opendialog1.InitialDir);
 
839
       filelist.items.AddStrings(OpenDialog1.Files);
 
840
      end;
828
841
end;
829
842
 
830
843
// remove a file from the list
853
866
 
854
867
end;
855
868
 
 
869
// filelist key press
 
870
procedure TForm1.filelistKeyPress(Sender: TObject; var Key: char);
 
871
var
 
872
i:integer;
 
873
begin
 
874
 
 
875
  if key = char(8) then
 
876
   begin
 
877
    i:=0;
 
878
   while i< filelist.Items.Count do
 
879
    if filelist.Selected[i] then
 
880
      filelist.Items.Delete(i)
 
881
    else
 
882
       i+=1;
 
883
   end;
 
884
 
 
885
end;
 
886
 
 
887
  // filelist onkey down
 
888
procedure TForm1.filelistKeyUp(Sender: TObject; var Key: Word;
 
889
  Shift: TShiftState);
 
890
var
 
891
i:integer;
 
892
begin
 
893
     if key = 46 then
 
894
   begin
 
895
    i:=0;
 
896
   while i< filelist.Items.Count do
 
897
    if filelist.Selected[i] then
 
898
      filelist.Items.Delete(i)
 
899
    else
 
900
       i+=1;
 
901
   end;
 
902
end;
 
903
 
856
904
 
857
905
// menu: edit the presets
858
906
procedure TForm1.MenuItem4Click(Sender: TObject);
1039
1087
qterm, ffmpegfilename, usethreads, deinterlace, nullfile, titlestring, vxs,vys:string;
1040
1088
script: tstringlist;
1041
1089
thetime: tdatetime;
1042
 
 
 
1090
scriptprocess:tprocess;
1043
1091
begin                                     // get setup
 
1092
   scriptprocess:= TProcess.Create(nil);
1044
1093
   script:= TStringList.Create;
1045
 
   {$ifdef win32}script.Add('chcp ' + inttostr(ansicodepage) + ' | PROMPT');{$endif}
 
1094
   {$ifdef win32}if usechcp = 'true' then script.Add('chcp ' + inttostr(ansicodepage));{$endif}
1046
1095
   {$ifdef win32}ffmpegfilename:='"' + ffmpeg + '"';{$endif}
1047
1096
   {$ifdef unix}ffmpegfilename:=ffmpeg;{$endif}
1048
1097
 
1182
1231
     fpchmod(presetspath + batfile,&777);
1183
1232
     {$endif}
1184
1233
 
1185
 
     {$ifdef win32}qterm := '"' + terminal + '"';{$endif}
 
1234
     {$ifdef win32}
 
1235
     qterm := '"' + terminal + '"';
 
1236
     {$endif}
 
1237
 
1186
1238
     {$ifdef unix}qterm := terminal;{$endif}
1187
1239
                                                        // do it
1188
 
     {$ifdef win32}winexec(pchar( qterm + ' ' + termoptions + ' "' + presetspath + batfile + '"'), SW_SHOWNORMAL);{$endif}
1189
 
     {$ifdef unix}shell(qterm + ' ' +  termoptions + ' ' + presetspath + batfile + ' &'); {$endif}
 
1240
     {$ifdef win32}scriptprocess.commandline:= qterm + ' ' + termoptions + ' "' + presetspath + batfile + '"';{$endif}
 
1241
     {$ifdef unix}scriptprocess.commandline:= qterm + ' ' +  termoptions + ' ' + presetspath + batfile + ' &'; {$endif}
 
1242
 
 
1243
     scriptprocess.execute;
1190
1244
    end
1191
1245
   else
1192
1246
    begin