1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/os2/button.cpp
3 // Purpose: wxButton
4 // Author: David Webster
5 // Modified by:
6 // Created: 10/13/99
7 // Copyright: (c) David Webster
8 // Licence: wxWindows licence
9 /////////////////////////////////////////////////////////////////////////////
10
11 // For compilers that support precompilation, includes "wx.h".
12 #include "wx/wxprec.h"
13
14 #include "wx/button.h"
15
16 #ifndef WX_PRECOMP
17 #include "wx/app.h"
18 #include "wx/brush.h"
19 #include "wx/panel.h"
20 #include "wx/bmpbuttn.h"
21 #include "wx/settings.h"
22 #include "wx/dcscreen.h"
23 #include "wx/scrolwin.h"
24 #include "wx/toplevel.h"
25 #endif
26
27 #include "wx/stockitem.h"
28 #include "wx/os2/private.h"
29
30 #define BUTTON_HEIGHT_FROM_CHAR_HEIGHT(cy) (11*EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy)/10)
31
32 //
33 // Should be at the very least less than winDEFAULT_BUTTON_MARGIN
34 //
35 #define FOCUS_MARGIN 3
36
37 #ifndef BST_CHECKED
38 #define BST_CHECKED 0x0001
39 #endif
40
41 // Button
42
Create(wxWindow * pParent,wxWindowID vId,const wxString & rsLbl,const wxPoint & rPos,const wxSize & rSize,long lStyle,const wxValidator & rValidator,const wxString & rsName)43 bool wxButton::Create( wxWindow* pParent,
44 wxWindowID vId,
45 const wxString& rsLbl,
46 const wxPoint& rPos,
47 const wxSize& rSize,
48 long lStyle,
49 const wxValidator& rValidator,
50 const wxString& rsName)
51 {
52 wxString rsLabel(rsLbl);
53 if (rsLabel.empty() && wxIsStockID(vId))
54 rsLabel = wxGetStockLabel(vId);
55
56 wxString sLabel = ::wxPMTextToLabel(rsLabel);
57
58 SetName(rsName);
59 #if wxUSE_VALIDATORS
60 SetValidator(rValidator);
61 #endif
62 m_windowStyle = lStyle;
63 pParent->AddChild((wxButton *)this);
64 if (vId == -1)
65 m_windowId = NewControlId();
66 else
67 m_windowId = vId;
68 lStyle = WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON;
69
70 //
71 // OS/2 PM does not have Right/Left/Top/Bottom styles.
72 // We will have to define an additional style when we implement notebooks
73 // for a notebook page button
74 //
75 if (m_windowStyle & wxCLIP_SIBLINGS )
76 lStyle |= WS_CLIPSIBLINGS;
77
78 m_hWnd = (WXHWND)::WinCreateWindow( GetHwndOf(pParent) // Parent handle
79 ,WC_BUTTON // A Button class window
80 ,sLabel.c_str() // Button text
81 ,lStyle // Button style
82 ,0, 0, 0, 0 // Location and size
83 ,GetHwndOf(pParent) // Owner handle
84 ,HWND_TOP // Top of Z-Order
85 ,vId // Identifier
86 ,NULL // No control data
87 ,NULL // No Presentation parameters
88 );
89 if (m_hWnd == 0)
90 {
91 return false;
92 }
93
94 //
95 // Subclass again for purposes of dialog editing mode
96 //
97 SubclassWin(m_hWnd);
98 wxFont* pButtonFont = new wxFont( 8
99 ,wxSWISS
100 ,wxNORMAL
101 ,wxNORMAL
102 );
103 SetFont(*pButtonFont);
104 SetXComp(0);
105 SetYComp(0);
106 SetSize( rPos.x
107 ,rPos.y
108 ,rSize.x
109 ,rSize.y
110 );
111 delete pButtonFont;
112 return true;
113 } // end of wxButton::Create
114
~wxButton()115 wxButton::~wxButton()
116 {
117 wxTopLevelWindow *tlw = wxDynamicCast(wxGetTopLevelParent(this), wxTopLevelWindow);
118
119 if (tlw)
120 {
121 if (tlw->GetDefaultItem() == this)
122 {
123 //
124 // Don't leave the panel with invalid default item
125 //
126 tlw->SetDefaultItem(NULL);
127 }
128 }
129 } // end of wxButton::~wxButton
130
131 // ----------------------------------------------------------------------------
132 // size management including autosizing
133 // ----------------------------------------------------------------------------
134
DoGetBestSize() const135 wxSize wxButton::DoGetBestSize() const
136 {
137 wxString rsLabel = wxGetWindowText(GetHWND());
138 int nWidthButton;
139 int nWidthChar;
140 int nHeightChar;
141 wxFont vFont = (wxFont)GetFont();
142
143 GetTextExtent( rsLabel
144 ,&nWidthButton
145 ,NULL
146 );
147
148 wxGetCharSize( GetHWND()
149 ,&nWidthChar
150 ,&nHeightChar
151 ,&vFont
152 );
153
154 //
155 // Add a margin - the button is wider than just its label
156 //
157 nWidthButton += 3 * nWidthChar;
158
159 //
160 // The button height is proportional to the height of the font used
161 //
162 int nHeightButton = BUTTON_HEIGHT_FROM_CHAR_HEIGHT(nHeightChar);
163
164 //
165 // Need a little extra to make it look right
166 //
167 nHeightButton += (int)(nHeightChar/1.5);
168
169 if (!HasFlag(wxBU_EXACTFIT))
170 {
171 wxSize vSize = GetDefaultSize();
172
173 if (nWidthButton > vSize.x)
174 vSize.x = nWidthButton;
175 if (nHeightButton > vSize.y)
176 vSize.y = nHeightButton;
177 return vSize;
178 }
179 return wxSize( nWidthButton
180 ,nHeightButton
181 );
182 } // end of wxButton::DoGetBestSize
183
184 /* static */
GetDefaultSize()185 wxSize wxButton::GetDefaultSize()
186 {
187 static wxSize vSizeBtn;
188
189 if (vSizeBtn.x == 0)
190 {
191 wxScreenDC vDc;
192
193 vDc.SetFont(wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT));
194
195 //
196 // The size of a standard button in the dialog units is 50x14,
197 // translate this to pixels
198 // NB1: the multipliers come from the Windows convention
199 // NB2: the extra +1/+2 were needed to get the size be the same as the
200 // size of the buttons in the standard dialog - I don't know how
201 // this happens, but on my system this size is 75x23 in pixels and
202 // 23*8 isn't even divisible by 14... Would be nice to understand
203 // why these constants are needed though!
204 vSizeBtn.x = (50 * (vDc.GetCharWidth() + 1))/4;
205 vSizeBtn.y = ((14 * vDc.GetCharHeight()) + 2)/8;
206 }
207 return vSizeBtn;
208 } // end of wxButton::GetDefaultSize
209
Command(wxCommandEvent & rEvent)210 void wxButton::Command (
211 wxCommandEvent& rEvent
212 )
213 {
214 ProcessCommand (rEvent);
215 } // end of wxButton::Command
216
217 // ----------------------------------------------------------------------------
218 // helpers
219 // ----------------------------------------------------------------------------
220
SendClickEvent()221 bool wxButton::SendClickEvent()
222 {
223 wxCommandEvent vEvent( wxEVT_BUTTON
224 ,GetId()
225 );
226
227 vEvent.SetEventObject(this);
228 return ProcessCommand(vEvent);
229 } // end of wxButton::SendClickEvent
230
SetDefault()231 wxWindow *wxButton::SetDefault()
232 {
233 //
234 // Set this one as the default button both for wxWidgets and Windows
235 //
236 wxWindow* pWinOldDefault = wxButtonBase::SetDefault();
237
238 SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton), false);
239 SetDefaultStyle( this, true );
240
241 return pWinOldDefault;
242 } // end of wxButton::SetDefault
243
SetTmpDefault()244 void wxButton::SetTmpDefault()
245 {
246 wxTopLevelWindow *tlw = wxDynamicCast(wxGetTopLevelParent(this), wxTopLevelWindow);
247
248 wxCHECK_RET( tlw, wxT("button without top level window?") );
249
250 wxWindow* pWinOldDefault = tlw->GetDefaultItem();
251
252 tlw->SetTmpDefaultItem(this);
253 SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton), false);
254 SetDefaultStyle( this, true );
255 } // end of wxButton::SetTmpDefault
256
UnsetTmpDefault()257 void wxButton::UnsetTmpDefault()
258 {
259 wxTopLevelWindow *tlw = wxDynamicCast(wxGetTopLevelParent(this), wxTopLevelWindow);
260
261 wxCHECK_RET( tlw, wxT("button without top level window?") );
262
263 tlw->SetTmpDefaultItem(NULL);
264
265 wxWindow* pWinOldDefault = tlw->GetDefaultItem();
266
267 SetDefaultStyle( this, false );
268 SetDefaultStyle( wxDynamicCast(pWinOldDefault, wxButton), true );
269 } // end of wxButton::UnsetTmpDefault
270
SetDefaultStyle(wxButton * pBtn,bool bOn)271 void wxButton::SetDefaultStyle(
272 wxButton* pBtn
273 , bool bOn
274 )
275 {
276 long lStyle;
277 //
278 // We may be called with NULL pointer -- simpler to do the check here than
279 // in the caller which does wxDynamicCast()
280 //
281 if (!pBtn)
282 return;
283
284 //
285 // First, let DefDlgProc() know about the new default button
286 //
287 if (bOn)
288 {
289 if (!wxTheApp->IsActive())
290 return;
291
292 //
293 // In OS/2 the dialog/panel doesn't really know it has a default
294 // button, the default button simply has that style. We'll just
295 // simulate by setting focus to it
296 //
297 pBtn->SetFocus();
298 }
299 lStyle = ::WinQueryWindowULong(GetHwndOf(pBtn), QWL_STYLE);
300 if (!(lStyle & BS_DEFAULT) == bOn)
301 {
302 if ((lStyle & BS_USERBUTTON) != BS_USERBUTTON)
303 {
304 if (bOn)
305 lStyle |= BS_DEFAULT;
306 else
307 lStyle &= ~BS_DEFAULT;
308 ::WinSetWindowULong(GetHwndOf(pBtn), QWL_STYLE, lStyle);
309 }
310 else
311 {
312 //
313 // Redraw the button - it will notice itself that it's not the
314 // default one any longer
315 //
316 pBtn->Refresh();
317 }
318 }
319 } // end of wxButton::UpdateDefaultStyle
320
321 // ----------------------------------------------------------------------------
322 // event/message handlers
323 // ----------------------------------------------------------------------------
324
OS2Command(WXUINT uParam,WXWORD WXUNUSED (wId))325 bool wxButton::OS2Command(WXUINT uParam, WXWORD WXUNUSED(wId))
326 {
327 bool bProcessed = false;
328
329 switch (uParam)
330 {
331 case BN_CLICKED: // normal buttons send this
332 case BN_DBLCLICKED: // owner-drawn ones also send this
333 bProcessed = SendClickEvent();
334 break;
335 }
336
337 return bProcessed;
338 } // end of wxButton::OS2Command
339
OnCtlColor(WXHDC WXUNUSED (pDC),WXHWND WXUNUSED (pWnd),WXUINT WXUNUSED (nCtlColor),WXUINT WXUNUSED (uMessage),WXWPARAM WXUNUSED (wParam),WXLPARAM WXUNUSED (lParam))340 WXHBRUSH wxButton::OnCtlColor( WXHDC WXUNUSED(pDC),
341 WXHWND WXUNUSED(pWnd),
342 WXUINT WXUNUSED(nCtlColor),
343 WXUINT WXUNUSED(uMessage),
344 WXWPARAM WXUNUSED(wParam),
345 WXLPARAM WXUNUSED(lParam) )
346 {
347 wxBrush* pBackgroundBrush = wxTheBrushList->FindOrCreateBrush( GetBackgroundColour()
348 ,wxSOLID
349 );
350
351 return (WXHBRUSH)pBackgroundBrush->GetResourceHandle();
352 } // end of wxButton::OnCtlColor
353
MakeOwnerDrawn()354 void wxButton::MakeOwnerDrawn()
355 {
356 long lStyle = 0L;
357
358 lStyle = ::WinQueryWindowULong(GetHwnd(), QWL_STYLE);
359 if ((lStyle & BS_USERBUTTON) != BS_USERBUTTON)
360 {
361 //
362 // Make it so
363 //
364 lStyle |= BS_USERBUTTON;
365 ::WinSetWindowULong(GetHwnd(), QWL_STYLE, lStyle);
366 }
367 } // end of wxButton::MakeOwnerDrawn
368
OS2GetStyle(long lStyle,WXDWORD * pdwExstyle) const369 WXDWORD wxButton::OS2GetStyle(
370 long lStyle
371 , WXDWORD* pdwExstyle
372 ) const
373 {
374 //
375 // Buttons never have an external border, they draw their own one
376 //
377 WXDWORD dwStyle = wxControl::OS2GetStyle( (lStyle & ~wxBORDER_MASK) | wxBORDER_NONE
378 ,pdwExstyle
379 );
380
381 //
382 // We must use WS_CLIPSIBLINGS with the buttons or they would draw over
383 // each other in any resizable dialog which has more than one button in
384 // the bottom
385 //
386 dwStyle |= WS_CLIPSIBLINGS;
387 return dwStyle;
388 } // end of wxButton::OS2GetStyle
389
WindowProc(WXUINT uMsg,WXWPARAM wParam,WXLPARAM lParam)390 MRESULT wxButton::WindowProc( WXUINT uMsg,
391 WXWPARAM wParam,
392 WXLPARAM lParam )
393 {
394 //
395 // When we receive focus, we want to temporary become the default button in
396 // our parent panel so that pressing "Enter" would activate us -- and when
397 // losing it we should restore the previous default button as well
398 //
399 if (uMsg == WM_SETFOCUS)
400 {
401 if (SHORT1FROMMP(lParam) == TRUE)
402 SetTmpDefault();
403 else
404 UnsetTmpDefault();
405
406 //
407 // Let the default processign take place too
408 //
409 }
410
411 else if (uMsg == WM_BUTTON1DBLCLK)
412 {
413 //
414 // Emulate a click event to force an owner-drawn button to change its
415 // appearance - without this, it won't do it
416 //
417 (void)wxControl::OS2WindowProc( WM_BUTTON1DOWN
418 ,wParam
419 ,lParam
420 );
421
422 //
423 // And conitnue with processing the message normally as well
424 //
425 }
426
427 //
428 // Let the base class do all real processing
429 //
430 return (wxControl::OS2WindowProc( uMsg
431 ,wParam
432 ,lParam
433 ));
434 } // end of wxWindowProc
435