movie.~pas

关于DEPHI7.0的播放器管理系统源代码

unit Movie;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, ShellApi;

type
  TFormMovie = class(TForm)
    PopupMenu1: TPopupMenu;
    PopAbout: TMenuItem;
    N1: TMenuItem;
    PopExit: TMenuItem;
    PopOldView: TMenuItem;
    PopZoomIn: TMenuItem;
    PopZoomOut: TMenuItem;
    PopFullDisplay: TMenuItem;
    N6: TMenuItem;
    Panel1: TPanel;
    procedure PopExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PopOldViewClick(Sender: TObject);
    procedure PopZoomInClick(Sender: TObject);
    procedure PopZoomOutClick(Sender: TObject);
    procedure PopFullDisplayClick(Sender: TObject);
    procedure PopAboutClick(Sender: TObject);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    MovieWidth, MovieHeight, tmpWidth, tmpHeight : Integer; //窗口缩放
    Old_x, Old_y : Integer;  //用于控制移动窗口
  end;

var
  FormMovie: TFormMovie;

implementation
uses FileList, about;
{$R *.dfm}

procedure TFormMovie.PopExitClick(Sender: TObject);
begin
  close;
end;

procedure TFormMovie.FormCreate(Sender: TObject);
begin
  //原始尺寸显示
  MovieWidth := Panel1.Width;
  MovieHeight := Panel1.Height;
  tmpWidth :=  MovieWidth;
  tmpHeight := MovieHeight;
end;

procedure TFormMovie.PopOldViewClick(Sender: TObject);
begin
  FormMovie.BorderStyle := bsNone;
  FormMovie.ClientWidth := MovieWidth;
  FormMovie.ClientHeight := MovieHeight;
  FormFileList.MediaPlayer1.Notify := False;
  FormFileList.MediaPlayer1.Display := Panel1;
  FormFileList.MediaPlayer1.DisplayRect := Panel1.ClientRect;
  FormMovie.Visible := True;
  FormMovie.Repaint;
  FormFileList.MediaPlayer1.Notify := True;
end;

procedure TFormMovie.PopZoomInClick(Sender: TObject);
begin
  tmpWidth := 2 * tmpWidth;
  tmpHeight := 2 * tmpHeight;
  FormMovie.BorderStyle := bsNone;
  FormMovie.ClientWidth := tmpWidth;
  FormMovie.ClientHeight := tmpHeight;
  FormFileList.MediaPlayer1.Notify := False;
  FormFileList.MediaPlayer1.Display := Panel1;
  FormFileList.MediaPlayer1.DisplayRect := Panel1.ClientRect;
  FormMovie.Visible := True;
  Panel1.Repaint;
  FormFileList.MediaPlayer1.Notify := True;
end;

procedure TFormMovie.PopZoomOutClick(Sender: TObject);
begin
  tmpWidth :=  tmpWidth div 2;
  tmpHeight :=  tmpHeight div 2;
  FormMovie.BorderStyle := bsNone;
  FormMovie.ClientWidth := tmpWidth;
  FormMovie.ClientHeight := tmpHeight;
  FormFileList.MediaPlayer1.Notify := False;
  FormFileList.MediaPlayer1.Display := Panel1;
  FormFileList.MediaPlayer1.DisplayRect := Panel1.ClientRect;
  FormMovie.Visible := True;
  Panel1.Repaint;
  FormFileList.MediaPlayer1.Notify := True;
end;

procedure TFormMovie.PopFullDisplayClick(Sender: TObject);
begin
  FormMovie.BorderStyle := bsNone;
  FormMovie.WindowState := wsMaximized;
  FormFileList.MediaPlayer1.Notify := False;
  FormFileList.MediaPlayer1.Display := Panel1;
  FormFileList.MediaPlayer1.DisplayRect := Panel1.ClientRect;
  FormMovie.Visible := True;
  Panel1.Repaint;
  FormFileList.MediaPlayer1.Notify := True;
end;

procedure TFormMovie.PopAboutClick(Sender: TObject);
begin
  FormAbout.show;
end;

procedure TFormMovie.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Old_x := x;       //记录鼠标原来的坐标值
  Old_y := y;
end;

procedure TFormMovie.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
If ssleft in shift then begin       //按下鼠标左键拖动窗体
      FormMovie.Left := FormMovie.left +x -Old_x;
      FormMovie.Top := FormMovie.top +y -Old_y;
   end;

end;

end.