diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-02-22 11:37:25 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-02-22 11:37:25 +0000 |
commit | aefc00c620ffaa5485f182aff7fc6bb75a1a1ec8 (patch) | |
tree | 75c56085a1f8b157cdd1b05bcc548f0735496aeb | |
parent | 88e60d1c664c1f73c1e3855e711c5e5ba0becfa2 (diff) | |
download | fpGUI-aefc00c620ffaa5485f182aff7fc6bb75a1a1ec8.tar.xz |
vlc: fix compiler error with FPC 3.0
-rw-r--r-- | examples/gui/video_vlc/frmvlcplayer.pas | 2 | ||||
-rw-r--r-- | src/3rdparty/libvlc/vlc.pas | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/examples/gui/video_vlc/frmvlcplayer.pas b/examples/gui/video_vlc/frmvlcplayer.pas index 48429e5b..456ac202 100644 --- a/examples/gui/video_vlc/frmvlcplayer.pas +++ b/examples/gui/video_vlc/frmvlcplayer.pas @@ -336,6 +336,8 @@ procedure TVLCPlayerDemoForm.UpdateTimeLapse(const Msg: String); begin FMsg := Msg; TThread.Synchronize(nil, @self.DoGUIUpdateTimeLapse); +// This could also be used in FPC 3.0+ +// TThread.Queue(nil, @DoGUIUpdateTimeLapse); end; procedure TVLCPlayerDemoForm.DoPlay(sender: TObject); diff --git a/src/3rdparty/libvlc/vlc.pas b/src/3rdparty/libvlc/vlc.pas index 0f82b9c0..4b1ca563 100644 --- a/src/3rdparty/libvlc/vlc.pas +++ b/src/3rdparty/libvlc/vlc.pas @@ -322,8 +322,8 @@ Type Property VideoPosition ; Property VideoFractionalPosition ; Property VideoFramesPerSecond; - Property VideoScale : Double; - Property AspectRatio : String; + Property VideoScale; + Property AspectRatio; Published Property AudioDelay ; Property AudioVolume ; @@ -391,7 +391,7 @@ Type TVLCMediaListPlayer = Class(TCustomVLCMediaListPlayer) Public - Property VLC : TVLCLibrary; + Property VLC; Published Property Player; Property PlayMode; |