медиа плеер

[user666]

советы по совершенствованию программы, замечания, и прочее,прчоее,прочее

п.с. с добавлением нескольких файлов одновременно пока не справился

[ex.cluz]

Как и обещал привожу код для "склейки" окон друг с другом.

Итак, создаем новую форму и обзываем его Form_PlayList. Она у нас будет плэйлистом.
Теперь пишем в секции private в Main.pas (я подразумеваю, что главная форма так называется):

  private
    procedure WMWindowPosChanging1(var Msg: TWMWindowPosChanging);
    message WM_WINDOWPOSCHANGING;

Затем копируем следующий код в исполняемую секцию:

procedure TForm_Main.WMWindowPosChanging1(var Msg: TWMWindowPosChanging);  //для "прилипания" к краям экрана/к нужной форме
var 
  WorkArea: TRect;
  StickAt : Word;
begin
  StickAt := 20;  //на каком расстоянии главная форма будет "прилипать" к краю экрана
  SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
  with WorkArea, Msg.WindowPos^ do
    begin  // Сдвигаем границы для сравнения с левой и верхней сторонами
      if (Form_Main.Visible=true) and (Glued1.Checked=true) then
        begin
          Form_PlayList.Top:=Form_Main.Top+Form_Main.Height-2;  //задаем координаты "прилипшего окна"
          Form_PlayList.Left:=Form_Main.Left;
        end;
      Right:=Right-cx;
      Bottom:=Bottom-cy;
      if abs(Left-x)<=StickAt then x:=Left;
      if abs(Right-x)<=StickAt then x:=Right;
      if abs(Top-y)<=StickAt then y:=Top;
      if abs(Bottom-y)<=StickAt then y:=Bottom;
    end;
  inherited;
end;

Form_PlayList - это та форма, на которой находиться плэйлист и которая должна прилипать к главной (Form_Main)
Glued1 - пункт меню, на котором если поставить галочку, то формы будут "прилипать"

Будут вопросы - обращайтесь.

[DIgorevich]

Загружать несколько файлов в Listbox при свойствах диалога ofAllowMultiSelect можно так:

  var
    i:integer;
begin
  if opendialog1.Execute then
    begin
      for i := 0 to opendialog1.Files.Count-1 do
        listbox1.Items.Add(opendialog1.Files[i]);
    end;
end;

[Dr.Badnezz]

Без скинов довольно убого.

[user666]

Сообщение от DIgorevich

Загружать несколько файлов в Listbox при свойствах диалога ofAllowMultiSelect можно так:

  var
    i:integer;
begin
  if opendialog1.Execute then
    begin
      for i := 0 to opendialog1.Files.Count-1 do
        listbox1.Items.Add(opendialog1.Files[i]);
    end;
end;

спасибо

[user666]

Сообщение от ex.cluz

Будут вопросы - обращайтесь.

спасибо большое за помощь...но этот кусок слишком для меня сложно наверное...в нем мало что понятно... и измений в программе нужно делать довольно много,хоть и примитивных... склейка наверное для меня лишние понты)

[user666]

кто-нить может рассказать как засунуть кодеки в свой плеер?