spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

C-/C++-Quelltext

// MyWindows 

#include <windows.h>
#define IDM_FIRSTCHILD 1
// Nachrichtenfunktion

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM);  
LRESULT CALLBACK Proc(HWND, UINT, WPARAM, LPARAM);

TCHAR szname[6] = TEXT("CHILD"); 
HINSTANCE hInst; 
// hauptprogramm

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    PSTR szCmdLine, int iCmdShow)
{
     static TCHAR szAppName[] = TEXT ("MyWindows") ;
     HWND         hwnd;
     MSG          msg ;
     WNDCLASS     wndclass ;

     hInst = hInstance;
     
     wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
     wndclass.lpfnWndProc   = WndProc ;
     wndclass.cbClsExtra    = 0;
     wndclass.cbWndExtra    = 0;
     wndclass.hInstance     = hInstance;
     wndclass.hIcon         = LoadIcon (NULL, IDI_APPLICATION) ;
     wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
     wndclass.hbrBackground = (HBRUSH) GetStockObject (COLOR_APPWORKSPACE + 1);
     wndclass.lpszMenuName  = NULL;
     wndclass.lpszClassName = szAppName;
     
     if (!RegisterClass (&wndclass))
     {    // UNICODE-Compilierung ist die einzige realistische Fehlermöglichkeit 

          MessageBox (NULL, TEXT ("Programm arbeitet mit Unicode und setzt Windows NT voraus!"), 
                      szAppName, MB_ICONERROR) ;
          return 0 ;
     } 

     wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
     wndclass.lpfnWndProc   = Proc ;
     wndclass.cbClsExtra    = 0 ;
     wndclass.cbWndExtra    = sizeof(HANDLE);
     wndclass.hInstance     = hInstance ;
     wndclass.hIcon         = LoadIcon (NULL, IDI_APPLICATION) ;
     wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
     wndclass.hbrBackground = (HBRUSH) GetStockObject (WHITE_BRUSH) ;
     wndclass.lpszMenuName  = NULL;
     wndclass.lpszClassName = szname; 

     RegisterClass(&wndclass);
     
     // Fenster erzeugen

     hwnd = CreateWindow (szAppName, TEXT ("MyWindows"),
                          WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
                          CW_USEDEFAULT, CW_USEDEFAULT,
                          CW_USEDEFAULT, CW_USEDEFAULT,
                          NULL, NULL, hInstance, NULL) ;
     

     ShowWindow (hwnd, iCmdShow) ;
     UpdateWindow (hwnd) ;

     while (GetMessage (&msg, NULL, 0, 0))
     {
          TranslateMessage (&msg) ;
          DispatchMessage (&msg) ;
     }
     return msg.wParam ;
}
// Nachrichtenfunktion

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{    
     // Vaiabeln 

     PAINTSTRUCT ps; 
     HDC hdc; 
     HWND hwndchild = NULL; 
     HWND hwndclient = NULL; 
     CLIENTCREATESTRUCT cl; 
     MDICREATESTRUCT mdi;
     
     switch (message)
     {
     case WM_CREATE: 
         cl.hWindowMenu = NULL; 
         cl.idFirstChild = IDM_FIRSTCHILD; 
         hwndclient = CreateWindow(TEXT("MDICLIENT"), NULL, WS_CHILD | WS_CLIPCHILDREN | WS_VISIBLE, 0, 0, 0, 0, hwnd, (HMENU) 1, hInst, (PSTR) &cl);

         mdi.szClass = szname; 
         mdi.szTitle = TEXT("MDI"); 
         mdi.hOwner = hInst; 
         mdi.cx = CW_USEDEFAULT; 
         mdi.cy = CW_USEDEFAULT; 
         mdi.x = CW_USEDEFAULT; 
         mdi.y = CW_USEDEFAULT; 
         mdi.style = 0; 
         mdi.lParam = 0; 

         hwndchild = (HWND) SendMessage(hwndclient, WM_MDICREATE, 0, (LPARAM) (LPMDICREATESTRUCT) &mdi);
          return 0 ;

     case WM_PAINT:
          hdc = BeginPaint (hwnd, &ps) ; 
          EndPaint (hwnd, &ps) ;
          return 0 ;

     case WM_DESTROY: 
          SendMessage(hwndclient, WM_MDIDESTROY, (WPARAM) hwndchild, 0);
          PostQuitMessage (0) ;
          return 0 ;
     }
     return DefFrameProc (hwnd, hwndclient, message, wParam, lParam) ;
}  

LRESULT CALLBACK Proc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) 
{ 
 // Variablen 

 HDC hdc; 
 PAINTSTRUCT ps;

 switch(message) 
 { 
 case WM_PAINT: 
     hdc = BeginPaint(hwnd, &ps); 
     TextOut(hdc, 100, 200, TEXT("Hallo"), 6);
     EndPaint(hwnd, &ps);
     break;
 }

 return DefMDIChildProc(hwnd, message, wParam, lParam);
}