HyperLink.cpp
上传用户:jnfxs888
上传日期:2021-02-24
资源大小:98k
文件大小:9k
源码类别:

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 Chris Maunder, 1997
  7. // Feel free to use and distribute.
  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.
  14. // All rights reserved.
  15. // Modified by Chris Maunder to use TCHARs instead of chars.
  16. #include "stdafx.h"
  17. #include "HyperLink.h"
  18. #ifdef _DEBUG
  19. #define new DEBUG_NEW
  20. #undef THIS_FILE
  21. static char THIS_FILE[] = __FILE__;
  22. #endif
  23. #define TOOLTIP_ID 1
  24. /////////////////////////////////////////////////////////////////////////////
  25. // CHyperLink
  26. CHyperLink::CHyperLink()
  27. {
  28. m_crLinkColour      = RGB(0, 0, 238);     // Blue
  29. m_crVisitedColour   = RGB(85, 26, 139);   // Purple
  30. m_bVisited          = FALSE;              // Hasn't been visited yet.
  31. m_bUnderline        = TRUE;               // Underline the link?
  32. m_bAdjustToFit      = TRUE;               // Resize the window to fit the text?
  33. m_strURL.Empty();
  34. }
  35. CHyperLink::~CHyperLink()
  36. {
  37. if ((HFONT)m_Font)
  38. m_Font.DeleteObject();
  39. }
  40. BEGIN_MESSAGE_MAP(CHyperLink, CStatic)
  41. //{{AFX_MSG_MAP(CHyperLink)
  42. ON_CONTROL_REFLECT(STN_CLICKED, OnClicked)
  43. ON_WM_CTLCOLOR_REFLECT()
  44. ON_WM_SETCURSOR()
  45. //}}AFX_MSG_MAP
  46. END_MESSAGE_MAP()
  47. /////////////////////////////////////////////////////////////////////////////
  48. // CHyperLink message handlers
  49. BOOL CHyperLink::PreTranslateMessage(MSG* pMsg) 
  50. {
  51. m_ToolTip.RelayEvent(pMsg);
  52. return CStatic::PreTranslateMessage(pMsg);
  53. }
  54. HBRUSH CHyperLink::CtlColor(CDC* pDC, UINT nCtlColor) 
  55. {
  56. ASSERT(nCtlColor == CTLCOLOR_STATIC);
  57. // Set the approriate colour
  58. if (m_bVisited)
  59. pDC->SetTextColor(m_crVisitedColour);
  60. else
  61. pDC->SetTextColor(m_crLinkColour);
  62. // Set underline font if required
  63. if (m_bUnderline) {
  64. if (!(HFONT)m_Font) { // Create font only once.
  65. LOGFONT lf;
  66. GetFont()->GetLogFont(&lf);
  67. lf.lfUnderline = TRUE;
  68. m_Font.CreateFontIndirect(&lf);
  69. }
  70. pDC->SelectObject(&m_Font);
  71. }
  72. // transparent text.
  73. pDC->SetBkMode(TRANSPARENT);
  74. return (HBRUSH)GetStockObject(NULL_BRUSH);
  75. }
  76. BOOL CHyperLink::OnSetCursor(CWnd* /*pWnd*/, UINT /*nHitTest*/, UINT /*message*/) 
  77. {
  78. ::SetCursor(m_hLinkCursor);
  79. return TRUE;
  80. }
  81. void CHyperLink::PreSubclassWindow() 
  82. {
  83. // We want to get mouse clicks via STN_CLICKED
  84. DWORD dwStyle = GetStyle();
  85. ::SetWindowLong(m_hWnd, GWL_STYLE, dwStyle | SS_NOTIFY);
  86. // Set the URL as the window text
  87. if (m_strURL.IsEmpty())
  88. GetWindowText(m_strURL);
  89. // Check that the window text isn't empty. If it is, set it as the URL.
  90. CString strWndText;
  91. GetWindowText(strWndText);
  92. if (strWndText.IsEmpty()) {
  93. ASSERT(!m_strURL.IsEmpty()); // Window and URL both empty. DUH!
  94. SetWindowText(m_strURL);
  95. }
  96. // Adjust size of window to fit URL if necessary
  97. PositionWindow();
  98. // Load up the (standard) hyperlink cursor
  99. m_hLinkCursor = AfxGetApp()->LoadStandardCursor(IDC_ARROW);
  100. // Create the tooltip
  101. CRect rect; 
  102. GetClientRect(rect);
  103. m_ToolTip.Create(this);
  104. m_ToolTip.AddTool(this, m_strURL, rect, TOOLTIP_ID);
  105. CStatic::PreSubclassWindow();
  106. }
  107. /////////////////////////////////////////////////////////////////////////////
  108. // CHyperLink operations
  109. void CHyperLink::SetURL(CString strURL)
  110. {
  111. m_strURL = strURL;
  112. PositionWindow();
  113. m_ToolTip.UpdateTipText(strURL, this, TOOLTIP_ID);
  114. }
  115. void CHyperLink::SetColours(COLORREF crLinkColour, COLORREF crVisitedColour) 
  116. m_crLinkColour    = crLinkColour; 
  117. m_crVisitedColour = crVisitedColour; 
  118. Invalidate(); 
  119. }
  120. void CHyperLink::SetVisited(BOOL bVisited /* = TRUE */) 
  121. m_bVisited = bVisited; 
  122. Invalidate(); 
  123. }
  124. void CHyperLink::SetUnderline(BOOL bUnderline /* = TRUE */)
  125. {
  126. m_bUnderline = bUnderline; 
  127. Invalidate(); 
  128. }
  129. void CHyperLink::SetAutoSize(BOOL bAutoSize /* = TRUE */)
  130. {
  131. m_bAdjustToFit = bAutoSize;
  132. PositionWindow();
  133. }
  134. // Move and resize the window so that the window is the same size
  135. // as the hyperlink text. This stops the hyperlink cursor being active
  136. // when it is not directly over the text. If the text is left justified
  137. // then the window is merely shrunk, but if it is centred or right
  138. // justified then the window will have to be moved as well.
  139. //
  140. // Suggested by P錶 K. T鴑der 
  141. void CHyperLink::PositionWindow()
  142. {
  143. if (!m_bAdjustToFit) return;
  144. // Get the current window position
  145. CRect rect;
  146. GetWindowRect(rect);
  147. CWnd* pParent = GetParent();
  148. if (pParent)
  149. pParent->ScreenToClient(rect);
  150. // Get the size of the window text
  151. CString strWndText;
  152. GetWindowText(strWndText);
  153. CDC* pDC = GetDC();
  154. CSize Extent = pDC->GetTextExtent(strWndText);
  155. ReleaseDC(pDC);
  156. // Get the text justification via the window style
  157. DWORD dwStyle = GetStyle();
  158. // Recalc the window size and position based on the text justification
  159. if (dwStyle & SS_CENTERIMAGE)
  160. rect.DeflateRect(0, (rect.Height() - Extent.cy)/2);
  161. else
  162. rect.bottom = rect.top + Extent.cy;
  163. if (dwStyle & SS_CENTER)   
  164. rect.DeflateRect((rect.Width() - Extent.cx)/2, 0);
  165. else if (dwStyle & SS_RIGHT) 
  166. rect.left  = rect.right - Extent.cx;
  167. else // SS_LEFT = 0, so we can't test for it explicitly 
  168. rect.right = rect.left + Extent.cx;
  169. // Move the window
  170. SetWindowPos(NULL, rect.left, rect.top, rect.Width(), rect.Height(), SWP_NOZORDER);
  171. }
  172. /////////////////////////////////////////////////////////////////////////////
  173. // CHyperLink implementation
  174. void CHyperLink::OnClicked()
  175. {
  176. int result = (int)GotoURL(m_strURL, SW_SHOW);
  177. m_bVisited = (result > HINSTANCE_ERROR);
  178. if (!m_bVisited) {
  179. MessageBeep(MB_ICONEXCLAMATION); // Unable to follow link
  180. ReportError(result);
  181. } else 
  182. SetVisited(); // Repaint to show visited colour
  183. }
  184. LONG CHyperLink::GetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata)
  185. {
  186. HKEY hkey;
  187.     LONG retval = RegOpenKeyEx(key, subkey, 0, KEY_QUERY_VALUE, &hkey);
  188.     if (retval == ERROR_SUCCESS) {
  189. long datasize = MAX_PATH;
  190. TCHAR data[MAX_PATH];
  191. RegQueryValue(hkey, NULL, data, &datasize);
  192. lstrcpy(retdata,data);
  193. RegCloseKey(hkey);
  194. }
  195.     return retval;
  196. }
  197. void CHyperLink::ReportError(int nError)
  198. {
  199. CString str;
  200. switch (nError) {
  201. case 0:                       str = "The operating system is outnof memory or resources."; break;
  202. case SE_ERR_PNF:              str = "The specified path was not found."; break;
  203. case SE_ERR_FNF:              str = "The specified file was not found."; break;
  204. case ERROR_BAD_FORMAT:        str = "The .EXE file is invalidn(non-Win32 .EXE or error in .EXE image)."; break;
  205. case SE_ERR_ACCESSDENIED:     str = "The operating system deniednaccess to the specified file."; break;
  206. case SE_ERR_ASSOCINCOMPLETE:  str = "The filename association isnincomplete or invalid."; break;
  207. case SE_ERR_DDEBUSY:          str = "The DDE transaction could notnbe completed because other DDE transactionsnwere being processed."; break;
  208. case SE_ERR_DDEFAIL:          str = "The DDE transaction failed."; break;
  209. case SE_ERR_DDETIMEOUT:       str = "The DDE transaction could notnbe completed because the request timed out."; break;
  210. case SE_ERR_DLLNOTFOUND:      str = "The specified dynamic-link library was not found."; break;
  211. case SE_ERR_NOASSOC:          str = "There is no application associatednwith the given filename extension."; break;
  212. case SE_ERR_OOM:              str = "There was not enough memory to complete the operation."; break;
  213. case SE_ERR_SHARE:            str = "A sharing violation occurred. ";
  214. default:                      str.Format("Unknown Error (%d) occurred.", nError); break;
  215. }
  216. str = "Unable to open hyperlink:nn" + str;
  217. AfxMessageBox(str, MB_ICONEXCLAMATION | MB_OK);
  218. }
  219. HINSTANCE CHyperLink::GotoURL(LPCTSTR url, int showcmd)
  220. {
  221. TCHAR key[MAX_PATH + MAX_PATH];
  222. // First try ShellExecute()
  223. HINSTANCE result = ShellExecute(NULL, _T("open"), url, NULL,NULL, showcmd);
  224. // If it failed, get the .htm regkey and lookup the program
  225. if ((UINT)result <= HINSTANCE_ERROR) {
  226. if (GetRegKey(HKEY_CLASSES_ROOT, _T(".htm"), key) == ERROR_SUCCESS) {
  227. lstrcat(key, _T("\shell\open\command"));
  228. if (GetRegKey(HKEY_CLASSES_ROOT,key,key) == ERROR_SUCCESS) {
  229. TCHAR *pos;
  230. pos = _tcsstr(key, _T(""%1""));
  231. if (pos == NULL) {                       // No quotes found
  232. pos = strstr(key, _T("%1"));       // Check for %1, without quotes 
  233. if (pos == NULL)                   // No parameter at all...
  234. pos = key+lstrlen(key)-1;
  235. else
  236. *pos = '';                 // Remove the parameter
  237. }
  238. else
  239. *pos = '';                       // Remove the parameter
  240. lstrcat(pos, _T(" "));
  241. lstrcat(pos, url);
  242. result = (HINSTANCE) WinExec(key,showcmd);
  243. }
  244. }
  245. }
  246. return result;
  247. }