Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #if defined(UNICODE) && !defined(_UNICODE)
- #define _UNICODE
- #elif defined(_UNICODE) && !defined(UNICODE)
- #define UNICODE
- #endif
- //#define _WIN32_WINNT 0x0600
- //#define _WIN32_IE 0x0900
- #define _WIN32_WINNT 0x0501
- #define WINVER 0x0501
- #define _WIN32_IE 0x0600
- #include <tchar.h>
- #include <windows.h>
- #include <commctrl.h>
- #define ID_DEFAULT 42
- #define ID_BUTTON0 0
- #define ID_QUIT 99
- /* Declare Windows procedure */
- LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);
- /* Make the class name into a global variable */
- TCHAR szClassName[ ] = _T("CodeBlocksWindowsApp");
- int WINAPI WinMain (HINSTANCE hThisInstance, HINSTANCE hPrevInstance, LPSTR lpszArgument, int nCmdShow)
- {
- INITCOMMONCONTROLSEX icex;
- icex.dwSize = sizeof(INITCOMMONCONTROLSEX);
- icex.dwICC = ICC_STANDARD_CLASSES;
- InitCommonControlsEx(&icex);
- //MessageBoxW(NULL, lpszArgument, L"Title", MB_OK);
- HWND hwnd; /* This is the handle for our window */
- MSG messages; /* Here messages to the application are saved */
- WNDCLASSEX wincl; /* Data structure for the windowclass */
- static HWND buttons[1] = {NULL};
- HMENU menu, sousMenu;
- /* The Window structure */
- wincl.hInstance = hThisInstance;
- wincl.lpszClassName = szClassName;
- wincl.lpfnWndProc = WindowProcedure; /* This function is called by windows */
- wincl.style = CS_DBLCLKS; /* Catch double-clicks */
- wincl.cbSize = sizeof (WNDCLASSEX);
- /* Use default icon and mouse-pointer */
- wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
- wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
- wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
- wincl.lpszMenuName = NULL; /* No menu */
- wincl.cbClsExtra = 0; /* No extra bytes after the window class */
- wincl.cbWndExtra = 0; /* structure or the window instance */
- /* Use Windows's default colour as the background of the window */
- wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND;
- /* Register the window class, and if it fails quit the program */
- if (!RegisterClassEx (&wincl))
- return 0;
- sousMenu = CreateMenu();
- AppendMenu(sousMenu, MF_STRING, ID_DEFAULT, "New..");
- AppendMenu(sousMenu, MF_SEPARATOR, (UINT)NULL, "");
- AppendMenu(sousMenu, MF_STRING, ID_DEFAULT, "Open..");
- AppendMenu(sousMenu, MF_SEPARATOR, (UINT)NULL, "");
- AppendMenu(sousMenu, MF_STRING, ID_DEFAULT, "Save..");
- AppendMenu(sousMenu, MF_STRING, ID_DEFAULT, "Save As..");
- AppendMenu(sousMenu, MF_SEPARATOR, (UINT)NULL, "");
- AppendMenu(sousMenu, MF_STRING, ID_QUIT, "Quitter");
- menu = CreateMenu();
- AppendMenu(menu, MF_POPUP, (UINT)sousMenu, "File");
- AppendMenu(menu, MF_POPUP, (UINT)sousMenu, "Edit");
- AppendMenu(menu, MF_POPUP, (UINT)sousMenu, "View");
- /* The class is registered, let's create the program*/
- hwnd = CreateWindowEx (
- 0, /* Extended possibilites for variation */
- szClassName, /* Classname */
- _T("Mugen Sprite Editor"), /* Title Text */
- WS_OVERLAPPEDWINDOW, /* default window */
- CW_USEDEFAULT, /* Windows decides the position */
- CW_USEDEFAULT, /* where the window ends up on the screen */
- 800, /* The programs width */
- 600, /* and height in pixels */
- HWND_DESKTOP, /* The window is a child-window to desktop */
- NULL, /* No menu */
- hThisInstance, /* Program Instance handler */
- NULL /* No Window Creation data */
- );
- buttons[0] = CreateWindow("BUTTON", "Mugen", WS_CHILD | WS_VISIBLE, 5, 5, 80, 24, hwnd, ID_BUTTON0, hThisInstance, NULL);
- buttons[1] = CreateWindow("BUTTON", "Animation", WS_CHILD | WS_VISIBLE, 90, 5, 80, 24, hwnd, ID_BUTTON0, hThisInstance, NULL);
- SetMenu(hwnd, menu); // add menu bar
- HWND hEdit=CreateWindow(
- "EDIT",
- "Modifiez le texte SVP",
- WS_VISIBLE|WS_CHILD|WS_BORDER|ES_MULTILINE|ES_AUTOHSCROLL|ES_AUTOVSCROLL,
- 8,32,500,200,hwnd,NULL,hThisInstance,NULL);
- HFONT myFont = CreateFont(16, 0, 0, 0, 0, FALSE, 0, 0, 0, 0, 0, 0, 0, "gohufont");
- SendMessage(hEdit, WM_SETFONT, WPARAM(myFont), TRUE);
- /* Make the window visible on the screen */
- ShowWindow (hwnd, nCmdShow);
- /* Run the message loop. It will run until GetMessage() returns 0 */
- while (GetMessage (&messages, NULL, 0, 0))
- {
- /* Translate virtual-key messages into character messages */
- TranslateMessage(&messages);
- /* Send message to WindowProcedure */
- DispatchMessage(&messages);
- }
- /* The program return-value is 0 - The value that PostQuitMessage() gave */
- return messages.wParam;
- }
- /* This function is called by the Windows function DispatchMessage() */
- LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
- {
- switch (message) /* handle the messages */
- {
- case WM_CREATE:
- break;
- case WM_COMMAND:
- switch(LOWORD(wParam))
- {
- case ID_QUIT:
- PostQuitMessage(0);
- break;
- }
- return 0;
- case WM_DESTROY:
- PostQuitMessage (0); /* send a WM_QUIT to the message queue */
- break;
- case WM_KEYDOWN:
- if (wParam == VK_ESCAPE)
- {
- PostQuitMessage(0);
- }
- default: /* for messages that we don't deal with */
- return DefWindowProc (hwnd, message, wParam, lParam);
- }
- return 0;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement