Помогите С плеером на DELPHI

[ZveruGA]

Пожалуста Помогите создать Плеер

Т.е Функционально я знаю как его создать А вот с оформление не дРУжУ(

Помогите дайте Плиз Варианты ОФОрмлени)

[TolkienDRR]

покажи что у тебя получилось.

с чем ты не дружишь? что не понятно =)

лучше объяснить, толку будет больше =)

как из задачки: как накормить человека?

дать ему рыбу и он будет сыт до вечера.

или дать ему удочку, он будет сыт всю жизнь ))

[ZveruGA]

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
mediaplayer1.DisplayRect:=rect (0,0,trackbar1.position,trackbar2.position );
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
mediaplayer1.DisplayRect:=rect ( 0,0, trackbar1.position, trackbar2.position);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then begin
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    end
    else
    showmessage('Выбирите файл');

end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
trackbar3.Max:=mediaplayer1.length;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
trackbar3.position:=mediaplayer1.position;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
trackbar1.position:=trackbar1.Max;
trackbar2.position:=trackbar2.max;
end;

procedure TForm1.TrackBar3Change(Sender: TObject);
begin
//if  mediaplayer1.FileName<>'' then
mediaplayer1.Pause;
mediaplayer1.Position:=trackbar3.Position;
mediaplayer1.Play;
end;

end.

end.

Вот Плеер Прошу помочь с оформлением

[TolkienDRR]

архив проекта залей на фтп или на сибнет и сцыль тут оставь.

код читать лень =)

[ZveruGA]

TolkienDRR

Посмотри так Пожалуйста Комп тупит (

[TolkienDRR]

ZveruGA, какие объекты на форме? и в чем загвоздка с оформлением?

так в никуда: создай 2 панели, на одной панели устанавливаешь align - albottom, туда ставишь трякбары (видимо у тебя прокрутка и звук), на второй панели align - alclient, на нее кидаешь свой плеер (mediaplayer) у него выставляешь значение align - alclient.

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

что еще то там оформлять хочешь?

[coder]

что еще то там оформлять хочешь?

winamp ?

[TolkienDRR]

coder, не понял вопроса.