From d856075f5f21a76266d47675a76aa4b762fd51aa Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Tue, 30 Apr 2013 00:19:34 +0100
Subject: 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.
---
 examples/gui/video_vlc/testfpguivlc.lpr | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 examples/gui/video_vlc/testfpguivlc.lpr

(limited to 'examples/gui/video_vlc/testfpguivlc.lpr')

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.
+
-- 
cgit v1.2.3-70-g09d2