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