Adds VLC video library header translation and Media Player component.

These are optional 3rd party components, because they will add extra
dependencies to your project. For that reason, they are not part of
the fpgui_toolkit package as standard.

1 files changed, 31 insertions, 0 deletions

diff --git a/examples/gui/video_vlc/testfpguivlc.lpr b/examples/gui/video_vlc/testfpguivlc.lpr
new file mode 100644
index 00000000..3846a69c
--- /dev/null
+++ b/examples/gui/video_vlc/testfpguivlc.lpr
@@ -0,0 +1,31 @@
+program testfpguivlc;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  Math,
+  Classes, frmvlcplayer, fpg_vlc, libvlc, vlc, fpg_main;
+
+procedure MainProc;
+var
+  frm: TVLCPlayerDemoForm;
+begin
+  fpgApplication.Initialize;
+  frm := TVLCPlayerDemoForm.Create(nil);
+  frm.Show;
+  fpgApplication.Run;
+  frm.Free;
+end;
+
+
+begin
+  With TThread.Create(False) do
+      Terminate;
+  setexceptionmask([exInvalidOp, exDenormalized, exZeroDivide,
+                     exOverflow, exUnderflow, exPrecision]);
+  MainProc;
+end.
+