]> git.saurik.com Git - wxWidgets.git/blob - src/os2/control.cpp
Remove all lines containing cvs/svn "$Id$" keyword.
[wxWidgets.git] / src / os2 / control.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/os2/control.cpp
3 // Purpose: wxControl class
4 // Author: David Webster
5 // Modified by:
6 // Created: 09/17/99
7 // Copyright: (c) Julian Smart
8 // Licence: wxWindows licence
9 /////////////////////////////////////////////////////////////////////////////
10
11 // For compilers that support precompilation, includes "wx.h".
12 #include "wx/wxprec.h"
13
14 #include "wx/control.h"
15
16 #ifndef WX_PRECOMP
17 #include "wx/event.h"
18 #include "wx/app.h"
19 #include "wx/dcclient.h"
20 #include "wx/scrolwin.h"
21 #include "wx/log.h"
22 #endif
23
24 #include "wx/os2/dc.h"
25 #include "wx/os2/private.h"
26
27 IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
28
29 BEGIN_EVENT_TABLE(wxControl, wxWindow)
30 EVT_ERASE_BACKGROUND(wxControl::OnEraseBackground)
31 END_EVENT_TABLE()
32
33 // Item members
34 wxControl::wxControl()
35 {
36 } // end of wxControl::wxControl
37
38 bool wxControl::Create( wxWindow* pParent,
39 wxWindowID vId,
40 const wxPoint& rPos,
41 const wxSize& rSize,
42 long lStyle,
43 const wxValidator& rValidator,
44 const wxString& rsName )
45 {
46 bool bRval = wxWindow::Create( pParent
47 ,vId
48 ,rPos
49 ,rSize
50 ,lStyle
51 ,rsName
52 );
53 if (bRval)
54 {
55 #if wxUSE_VALIDATORS
56 SetValidator(rValidator);
57 #endif
58 }
59 return bRval;
60 } // end of wxControl::Create
61
62 bool wxControl::OS2CreateControl( const wxChar* zClassname,
63 const wxString& rsLabel,
64 const wxPoint& rPos,
65 const wxSize& rSize,
66 long lStyle )
67 {
68 WXDWORD dwExstyle;
69 WXDWORD dwStyle = OS2GetStyle( lStyle, &dwExstyle );
70
71 return OS2CreateControl( zClassname
72 ,dwStyle
73 ,rPos
74 ,rSize
75 ,rsLabel
76 ,dwExstyle
77 );
78 } // end of wxControl::OS2CreateControl
79
80 bool wxControl::OS2CreateControl( const wxChar* zClassname,
81 WXDWORD dwStyle,
82 const wxPoint& rPos,
83 const wxSize& rSize,
84 const wxString& rsLabel,
85 WXDWORD dwExstyle )
86 {
87 //
88 // Doesn't do anything at all under OS/2
89 //
90 if (dwExstyle == (WXDWORD)-1)
91 {
92 dwExstyle = 0;
93 (void) OS2GetStyle(GetWindowStyle(), &dwExstyle);
94 }
95 //
96 // All controls should have these styles (wxWidgets creates all controls
97 // visible by default)
98 //
99 if (m_isShown )
100 dwStyle |= WS_VISIBLE;
101
102 wxWindow* pParent = GetParent();
103 PSZ zClass = "";
104
105 if (!pParent)
106 return false;
107
108 if ((wxStrcmp(zClassname, wxT("COMBOBOX"))) == 0)
109 zClass = WC_COMBOBOX;
110 else if ((wxStrcmp(zClassname, wxT("STATIC"))) == 0)
111 zClass = WC_STATIC;
112 else if ((wxStrcmp(zClassname, wxT("BUTTON"))) == 0)
113 zClass = WC_BUTTON;
114 else if ((wxStrcmp(zClassname, wxT("NOTEBOOK"))) == 0)
115 zClass = WC_NOTEBOOK;
116 else if ((wxStrcmp(zClassname, wxT("CONTAINER"))) == 0)
117 zClass = WC_CONTAINER;
118 if ((zClass == WC_STATIC) || (zClass == WC_BUTTON))
119 dwStyle |= DT_MNEMONIC;
120
121 m_dwStyle = dwStyle;
122 m_label = rsLabel;
123 wxString label;
124 if (dwStyle & DT_MNEMONIC)
125 label = ::wxPMTextToLabel(m_label);
126 else
127 label = m_label;
128
129 // clipping siblings does not yet work
130 dwStyle &= ~WS_CLIPSIBLINGS;
131
132 m_hWnd = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
133 ,zClass // Window class
134 ,label.c_str() // Initial Text
135 ,(ULONG)dwStyle // Style flags
136 ,(LONG)0 // X pos of origin
137 ,(LONG)0 // Y pos of origin
138 ,(LONG)0 // control width
139 ,(LONG)0 // control height
140 ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
141 ,HWND_TOP // initial z position
142 ,(ULONG)GetId() // Window identifier
143 ,NULL // no control data
144 ,NULL // no Presentation parameters
145 );
146
147 if ( !m_hWnd )
148 {
149 wxLogError(wxT("Failed to create a control of class '%s'"), zClassname);
150
151 return false;
152 }
153 //
154 // Subclass again for purposes of dialog editing mode
155 //
156 SubclassWin(m_hWnd);
157
158 //
159 // Controls use the same colours as their parent dialog by default
160 //
161 InheritAttributes();
162 //
163 // All OS/2 ctrls use the small font
164 //
165 SetFont(*wxSMALL_FONT);
166
167 SetXComp(0);
168 SetYComp(0);
169 SetSize( rPos.x, rPos.y, rSize.x, rSize.y );
170 return true;
171 } // end of wxControl::OS2CreateControl
172
173 wxSize wxControl::DoGetBestSize() const
174 {
175 return wxSize(DEFAULT_ITEM_WIDTH, DEFAULT_ITEM_HEIGHT);
176 } // end of wxControl::DoGetBestSize
177
178 bool wxControl::ProcessCommand(wxCommandEvent& event)
179 {
180 return HandleWindowEvent(event);
181 }
182
183 WXHBRUSH wxControl::OnCtlColor(WXHDC hWxDC,
184 WXHWND WXUNUSED(hWnd),
185 WXUINT WXUNUSED(uCtlColor),
186 WXUINT WXUNUSED(uMessage),
187 WXWPARAM WXUNUSED(wParam),
188 WXLPARAM WXUNUSED(lParam))
189 {
190 HPS hPS = (HPS)hWxDC; // pass in a PS handle in OS/2
191 wxColour vColFore = GetForegroundColour();
192 wxColour vColBack = GetBackgroundColour();
193
194 if (GetParent()->GetTransparentBackground())
195 ::GpiSetBackMix(hPS, BM_LEAVEALONE);
196 else
197 ::GpiSetBackMix(hPS, BM_OVERPAINT);
198
199 ::GpiSetBackColor(hPS, vColBack.GetPixel());
200 ::GpiSetColor(hPS, vColFore.GetPixel());
201
202 wxBrush* pBrush = wxTheBrushList->FindOrCreateBrush( vColBack
203 ,wxSOLID
204 );
205 return (WXHBRUSH)pBrush->GetResourceHandle();
206 } // end of wxControl::OnCtlColor
207
208 void wxControl::OnEraseBackground( wxEraseEvent& rEvent )
209 {
210 RECTL vRect;
211 wxPMDCImpl *impl = (wxPMDCImpl*) rEvent.GetDC()->GetImpl();
212 HPS hPS = impl->GetHPS();
213 SIZEL vSize = {0,0};
214
215 ::GpiSetPS(hPS, &vSize, PU_PELS | GPIF_DEFAULT);
216 ::WinQueryWindowRect((HWND)GetHwnd(), &vRect);
217 ::WinFillRect(hPS, &vRect, GetBackgroundColour().GetPixel());
218 } // end of wxControl::OnEraseBackground
219
220 WXDWORD wxControl::OS2GetStyle( long lStyle, WXDWORD* pdwExstyle ) const
221 {
222 long dwStyle = wxWindow::OS2GetStyle( lStyle, pdwExstyle );
223
224 if (AcceptsFocusFromKeyboard())
225 {
226 dwStyle |= WS_TABSTOP;
227 }
228 return dwStyle;
229 } // end of wxControl::OS2GetStyle
230
231 void wxControl::SetLabel( const wxString& rsLabel )
232 {
233 if(rsLabel != m_label)
234 {
235 m_label = rsLabel;
236 wxString label;
237 if (m_dwStyle & DT_MNEMONIC)
238 label = ::wxPMTextToLabel(m_label);
239 else
240 label = m_label;
241 ::WinSetWindowText(GetHwnd(), label.c_str());
242 }
243 } // end of wxControl::SetLabel
244
245 // ---------------------------------------------------------------------------
246 // global functions
247 // ---------------------------------------------------------------------------
248
249 // Call this repeatedly for several wnds to find the overall size
250 // of the widget.
251 // Call it initially with -1 for all values in rect.
252 // Keep calling for other widgets, and rect will be modified
253 // to calculate largest bounding rectangle.
254 void wxFindMaxSize(
255 WXHWND hWnd
256 , RECT* pRect
257 )
258 {
259 int nLeft = pRect->xLeft;
260 int nRight = pRect->xRight;
261 int nTop = pRect->yTop;
262 int nBottom = pRect->yBottom;
263
264 ::WinQueryWindowRect((HWND)hWnd, pRect);
265
266 if (nLeft < 0)
267 return;
268
269 if (nLeft < pRect->xLeft)
270 pRect->xLeft = nLeft;
271
272 if (nRight > pRect->xRight)
273 pRect->xRight = nRight;
274
275 if (nTop > pRect->yTop)
276 pRect->yTop = nTop;
277
278 if (nBottom < pRect->yBottom)
279 pRect->yBottom = nBottom;
280 } // end of wxFindMaxSize