Свойство Tpanel!, Свойство TPanel! Опции

[Гость]

У меня такая проблема - Когда я воспроизвожу видео на TPanel то у меня при изменение размеров экрана обрезается видео!А мне нужно чтобы оно сжималось под измененный экран!

[Klose]

Ошибочка, на OnResize панели. Все работает проверил.

Первый вариант тоже робит. Воть:

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel2: TPanel;
    MediaPlayer1: TMediaPlayer;
    procedure FormCreate(Sender: TObject);
    procedure Panel2Resize(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.DisplayRect:=Rect(0,0, Panel2.Width, Panel2.Height);
MediaPlayer1.Display:=Panel2;
MediaPlayer1.FileName:='SidNansy.wmv';
MediaPlayer1.Open;

MediaPlayer1.Play;
end;

procedure TForm1.Panel2Resize(Sender: TObject);
begin
//MediaPlayer1.DisplayRect:=Rect(0,0, Panel2.Width, Panel2.Height);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
MediaPlayer1.DisplayRect:=Rect(0,0, Panel2.Width, Panel2.Height);
end;

end.

Сообщение отредактировано: Klose - 29.07.2006 3:18