summaryrefslogtreecommitdiff
path: root/bindings/bcppmake/clxtest.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'bindings/bcppmake/clxtest.cpp')
-rw-r--r--bindings/bcppmake/clxtest.cpp24
1 files changed, 24 insertions, 0 deletions
diff --git a/bindings/bcppmake/clxtest.cpp b/bindings/bcppmake/clxtest.cpp
new file mode 100644
index 0000000..9c481eb
--- /dev/null
+++ b/bindings/bcppmake/clxtest.cpp
@@ -0,0 +1,24 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+USERES("clxtest.res");
+USEFORM("MainCLXTest.cpp", Form2);
+USEUNIT("..\clx\Sword.pas");
+USELIB("sword.lib");
+//---------------------------------------------------------------------------
+WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
+{
+ try
+ {
+ Application->Initialize();
+ Application->CreateForm(__classid(TForm2), &Form2);
+ Application->Run();
+ }
+ catch (Exception &exception)
+ {
+ Application->ShowException(&exception);
+ }
+ return 0;
+}
+//---------------------------------------------------------------------------