SimpleGLSL.cpp 820 B

12345678910111213141516171819202122
  1. //---------------------------------------------------------------------------
  2. // Simple GLSL shader demo. The first version provided by k00m
  3. //---------------------------------------------------------------------------
  4. #include <vcl.h>
  5. #pragma hdrstop
  6. USEFORM("SimpleGLSLUnit.cpp", Form1);
  7. //---------------------------------------------------------------------------
  8. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  9. {
  10. try
  11. {
  12. Application->Initialize();
  13. Application->CreateForm(__classid(TForm1), &Form1);
  14. Application->Run();
  15. }
  16. catch (Exception &exception)
  17. {
  18. Application->ShowException(&exception);
  19. }
  20. return 0;
  21. }
  22. //---------------------------------------------------------------------------