// Dialog access sample. use trackbar ("msctls_trackbar32")
//
// Windows10 x64 22H2 + MinGW (gcc 6.3.0)
// Last updated: <2024/01/17 02:38:06 +0900>
//
// build:
// windres resource.rc -o resource.o
// gcc -O3 -o 02_dialogtest_tb.o -c 02_dialogtest_tb.c
// gcc 02_dialogtest_tb.o resource.o -lcomctl32 -mwindows -o 02_dialogtest_tb.exe

#include <tchar.h>
#include <wchar.h>
#include <windows.h>
#include <stdio.h>
#include <stdlib.h>

// trackbar を使う時は commctrl.h の include が必要
// comctl32 もリンクする。(-lcomcil32)
#include <commctrl.h>

// リソースファイルを使う時は include する
#include "resource.h"

// メインウインドウ上に設置するボタンのID
#define IDC_BUTTON_OPENDLG 110

// global work グローバル変数
HINSTANCE hInst;

// static WCHAR txt[1024]; // message work
static char txt[1024]; // message work

// global paramater work
static int waitValue = 15;
static int speedValue = 1000;
static int numberValue = 1000;
static int fps_display = 1;

// ========================================
// prototype プロトタイプ宣言
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
INT_PTR CALLBACK DlgProc(HWND, UINT, WPARAM, LPARAM);

// ========================================
// entry point エントリーポイント。Win32 GUIアプリは最初にここが呼ばれる
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
                   LPSTR lpCmdLine, int nCmdShow)
{
  TCHAR szWindowClass[] = TEXT("DIALOGTEST01"); // main window class name メインウインドウクラス名
  TCHAR szTitle[] = TEXT("DialogTest01");       // title bar text タイトルバーに表示するテキスト
  WNDCLASSEX wc;
  MSG msg;

  // set window class properties (struct)
  // ウインドウクラス構造体の設定
  {
    wc.cbSize = sizeof(wc);
    wc.style = CS_HREDRAW | CS_VREDRAW;
    wc.lpfnWndProc = WndProc; // ウインドウプロシージャを指定
    wc.cbClsExtra = 0;
    wc.cbWndExtra = 0;
    wc.hInstance = hInstance;
    wc.hCursor = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
    wc.lpszMenuName = NULL;
    wc.lpszClassName = szWindowClass;
    wc.hIcon = NULL; // 今回はアイコンを指定しない
    wc.hIconSm = NULL;
    // wc.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_APP_ICON));
    // wc.hIconSm = LoadIcon(wc.hInstance, MAKEINTRESOURCE(IDI_SMALL));

    if (RegisterClassEx(&wc) == 0)
      return FALSE;
  }

  // create window ウインドウを作成
  {
    hInst = hInstance;

    HWND hWnd = CreateWindow(
        szWindowClass,
        szTitle, // タイトルバーのテキストを指定
        WS_OVERLAPPEDWINDOW,
        CW_USEDEFAULT, CW_USEDEFAULT, // x, y
        512, 288,                     // width, height
        NULL, NULL, hInstance, NULL);

    if (hWnd == NULL)
      return FALSE;

    // display window ウインドウを表示
    ShowWindow(hWnd, nCmdShow);
    UpdateWindow(hWnd);
  }

  // main message loop メッセージループ
  {
    BOOL bRet;
    while ((bRet = GetMessage(&msg, NULL, 0, 0)) != 0)
    {
      if (bRet == -1)
      {
        break;
      }
      else
      {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
      }
    }
  }

  return (int)msg.wParam;
}

// ========================================
// main window procedure
// メインウインドウプロシージャ。メインウインドウ上で何かが起きるとここが呼ばれる
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
  // static WCHAR txt[1024];

  switch (message)
  {
  case WM_CREATE:
    // create main window. initialize
    // メインウインドウ作成時にここに来る。初期化処理をする

    // create "Open Dialog" button ボタンを1つ設置する
    CreateWindow(
        "BUTTON", "Open Dialog", // クラス名、ボタン上に表示するテキスト
        WS_CHILD | WS_VISIBLE,   // スタイル
        20, 20, 100, 24,         // x, y, width, height
        hWnd,
        (HMENU)IDC_BUTTON_OPENDLG, // ボタンに紐づけるID
        hInst,
        NULL);
    break;

  case WM_COMMAND:
  {
    // application menu process

    int wmId = LOWORD(wParam);
    switch (wmId)
    {
    case IDC_BUTTON_OPENDLG:
    {
      // push "Open Dialog" button
      // "Open Dialog" ボタンが押されるとここに来る

      // Open dialog リソースファイル内で記述されてるダイアログを開く
      int ret;
      ret = DialogBox(hInst, MAKEINTRESOURCE(IDD_DIALOG1), hWnd, DlgProc);

      // モーダルダイアログを開いているので、OK か Cancel が押されるまで処理は返ってこない

      // dialog results ダイアログが返してきた値で処理を分ける
      switch (ret)
      {
      case IDOK:
        // push "OK" button OKボタンが押された
        strcpy(txt, "IDOK");
        // wcscpy_s(txt, TEXT("IDOK"));
        break;

      case IDCANCEL:
        // push "Cancel" button Cancelボタンが押された
        strcpy(txt, "IDCANCEL");
        // wcscpy_s(txt, TEXT("IDCANCEL"));
        break;
      }
      InvalidateRect(hWnd, NULL, TRUE);
    }
    break;

    default:
      return DefWindowProc(hWnd, message, wParam, lParam);
    }
  }
  break;

  case WM_PAINT:
  {
    // draw main window メインウインドウ描画処理

    PAINTSTRUCT ps;
    HDC hdc = BeginPaint(hWnd, &ps);

    // draw message "IDOK" or "IDCANCEL" のメッセージを表示
    // TextOut(hdc, 20, 70, txt, lstrlen(txt));
    TextOut(hdc, 20, 70, txt, strlen(txt));

    // draw paramater value ダイアログ上で設定した値を表示
    {
      char s[256];

      sprintf(s, "wait=%d", waitValue);
      TextOut(hdc, 20, 90, s, strlen(s));

      sprintf(s, "speed=%d", speedValue);
      TextOut(hdc, 20, 110, s, strlen(s));

      sprintf(s, "number=%d", numberValue);
      TextOut(hdc, 20, 130, s, strlen(s));

      sprintf(s, "fps_display=%d", fps_display);
      TextOut(hdc, 20, 150, s, strlen(s));
    }

    EndPaint(hWnd, &ps);
  }
  break;

  case WM_DESTROY:
    // destroy window ウインドウ破棄時の処理
    PostQuitMessage(0);
    break;

  default:
    return DefWindowProc(hWnd, message, wParam, lParam);
  }
  return 0;
}

// set value to config dialog
// 設定ダイアログ上の各値を設定する
void SetvalueToDialog(HWND hDlg, int waitValue, int speedValue, int numberValue, int fps_display)
{
  // set trackbar ("msctls_trackbar32")
  // trackbarの範囲や値を設定
  {
    HWND cHwnd;

    cHwnd = GetDlgItem(hDlg, IDC_WAITVALUE);                    // get hundle
    SendMessage(cHwnd, TBM_SETRANGE, TRUE, MAKELPARAM(5, 200)); // set range
    SendMessage(cHwnd, TBM_SETTICFREQ, 5, 0);                   // set tick
    SendMessage(cHwnd, TBM_SETPOS, TRUE, (LPARAM)waitValue);    // set position

    cHwnd = GetDlgItem(hDlg, IDC_SPEED);
    SendMessage(cHwnd, TBM_SETRANGE, TRUE, MAKELPARAM(100, 4000));
    SendMessage(cHwnd, TBM_SETTICFREQ, 100, 0);
    SendMessage(cHwnd, TBM_SETPOS, TRUE, (LPARAM)speedValue);

    cHwnd = GetDlgItem(hDlg, IDC_NUMBER);
    SendMessage(cHwnd, TBM_SETRANGE, TRUE, MAKELPARAM(10, 4000));
    SendMessage(cHwnd, TBM_SETTICFREQ, 100, 0);
    SendMessage(cHwnd, TBM_SETPOS, TRUE, (LPARAM)numberValue);
  }

  // set checkbox
  // CHECKBOXの状態を初期化する
  // GetDlgItem() でコントロールのハンドルを取得できる
  // SendMessage() でコントロールの状態を変更できる
  // BM_SETCHECK で状態の変更を指示
  {
    HWND cHwnd;
    cHwnd = GetDlgItem(hDlg, IDC_FPSDISPLAY);
    SendMessage(cHwnd, BM_SETCHECK, ((fps_display == 0) ? BST_UNCHECKED : BST_CHECKED), 0);
  }
}

// get value from confgi dialog
// 設定ダイアログ上の各値を取得する
void GetValueFromDialog(HWND hDlg)
{
  // get trackbar value
  // trackbar の値を取得してグローバル変数に記録
  // GetDlgItemText() でEDITTEXTの内容(文字列)を取得
  waitValue = SendMessage(GetDlgItem(hDlg, IDC_WAITVALUE), TBM_GETPOS, 0, 0);
  speedValue = SendMessage(GetDlgItem(hDlg, IDC_SPEED), TBM_GETPOS, 0, 0);
  numberValue = SendMessage(GetDlgItem(hDlg, IDC_NUMBER), TBM_GETPOS, 0, 0);

  // get checkbox status
  // CHECKBOXの状態をグローバル変数に記録
  // IsDlgButtonChecked() で CHECKBOX の状態を取得できる
  fps_display = (IsDlgButtonChecked(hDlg, IDC_FPSDISPLAY) == BST_CHECKED) ? 1 : 0;
}

// ========================================
// dialog procedure
// ダイアログプロシージャ。ダイアログ上でボタン等が押された際に呼ばれる
INT_PTR CALLBACK DlgProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
  switch (message)
  {
  case WM_INITDIALOG:
  {
    // initialize dialog
    // ダイアログ初期化時の処理。GUI部品の状態を設定

    InitCommonControls(); // trackbarを使う時はどこかで一度呼んでおくらしい

    // 設定ダイアログ上の値を設定
    SetvalueToDialog(hDlg, waitValue, speedValue, numberValue, fps_display);
  }
    return TRUE;

  case WM_COMMAND:
    switch (LOWORD(wParam))
    {
    case IDOK:
      // push "OK" button "OK"ボタンが押されたらここに来る
      GetValueFromDialog(hDlg); // 設定ダイアログ上の値を取得してグローバル変数に記録
      EndDialog(hDlg, IDOK);    // ダイアログを終了
      return TRUE;

    case IDCANCEL:
      // push "Cancel" button
      EndDialog(hDlg, IDCANCEL); // ダイアログを終了
      return TRUE;

    case IDC_RESET:
    {
      // push "Reset" button "Reset"ボタンが押された

      // change status text
      // ダイアログ上のLABELのテキストを変更
      SetWindowText(GetDlgItem(hDlg, IDC_STATUS1), TEXT("Reset"));

      // ダイアログ上の値をデフォルト値に変更
      SetvalueToDialog(hDlg, 15, 1000, 1000, 1);
    }
      return TRUE;
    }
    break;
  }
  return FALSE;
}