// Файл WINDOWS.H содержит определения, макросы, и структуры
// которые используются при написании приложений под Windows.
//#define UNICODE
//#define _UNICODE
#include<iostream>

#include <stdio.h>
#include <windows.h>
//#include <mem.h>
#include "sys.h"
#include "time.h"

//#include <wchar_t.h>
FILE * out= 0;

// прототип оконной процедуры
LRESULT CALLBACK WindowProc(HWND, UINT, WPARAM, LPARAM);
const uchar *vkName (uint id);

wchar_t szClassWindow[] = L"Каркасное приложение";  /* Имя класса окна */

INT WINAPI WinMain(HINSTANCE hInst, HINSTANCE hPrevInst, LPSTR lpszCmdLine, int nCmdShow)
{
   HWND hWnd;
   MSG lpMsg;
   WNDCLASSEX wcl;

 //  setlocale(LC_ALL,"RUS");

   out = fopen ("./.fa.txt", "w+");
  //mbstowcs   (wchar_t * wcstr, const char    * str, size_t strSz);  // строку в широкие
  //  wcstombs (char    * out,   const wchar_t * str, size_t strSz)
  // sprintf(ss, "%s", "каркасное приложение");
  if (out) {
    time_t sta=time(0);
    char  buf[40];  strcpy (buf, asctime(localtime(&sta)));
    char* pyear = strstr(buf, " 201");
    *(pyear+5)=0;
    char ss [sizeof(szClassWindow)+1];
    //wcstombs(ss, szClassWindow, wcslen(szClassWindow));
    WideCharToMultiByte(CP_ACP,0,szClassWindow, -1, ss, wcslen(szClassWindow), 0,0);
    ss [wcslen(szClassWindow)]=0;

    fprintf(out, "%s -- application '%s' started\n", buf,  ss);
    // 1. Определение класса окна
    wcl.cbSize = sizeof(wcl);  // размер структуры WNDCLASSEX
    // Перерисовать всё окно, если изменён размер по горизонтали или по вертикали
    wcl.style = CS_HREDRAW | CS_VREDRAW;  // CS (Class Style) - стиль класса окна
    wcl.lpfnWndProc = WindowProc;  // адрес оконной процедуры
    wcl.cbClsExtra = 0;    // используется Windows
    wcl.cbWndExtra  = 0;   // используется Windows
    wcl.hInstance = hInst;  // дескриптор данного приложения
    wcl.hIcon = LoadIcon(NULL, IDI_APPLICATION);  // загрузка стандартной иконки
    wcl.hCursor = LoadCursor(NULL, IDC_ARROW);  // загрузка стандартного курсора
    //wcl.hbrBackground = (HBRUSH) GetStockObject(WHITE_BRUSH);  // заполнение окна белым цветом
    wcl.hbrBackground = (HBRUSH) GetStockObject(GRAY_BRUSH);  // заполнение окна белым цветом
    wcl.lpszMenuName = NULL;  // приложение не содержит меню
#ifdef UNICODE
    wcl.lpszClassName = szClassWindow;  // имя класса окна
#else
    wcl.lpszClassName = ss;//szClassWindow;  // имя класса окна
#endif
    wcl.hIconSm = NULL;  // отсутствие маленькой иконки для связи с классом окна

    // 2. Регистрация класса окна
    if (!RegisterClassEx(&wcl))
      return 0; // при неудачной регистрации - выход

    // 3. Создание окна
    // создается окно и  переменной hWnd присваивается дескриптор окна
    hWnd = CreateWindowEx(
      0,    // расширенный стиль окна
#ifdef UNICODE
      szClassWindow,  //имя класса окна
      szClassWindow, // заголовок окна
#else
      ss,//szClassWindow,  //имя класса окна
      ss,//szClassWindow, // заголовок окна
#endif

      WS_OVERLAPPEDWINDOW,        // стиль окна
      /* Заголовок, рамка, позволяющая менять размеры, системное меню, кнопки развёртывания и свёртывания окна  */
      CW_USEDEFAULT,  // х-координата левого верхнего угла окна
      CW_USEDEFAULT,  // y-координата левого верхнего угла окна
      CW_USEDEFAULT,  // ширина окна
      CW_USEDEFAULT,  // высота окна
      NULL,      // дескриптор родительского окна
      NULL,      // дескриптор меню окна
      hInst,    // идентификатор приложения, создавшего окно
      NULL);    // указатель на область данных приложения

    // 4. Отображение окна
    ShowWindow(hWnd, nCmdShow);
    UpdateWindow(hWnd); // перерисовка окна

    // 5. Запуск цикла обработки сообщений

    while(GetMessage(&lpMsg, NULL, 0, 0)) // получение очередного сообщения из очереди сообщений
    {
      TranslateMessage(&lpMsg);  // трансляция сообщения
      DispatchMessage(&lpMsg);  // диспетчеризация сообщений
    }
    fprintf(out, "application stoped (%d secs of work)\n", time(0)-sta);
    fclose(out);
    return lpMsg.wParam;
  }
  return 0;
}

LRESULT CALLBACK WindowProc(HWND hWnd, UINT uMessage, WPARAM wParam, LPARAM lParam)
{
  int result;
  RECT rc;
  PAINTSTRUCT       ps;            // требуется для BeginPaint
  HDC               hdc; //создаём идентификатор контекста устройства
  static TEXTMETRIC tm;             // структура с параметрами текста
  TWM_CHAR          map;

  int doSome =0;

  static ushort x = 10, y = 10;
  int  xp = 10, yp = 10;
  uchar  buf[20];  memset(buf, 20, 0);
  uchar  buf_[20]; memset(buf_, 20, 0); // для вывода бит

#ifdef UNICODE
  wchar_t  wbuf2[20]; memset(wbuf2, sizeof(wbuf2), 0);// буфер для вывода текста
#else
  uchar  buf2[20]; memset(buf2, 20, 0);// буфер для вывода текста
#endif

  static uchar  but = 0;
#ifdef UNICODE
  static wchar_t  but2 = 0;
#else
#endif
  static uint   butW = 0;

  short move = 1;
  short move2 = 0;

  ushort h = HIWORD(lParam);
  ushort l = LOWORD(lParam);
  ushort hw = HIWORD(wParam);
  ushort lw = LOWORD(wParam);
  ushort *psh = (ushort*) &map;
  const uchar *nm = 0;
  ushort  keyStt = 0;
  ushort  bit = 0;

  switch(uMessage)       //http://msdn.microsoft.com/en-us/library/ms646287%28v=VS.85%29.aspx
  {

  case WM_CREATE:
    // Получаем параметры текущего шрифта.
    hdc = GetDC(hWnd);
    GetTextMetrics(hdc, &tm);

    ReleaseDC(hWnd, hdc);
    break;

  case WM_PAINT:
    fprintf(out, "--- PAINT is here.\n");
    hdc = BeginPaint(hWnd, &ps);
    // Устанавливаем границы прямоугольника, а затем
    // рисуем в нём текст.
 //   SetRect(&rc, x, y, butW, tm.tmHeight);
    if (but) {
#ifdef UNICODE
      wsprintf(wbuf2, L"%c", but2);
      TextOut(hdc, x,y, wbuf2, 1); //Выводим текст на экран
#else
      sprintf((char*)buf2, "%c", but);
      TextOut(hdc, x,y, (char*)buf2, 1); //Выводим текст на экран
#endif

//            DrawText(hdc, (LPSTR)buf2 , 1, &rc, DT_LEFT);
    }

    EndPaint(hWnd, &ps);
    break;

  case WM_CHAR: // нажатие клавиши.

#ifdef UNICODE
    but2 = wParam;
   //
   WideCharToMultiByte(CP_ACP,0,&but2, 1, (char*)&but, 1, 0,0);
#else
    but  = wParam;
#endif

   // but         = wParam;
    fprintf(out, "--- button pressed (WM_CHAR): %d/%c The repeat count: %hd 16-31:%hd\n",
                wParam, but, l, h);
    map= getMap(h);
//                                   31  /30/ 29/28-25/24                        16-23
    fprintf(out,
         "--- bits: '%s': b15-31-now/b14-30-before/p13-29-alt/b8-24-add (%hd/%hd/%hd/%hd), scan-code:%hd/'%c'\n"
                                  ,stoa(h, buf)
                                   ,(ushort)map.p
                                     ,(ushort)map.pb
                                       ,(ushort)map.alt
                                           ,(ushort) map.add
                                             ,(ushort)   map.code
                                              , (uchar) map.code);

    if ( getbit((ushort)GetKeyState(VK_CONTROL),15)) {
       fprintf (out,"    ctrl is pressed\n" );
       but=0;
       break;
    }
    if ( getbit((ushort)GetKeyState(VK_MENU),   15))  fprintf(out, "     alt is pressed\n" );
    if ( getbit((ushort)GetKeyState(VK_SHIFT),  15))  fprintf(out, "     shift is pressed\n" );
//    wsprintf(wbuf2, L"new key: %c", but);

#ifdef UNICODE
    wsprintf(wbuf2, L"new key: %c", but2);
    SetWindowText (hWnd, wbuf2);
#else
    sprintf((char*)buf2, "new key: %c", but);
    SetWindowText (hWnd, (char*)buf2);
#endif

    break;

  case  WM_SYSCHAR : // нажатие клавиши.
    fprintf(out, "--button pressed( WM_SYSCHAR): %d/'%c' %hd %hd\n", wParam, wParam, l, h);
    map= getMap(h);
    fprintf(out,
     "--bits: '%s': b15-31-now/b14-30-before/p13-29-alt/b8-24-add (%hd/%hd/%hd/%hd), scan-code:%hd/'%c'\n"
                                  ,stoa(h, buf)
                                   ,(ushort)map.p
                                     ,(ushort)map.pb
                                       ,(ushort)map.alt
                                           ,(ushort) map.add
                                             ,(ushort)   map.code
                                              , (uchar)    map.code);

    if (getbit((ushort)GetKeyState(VK_MENU), 15)) fprintf(out, "  alt is pressed\n" );
    if (getbit((ushort)GetKeyState(VK_SHIFT),15)) fprintf(out, "  shift is pressed\n" );
    break;

  case WM_SYSKEYUP:
    nm= vkName (wParam);

    fprintf(out, "**WM_SYSKEYUP: %d/%x: '%s' \n", wParam, wParam, nm);
    if ( getbit((ushort)GetKeyState(VK_CONTROL), 15) ) fprintf (out, "  ctrl is pressed\n" );

    GetWindowRect(hWnd, &rc);
    fprintf(out, "**WM_SYSKEYUP: '%s' left/top/right/bottom %d/%d/%d/%d \n",  nm
       , rc.left      , rc.top
       , rc.right  , rc.bottom    );

    hdc = GetDC(hWnd);

    move = 0;
    move2 = 0;

    if (wParam == VK_LEFT)        {    move=-10;  doSome=1;  }
    else if (wParam == VK_RIGHT)  {    move=+10;  doSome=1;   }
    else if (wParam == VK_UP)     {    move2=-10;   doSome=1;  }
    else if (wParam == VK_DOWN)   {    move2=+10;   doSome=1;  }
    if (doSome)  {
      MoveWindow(hWnd
      , rc.left+move
      , rc.top+move2
      , rc.right-rc.left +move
      , rc.bottom-rc.top +move2
      , TRUE
      );
    }

    break;

  case WM_KEYUP:
    nm= vkName (wParam);
    fprintf(out, "**WM_KEYUP: %d/%x: '%s' \n", wParam, wParam, nm);

    map= getMap(h);
//                               31  /30/ 29/28-25/24                        16-23
    fprintf(out, "**bits: '%s': b15-31-now/b14-30-before/b8-24-add (%hd/%hd/%hd), scan-code:%hd/'%c'\n"
                                  ,stoa(h, buf)
                                   ,(ushort)map.p
                                     ,(ushort)map.pb
                                           ,(ushort) map.add
                                             ,(ushort)   map.code
                                              , (uchar)    map.code);

    if ( getbit((ushort)GetKeyState(VK_CONTROL), 15) ) {
      fprintf (out, "  ctrl is pressed\n" );
      move = 10;
    }
    else
      move = 1;

    hdc=GetDC(hWnd); //Получаем контекст рисования
    GetCharWidth32(hdc, but2, but2, (LPINT) &butW);

    SetRect(&rc, x, y, (x+butW), (y+tm.tmHeight));
//    SetRect(&rc, x, y, butW, tm.tmHeight);
    InvalidateRect(hWnd, &rc, TRUE);

    if (wParam == VK_LEFT)            x-=move;
    else if (wParam == VK_RIGHT)      x+=move;
    else if (wParam == VK_UP)         y-=move;
    else if (wParam == VK_DOWN)       y+=move;
    SetRect(&rc, x, y, (x+4*butW), (y+tm.tmHeight));
    InvalidateRect(hWnd, &rc, TRUE);

    fprintf (out, "** new x/y: %hd/%hd\n",   x, y);
    ReleaseDC(hWnd, hdc);
    break;

  case WM_LBUTTONUP:
    fprintf(out, "**WM_LBUTTONUP: %d/%x:  \n", wParam, wParam);
    fprintf(out, "**x coor/y coor: %hd/%hd ", l, h);
    fprintf(out, " h bits/ l bits: '%s'/'%s'\n", stoa(hw, buf), stoa(hw, buf_));

    hdc=GetDC(hWnd); //Получаем контекст рисования
    SetRect(&rc, x, y, (x+4*butW), (y+tm.tmHeight));
    InvalidateRect(hWnd, &rc, TRUE);
    x = l;
    y = h;
    SetRect(&rc, x, y, (x+4*butW), (y+tm.tmHeight));
    InvalidateRect(hWnd, &rc, TRUE);

    ReleaseDC(hWnd, hdc);
    break;

  case WM_CLOSE: // сообщение о завершении программы
    fprintf(out, "**WM_CLOSE: \n");
  //  MessageBeep(MB_ICONQUESTION);
#ifdef UNICODE
    if(IDOK==MessageBox(hWnd,L"точно закрываем?",L"заголовок", MB_OKCANCEL))
      DestroyWindow(hWnd);
#else
    if(IDOK==MessageBox(hWnd,"точно закрываем?","заголовок", MB_OKCANCEL))
      DestroyWindow(hWnd);
#endif

    break;
  case WM_DESTROY: // сообщение о завершении программы
      PostQuitMessage(0); // посылка сообщения WM_QUIT
    break;
  default:
      // все сообщения, которые не обрабатываются в данной оконной функции
      // направляются обратно Windows на обработку по умолчанию
    return DefWindowProc(hWnd, uMessage, wParam, lParam);
  }
  return (0);
}