FireMonkeyのMediaPlayerで動画をウィンドウサイズに合わせて表示する

Delphi XE5のサンプルにあるMediaPlayerHDで動画ファイルを開くと、ウィンドウサイズに合わせて縮小はされるが、拡大されない。
(サンプルのMediaPlayerHDは「C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMonkey\MediaPlayerHD」にある)

001
ウィンドウが動画より小さいとき、動画はウィンドウサイズに合わせて縮小される。

002
ウィンドウが動画より大きいとき、動画はウィンドウサイズに合わせて拡大されない。

delphi – TMediaPlayerControl Video Size – Stack Overflow」によると、動画を拡大する機能は標準では用意されておらず、ソースコードを修正する必要があるらしい。

このページを参考にしてソースコードを修正したところ、ウィンドウサイズに合わせて拡大して表示されるようになった。

003
ウィンドウサイズに合わせて動画が拡大されるようになった。

実行環境はDelphi XE5+Windows 8.1です。

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください