IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Свойство Tpanel!, Свойство TPanel!
сообщение
Сообщение #1


Гость






У меня такая проблема - Когда я воспроизвожу видео на TPanel то у меня при изменение размеров экрана обрезается видео!А мне нужно чтобы оно сжималось под измененный экран! mega_chok.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской

Репутация: -  0  +


Не знаю точно, но вроде если так, то должно получиться :

На событие OnResize формы нужно написать:

Код
MediaPlayer1.DisplayRect:=Rect(0,0, Panel1.Width, Panel1.Height);


Тип того. smile.gif

Сообщение отредактировано: Klose -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Klose, а с чего это ты решил, что видео воспроизводится через TMediaPlayer? Телепатия? Или в вопросе было что-то такое, что видишь только ты? Или по-твоему ТОЛЬКО TMediaPlayer способен воспроизводить видео?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской

Репутация: -  0  +


volvo
Ну, если не используют TMediaPlayer - значит не воспользуются.
Всеравно ведь не написано.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Я пользуюсь TMediaPlayer!(я автор). Klose не работает! norespect.gif


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской

Репутация: -  0  +


Ошибочка, на 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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


СПАСИБО! good.gif lol.gif smile.gif give_rose.gif cool.gif


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 22.11.2017 17:47
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"