DUzun's Web
Programare, proiecte personale, divertisment

unit Unit1;

​

interface

​

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, MPlayer, StdCtrls, ExtCtrls, Menus, ComCtrls, ActnList;

​

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    PopupMenu1: TPopupMenu;

    Open1: TMenuItem;

    Exit1: TMenuItem;

    ActionList1: TActionList;

    aExit: TAction;

    aOpen: TAction;

    aResize: TAction;

    Panel2: TPanel;

    TrackBar1: TTrackBar;

    mp1: TMediaPlayer;

    procedure mp1Click(Sender: TObject; Button: TMPBtnType;

      var DoDefault: Boolean);

    procedure mp1Notify(Sender: TObject);

    procedure Panel1Click(Sender: TObject);

    procedure aExitExecute(Sender: TObject);

    procedure aOpenExecute(Sender: TObject);

    procedure aResizeExecute(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

​

var

  Form1: TForm1;

​

implementation

​

function HMS2S(t: integer): integer; begin Result := (t shr 16)and$ff + ((t shr 8)and$ff)*60 + (t and $ff)*3600; end;

​

{$R *.dfm}

​

procedure TForm1.mp1Click(Sender: TObject; Button: TMPBtnType;

  var DoDefault: Boolean);

begin

       TrackBar1.Max := mp1.Length;

       TrackBar1.Position := mp1.Position;

       Panel1.BoundsRect := mp1.DisplayRect;

end;

​

procedure TForm1.mp1Notify(Sender: TObject);

begin

  with Sender as TMediaPlayer do

  begin

    case Mode of

      mpNotReady: ;//   Not ready

      mpStopped:  ;//   Stopped

      mpPlaying:  ;//   Playing

      mpRecording:;//   Recording

      mpSeeking:  begin;//  Seeking

          TrackBar1.Position := HMS2S(mp1.Position);

      end;

      mpPaused:   ;//   Paused

      mpOpen:     ;//   Open

    end;

    Notify := True;

  end;

end;

​

procedure TForm1.Panel1Click(Sender: TObject);

begin

   with mp1 do begin

     if (Mode = mpOpen) then aOpenExecute(self);

     if Mode = mpPlaying then Pause;

     if (Mode = mpPaused)or(Mode = mpStopped) then Play;

   end;

end;

​

procedure TForm1.aExitExecute(Sender: TObject);

begin

   mp1.Close;

   Close;

end;

​

procedure TForm1.aOpenExecute(Sender: TObject);

var fn: string;

begin

  with mp1 do begin

    if PromptForFileName(fn, 'All|*.*','', 'Open a Media File') then begin

       FileName := fn;

       Open;

       TimeFormat := tfHMS;

       aResizeExecute(mp1);

       TrackBar1.Max := HMS2S(Length);

       TrackBar1.Position := HMS2S(Position);

       Play;

    end;

  end;

end;

​

procedure TForm1.aResizeExecute(Sender: TObject);

var r: TRect;

begin

   r.Top := 0;

   r.Left := 0;

   r.Right := Width;

   r.Bottom := Height - Panel2.Height - 35;

   if Sender is TForm then begin

      Panel1.Height := r.Bottom;

      mp1.DisplayRect := r;

   end else

   if Sender is TMediaPlayer then begin

      Width := mp1.DisplayRect.Right;

      Height := mp1.DisplayRect.Bottom + Panel2.Height + 35;

   end;

end;

​

procedure TForm1.FormCreate(Sender: TObject);

begin

  aResizeExecute(Self);

end;

​

end.

​

​