HyperLink.cpp
上传用户:czfddz
上传日期:2013-03-20
资源大小:1517k
文件大小:14k
源码类别:

酒店行业

开发平台:

C/C++

  1. // HyperLink.cpp : implementation file
  2. //
  3. // HyperLink static control. Will open the default browser with the given URL
  4. // when the user clicks on the link.
  5. //
  6. // Copyright (C) 1997 - 1999 Chris Maunder
  7. // All rights reserved. May not be sold for profit.
  8. //
  9. // Thanks to P錶 K. T鴑der for auto-size and window caption changes.
  10. //
  11. // "GotoURL" function by Stuart Patterson
  12. // As seen in the August, 1997 Windows Developer's Journal.
  13. // Copyright 1997 by Miller Freeman, Inc. All rights reserved.
  14. // Modified by Chris Maunder to use TCHARs instead of chars.
  15. //
  16. // "Default hand cursor" from Paul DiLascia's Jan 1998 MSJ article.
  17. //
  18. // 2/29/00 -- P. Shaffer standard font mod.
  19. #include "stdafx.h"
  20. #include "HyperLink.h"
  21. #include "atlconv.h"    // for Unicode conversion - requires #include <afxdisp.h> // MFC OLE automation classes
  22. #ifdef _DEBUG
  23. #define new DEBUG_NEW
  24. #undef THIS_FILE
  25. static char THIS_FILE[] = __FILE__;
  26. #endif
  27. #define TOOLTIP_ID 1
  28. /////////////////////////////////////////////////////////////////////////////
  29. // CHyperLink
  30. CHyperLink::CHyperLink()
  31. {
  32.     m_hLinkCursor       = NULL;                 // No cursor as yet
  33.     m_crLinkColour      = RGB(  0,   0, 238);   // Blue
  34.     m_crVisitedColour   = RGB( 85,  26, 139);   // Purple
  35.     m_crHoverColour     = RGB(255,   0,   0);   // Red
  36.     m_bOverControl      = FALSE;                // Cursor not yet over control
  37.     m_bVisited          = FALSE;                // Hasn't been visited yet.
  38.     m_nUnderline        = ulHover;              // Underline the link?
  39.     m_bAdjustToFit      = TRUE;                 // Resize the window to fit the text?
  40.     m_strURL.Empty();
  41.     m_nTimerID          = 100;
  42. }
  43. CHyperLink::~CHyperLink()
  44. {
  45.     m_UnderlineFont.DeleteObject();
  46. }
  47. /////////////////////////////////////////////////////////////////////////////
  48. // CHyperLink overrides
  49. BOOL CHyperLink::DestroyWindow() 
  50. {
  51.     KillTimer(m_nTimerID);
  52. return CStatic::DestroyWindow();
  53. }
  54. BOOL CHyperLink::PreTranslateMessage(MSG* pMsg) 
  55. {
  56.     m_ToolTip.RelayEvent(pMsg);
  57.     return CStatic::PreTranslateMessage(pMsg);
  58. }
  59. void CHyperLink::PreSubclassWindow() 
  60. {
  61.     // We want to get mouse clicks via STN_CLICKED
  62.     DWORD dwStyle = GetStyle();
  63.     ::SetWindowLong(GetSafeHwnd(), GWL_STYLE, dwStyle | SS_NOTIFY);
  64.     
  65.     // Set the URL as the window text
  66.     if (m_strURL.IsEmpty())
  67.         GetWindowText(m_strURL);
  68.     // Check that the window text isn't empty. If it is, set it as the URL.
  69.     CString strWndText;
  70.     GetWindowText(strWndText);
  71.     if (strWndText.IsEmpty()) 
  72.     {
  73.         ASSERT(!m_strURL.IsEmpty());    // Window and URL both NULL. DUH!
  74.         SetWindowText(m_strURL);
  75.     }
  76. CFont* pFont = GetFont();
  77. if (!pFont)
  78. {
  79. HFONT hFont = (HFONT)GetStockObject(DEFAULT_GUI_FONT);
  80. if (hFont == NULL)
  81. hFont = (HFONT) GetStockObject(ANSI_VAR_FONT);
  82. if (hFont)
  83. pFont = CFont::FromHandle(hFont);
  84. }
  85. ASSERT(pFont->GetSafeHandle());
  86.     // Create the underline font
  87.     LOGFONT lf;
  88.     pFont->GetLogFont(&lf);
  89. m_StdFont.CreateFontIndirect(&lf);
  90.     lf.lfUnderline = (BYTE) TRUE;
  91.     m_UnderlineFont.CreateFontIndirect(&lf);
  92.     PositionWindow();        // Adjust size of window to fit URL if necessary
  93.     SetDefaultCursor();      // Try and load up a "hand" cursor
  94.     SetUnderline();
  95.     // Create the tooltip
  96.     CRect rect; 
  97.     GetClientRect(rect);
  98.     m_ToolTip.Create(this);
  99.     m_ToolTip.AddTool(this, m_strURL, rect, TOOLTIP_ID);
  100.     CStatic::PreSubclassWindow();
  101. }
  102. BEGIN_MESSAGE_MAP(CHyperLink, CStatic)
  103.     //{{AFX_MSG_MAP(CHyperLink)
  104.     ON_WM_CTLCOLOR_REFLECT()
  105.     ON_WM_SETCURSOR()
  106.     ON_WM_MOUSEMOVE()
  107. ON_WM_TIMER()
  108.     ON_CONTROL_REFLECT(STN_CLICKED, OnClicked)
  109. ON_WM_ERASEBKGND()
  110. //}}AFX_MSG_MAP
  111. END_MESSAGE_MAP()
  112. /////////////////////////////////////////////////////////////////////////////
  113. // CHyperLink message handlers
  114. void CHyperLink::OnClicked()
  115. {
  116.     m_bOverControl = FALSE;
  117.     int result = (int)GotoURL(m_strURL, SW_SHOW);
  118.     m_bVisited = (result > HINSTANCE_ERROR);
  119.     if (!m_bVisited)
  120.     {
  121.         MessageBeep(MB_ICONEXCLAMATION);     // Unable to follow link
  122.         ReportError(result);
  123.     }
  124.     else 
  125.         SetVisited();                        // Repaint to show visited colour
  126. }
  127. HBRUSH CHyperLink::CtlColor(CDC* pDC, UINT nCtlColor) 
  128. {
  129.     ASSERT(nCtlColor == CTLCOLOR_STATIC);
  130.     if (m_bOverControl)
  131.         pDC->SetTextColor(m_crHoverColour);
  132.     else if (m_bVisited)
  133.         pDC->SetTextColor(m_crVisitedColour);
  134.     else
  135.         pDC->SetTextColor(m_crLinkColour);
  136.     // transparent text.
  137.     pDC->SetBkMode(TRANSPARENT);
  138.     return (HBRUSH)GetStockObject(NULL_BRUSH);
  139. }
  140. void CHyperLink::OnMouseMove(UINT nFlags, CPoint point) 
  141. {
  142.     if (!m_bOverControl)        // Cursor has just moved over control
  143.     {
  144.         m_bOverControl = TRUE;
  145.         if (m_nUnderline == ulHover)
  146.             SetFont(&m_UnderlineFont);
  147.         Invalidate();
  148.         SetTimer(m_nTimerID, 100, NULL);
  149.     }
  150.     CStatic::OnMouseMove(nFlags, point);
  151. }
  152. void CHyperLink::OnTimer(UINT nIDEvent) 
  153. {
  154.     CPoint p(GetMessagePos());
  155.     ScreenToClient(&p);
  156.     CRect rect;
  157.     GetClientRect(rect);
  158.     if (!rect.PtInRect(p))
  159.     {
  160.         m_bOverControl = FALSE;
  161.         KillTimer(m_nTimerID);
  162.         if (m_nUnderline != ulAlways)
  163.             SetFont(&m_StdFont);
  164.         rect.bottom+=10;
  165.         InvalidateRect(rect);
  166.     }
  167.     
  168. CStatic::OnTimer(nIDEvent);
  169. }
  170. BOOL CHyperLink::OnSetCursor(CWnd* /*pWnd*/, UINT /*nHitTest*/, UINT /*message*/) 
  171. {
  172.     if (m_hLinkCursor)
  173.     {
  174.         ::SetCursor(m_hLinkCursor);
  175.         return TRUE;
  176.     }
  177.     return FALSE;
  178. }
  179. BOOL CHyperLink::OnEraseBkgnd(CDC* pDC) 
  180. {
  181.     CRect rect;
  182.     GetClientRect(rect);
  183.     pDC->FillSolidRect(rect, ::GetSysColor(COLOR_3DFACE));
  184.     return TRUE;
  185. }
  186. /////////////////////////////////////////////////////////////////////////////
  187. // CHyperLink operations
  188. void CHyperLink::SetURL(CString strURL)
  189. {
  190.     m_strURL = strURL;
  191.     if (::IsWindow(GetSafeHwnd())) {
  192.         PositionWindow();
  193.         m_ToolTip.UpdateTipText(strURL, this, TOOLTIP_ID);
  194.     }
  195. }
  196. CString CHyperLink::GetURL() const
  197.     return m_strURL;   
  198. }
  199. void CHyperLink::SetColours(COLORREF crLinkColour, COLORREF crVisitedColour,
  200.                             COLORREF crHoverColour /* = -1 */) 
  201.     m_crLinkColour    = crLinkColour; 
  202.     m_crVisitedColour = crVisitedColour;
  203. if (crHoverColour == -1)
  204. m_crHoverColour = ::GetSysColor(COLOR_HIGHLIGHT);
  205. else
  206. m_crHoverColour = crHoverColour;
  207.     if (::IsWindow(m_hWnd))
  208.         Invalidate(); 
  209. }
  210. COLORREF CHyperLink::GetLinkColour() const
  211.     return m_crLinkColour; 
  212. }
  213. COLORREF CHyperLink::GetVisitedColour() const
  214. {
  215.     return m_crVisitedColour; 
  216. }
  217. COLORREF CHyperLink::GetHoverColour() const
  218. {
  219.     return m_crHoverColour;
  220. }
  221. void CHyperLink::SetVisited(BOOL bVisited /* = TRUE */) 
  222.     m_bVisited = bVisited; 
  223.     if (::IsWindow(GetSafeHwnd()))
  224.         Invalidate(); 
  225. }
  226. BOOL CHyperLink::GetVisited() const
  227.     return m_bVisited; 
  228. }
  229. void CHyperLink::SetLinkCursor(HCURSOR hCursor)
  230.     m_hLinkCursor = hCursor;
  231.     if (m_hLinkCursor == NULL)
  232.         SetDefaultCursor();
  233. }
  234. HCURSOR CHyperLink::GetLinkCursor() const
  235. {
  236.     return m_hLinkCursor;
  237. }
  238. void CHyperLink::SetUnderline(int nUnderline /*=ulHover*/)
  239. {
  240.     if (m_nUnderline == nUnderline)
  241.         return;
  242.     if (::IsWindow(GetSafeHwnd()))
  243.     {
  244.         if (nUnderline == ulAlways)
  245.             SetFont(&m_UnderlineFont);
  246.         else
  247.             SetFont(&m_StdFont);
  248.         Invalidate(); 
  249.     }
  250.     m_nUnderline = nUnderline;
  251. }
  252. int CHyperLink::GetUnderline() const
  253.     return m_nUnderline; 
  254. }
  255. void CHyperLink::SetAutoSize(BOOL bAutoSize /* = TRUE */)
  256. {
  257.     m_bAdjustToFit = bAutoSize;
  258.     if (::IsWindow(GetSafeHwnd()))
  259.         PositionWindow();
  260. }
  261. BOOL CHyperLink::GetAutoSize() const
  262.     return m_bAdjustToFit; 
  263. }
  264. // Move and resize the window so that the window is the same size
  265. // as the hyperlink text. This stops the hyperlink cursor being active
  266. // when it is not directly over the text. If the text is left justified
  267. // then the window is merely shrunk, but if it is centred or right
  268. // justified then the window will have to be moved as well.
  269. //
  270. // Suggested by P錶 K. T鴑der 
  271. void CHyperLink::PositionWindow()
  272. {
  273.     if (!::IsWindow(GetSafeHwnd()) || !m_bAdjustToFit) 
  274.         return;
  275.     // Get the current window position
  276.     CRect WndRect, ClientRect;
  277.     GetWindowRect(WndRect);
  278.     GetClientRect(ClientRect);
  279.     ClientToScreen(ClientRect);
  280.     CWnd* pParent = GetParent();
  281.     if (pParent)
  282.     {
  283.         pParent->ScreenToClient(WndRect);
  284.         pParent->ScreenToClient(ClientRect);
  285.     }
  286.     // Get the size of the window text
  287.     CString strWndText;
  288.     GetWindowText(strWndText);
  289.     CDC* pDC = GetDC();
  290.     CFont* pOldFont = pDC->SelectObject(&m_UnderlineFont);
  291.     CSize Extent = pDC->GetTextExtent(strWndText);
  292.     pDC->SelectObject(pOldFont);
  293.     ReleaseDC(pDC);
  294.     // Adjust for window borders
  295.     Extent.cx += WndRect.Width() - ClientRect.Width(); 
  296.     Extent.cy += WndRect.Height() - ClientRect.Height(); 
  297.     // Get the text justification via the window style
  298.     DWORD dwStyle = GetStyle();
  299.     // Recalc the window size and position based on the text justification
  300.     if (dwStyle & SS_CENTERIMAGE)
  301.         WndRect.DeflateRect(0, (WndRect.Height() - Extent.cy)/2);
  302.     else
  303.         WndRect.bottom = WndRect.top + Extent.cy;
  304.     if (dwStyle & SS_CENTER)   
  305.         WndRect.DeflateRect((WndRect.Width() - Extent.cx)/2, 0);
  306.     else if (dwStyle & SS_RIGHT) 
  307.         WndRect.left  = WndRect.right - Extent.cx;
  308.     else // SS_LEFT = 0, so we can't test for it explicitly 
  309.         WndRect.right = WndRect.left + Extent.cx;
  310.     // Move the window
  311.     SetWindowPos(NULL, WndRect.left, WndRect.top, WndRect.Width(), WndRect.Height(), SWP_NOZORDER);
  312. }
  313. /////////////////////////////////////////////////////////////////////////////
  314. // CHyperLink implementation
  315. // The following appeared in Paul DiLascia's Jan 1998 MSJ articles.
  316. // It loads a "hand" cursor from the winhlp32.exe module
  317. void CHyperLink::SetDefaultCursor()
  318. {
  319.     if (m_hLinkCursor == NULL)                // No cursor handle - load our own
  320.     {
  321.         // Get the windows directory
  322.         CString strWndDir;
  323.         GetWindowsDirectory(strWndDir.GetBuffer(MAX_PATH), MAX_PATH);
  324.         strWndDir.ReleaseBuffer();
  325.         strWndDir += _T("\winhlp32.exe");
  326.         // This retrieves cursor #106 from winhlp32.exe, which is a hand pointer
  327.         HMODULE hModule = LoadLibrary(strWndDir);
  328.         if (hModule) {
  329.             HCURSOR hHandCursor = ::LoadCursor(hModule, MAKEINTRESOURCE(106));
  330.             if (hHandCursor)
  331.                 m_hLinkCursor = CopyCursor(hHandCursor);
  332.         }
  333.         FreeLibrary(hModule);
  334.     }
  335. }
  336. LONG CHyperLink::GetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata)
  337. {
  338.     HKEY hkey;
  339.     LONG retval = RegOpenKeyEx(key, subkey, 0, KEY_QUERY_VALUE, &hkey);
  340.     if (retval == ERROR_SUCCESS) {
  341.         long datasize = MAX_PATH;
  342.         TCHAR data[MAX_PATH];
  343.         RegQueryValue(hkey, NULL, data, &datasize);
  344.         lstrcpy(retdata,data);
  345.         RegCloseKey(hkey);
  346.     }
  347.     return retval;
  348. }
  349. void CHyperLink::ReportError(int nError)
  350. {
  351.     CString str;
  352.     switch (nError) {
  353.         case 0:                       str = "The operating system is outnof memory or resources."; break;
  354.         case SE_ERR_PNF:              str = "The specified path was not found."; break;
  355.         case SE_ERR_FNF:              str = "The specified file was not found."; break;
  356.         case ERROR_BAD_FORMAT:        str = "The .EXE file is invalidn(non-Win32 .EXE or error in .EXE image)."; break;
  357.         case SE_ERR_ACCESSDENIED:     str = "The operating system deniednaccess to the specified file."; break;
  358.         case SE_ERR_ASSOCINCOMPLETE:  str = "The filename association isnincomplete or invalid."; break;
  359.         case SE_ERR_DDEBUSY:          str = "The DDE transaction could notnbe completed because other DDE transactionsnwere being processed."; break;
  360.         case SE_ERR_DDEFAIL:          str = "The DDE transaction failed."; break;
  361.         case SE_ERR_DDETIMEOUT:       str = "The DDE transaction could notnbe completed because the request timed out."; break;
  362.         case SE_ERR_DLLNOTFOUND:      str = "The specified dynamic-link library was not found."; break;
  363.         case SE_ERR_NOASSOC:          str = "There is no application associatednwith the given filename extension."; break;
  364.         case SE_ERR_OOM:              str = "There was not enough memory to complete the operation."; break;
  365.         case SE_ERR_SHARE:            str = "A sharing violation occurred. ";
  366.         default:                      str.Format(_T("Unknown Error (%d) occurred."), nError); break;
  367.     }
  368.     str = "Unable to open hyperlink:nn" + str;
  369.     AfxMessageBox(str, MB_ICONEXCLAMATION | MB_OK);
  370. }
  371. HINSTANCE CHyperLink::GotoURL(LPCTSTR url, int showcmd)
  372. {
  373.     TCHAR key[MAX_PATH + MAX_PATH];
  374.     // First try ShellExecute()
  375.     HINSTANCE result = ShellExecute(NULL, _T("open"), url, NULL,NULL, showcmd);
  376.     // If it failed, get the .htm regkey and lookup the program
  377.     if ((UINT)result <= HINSTANCE_ERROR) {
  378.         if (GetRegKey(HKEY_CLASSES_ROOT, _T(".htm"), key) == ERROR_SUCCESS) {
  379.             lstrcat(key, _T("\shell\open\command"));
  380.             if (GetRegKey(HKEY_CLASSES_ROOT,key,key) == ERROR_SUCCESS) {
  381.                 TCHAR *pos;
  382.                 pos = _tcsstr(key, _T(""%1""));
  383.                 if (pos == NULL) {                     // No quotes found
  384.                     pos = _tcsstr(key, _T("%1"));      // Check for %1, without quotes 
  385.                     if (pos == NULL)                   // No parameter at all...
  386.                         pos = key+lstrlen(key)-1;
  387.                     else
  388.                         *pos = '';                   // Remove the parameter
  389.                 }
  390.                 else
  391.                     *pos = '';                       // Remove the parameter
  392.                 lstrcat(pos, _T(" "));
  393.                 lstrcat(pos, url);
  394.                 USES_CONVERSION;
  395.                 result = (HINSTANCE) WinExec(T2A(key),showcmd);
  396.             }
  397.         }
  398.     }
  399.     return result;
  400. }