FireMonkeyのMediaPlayerで動画をウィンドウサイズに合わせて表示する | 山本隆の開発日誌

Delphi XE5のサンプルにあるMediaPlayerHDで動画ファイルを開くと、ウィンドウサイズに合わせて縮小はされるが、拡大されない。 （サンプルのMediaPlayerHDは「C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMonkey\MediaPlayerHD」にある） ウィンドウが動画より小さいとき、動画はウィンドウサイズに合わせて縮小される。 ウィンドウが動画より大きいとき、動画はウィンドウサイズに合わせて拡大されない。 「delphi – TMediaPlayerControl Video Size – Stack Overflow」によると、動画を拡大する機能は標準では用意されておらず、ソースコードを修正する必要があるらしい。 このページを参考にしてソースコードを修正したところ、ウィンドウサイズに合わせて拡大