Backup proyecto Joyfe - Borland

CPP/TEST.CPP

@@ -0,0 +1,128 @@
+// ************************************************************************************************
+//
+//  Direct X TEST.
+//
+// ************************************** (c) Pedro D<>ez L<>pez ************************************
+
+#include "DXVideo.h"  
+
+#define ID_NOMBRE "Test"
+#define ID_TITULO "Test"
+#define ID_TEMP       1
+
+CDXVideo *DXVideo;
+BOOL      Par;
+int       Temporizador;
+BOOL      AppActiva;
+
+//
+// El TEST
+//
+void Test ()
+{
+  if(Par==TRUE)
+  {
+    memset(DXVideo->pBuffer.bpp,064,DXVideo->DimBuffer);
+    Par = FALSE;
+  }
+  else
+  {
+    memset(DXVideo->pBuffer.bpp,128,DXVideo->DimBuffer);
+    Par = TRUE;
+  }
+}
+
+//
+//
+//  W i n d o w P r o c 
+//
+//
+long FAR PASCAL WindowProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
+{
+  switch( message )
+  {
+    case WM_ACTIVATEAPP:
+      AppActiva = (wParam == WA_ACTIVE) || (wParam == WA_CLICKACTIVE);
+	  break;
+	
+    case WM_CREATE:
+      break;
+	
+    case WM_SETCURSOR:
+	  SetCursor(DXVideo->mDDCursorShape);
+	  return TRUE;
+
+    case WM_TIMER:
+      if (AppActiva && ID_TEMP == wParam)
+      {
+        Test();
+        DXVideo->Pinta();
+      }
+      break;
+
+    case WM_KEYDOWN:
+  	  switch( wParam )
+      {
+	    case VK_ESCAPE:
+		  PostMessage(hWnd, WM_CLOSE, 0, 0);
+		  break;
+      }
+	  break;
+
+	case WM_PAINT:
+      break;
+
+	case WM_DESTROY:
+	  DXVideo->Fin();
+      delete DXVideo;
+	  PostQuitMessage(0);
+	  break;
+  }
+  return DefWindowProc(hWnd, message, wParam, lParam);
+}
+
+//
+//
+//  W i n M a i n  
+//
+//
+int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
+{
+  WNDCLASS	wc;
+  HWND		hwnd;
+  MSG       msg;
+
+  wc.style         = CS_HREDRAW | CS_VREDRAW;
+  wc.lpfnWndProc   = WindowProc;
+  wc.cbClsExtra    = 0;
+  wc.cbWndExtra    = 0;
+  wc.hInstance     = hInstance;
+  wc.hIcon         = LoadIcon(hInstance, IDI_APPLICATION);
+  wc.hCursor       = LoadCursor(NULL, IDC_ARROW);
+  wc.hbrBackground = NULL;
+  wc.lpszMenuName  = ID_NOMBRE;
+  wc.lpszClassName = ID_NOMBRE;
+  RegisterClass(&wc);
+   
+  hwnd = CreateWindowEx(WS_EX_TOPMOST,ID_NOMBRE,ID_TITULO,WS_POPUP,0,0,
+                        GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN),
+						NULL, NULL, hInstance, NULL);
+  if (!hwnd) return FALSE;
+  ShowWindow(hwnd, nCmdShow);
+  UpdateWindow(hwnd);
+
+  Temporizador = 100;
+  if(!SetTimer(hwnd,ID_TEMP,Temporizador,NULL)) return FALSE;
+
+  DXVideo = new CDXVideo;
+  DXVideo->Inicio (hwnd,640,480,16);
+  DXVideo->Cursor(NULL);
+	
+  while (GetMessage(&msg, NULL, 0, 0))
+  {
+	TranslateMessage(&msg);
+    DispatchMessage(&msg);
+  }
+
+  return msg.wParam;
+}