]> git.saurik.com Git - wxWidgets.git/blob - src/os2/gauge.cpp
Use wxMarkupParser in wxStaticText for dealing with markup.
[wxWidgets.git] / src / os2 / gauge.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/os2/gauge.cpp
3 // Purpose: wxGauge class
4 // Author: David Webster
5 // Modified by:
6 // Created: 10/06/99
7 // RCS-ID: $Id$
8 // Copyright: (c) David Webster
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #include "wx/wxprec.h"
13
14 #if wxUSE_GAUGE
15
16 #include "wx/gauge.h"
17
18 #ifndef WX_PRECOMP
19 #include "wx/utils.h"
20 #include "wx/scrolwin.h"
21 #endif
22
23 #include "wx/os2/private.h"
24
25 static WXFARPROC fnWndProcGauge = (WXFARPROC)NULL;
26 extern void wxAssociateWinWithHandle( HWND hWnd
27 ,wxWindowOS2* pWin
28 );
29
30 MRESULT EXPENTRY wxGaugeWndProc( HWND hWnd,
31 UINT uMessage,
32 MPARAM wParam,
33 MPARAM lParam )
34 {
35 wxGauge* pGauge = (wxGauge *)::WinQueryWindowULong( hWnd
36 ,QWL_USER
37 );
38 HPS hPS;
39 RECTL vRect;
40 RECTL vRect2;
41 RECTL vRect3;
42 double dPixelToRange = 0.0;
43 double dRange = 0.0;
44
45 switch (uMessage )
46 {
47 case WM_PAINT:
48 hPS = ::WinBeginPaint( hWnd
49 ,NULLHANDLE
50 ,&vRect
51 );
52 if(hPS)
53 {
54 ::WinQueryWindowRect(hWnd, &vRect);
55 ::GpiCreateLogColorTable( hPS
56 ,0L
57 ,LCOLF_CONSECRGB
58 ,0L
59 ,(LONG)wxTheColourDatabase->m_nSize
60 ,(PLONG)wxTheColourDatabase->m_palTable
61 );
62 ::GpiCreateLogColorTable( hPS
63 ,0L
64 ,LCOLF_RGB
65 ,0L
66 ,0L
67 ,NULL
68 );
69 //
70 // Draw the guage box
71 //
72 LONG lColor = 0x00FFFFFF; // White
73 POINTL vPoint = {vRect.xLeft + 1, vRect.yBottom + 1};
74
75 ::GpiSetColor(hPS, lColor);
76 ::GpiMove(hPS, &vPoint);
77 vPoint.x = vRect.xRight - 1;
78 ::GpiLine(hPS, &vPoint);
79 vPoint.y = vRect.yTop - 1;
80 ::GpiLine(hPS, &vPoint);
81 lColor = 0x000C0C0C; // Darkish Grey to give depth feel
82 ::GpiSetColor(hPS, lColor);
83 vPoint.x = vRect.xLeft + 1;
84 ::GpiLine(hPS, &vPoint);
85 vPoint.y = vRect.yBottom + 1;
86 ::GpiLine(hPS, &vPoint);
87 vRect3.xLeft = vRect.xLeft + 2;
88 vRect3.xRight = vRect.xRight - 2;
89 vRect3.yTop = vRect.yTop - 2;
90 vRect3.yBottom = vRect.yBottom + 2;
91
92 if (pGauge->GetWindowStyleFlag() & wxGA_VERTICAL)
93 {
94 dRange = (double)(vRect3.yTop - vRect3.yBottom);
95 dPixelToRange = dRange/(double)pGauge->GetRange();
96 vRect2.yTop = (int)(pGauge->GetValue() * dPixelToRange);
97 vRect2.yBottom = vRect3.yBottom;
98 vRect2.xLeft = vRect3.xLeft;
99 vRect2.xRight = vRect3.xRight;
100 vRect3.yBottom = vRect2.yTop;
101 if (vRect3.yBottom <= 1)
102 vRect3.yBottom = 2;
103 ::WinFillRect(hPS, &vRect3, pGauge->GetBackgroundColour().GetPixel());
104 ::WinFillRect(hPS, &vRect2, pGauge->GetForegroundColour().GetPixel());
105 }
106 else
107 {
108 dRange = (double)(vRect3.xRight - vRect3.xLeft);
109 dPixelToRange = dRange/(double)pGauge->GetRange();
110 vRect2.yTop = vRect3.yTop;
111 vRect2.yBottom = vRect3.yBottom;
112 vRect2.xLeft = vRect3.xLeft;
113 vRect2.xRight = (int)(pGauge->GetValue() * dPixelToRange);
114 vRect3.xLeft = vRect2.xRight;
115 if (vRect3.xLeft <= 1)
116 vRect3.xLeft = 2;
117 ::WinFillRect(hPS, &vRect3, pGauge->GetBackgroundColour().GetPixel());
118 ::WinFillRect(hPS, &vRect2, pGauge->GetForegroundColour().GetPixel());
119 }
120 ::WinEndPaint(hPS);
121 }
122 }
123 return (fnWndProcGauge( hWnd
124 ,(ULONG)uMessage
125 ,(MPARAM)wParam
126 ,(MPARAM)lParam
127 )
128 );
129 } // end of wxGaugeWndProc
130
131 bool wxGauge::Create( wxWindowOS2* pParent,
132 wxWindowID vId,
133 int nRange,
134 const wxPoint& rPos,
135 const wxSize& rSize,
136 long lStyle,
137 const wxValidator& rValidator,
138 const wxString& rsName )
139 {
140 int nX = rPos.x;
141 int nY = rPos.y;
142 int nWidth = rSize.x;
143 int nHeight = rSize.y;
144 long lMsStyle = 0L;
145 SWP vSwp;
146
147 SetName(rsName);
148 #if wxUSE_VALIDATORS
149 SetValidator(rValidator);
150 #endif
151 if (pParent)
152 pParent->AddChild(this);
153 m_backgroundColour.Set(wxString(wxT("LIGHT GREY")));
154 m_foregroundColour.Set(wxString(wxT("NAVY")));
155
156 m_nRangeMax = nRange;
157 m_nGaugePos = 0;
158 m_windowStyle = lStyle;
159
160 if (vId == wxID_ANY)
161 m_windowId = (int)NewControlId();
162 else
163 m_windowId = vId;
164
165 if (m_windowStyle & wxCLIP_SIBLINGS )
166 lMsStyle |= WS_CLIPSIBLINGS;
167
168 //
169 // OS/2 will use an edit control for this, since there is not a native gauge
170 // Other choices include using an armless slider but they are more difficult
171 // to control and manipulate
172 //
173
174 lMsStyle = WS_VISIBLE | ES_MARGIN | ES_LEFT | ES_READONLY;
175 if (m_windowStyle & wxCLIP_SIBLINGS)
176 lMsStyle |= WS_CLIPSIBLINGS;
177
178 m_hWnd = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
179 ,WC_ENTRYFIELD // Window class
180 ,(PSZ)NULL // Initial Text
181 ,(ULONG)lMsStyle // Style flags
182 ,0L, 0L, 0L, 0L // Origin -- 0 size
183 ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
184 ,HWND_TOP // initial z position
185 ,(HMENU)m_windowId // Window identifier
186 ,NULL // Slider control data
187 ,NULL // no Presentation parameters
188 );
189
190 wxAssociateWinWithHandle( m_hWnd
191 ,(wxWindowOS2*)this
192 );
193 ::WinSetWindowULong(GetHwnd(), QWL_USER, (LONG)this);
194 fnWndProcGauge = (WXFARPROC)::WinSubclassWindow(m_hWnd, (PFNWP)wxGaugeWndProc);
195 ::WinQueryWindowPos(m_hWnd, &vSwp);
196 SetXComp(vSwp.x);
197 SetYComp(vSwp.y);
198 wxFont* pTextFont = new wxFont( 10
199 ,wxMODERN
200 ,wxNORMAL
201 ,wxNORMAL
202 );
203 SetFont(*pTextFont);
204 if (nWidth == -1L)
205 nWidth = 50L;
206 if (nHeight == -1L)
207 nHeight = 28L;
208 SetSize( nX
209 ,nY
210 ,nWidth
211 ,nHeight
212 );
213 m_nWidth = nWidth; // Save for GetBestSize
214 m_nHeight = nHeight;
215 ::WinShowWindow((HWND)GetHWND(), TRUE);
216 delete pTextFont;
217 return true;
218 } // end of wxGauge::Create
219
220 int wxGauge::GetBezelFace() const
221 {
222 return 0;
223 } // end of wxGauge::GetBezelFace
224
225 int wxGauge::GetRange() const
226 {
227 return m_nRangeMax;
228 } // end of wxGauge::GetRange
229
230 int wxGauge::GetShadowWidth() const
231 {
232 return 0;
233 } // end of wxGauge::GetShadowWidth
234
235 int wxGauge::GetValue() const
236 {
237 return m_nGaugePos;
238 } // end of wxGauge::GetValue
239
240 bool wxGauge::SetBackgroundColour( const wxColour& rColour )
241 {
242 if (!wxControl::SetBackgroundColour(rColour))
243 return false;
244
245 LONG lColor = (LONG)rColour.GetPixel();
246
247 ::WinSetPresParam( GetHwnd()
248 ,PP_BACKGROUNDCOLOR
249 ,sizeof(LONG)
250 ,(PVOID)&lColor
251 );
252 return true;
253 } // end of wxGauge::SetBackgroundColour
254
255 void wxGauge::SetBezelFace( int WXUNUSED(nWidth) )
256 {
257 } // end of wxGauge::SetBezelFace
258
259 bool wxGauge::SetForegroundColour( const wxColour& rColour )
260 {
261 if (!wxControl::SetForegroundColour(rColour))
262 return false;
263
264 LONG lColor = (LONG)rColour.GetPixel();
265
266 ::WinSetPresParam( GetHwnd()
267 ,PP_FOREGROUNDCOLOR
268 ,sizeof(LONG)
269 ,(PVOID)&lColor
270 );
271
272 return true;
273 } // end of wxGauge::SetForegroundColour
274
275 void wxGauge::SetRange( int nRange )
276 {
277 m_nRangeMax = nRange;
278 } // end of wxGauge::SetRange
279
280 void wxGauge::SetShadowWidth( int WXUNUSED(nWidth) )
281 {
282 } // end of wxGauge::SetShadowWidth
283
284 void wxGauge::SetValue( int nPos )
285 {
286 RECT vRect;
287
288 m_nGaugePos = nPos;
289 ::WinQueryWindowRect(GetHwnd(), &vRect);
290 ::WinInvalidateRect(GetHwnd(), &vRect, FALSE);
291 } // end of wxGauge::SetValue
292
293 wxSize wxGauge::DoGetBestSize() const
294 {
295 return wxSize(m_nWidth,m_nHeight);
296 }
297
298 #endif // wxUSE_GAUGE