HyperLink.cpp
上传用户:tlk791129
上传日期:2007-01-02
资源大小:19k
文件大小:13k
源码类别:

Static控件

开发平台:

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