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