#include "pch.h"
#include "CTouchWindowBase.h"

#ifndef TOUCH_COORD_TO_PIXEL
// TOUCH 输入单位是 1/100 英寸，通常使用这个宏转换为像素
#define TOUCH_COORD_TO_PIXEL(l) ((l) / 100)
#endif

CTouchWindowBase::CTouchWindowBase()
{
}

CTouchWindowBase::~CTouchWindowBase()
{
	StopInertia();
}

std::int64_t CTouchWindowBase::NowMs() const
{
	using namespace std::chrono;
	return duration_cast<milliseconds>(steady_clock::now().time_since_epoch()).count();
}

void CTouchWindowBase::AddTouchSample(LONG y)
{
	std::int64_t t = NowMs();
	m_samples.push_back({ t, y });

	// 保留时间窗口或最大条目数
	while (!m_samples.empty() && (t - m_samples.front().tms) > SAMPLE_WINDOW_MS)
		m_samples.pop_front();

	while ((int)m_samples.size() > MAX_SAMPLE_COUNT)
		m_samples.pop_front();
}

void CTouchWindowBase::SynthesizeTap(HWND target, POINT pt)
{
	if (!target || !::IsWindow(target))
		return;
	LPARAM lParamPos = MAKELPARAM(pt.x, pt.y);
	// 模拟一次完整的“轻触点击”。注意：这两条消息由 PostMessage 发出，ExtraInfo=0，
	// 不带 MOUSEEVENTF_FROMTOUCH，因此会被 DuiLib 当作真实鼠标点击正常处理。
	::PostMessage(target, WM_LBUTTONDOWN, MK_LBUTTON, lParamPos);
	::PostMessage(target, WM_LBUTTONUP, 0, lParamPos);
}

void CTouchWindowBase::ScheduleHoverClear()
{
	// 见下方 WM_TIMER（HOVER_CLEAR_TIMER_ID）说明。ExtraInfo=0 的鼠标消息不会被
	// MessageHandler 入口的 FROMTOUCH 过滤器吞掉，能正常进入 DuiLib 的悬停清理逻辑。
	::SetTimer(m_hWnd, HOVER_CLEAR_TIMER_ID, HOVER_CLEAR_DELAY_MS, NULL);
}

void CTouchWindowBase::StartInertia(float velocityPxPerMs)
{
	if (m_inertiaActive)
		StopInertia();

	m_inertiaVelocityPxPerMs = velocityPxPerMs;
	if (std::abs(m_inertiaVelocityPxPerMs) < MIN_INERTIA_VELOCITY)
	{
		// 速度太小，不启动惯性
		m_inertiaActive = false;
		return;
	}

	m_lastInertiaTms = NowMs();
	m_inertiaTimerId = ::SetTimer(m_hWnd, INERTIA_TIMER_ID, INERTIA_TIMER_INTERVAL_MS, NULL);
	m_inertiaActive = (m_inertiaTimerId != 0);
}

void CTouchWindowBase::StopInertia()
{
	if (m_inertiaActive && m_inertiaTimerId)
	{
		::KillTimer(m_hWnd, m_inertiaTimerId);
		m_inertiaTimerId = 0;
	}
	m_inertiaActive = false;
	m_inertiaVelocityPxPerMs = 0.0f;
}

LRESULT CTouchWindowBase::HandleMessage(UINT uMsg, WPARAM wParam, LPARAM lParam)
{
	// [触屏注册·作用域] 只有“主窗口”注册 WM_TOUCH——在 CMainWnd::OnCreate 里
	// ::RegisterTouchWindow(m_hWnd, 0) 完成。本基类【不再】为派生弹框统一注册，原因：
	//   弹框一旦注册，就会改走下面的 WM_TOUCH 自合成点击逻辑；而自合成点击（PostMessage
	//   模拟 down+up）在模态弹框里实测会丢失——触屏点按钮/输入框毫无反应，鼠标点击却正常。
	//   该问题只在弹框出现，主窗口自合成一切正常，根因属于“弹框消息路由/捕获/坐标”的运行时
	//   细节，需真机调试才能定位，详见 2026-09-17 工作记录。
	//   未注册的弹框走 Windows 默认“触摸→鼠标”模拟，产生的是【不带 FROMTOUCH 标记】的鼠标消息；
	//   而 CPaintManagerUI::MessageHandler 入口的过滤器只吞掉带 FROMTOUCH 的模拟消息，因此这些消息
	//   能正常进入 DuiLib，由标准鼠标流程完成点击与（滚轮式）滚动。
	//   ⇒ 弹框保持“不注册”即恢复触屏点击；主窗口的惯性滚动 / 防误触逻辑完全不受影响。

	switch (uMsg)
	{
		case WM_CREATE:
			// 历史遗留：注册逻辑已上移到主窗口 OnCreate，弹框不复用，此处留空。
			break;

		case WM_TOUCH:
		{
			UINT cInputs = LOWORD(wParam);
			std::vector<TOUCHINPUT> inputs(cInputs);
			if (GetTouchInputInfo((HTOUCHINPUT)lParam, cInputs, inputs.data(), sizeof(TOUCHINPUT)))
			{
				for (UINT i = 0; i < cInputs; ++i)
				{
					TOUCHINPUT& ti = inputs[i];
					POINT pt;
					pt.x = TOUCH_COORD_TO_PIXEL(ti.x);
					pt.y = TOUCH_COORD_TO_PIXEL(ti.y);

					// 把屏幕坐标转换为目标 paint 窗口客户区坐标
					HWND target = m_hWndPaint ? m_hWndPaint : m_hWnd;
					ScreenToClient(target, &pt);

					// 触摸按下
					if (ti.dwFlags & TOUCHEVENTF_DOWN)
					{
						// 停止可能正在进行的惯性
						StopInertia();

						m_touchDown = true;
						m_lastX = pt.x;
						m_lastY = pt.y;
						m_accumWheel = 0;
						m_samples.clear();
						AddTouchSample(pt.y);

						// 轻触/滑动判定初始化
						m_touchStartPt = pt;
						m_touchStartTime = NowMs();
						m_bTouchMoved = false;
						m_moveDistSq = 0;

						// 保存最后触摸点（用于惯性期间发送位置）
						m_lastTouchPt = pt;

						//::PostMessage(target, WM_LBUTTONDOWN, MK_LBUTTON, MAKELPARAM(pt.x, pt.y));
						::SetCapture(target);
					}
					// 触摸移动
					else if (ti.dwFlags & TOUCHEVENTF_MOVE)
					{
						if (m_touchDown)
						{
							LONG dx = pt.x - m_lastX;
							LONG dy = pt.y - m_lastY; // 按手机习惯：手指上滑(坐标减小) -> 负增量
							m_lastX = pt.x;
							m_lastY = pt.y;

							// 累计移动距离平方，用于“轻触 vs 滑动”判定
							m_moveDistSq += (std::int64_t)dx * dx + (std::int64_t)dy * dy;
							if (m_moveDistSq > (std::int64_t)TAP_MOVE_THRESHOLD * TAP_MOVE_THRESHOLD)
								m_bTouchMoved = true;

							AddTouchSample(pt.y);

							int wheelUnits = static_cast<int>(dy * PIXEL_TO_WHEEL);
							m_accumWheel += wheelUnits;

							// 更新最后触摸点（用于惯性期间发送位置）
							m_lastTouchPt = pt;

							// 每当累积达到 WHEEL_DELTA 就发送一次 WM_MOUSEWHEEL
							while (abs(m_accumWheel) >= WHEEL_DELTA)
							{
								int sendDelta = (m_accumWheel > 0) ? WHEEL_DELTA : -WHEEL_DELTA;
								m_accumWheel -= sendDelta;

								WPARAM wParamWheel = (WPARAM)(((DWORD)sendDelta) << 16);
								LPARAM lParamPos = MAKELPARAM(pt.x, pt.y);
								::PostMessage(target, WM_MOUSEWHEEL, wParamWheel, lParamPos);
							}

							// 注意：触摸滚动时不再发送 WM_MOUSEMOVE。原因：
							//   滚动期间若发 WM_MOUSEMOVE，DuiLib 会给手指扫过的每个 item 置上悬浮态(UISTATE_HOT)，
							//   且触摸抬起后没有 WM_MOUSELEAVE 来清除，导致“多个 item 同时悬浮、且悬停态卡死不消失”。
							//   滚动本身就由上面的 WM_MOUSEWHEEL 完成，不需要鼠标移动消息；真实鼠标的悬停仍由 DuiLib 正常处理。
						}
					}
					// 触摸抬起
					else if (ti.dwFlags & TOUCHEVENTF_UP)
					{
						if (m_touchDown)
						{
							// 计算速度（px/ms）
							float velocityPxPerMs = 0.0f;
							if (m_samples.size() >= 2)
							{
								TouchSample first = m_samples.front();
								TouchSample last = m_samples.back();
								std::int64_t dt = last.tms - first.tms;
								if (dt > 0)
								{
									// 与 MOVE 中 dy 方向保持一致：last - first
									velocityPxPerMs = static_cast<float>(last.y - first.y) / static_cast<float>(dt);
								}
							}

							m_touchDown = false;
							// 保存最后触摸点（确保惯性期间有位置可用）
							m_lastTouchPt = pt;
							m_lastX = 0;
							m_lastY = 0;
							m_accumWheel = 0;
							m_samples.clear();

							//::PostMessage(target, WM_LBUTTONUP, 0, MAKELPARAM(pt.x, pt.y));
							::ReleaseCapture();

							// 关键修复（误触）：本次触摸没有发生“滑动”才视为“轻触点击”，
							// 模拟一次 down+up，让 DuiLib 正常触发 click（如点商品加入购物车）。
							// 若发生过滑动，则只滚动、绝不触发点击，从而彻底避免误触。
							if (!m_bTouchMoved)
							{
								SynthesizeTap(target, m_touchStartPt);
							}

							// 启动惯性滚动（如果速度足够大）
							StartInertia(velocityPxPerMs);

							// 关键修复（悬浮态卡死）：触屏轻触/滑动时，操作系统会先发一条
							// “将光标移动到触点”的 WM_MOUSEMOVE（不带 FROMTOUCH 标记），它绕过了
							// MessageHandler 入口的过滤器，于是 DuiLib 会把该控件置为 UISTATE_HOT
							// （悬浮态）；而 DuiLib 只在 WM_MOUSEMOVE 指到“别的控件/窗口外”时才
							// 发 MOUSELEAVE 清除悬浮态。触屏没有后续“移动光标离开”的动作，于是
							// 悬浮态永远清不掉 → 按钮/列表项卡在悬浮态不恢复。
							// 真实鼠标靠“物理移开”触发 MOUSELEAVE；这里用定时器在手势结束后补一次
							// WM_MOUSEMOVE(-1)（即“光标移到窗口外”），模拟鼠标移开，强制清除悬浮态。
							// 用定时器延后约 50ms，确保本次手势可能产生的 OS 尾随消息都已处理完，
							// 避免“我们刚清掉又被 OS 尾随的 move 重新置上”的竞态。
							ScheduleHoverClear();
						}
					}
				}
				CloseTouchInputHandle((HTOUCHINPUT)lParam);
			}
			else
			{
				// 可添加日志：GetTouchInputInfo 失败
			}
			return 0; // 已处理
		}

		case WM_TIMER:
		{
			if (wParam == HOVER_CLEAR_TIMER_ID)
			{
				// 模拟“鼠标移开窗口”：给 paint 窗口发一条 WM_MOUSEMOVE，lParam=-1 表示
				// 坐标为 (-1,-1)，FindControl 必然返回 NULL；DuiLib 在 WM_MOUSEMOVE 里对旧
				// 悬停控件触发 UIEVENT_MOUSELEAVE，从而清除 UISTATE_HOT 悬浮态。
				// 这样触屏轻触/滑动结束后，按钮/列表项不会卡在悬浮态。
				HWND target = m_hWndPaint ? m_hWndPaint : m_hWnd;
				if (target && ::IsWindow(target))
					::PostMessage(target, WM_MOUSEMOVE, 0, (LPARAM)-1);
				::KillTimer(m_hWnd, HOVER_CLEAR_TIMER_ID);
				return 0;
			}
			if (wParam == INERTIA_TIMER_ID && m_inertiaActive)
			{
				HWND target = m_hWndPaint ? m_hWndPaint : m_hWnd;
				std::int64_t now = NowMs();
				std::int64_t dt = now - m_lastInertiaTms;
				if (dt <= 0) dt = INERTIA_TIMER_INTERVAL_MS;
				m_lastInertiaTms = now;

				// 计算本帧移动的像素
				float pixels = m_inertiaVelocityPxPerMs * static_cast<float>(dt);

				// 将像素转换为 wheel units 累积并发送
				int wheelUnits = static_cast<int>(pixels * PIXEL_TO_WHEEL);
				m_accumWheel += wheelUnits;

				// 使用保存的最后触摸点（target 的客户区坐标）
				POINT pt = m_lastTouchPt;
				LPARAM lParamPos = MAKELPARAM(pt.x, pt.y);

				while (abs(m_accumWheel) >= WHEEL_DELTA)
				{
					int sendDelta = (m_accumWheel > 0) ? WHEEL_DELTA : -WHEEL_DELTA;
					m_accumWheel -= sendDelta;
					WPARAM wParamWheel = (WPARAM)(((DWORD)sendDelta) << 16);
					::PostMessage(target, WM_MOUSEWHEEL, wParamWheel, lParamPos);
				}

				// 衰减速度（指数衰减）
				// velocity *= pow(INERTIA_DECAY_PER_MS, dt)
				m_inertiaVelocityPxPerMs *= std::pow(INERTIA_DECAY_PER_MS, static_cast<float>(dt));

				// 停止条件
				if (std::abs(m_inertiaVelocityPxPerMs) < MIN_INERTIA_VELOCITY)
				{
					StopInertia();
				}

				return 0;
			}
			break;
		}

		case WM_DESTROY:
			StopInertia();
			::KillTimer(m_hWnd, HOVER_CLEAR_TIMER_ID);
			break;
	}

	// 若未处理，交给基类
	return CWindowWnd::HandleMessage(uMsg, wParam, lParam);
}