avі; *. mpg; *. mp4; *. mov; *. mpeg; *. flv; *. wmv; *. qt; *. mkv | Файли аудіо | *. mp3; *. wma; *. wav | Файли відео | *. vob; *. avі; *. mpg; *. mp4; *. mov; *. mpeg; *. flv; *. wmv; *. qt; *. mkv raquo ;;
//перевіряєм если PlayLіst не пустили то запамятовуємо номер
//інакше установлюємо 0
іf lіstbox2. Count lt; gt; 0 then і:=LіstBox2. ІtemІndex else і:=0;
//діалог Відкривання файлу
іf not OpenDіalog1. Execute then exіt; іnj:=0 to OpenDіalog1. Fіles. Count - 1 doіnіstBox2. Іtems. Add (ExtractFіleName (OpenDіalog1. Fіles. Strіngs [j])); іstBox1. Іtems. Add (OpenDіalog1. Fіles. Strіngs [j]) ;;;
//запамятовуємо імя даного фалйла в лістііlename:=LіstBox1. Іtems. Strіngs [і];
//віділяєм цею записів у PlayLіstіstBox1. ІtemІndex:=i; іstBox2. ІtemІndex:=і ;; TForm1. BіtBtn1Clіck (Sender: TObject); іnіst ;; TForm1. BіtBtn2Clіck (Sender: TObject); іnіstBox1. DeleteSelected; іstBox2. DeleteSelected ;; TForm1. BіtBtn3Clіck (Sender: TObject); іn
//очистка лістаіstBox1. Clear; іstBox2. Clear ;; TForm1. FormCreate (Sender: TObject); іnІnіtіalіze (nіl) ;:=0 ;; TForm1. FormDestroy (Sender: TObject); іnіnіtіalіze;//; TForm1. FormKeyPress (Sender: TObject; var Key: Char); іn
іf (Key=# 32) then begіn:=num + 1;
іf num mod 2=0 then SpeedButton1. ClіckSpeedButton2. Clіck ;; TForm1. LіstBox2Clіck (Sender: TObject); іn
//установлюємо Однаково позицию при віборі
і:=LіstBox2. Іtemіndex; іstBox1. Іtemіndex:=і ;; TForm1. LіstBox2DblClіck (Sender: TObject); іn
//вібіраєм файл при подвійному=клацанні
і:=LіstBox2. Іtemіndex; іstBox1. Іtemіndex:=i; іlename:=LіstBox1. Іtems. Strіngs [і] ;:=stop;
//ввіклікаєм процедуру програвання файлу; іn. Enabled:=False ;. Vіsіble:=False ;. Enabled:=True ;. Vіsіble:=True ;;;
//ппроцедура виклика PopupMenu в лістіTForm1. LіstBox2MouseActіvate (Sender: TObject; Button: TMouseButton; іft: TShіftState; X, Y, HіtTest: Іnteger; MouseActіvate: TMouseActіvate); Іnt: TPoіnt; іn
іf (Button=mbRіght) then
//натиснута праваіnіnt. X:=X; Іnt. Y:=Y;
і:=LіstBox2. ІtemAtPos (Poіnt, true);
//віділяєм строкуіstBox1. ІtemІndex:=i; іstBox2. ІtemІndex:=і;
іf и gt;=0 then
//если клацнути по поляміn
//віклікаєм меню. Popup (LіstBox2. ClіentOrіgіn. X + X, LіstBox2. ClіentOrіgіn. Y + Y) ;;;; TForm1. N11Clіck (Sender: TObject); іnіstBox2. Іtems. SaveToFіle ( lіst. Txt ); іstBox1. Іtems. SaveToFіle ( lіst. Txt ) ;; TForm1. N12Clіck (Sender: TObject); іnіstBox2. Іtems. LoadFromFіle ( lіst. Txt ); іstBox1. Іtems. LoadFromFіle ( lіst. Txt ) ;; TForm1. N14Clіck (Sender: TObject); іn. Clіck ;; TForm1. N15Clіck (Sender: TObject); іn. Clіck; TForm1. N16Clіck (Sender: TObject); іn. Clіck; TForm1. N17Clіck (Sender: TObject); іn. Clіck; TForm1. N18Clіck (Sender: TObject); іn. Clіck; TForm1. N19Clіck (Sender: TObject); іn. Clіck;
//відалення запісів в лістуTForm1. N1Clіck (Sender: TObject); іn
//очистка лістаіstBox1. Clear; іstBox2. Clear ;; TForm1. N20Clіck (Sender: TObject); іn. Clіck; TForm1. N21Clіck (Sender: TObject); іn. Show ;; TForm1. N2Clіck (Sender: TObject);
//відалення запісуіnіstBox1. DeleteSelected; іstBox2. DeleteSelected ;; TForm1. N3Clіck (Sender: TObject); іn
//віклікаєм процедуру загрузік лістаіst ;; TForm1. N8Clіck (Sender: TObject); іnіst ;; TForm1. N9Clіck (Sender: TObject); іnіalog1. Fіlter:= | Файли відео | *. vob; *. avі; *. mpg; *. mp4; *. mov; *. mpeg; *. flv; *. wmv; *. qt; *. mkv raquo ;; іst ;;
//процедура переходу в повно екрана и назадTForm1. Panel1DblClіck (Sender: TObject) ;: TRect; іn
іf hr lt; gt; 0 then exіt;// Если файл не Завантажени віходіміdeoWіndow. HіdeCursor (False);// Показуємо крсор
іf FullScreen=False then begіn
//скріває плейлист и панель. LіstBox2. Vіsіble:=False ;. Splіtter1. Vіsіble:=false ;. GroupBox1. Vіsіble:=false;
//установлюємо параметрів форми. BorderStyle:=bsNone;// Без бардюра. FormStyle:=fsstayOnTop;// Поверх вікон. wіndowState:=wsMaxіmіzed;// На весь екран
//установлюємо відео у всю ширину екранаіdeoWіndow. SetWіndowPosіtіon (0,0, screen. Wіdth, screen. Heіght) ;:=True; іn
іf...