Descent3/legacy/D3Launch/TitleTip.cpp

/*
* Descent 3 
* Copyright (C) 2024 Parallax Software
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

////////////////////////////////////////////////////////////////////////////
// TitleTip.cpp : implementation file
//

#include "stdafx.h"
#include "TitleTip.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CTitleTip

CTitleTip::CTitleTip()
{
	m_iHorzSpace = 2;
	m_brshBackground = (HBRUSH)0;

	m_clrBackground = ::GetSysColor(COLOR_HIGHLIGHT);
	m_clrText = ::GetSysColor(COLOR_HIGHLIGHTTEXT);

	RegisterWindowClass();										// Register window class if not already registered.
}

CTitleTip::~CTitleTip()
{
}

// static
void
CTitleTip::RegisterWindowClass()
{
	WNDCLASS wndcls;
	HINSTANCE hInst = AfxGetInstanceHandle();
	if(!(::GetClassInfo(hInst, TITLETIP_CLASSNAME, &wndcls)))
	{
		// otherwise we need to register a new class
		wndcls.style = CS_SAVEBITS | CS_DBLCLKS;
		wndcls.lpfnWndProc = ::DefWindowProc;
		wndcls.cbClsExtra = wndcls.cbWndExtra = 0;
		wndcls.hInstance = hInst;
		wndcls.hIcon = NULL;
		wndcls.hCursor = LoadCursor( hInst, IDC_ARROW );
		wndcls.hbrBackground = (HBRUSH)(COLOR_INFOBK + 1); 
		wndcls.lpszMenuName = NULL;
		wndcls.lpszClassName = TITLETIP_CLASSNAME;
		if (!AfxRegisterClass(&wndcls))
			AfxThrowResourceException();
	}
}


BEGIN_MESSAGE_MAP(CTitleTip, CWnd)
	//{{AFX_MSG_MAP(CTitleTip)
	ON_WM_MOUSEMOVE()
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

void CTitleTip::SetBackground(HBRUSH brshBackground)
{
	m_brshBackground = brshBackground;
}

void CTitleTip::SetBkColor(COLORREF crColor)
{
	m_clrBackground = crColor;
}

void CTitleTip::SetTextColor(COLORREF crColor)
{
	m_clrText = crColor;
}

/////////////////////////////////////////////////////////////////////////////
// CTitleTip message handlers

/*
* styles:
* <UL>
*   <LI>WS_BORDER: draws a border around the titletip window
*   <LI>WS_POPUP:  needed so that the TitleTip window is able to extend
*     beyond the boundary of the control
*   <LI>WS_EX_TOOLWINDOW: stops the window from appearing in the task bar
*   <LI>WS_EX_TOPMOST:    ensures the titletip is visible
*   <LI>COLOR_INFOBK:     the same color used by ToolTip
* </UL>
*/

BOOL CTitleTip::Create(CWnd * pParentWnd)
{
	ASSERT_VALID(pParentWnd);
	
	DWORD dwStyle = WS_BORDER | WS_POPUP; 
	DWORD dwExStyle = WS_EX_TOOLWINDOW | WS_EX_TOPMOST;
	m_pParentWnd = pParentWnd;
	return CreateEx( dwExStyle, TITLETIP_CLASSNAME, NULL, dwStyle, 0, 0, 0, 0, 
		NULL, NULL, NULL );
}

/**
* This gets called repeatedly by its parent control.
* Determines whether the text extent of pszTitleText is too big for the
* original rectangle (rectTitle) and displays a TitleTip if required.
*
* @memo Displays the titletip if required.
*
* @param rectTitle  rectangle for the original title - in client coordinates
* @param sTitleText text to be displayed
* @param xoffset    number of pixel the text is offset from left border of the cell
*/

void CTitleTip::Show(CRect rectTitle, CString sTitleText, int xoffset /*=0*/)
{
	ASSERT(::IsWindow(m_hWnd));
	ASSERT(!rectTitle.IsRectEmpty());
	
	if(GetFocus() == NULL)                    // only display titletip if app has focus
		return;
	
	// Define the rectangle outside which the titletip will be hidden.
	m_rectTitle.top = 0;
	m_rectTitle.left = -xoffset;
	m_rectTitle.right = rectTitle.Width() - xoffset;
	m_rectTitle.bottom = rectTitle.Height();

	m_pParentWnd->ClientToScreen(rectTitle);  // Determine the width of the text
	
	CClientDC dc(this);
	int iSavedDC = dc.SaveDC();               // Save DC state

	dc.SelectObject(m_pParentWnd->GetFont());	// use same font as ctrl
	
	CSize size = dc.GetTextExtent(sTitleText);
	CRect rectDisplay = rectTitle;
	rectDisplay.left += xoffset - GetHorzSpace();
	rectDisplay.right = rectDisplay.left + size.cx + 2 + 2*GetHorzSpace();
	
	// Do not display if the text fits within available space
	if(size.cx <= rectTitle.Width()-2*xoffset-2)
		return;
	
	// Show the titletip
	SetWindowPos(&wndTop, rectDisplay.left, rectDisplay.top, 
		rectDisplay.Width(), rectDisplay.Height(), 
		SWP_SHOWWINDOW|SWP_NOACTIVATE);


	if(m_brshBackground)
	{
		dc.SetTextColor(m_clrText);
		dc.SetBkColor(m_clrBackground);
		dc.SetBkMode(OPAQUE);
		dc.SelectObject(CBrush::FromHandle(m_brshBackground));
		dc.FillSolidRect(0, 0, rectDisplay.Width(), rectDisplay.Height(), m_clrBackground);
	}
	else
	{
		dc.SetBkMode(TRANSPARENT);
	}

	dc.TextOut(GetHorzSpace(), 0, sTitleText);

	dc.RestoreDC(iSavedDC);                   // Restore DC.
	
	SetCapture();
}

/*
* Hide if the mouse is outside the original rectangle. Note that this is
* smaller than the actual window rectangle.
*/
void CTitleTip::OnMouseMove(UINT nFlags, CPoint point) 
{
	if(!m_rectTitle.PtInRect(point))
	{
		ReleaseCapture();
		ShowWindow(SW_HIDE);
		
		// Forward the message
		ClientToScreen(&point);
		CWnd *pWnd = WindowFromPoint(point);
		if(pWnd == this) 
			pWnd = m_pParentWnd;
		int hittest = (int)pWnd->SendMessage(WM_NCHITTEST,0,MAKELONG(point.x,point.y));
		if(hittest == HTCLIENT)
		{
			pWnd->ScreenToClient(&point);
			pWnd->PostMessage(WM_MOUSEMOVE, nFlags, MAKELONG(point.x,point.y));
		}
		else
		{
			pWnd->PostMessage( WM_NCMOUSEMOVE, hittest, MAKELONG(point.x,point.y));
		}
	}
}

BOOL CTitleTip::PreTranslateMessage(MSG* pMsg) 
{
	CWnd *pWnd;
	int hittest ;
	switch(pMsg->message)
	{
	case WM_LBUTTONDBLCLK:
	case WM_RBUTTONDBLCLK:
	case WM_MBUTTONDBLCLK:
	case WM_LBUTTONUP:
	case WM_RBUTTONUP:
	case WM_MBUTTONUP:
	case WM_LBUTTONDOWN:
	case WM_RBUTTONDOWN:
	case WM_MBUTTONDOWN:
		POINTS pts = MAKEPOINTS(pMsg->lParam);
		POINT  point;
		point.x = pts.x;
		point.y = pts.y;
		ClientToScreen(&point);
		pWnd = WindowFromPoint(point);
		if(pWnd == this) 
			pWnd = m_pParentWnd;
		
		hittest = (int)pWnd->SendMessage(WM_NCHITTEST,0,MAKELONG(point.x,point.y));
		if(hittest == HTCLIENT)
		{
			pWnd->ScreenToClient(&point);
			pMsg->lParam = MAKELONG(point.x,point.y);
		}
		else
		{
			switch(pMsg->message)
			{
			case WM_LBUTTONDOWN: 
				pMsg->message = WM_NCLBUTTONDOWN;
				break;
			case WM_RBUTTONDOWN: 
				pMsg->message = WM_NCRBUTTONDOWN;
				break;
			case WM_MBUTTONDOWN: 
				pMsg->message = WM_NCMBUTTONDOWN;
				break;
			}
			pMsg->wParam = hittest;
			pMsg->lParam = MAKELONG(point.x,point.y);
			ShowWindow(SW_HIDE);
		}
		pWnd->SendMessage(pMsg->message,pMsg->wParam,pMsg->lParam);
		if(GetCapture() == NULL)
			SetCapture();
		return TRUE;						
	case WM_KEYDOWN:
	case WM_SYSKEYDOWN:
		ReleaseCapture();
		ShowWindow(SW_HIDE);
		m_pParentWnd->PostMessage(pMsg->message, pMsg->wParam, pMsg->lParam);
		return TRUE;
	}
	
	if(GetFocus() == NULL)
	{
		ReleaseCapture();
		ShowWindow(SW_HIDE);
		return TRUE;
	}
	
	return CWnd::PreTranslateMessage(pMsg);
}