Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Вниз

Файл в список воспроизведения   Найти похожие ветки 

 
keni ©   (2006-04-29 17:18) [0]

Вот почти доделал плеер, осталось несколько моментов!
Один из них:
Как сделать, чтобы приперемещении файла/папки в список воспроизведения в этот список этот файл/файлы в папки добавлялись?


 
antonn ©   (2006-04-29 18:23) [1]

а как реализован список вопроизведения?


 
keni ©   (2006-04-29 20:26) [2]

ListBox


 
antonn ©   (2006-04-30 06:29) [3]

listbox.items.add("тыры-пыры");
вопрос совсем не конкретный...

ЗЫ если плейлистом "плотно" еще не занимались, попробуйте это:
http://an-files.narod.ru/TagInfo_iPlayList.rar 144Кб
там ПЛ и демо, но работает компонент только на D7 и закрыты исходники. И нет полосы прокрутки:)


 
vrem   (2006-04-30 07:54) [4]


>  [3] antonn ©   (30.04.06 06:29)

Что за группа? :)


 
Virgo_Style ©   (2006-04-30 14:18) [5]

А мой телепатор на WM_DropFiles указывает


 
antonn ©   (2006-04-30 14:21) [6]

Virgo_Style ©   (30.04.06 14:18) [5]
listbox.items.add("тыры-пыры"); там тоже есть:)


 
keni ©   (2006-05-02 16:36) [7]


> antonn ©   (30.04.06 06:29) [3]

Как сделать,чтоб из проводника в мой ListBox запихнуть файл?
или так:
Как узнать, что над моим ListBox"ом пользователь перестал перемещать файл->узнать резмещение файла и добавить в мой Бокс


 
antonn ©   (2006-05-02 17:36) [8]

Virgo_Style ©   (30.04.06 14:18) [5]
угу, хороший телепатор:)

keni ©   (02.05.06 16:36) [7]
у нужной формы добавь:
protected
    procedure CreateParams(var Params: TCreateParams); override;
private
    procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;

...
implementation
...
procedure TF_PlayList.CreateParams(var Params: TCreateParams);
begin
inherited
CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

procedure TF_PlayList.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char;
       FilesCount,N : Integer;
begin
     inherited;
FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);
      begin
      for N := 0 to FilesCount - 1 do begin
       DragQueryFile(Message.drop, N, aFile, 256);
       //aFile - это полный путь и имя перетаскиваемого объекта.
       //остается лишь узнать, что это, папка или файл
       //и добавить его куда надо, например так:
       //listbox.items.add(aFile);
       end;
      end;
      DragFinish(Message.Drop);
end;


 
keni ©   (2006-05-02 19:20) [9]

спасиб, щас попробую



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.065 c
2-1164797653
addi
2006-11-29 13:54
2006.12.17
HexToInt


2-1164961836
KyRo
2006-12-01 11:30
2006.12.17
Подскажите почему я не могу освободить поток


2-1164547518
Мишок
2006-11-26 16:25
2006.12.17
автозагрузка


15-1164364973
vajo
2006-11-24 13:42
2006.12.17
Где можно взять музыку без слов


4-1154443047
17Landgraf
2006-08-01 18:37
2006.12.17
Как вывести сообщение на ангилском? (FormatMessage)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский