| 1 | /////////////////////////////////////////////////////////////////////////////// |
| 2 | // Name: src/os2/tooltip.cpp |
| 3 | // Purpose: wxToolTip class implementation for MSW |
| 4 | // Author: David Webster |
| 5 | // Modified by: |
| 6 | // Created: 10/17/99 |
| 7 | // RCS-ID: $Id$ |
| 8 | // Copyright: (c) David Webster |
| 9 | // Licence: wxWindows licence |
| 10 | /////////////////////////////////////////////////////////////////////////////// |
| 11 | |
| 12 | // ============================================================================ |
| 13 | // declarations |
| 14 | // ============================================================================ |
| 15 | |
| 16 | // ---------------------------------------------------------------------------- |
| 17 | // headers |
| 18 | // ---------------------------------------------------------------------------- |
| 19 | |
| 20 | #include "wx/wxprec.h" |
| 21 | |
| 22 | #ifndef WX_PRECOMP |
| 23 | #include "wx/wx.h" |
| 24 | #endif |
| 25 | |
| 26 | #if wxUSE_TOOLTIPS |
| 27 | |
| 28 | #include "wx/tooltip.h" |
| 29 | #include "wx/os2/private.h" |
| 30 | |
| 31 | // ---------------------------------------------------------------------------- |
| 32 | // global variables |
| 33 | // ---------------------------------------------------------------------------- |
| 34 | |
| 35 | // ---------------------------------------------------------------------------- |
| 36 | // ctor & dtor |
| 37 | // ---------------------------------------------------------------------------- |
| 38 | |
| 39 | wxToolTip::wxToolTip( |
| 40 | const wxString& rsTip |
| 41 | ) |
| 42 | : m_sText(rsTip) |
| 43 | , m_pWindow(NULL) |
| 44 | { |
| 45 | Create(rsTip); |
| 46 | } // end of wxToolTip::wxToolTip |
| 47 | |
| 48 | wxToolTip::~wxToolTip() |
| 49 | { |
| 50 | if (m_hWnd) |
| 51 | ::WinDestroyWindow(m_hWnd); |
| 52 | } // end of wxToolTip::~wxToolTip |
| 53 | |
| 54 | void wxToolTip::Create( |
| 55 | const wxString& rsTip |
| 56 | ) |
| 57 | { |
| 58 | ULONG lStyle = ES_READONLY | ES_MARGIN | ES_CENTER; |
| 59 | LONG lColor; |
| 60 | char zFont[128]; |
| 61 | |
| 62 | m_hWnd = ::WinCreateWindow( HWND_DESKTOP |
| 63 | ,WC_ENTRYFIELD |
| 64 | ,rsTip.c_str() |
| 65 | ,lStyle |
| 66 | ,0, 0, 0, 0 |
| 67 | ,NULLHANDLE |
| 68 | ,HWND_TOP |
| 69 | ,1 |
| 70 | ,NULL |
| 71 | ,NULL |
| 72 | ); |
| 73 | if (!m_hWnd) |
| 74 | { |
| 75 | wxLogError(wxT("Unable to create tooltip window")); |
| 76 | } |
| 77 | |
| 78 | wxColour vColor( wxT("YELLOW") ); |
| 79 | lColor = (LONG)vColor.GetPixel(); |
| 80 | ::WinSetPresParam( m_hWnd |
| 81 | ,PP_BACKGROUNDCOLOR |
| 82 | ,sizeof(LONG) |
| 83 | ,(PVOID)&lColor |
| 84 | ); |
| 85 | strcpy(zFont, "8.Helv"); |
| 86 | ::WinSetPresParam( m_hWnd |
| 87 | ,PP_FONTNAMESIZE |
| 88 | ,strlen(zFont) + 1 |
| 89 | ,(PVOID)zFont |
| 90 | ); |
| 91 | } // end of wxToolTip::Create |
| 92 | |
| 93 | void wxToolTip::DisplayToolTipWindow( |
| 94 | const wxPoint& rPoint |
| 95 | ) |
| 96 | { |
| 97 | LONG lX = rPoint.x; |
| 98 | LONG lY = rPoint.y - 30; |
| 99 | LONG lWidth = 0L; |
| 100 | LONG lHeight = 0L; |
| 101 | |
| 102 | lWidth = m_sText.Length() * 8; |
| 103 | lHeight = 15; |
| 104 | ::WinSetWindowPos( m_hWnd |
| 105 | ,HWND_TOP |
| 106 | ,lX |
| 107 | ,lY |
| 108 | ,lWidth |
| 109 | ,lHeight |
| 110 | ,SWP_MOVE | SWP_SIZE | SWP_SHOW |
| 111 | ); |
| 112 | } // end of wxToolTip::DisplayToolTipWindow |
| 113 | |
| 114 | void wxToolTip::HideToolTipWindow() |
| 115 | { |
| 116 | ::WinShowWindow(m_hWnd, FALSE); |
| 117 | } // end of wxToolTip::HideToolTipWindow |
| 118 | |
| 119 | void wxToolTip::SetTip( |
| 120 | const wxString& rsTip |
| 121 | ) |
| 122 | { |
| 123 | SWP vSwp; |
| 124 | LONG lWidth = 0L; |
| 125 | LONG lHeight = 0L; |
| 126 | |
| 127 | ::WinQueryWindowPos(m_hWnd, &vSwp); |
| 128 | m_sText = rsTip; |
| 129 | lWidth = rsTip.Length() * 8; |
| 130 | lHeight = 15; |
| 131 | ::WinSetWindowPos( m_hWnd |
| 132 | ,HWND_TOP |
| 133 | ,vSwp.cx |
| 134 | ,vSwp.cy |
| 135 | ,lWidth |
| 136 | ,lHeight |
| 137 | ,SWP_MOVE | SWP_SIZE | SWP_SHOW |
| 138 | ); |
| 139 | } // end of wxToolTip::SetTip |
| 140 | |
| 141 | #endif // wxUSE_TOOLTIPS |