linking fixes
[wxWidgets.git] / src / os2 / window.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: windows.cpp
3 // Purpose: wxWindow
4 // Author: David Webster
5 // Modified by:
6 // Created: 10/12/99
7 // RCS-ID: $Id$
8 // Copyright: (c) David Webster
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 //
13 // For compilers that support precompilation, includes "wx.h".
14 //
15 #include "wx/wxprec.h"
16
17 #ifndef WX_PRECOMP
18 #define INCL_DOS
19 #define INCL_PM
20 #include <os2.h>
21 #include "wx/window.h"
22 #include "wx/accel.h"
23 #include "wx/setup.h"
24 #include "wx/menu.h"
25 #include "wx/dc.h"
26 #include "wx/dcclient.h"
27 #include "wx/utils.h"
28 #include "wx/app.h"
29 #include "wx/panel.h"
30 #include "wx/layout.h"
31 #include "wx/dialog.h"
32 #include "wx/frame.h"
33 #include "wx/listbox.h"
34 #include "wx/button.h"
35 #include "wx/msgdlg.h"
36
37 #include <stdio.h>
38 #endif
39
40 #if wxUSE_OWNER_DRAWN
41 #include "wx/ownerdrw.h"
42 #endif
43
44 #if wxUSE_DRAG_AND_DROP
45 #include "wx/dnd.h"
46 #endif
47
48 #include "wx/menuitem.h"
49 #include "wx/log.h"
50
51 #include "wx/os2/private.h"
52
53 #if wxUSE_TOOLTIPS
54 #include "wx/tooltip.h"
55 #endif
56
57 #if wxUSE_CARET
58 #include "wx/caret.h"
59 #endif // wxUSE_CARET
60
61 #include "wx/intl.h"
62 #include "wx/log.h"
63
64
65 #include "wx/textctrl.h"
66
67 #include <string.h>
68
69 //
70 // Place compiler, OS specific includes here
71 //
72
73 //
74 // Standard macros -- these are for OS/2 PM, but most GUI's have something similar
75 //
76 #ifndef GET_X_LPARAM
77 //
78 // SHORT1FROMMP -- LOWORD
79 //
80 #define GET_X_LPARAM(mp) ((unsigned short)(unsigned long)(mp))
81 //
82 // SHORT2FROMMP -- HIWORD
83 //
84 #define GET_Y_LPARAM(mp) ((unsigned short)(unsigned long)(mp >> 16))
85 #endif // GET_X_LPARAM
86
87 #ifndef CW_USEDEFAULT
88 # define CW_USEDEFAULT ((int)0x80000000)
89 #endif
90
91 // ---------------------------------------------------------------------------
92 // global variables
93 // ---------------------------------------------------------------------------
94
95 //
96 // The last Windows message we got (MT-UNSAFE)
97 //
98 QMSG s_currentMsg;
99
100 wxMenu* wxCurrentPopupMenu = NULL;
101 extern wxList WXDLLEXPORT wxPendingDelete;
102 #if !defined(__VISAGECPP__) || (__IBMCPP__ < 400)
103 extern wxChar wxCanvasClassName[];
104 #endif
105 wxList* wxWinHandleList = NULL;
106
107 // ---------------------------------------------------------------------------
108 // private functions
109 // ---------------------------------------------------------------------------
110
111 //
112 // the window proc for all our windows; most gui's have something similar
113 //
114 MRESULT EXPENTRY wxWndProc( HWND hWnd
115 ,ULONG message
116 ,MPARAM mp1
117 ,MPARAM mp2
118 );
119
120 #ifdef __WXDEBUG__
121 const char *wxGetMessageName(int message);
122 #endif //__WXDEBUG__
123
124 void wxRemoveHandleAssociation(wxWindow* pWin);
125 void wxAssociateWinWithHandle( HWND hWnd
126 ,wxWindow* pWin
127 );
128 wxWindow* wxFindWinFromHandle(WXHWND hWnd);
129
130 //
131 // This magical function is used to translate VK_APPS key presses to right
132 // mouse clicks
133 //
134 static void TranslateKbdEventToMouse( wxWindow* pWin
135 ,int* pX
136 ,int* pY
137 ,MPARAM* pFlags
138 );
139
140 //
141 // get the current state of SHIFT/CTRL keys
142 //
143 static inline bool IsShiftDown() { return (::WinGetKeyState(HWND_DESKTOP, VK_SHIFT) & 0x8000) != 0; }
144 static inline bool IsCtrlDown() { return (::WinGetKeyState(HWND_DESKTOP, VK_CTRL) & 0x8000) != 0; }
145 // ---------------------------------------------------------------------------
146 // event tables
147 // ---------------------------------------------------------------------------
148
149 IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxWindowBase)
150
151 BEGIN_EVENT_TABLE(wxWindow, wxWindowBase)
152 EVT_ERASE_BACKGROUND(wxWindow::OnEraseBackground)
153 EVT_SYS_COLOUR_CHANGED(wxWindow::OnSysColourChanged)
154 EVT_INIT_DIALOG(wxWindow::OnInitDialog)
155 EVT_IDLE(wxWindow::OnIdle)
156 EVT_SET_FOCUS(wxWindow::OnSetFocus)
157 END_EVENT_TABLE()
158
159 // ===========================================================================
160 // implementation
161 // ===========================================================================
162
163 //
164 // Find an item given the PM Window id
165 //
166 wxWindow* wxWindow::FindItem(
167 long lId
168 ) const
169 {
170 wxControl* pItem = wxDynamicCast( this
171 ,wxControl
172 );
173
174 if (pItem)
175 {
176 //
177 // I it we or one of our "internal" children?
178 //
179 if (pItem->GetId() == lId ||
180 (pItem->GetSubcontrols().Index(lId) != wxNOT_FOUND))
181 {
182 return pItem;
183 }
184 }
185
186 wxWindowList::Node* pCurrent = GetChildren().GetFirst();
187
188 while (pCurrent)
189 {
190 wxWindow* pChildWin = pCurrent->GetData();
191 wxWindow* pWnd = pChildWin->FindItem(lId);
192
193 if (pWnd)
194 return pWnd;
195
196 pCurrent = pCurrent->GetNext();
197 }
198 return(NULL);
199 } // end of wxWindow::FindItem
200
201 //
202 // Find an item given the PM Window handle
203 //
204 wxWindow* wxWindow::FindItemByHWND(
205 WXHWND hWnd
206 , bool bControlOnly
207 ) const
208 {
209 wxWindowList::Node* pCurrent = GetChildren().GetFirst();
210
211 while (pCurrent)
212 {
213 wxWindow* pParent = pCurrent->GetData();
214
215 //
216 // Do a recursive search.
217 //
218 wxWindow* pWnd = pParent->FindItemByHWND(hWnd);
219
220 if (pWnd)
221 return(pWnd);
222
223 if (!bControlOnly || pParent->IsKindOf(CLASSINFO(wxControl)))
224 {
225 wxWindow* pItem = pCurrent->GetData();
226
227 if (pItem->GetHWND() == hWnd)
228 return(pItem);
229 else
230 {
231 if (pItem->ContainsHWND(hWnd))
232 return(pItem);
233 }
234 }
235 pCurrent = pCurrent->GetNext();
236 }
237 return(NULL);
238 } // end of wxWindow::FindItemByHWND
239
240 //
241 // Default command handler
242 //
243 bool wxWindow::OS2Command(
244 WXUINT WXUNUSED(uParam)
245 , WXWORD WXUNUSED(uId)
246 )
247 {
248 return(FALSE);
249 }
250
251 // ----------------------------------------------------------------------------
252 // constructors and such
253 // ----------------------------------------------------------------------------
254
255 void wxWindow::Init()
256 {
257 //
258 // Generic
259 //
260 InitBase();
261
262 //
263 // PM specific
264 //
265 m_bDoubleClickAllowed = 0;
266 m_bWinCaptured = FALSE;
267
268 m_isBeingDeleted = FALSE;
269 m_fnOldWndProc = 0;
270 m_bUseCtl3D = FALSE;
271 m_bMouseInWindow = FALSE;
272
273 //
274 // wxWnd
275 //
276 m_hMenu = 0L;
277 m_hWnd = 0L;
278 m_hWndScrollBarHorz = 0L;
279 m_hWndScrollBarVert = 0L;
280
281 //
282 // Pass WM_GETDLGCODE to DefWindowProc()
283 m_lDlgCode = 0;
284
285 m_nXThumbSize = 0;
286 m_nYThumbSize = 0;
287 m_bBackgroundTransparent = FALSE;
288
289 //
290 // As all windows are created with WS_VISIBLE style...
291 //
292 m_isShown = TRUE;
293
294 #if wxUSE_MOUSEEVENT_HACK
295 m_lLastMouseX =
296 m_lLastMouseY = -1;
297 m_nLastMouseEvent = -1;
298 #endif // wxUSE_MOUSEEVENT_HACK
299 } // wxWindow::Init
300
301 //
302 // Destructor
303 //
304 wxWindow::~wxWindow()
305 {
306 m_isBeingDeleted = TRUE;
307
308 OS2DetachWindowMenu();
309 for (wxWindow* pWin = GetParent(); pWin; pWin = pWin->GetParent())
310 {
311 wxFrame* pFrame = wxDynamicCast(pWin, wxFrame);
312
313 if (pFrame)
314 {
315 if (pFrame->GetLastFocus() == this)
316 pFrame->SetLastFocus((wxWindow*)NULL);
317 }
318 }
319 if (m_parent)
320 m_parent->RemoveChild(this);
321 DestroyChildren();
322
323 if (m_hWnd)
324 {
325 if(!::WinDestroyWindow(GetHWND()))
326 wxLogLastError(wxT("DestroyWindow"));
327 //
328 // remove hWnd <-> wxWindow association
329 //
330 wxRemoveHandleAssociation(this);
331 }
332 } // end of wxWindow::~wxWindow
333
334 bool wxWindow::Create(
335 wxWindow* pParent
336 , wxWindowID vId
337 , const wxPoint& rPos
338 , const wxSize& rSize
339 , long lStyle
340 , const wxString& rName
341 )
342 {
343 HWND hParent = NULLHANDLE;
344 wxPoint vPos = rPos; // The OS/2 position
345 ULONG ulCreateFlags = 0L;
346
347 wxCHECK_MSG(pParent, FALSE, wxT("can't create wxWindow without parent"));
348
349 if ( !CreateBase( pParent
350 ,vId
351 ,rPos
352 ,rSize
353 ,lStyle
354 ,wxDefaultValidator
355 ,rName
356 ))
357 return(FALSE);
358
359 if (pParent)
360 {
361 int nTempy;
362
363 pParent->AddChild(this);
364 hParent = GetWinHwnd(pParent);
365 //
366 // OS2 uses normal coordinates, no bassackwards Windows ones
367 //
368 if (pParent->IsKindOf(CLASSINFO(wxGenericScrolledWindow)) ||
369 pParent->IsKindOf(CLASSINFO(wxScrolledWindow))
370 )
371 {
372 wxWindow* pGrandParent = NULL;
373
374 pGrandParent = pParent->GetParent();
375 if (pGrandParent)
376 nTempy = pGrandParent->GetSize().y - (vPos.y + rSize.y);
377 else
378 nTempy = pParent->GetSize().y - (vPos.y + rSize.y);
379 }
380 else
381 nTempy = pParent->GetSize().y - (vPos.y + rSize.y);
382 vPos.y = nTempy;
383 if ( pParent->IsKindOf(CLASSINFO(wxGenericScrolledWindow)) ||
384 pParent->IsKindOf(CLASSINFO(wxScrolledWindow))
385 )
386 ulCreateFlags |= WS_CLIPSIBLINGS;
387 }
388 else
389 {
390 RECTL vRect;
391
392 ::WinQueryWindowRect(HWND_DESKTOP, &vRect);
393 hParent = HWND_DESKTOP;
394 vPos.y = vRect.yTop - (vPos.y + rSize.y);
395 }
396
397 //
398 // Most wxSTYLES are really PM Class specific styles and will be
399 // set in those class create procs. PM's basic windows styles are
400 // very limited.
401 //
402 ulCreateFlags |= WS_VISIBLE;
403
404
405 if (lStyle & wxCLIP_SIBLINGS)
406 ulCreateFlags |= WS_CLIPSIBLINGS;
407
408 if (lStyle & wxCLIP_CHILDREN )
409 ulCreateFlags |= WS_CLIPCHILDREN;
410
411 //
412 //
413 //
414 bool bWant3D;
415 WXDWORD dwExStyle = Determine3DEffects( WS_EX_CLIENTEDGE
416 ,&bWant3D
417 );
418
419 //
420 // Add the simple border style as we'll use this to draw borders
421 //
422 if (lStyle & wxSIMPLE_BORDER)
423 dwExStyle |= wxSIMPLE_BORDER;
424
425 //
426 // Generic OS/2 Windows are created with no owner, no Z Order, no Control data,
427 // and no presentation parameters
428 //
429 OS2Create( hParent
430 ,(PSZ)wxCanvasClassName
431 ,rName.c_str()
432 ,ulCreateFlags
433 ,vPos.x
434 ,vPos.y
435 ,WidthDefault(rSize.x)
436 ,HeightDefault(rSize.y)
437 ,NULLHANDLE
438 ,NULLHANDLE
439 ,m_windowId
440 ,NULL
441 ,NULL
442 ,dwExStyle
443 );
444
445 return(TRUE);
446 } // end of wxWindow::Create
447
448 // ---------------------------------------------------------------------------
449 // basic operations
450 // ---------------------------------------------------------------------------
451
452 void wxWindow::SetFocus()
453 {
454 HWND hWnd = GetHwnd();
455
456 if (hWnd)
457 ::WinSetFocus(HWND_DESKTOP, hWnd);
458 } // end of wxWindow::SetFocus
459
460 wxWindow* wxWindowBase::FindFocus()
461 {
462 HWND hWnd = ::WinQueryFocus(HWND_DESKTOP);
463
464 if (hWnd)
465 {
466 return wxFindWinFromHandle((WXHWND)hWnd);
467 }
468 return NULL;
469 } // wxWindowBase::FindFocus
470
471 bool wxWindow::Enable(
472 bool bEnable
473 )
474 {
475 if (!wxWindowBase::Enable(bEnable))
476 return(FALSE);
477
478 HWND hWnd = GetHwnd();
479
480 if ( hWnd )
481 ::WinEnableWindow(hWnd, (BOOL)bEnable);
482
483 wxWindowList::Node* pNode = GetChildren().GetFirst();
484
485 while (pNode)
486 {
487 wxWindow* pChild = pNode->GetData();
488
489 pChild->Enable(bEnable);
490 pNode = pNode->GetNext();
491 }
492 return(TRUE);
493 } // end of wxWindow::Enable
494
495 bool wxWindow::Show(
496 bool bShow
497 )
498 {
499 if (!wxWindowBase::Show(bShow))
500 return(FALSE);
501
502 HWND hWnd = GetHwnd();
503
504 ::WinShowWindow(hWnd, bShow);
505
506 if (bShow)
507 {
508 ::WinSetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0, SWP_ACTIVATE | SWP_ZORDER);
509 }
510 return(TRUE);
511 } // end of wxWindow::Show
512
513 void wxWindow::Raise()
514 {
515 ::WinSetWindowPos(GetHwnd(), HWND_TOP, 0, 0, 0, 0, SWP_ZORDER | SWP_ACTIVATE);
516 } // end of wxWindow::Raise
517
518 void wxWindow::Lower()
519 {
520 ::WinSetWindowPos(GetHwnd(), HWND_BOTTOM, 0, 0, 0, 0, SWP_ZORDER | SWP_DEACTIVATE);
521 } // end of wxWindow::Lower
522
523 void wxWindow::SetTitle(
524 const wxString& rTitle
525 )
526 {
527 ::WinSetWindowText(GetHwnd(), rTitle.c_str());
528 } // end of wxWindow::SetTitle
529
530 wxString wxWindow::GetTitle() const
531 {
532 return wxGetWindowText(GetHWND());
533 } // end of wxWindow::GetTitle
534
535 void wxWindow::CaptureMouse()
536 {
537 HWND hWnd = GetHwnd();
538
539 if (hWnd && !m_bWinCaptured)
540 {
541 ::WinSetCapture(HWND_DESKTOP, hWnd);
542 m_bWinCaptured = TRUE;
543 }
544 } // end of wxWindow::GetTitle
545
546 void wxWindow::ReleaseMouse()
547 {
548 if (m_bWinCaptured)
549 {
550 ::WinSetCapture(HWND_DESKTOP, NULLHANDLE);
551 m_bWinCaptured = FALSE;
552 }
553 } // end of wxWindow::ReleaseMouse
554
555 bool wxWindow::SetFont(
556 const wxFont& rFont
557 )
558 {
559 if (!wxWindowBase::SetFont(rFont))
560 {
561 // nothing to do
562 return(FALSE);
563 }
564
565 HWND hWnd = GetHwnd();
566
567 if (hWnd != 0)
568 {
569 wxChar zFont[128];
570
571 sprintf(zFont, "%d.%s", rFont.GetPointSize(), rFont.GetFaceName().c_str());
572 return(::WinSetPresParam(hWnd, PP_FONTNAMESIZE, strlen(zFont), (PVOID)zFont));
573 }
574 return(TRUE);
575 }
576
577 bool wxWindow::SetCursor(
578 const wxCursor& rCursor
579 ) // check if base implementation is OK
580 {
581 if ( !wxWindowBase::SetCursor(rCursor))
582 {
583 // no change
584 return FALSE;
585 }
586
587 wxASSERT_MSG( m_cursor.Ok(),
588 wxT("cursor must be valid after call to the base version"));
589
590 HWND hWnd = GetHwnd();
591 POINTL vPoint;
592 RECTL vRect;
593 HPS hPS;
594 HRGN hRGN;
595
596 hPS = ::WinGetPS(hWnd);
597
598 ::WinQueryPointerPos(HWND_DESKTOP, &vPoint);
599 ::WinQueryWindowRect(hWnd, &vRect);
600
601 hRGN = ::GpiCreateRegion(hPS, 1L, &vRect);
602
603 if ((::GpiPtInRegion(hPS, hRGN, &vPoint) == PRGN_INSIDE) && !wxIsBusy())
604 {
605 ::WinSetPointer(HWND_DESKTOP, (HPOINTER)m_cursor.GetHCURSOR());
606 }
607 return TRUE;
608 } // end of wxWindow::SetCursor
609
610 void wxWindow::WarpPointer(
611 int nXPos
612 , int nYPos
613 )
614 {
615 int nX = nXPos;
616 int nY = nYPos;
617 RECTL vRect;
618
619 ::WinQueryWindowRect(GetHwnd(), &vRect);
620 nX += vRect.xLeft;
621 nY += vRect.yBottom;
622
623 ::WinSetPointerPos(HWND_DESKTOP, (LONG)nX, (LONG)(nY));
624 } // end of wxWindow::WarpPointer
625
626 #if WXWIN_COMPATIBILITY
627 void wxWindow::OS2DeviceToLogical (float *x, float *y) const
628 {
629 }
630 #endif // WXWIN_COMPATIBILITY
631
632 // ---------------------------------------------------------------------------
633 // scrolling stuff
634 // ---------------------------------------------------------------------------
635
636 #if WXWIN_COMPATIBILITY
637 void wxWindow::SetScrollRange(
638 int nOrient
639 , int nRange
640 , bool bRefresh
641 )
642 {
643 int nRange1 = nRange;
644 int nPageSize = GetScrollPage(nOrient);
645
646 if (nPpageSize > 1 && nRange > 0)
647 {
648 nRange1 += (nPageSize - 1);
649 }
650
651 if (nOrient == wxHORIZONTAL)
652 {
653 ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETSCROLLBAR, (MPARAM)0, MPFROM2SHORT(0, (SHORT)nRange1));
654 ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETTHUMBSIZE, MPFROM2SHORT((SHORT)nThumbVisible, (SHORT)nRange1), (MPARAM)0);
655 }
656 else
657 {
658 ::WinSendMsg(m_hWndScrollBarVert, SBM_SETSCROLLBAR, (MPARAM)0, MPFROM2SHORT(0, (SHORT)nRange1));
659 ::WinSendMsg(m_hWndScrollBarVert, SBM_SETTHUMBSIZE, MPFROM2SHORT((SHORT)nThumbVisible, (SHORT)nRange1), (MPARAM)0);
660 }
661 } // end of wxWindow::SetScrollRange
662
663 void wxWindow::SetScrollPage(
664 int nOrient
665 , int nPage
666 , bool bRefresh
667 )
668 {
669 if (nOrient == wxHORIZONTAL )
670 m_nXThumbSize = nPage;
671 else
672 m_nYThumbSize = nPage;
673 } // end of wxWindow::SetScrollPage
674
675 int wxWindow::OldGetScrollRange(
676 int nOrient
677 ) const
678 {
679 MRESULT mRc;
680 HWND hWnd = GetHwnd();
681
682 if (hWnd)
683 {
684 mRc = WinSendMsg(hWnd, SBM_QUERYRANGE, (MPARAM)0L, (MPARAM)0L);
685 return(SHORT2FROMMR(mRc));
686 }
687 return 0;
688 } // end of wxWindow::OldGetScrollRange
689
690 int wxWindow::GetScrollPage(
691 int nOrient
692 ) const
693 {
694 if (nOrient == wxHORIZONTAL)
695 return m_nXThumbSize;
696 else
697 return m_nYThumbSize;
698 } // end of wxWindow::GetScrollPage
699 #endif // WXWIN_COMPATIBILITY
700
701 int wxWindow::GetScrollPos(
702 int nOrient
703 ) const
704 {
705 if (nOrient == wxHORIZONTAL)
706 return((int)::WinSendMsg(m_hWndScrollBarHorz, SBM_QUERYPOS, (MPARAM)NULL, (MPARAM)NULL));
707 else
708 return((int)::WinSendMsg(m_hWndScrollBarVert, SBM_QUERYPOS, (MPARAM)NULL, (MPARAM)NULL));
709 } // end of wxWindow::GetScrollPos
710
711 int wxWindow::GetScrollRange(
712 int nOrient
713 ) const
714 {
715 MRESULT mr;
716
717 if (nOrient == wxHORIZONTAL)
718 mr = ::WinSendMsg(m_hWndScrollBarHorz, SBM_QUERYRANGE, (MPARAM)NULL, (MPARAM)NULL);
719 else
720 mr = ::WinSendMsg(m_hWndScrollBarVert, SBM_QUERYRANGE, (MPARAM)NULL, (MPARAM)NULL);
721 return((int)SHORT2FROMMR(mr));
722 } // end of wxWindow::GetScrollRange
723
724 int wxWindow::GetScrollThumb(
725 int nOrient
726 ) const
727 {
728 if (nOrient == wxHORIZONTAL )
729 return m_nXThumbSize;
730 else
731 return m_nYThumbSize;
732 } // end of wxWindow::GetScrollThumb
733
734 void wxWindow::SetScrollPos(
735 int nOrient
736 , int nPos
737 , bool bRefresh
738 )
739 {
740 if (nOrient == wxHORIZONTAL )
741 ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETPOS, (MPARAM)nPos, (MPARAM)NULL);
742 else
743 ::WinSendMsg(m_hWndScrollBarVert, SBM_SETPOS, (MPARAM)nPos, (MPARAM)NULL);
744 } // end of wxWindow::SetScrollPos(
745
746 void wxWindow::SetScrollbar(
747 int nOrient
748 , int nPos
749 , int nThumbVisible
750 , int nRange
751 , bool bRefresh
752 )
753 {
754 int nOldRange = nRange - nThumbVisible;
755 int nRange1 = nOldRange;
756 int nPageSize = nThumbVisible;
757 SBCDATA vInfo;
758 HWND hWnd = GetHwnd();
759 ULONG ulStyle = WS_VISIBLE | WS_SYNCPAINT;
760 RECTL vRect;
761
762 ::WinQueryWindowRect(hWnd, &vRect);
763 if (nPageSize > 1 && nRange > 0)
764 {
765 nRange1 += (nPageSize - 1);
766 }
767
768 vInfo.cb = sizeof(SBCDATA);
769 vInfo.posFirst = 0;
770 vInfo.posLast = (SHORT)nRange1;
771 vInfo.posThumb = nPos;
772
773 if (nOrient == wxHORIZONTAL )
774 {
775 ulStyle |= SBS_HORZ;
776 if (m_hWndScrollBarHorz == 0L)
777 {
778 //
779 // We create the scrollbars with the desktop so that they are not
780 // registered as child windows of the window in order that child
781 // windows may be scrolled without scrolling the scrollbars themselves!
782 //
783 m_hWndScrollBarHorz = ::WinCreateWindow( hWnd
784 ,WC_SCROLLBAR
785 ,(PSZ)NULL
786 ,ulStyle
787 ,vRect.xLeft
788 ,vRect.yBottom
789 ,vRect.xRight - vRect.xLeft
790 ,20
791 ,hWnd
792 ,HWND_TOP
793 ,FID_HORZSCROLL
794 ,&vInfo
795 ,NULL
796 );
797 }
798 else
799 {
800 RECTL vRect2;
801
802 //
803 // Only want to resize the scrollbar if it changes, otherwise
804 // we'd probably end up in a recursive loop until we crash the call stack
805 // because this method is called in a ScrolledWindow OnSize event and SWP_MOVE | SWP_SIZE
806 // generates those events.
807 //
808 ::WinQueryWindowRect(m_hWndScrollBarHorz, &vRect2);
809 if (!(vRect2.xLeft == vRect.xLeft &&
810 vRect2.xRight == vRect.xRight &&
811 vRect2.yBottom == vRect.yBottom &&
812 vRect2.yTop == vRect.yTop
813 ) )
814 {
815 ::WinSetWindowPos( m_hWndScrollBarHorz
816 ,HWND_TOP
817 ,vRect.xLeft
818 ,vRect.yBottom
819 ,vRect.xRight - vRect.xLeft
820 ,20
821 ,SWP_ACTIVATE | SWP_MOVE | SWP_SIZE | SWP_SHOW
822 );
823 }
824 ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETSCROLLBAR, (MPARAM)nPos, MPFROM2SHORT(0, (SHORT)nRange1));
825 ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETTHUMBSIZE, MPFROM2SHORT((SHORT)nThumbVisible, (SHORT)nRange1), (MPARAM)0);
826 }
827 }
828 else
829 {
830 ulStyle |= SBS_VERT;
831 if (m_hWndScrollBarVert == 0L)
832 {
833 m_hWndScrollBarVert = ::WinCreateWindow( hWnd
834 ,WC_SCROLLBAR
835 ,(PSZ)NULL
836 ,ulStyle
837 ,vRect.xRight - 20
838 ,vRect.yBottom + 20
839 ,20
840 ,vRect.yTop - (vRect.yBottom + 20)
841 ,hWnd
842 ,HWND_TOP
843 ,FID_VERTSCROLL
844 ,&vInfo
845 ,NULL
846 );
847 }
848 else
849 {
850 RECTL vRect2;
851
852 //
853 // Only want to resize the scrollbar if it changes, otherwise
854 // we'd probably end up in a recursive loop until we crash the call stack
855 // because this method is called in a ScrolledWindow OnSize event and SWP_MOVE | SWP_SIZE
856 // generates those events.
857 //
858 ::WinQueryWindowRect(m_hWndScrollBarVert, &vRect2);
859 if (!(vRect2.xLeft == vRect.xLeft &&
860 vRect2.xRight == vRect.xRight &&
861 vRect2.yBottom == vRect.yBottom &&
862 vRect2.yTop == vRect.yTop
863 ) )
864 {
865 ::WinSetWindowPos( m_hWndScrollBarVert
866 ,HWND_TOP
867 ,vRect.xRight - 20
868 ,vRect.yBottom + 20
869 ,20
870 ,vRect.yTop - (vRect.yBottom + 20)
871 ,SWP_ACTIVATE | SWP_MOVE | SWP_SIZE | SWP_SHOW
872 );
873 }
874 ::WinSendMsg(m_hWndScrollBarVert, SBM_SETSCROLLBAR, (MPARAM)nPos, MPFROM2SHORT(0, (SHORT)nRange1));
875 ::WinSendMsg(m_hWndScrollBarVert, SBM_SETTHUMBSIZE, MPFROM2SHORT((SHORT)nThumbVisible, (SHORT)nRange1), (MPARAM)0);
876 }
877 m_nYThumbSize = nThumbVisible;
878 }
879 } // end of wxWindow::SetScrollbar
880
881 void wxWindow::ScrollWindow(
882 int nDx
883 , int nDy
884 , const wxRect* pRect
885 )
886 {
887 RECTL vRect;
888 RECTL vRect2;
889
890 nDy *= -1; // flip the sign of Dy as OS/2 is opposite wxWin.
891 if (pRect)
892 {
893 vRect2.xLeft = pRect->x;
894 vRect2.yTop = pRect->y + pRect->height;
895 vRect2.xRight = pRect->x + pRect->width;
896 vRect2.yBottom = pRect->y;
897 }
898 else
899 {
900 ::WinQueryWindowRect(GetHwnd(), &vRect2);
901 ::WinQueryWindowRect(m_hWndScrollBarHorz, &vRect);
902 vRect2.yBottom += vRect.yTop - vRect.yBottom;
903 ::WinQueryWindowRect(m_hWndScrollBarVert, &vRect);
904 vRect2.xRight -= vRect.xRight - vRect.xLeft;
905
906 }
907 if (pRect)
908 ::WinScrollWindow( GetHwnd()
909 ,(LONG)nDx
910 ,(LONG)nDy
911 ,&vRect2
912 ,NULL
913 ,NULLHANDLE
914 ,NULL
915 ,SW_INVALIDATERGN
916 );
917 else
918 ::WinScrollWindow( GetHwnd()
919 ,nDx
920 ,nDy
921 ,NULL
922 ,NULL
923 ,NULLHANDLE
924 ,NULL
925 ,SW_INVALIDATERGN
926 );
927
928 //
929 // Move the children
930 wxWindowList::Node* pCurrent = GetChildren().GetFirst();
931 SWP vSwp;
932
933 while (pCurrent)
934 {
935 wxWindow* pChildWin = pCurrent->GetData();
936
937 if (pChildWin->GetHWND() != NULLHANDLE)
938 {
939 ::WinQueryWindowPos(pChildWin->GetHWND(), &vSwp);
940 ::WinQueryWindowRect(pChildWin->GetHWND(), &vRect);
941 if (pChildWin->GetHWND() == m_hWndScrollBarVert ||
942 pChildWin->GetHWND() == m_hWndScrollBarHorz)
943 {
944 ::WinSetWindowPos( pChildWin->GetHWND()
945 ,HWND_TOP
946 ,vSwp.x + nDx
947 ,vSwp.y + nDy
948 ,0
949 ,0
950 ,SWP_MOVE | SWP_SHOW | SWP_ZORDER
951 );
952 }
953 else
954 {
955 ::WinSetWindowPos( pChildWin->GetHWND()
956 ,HWND_BOTTOM
957 ,vSwp.x + nDx
958 ,vSwp.y + nDy
959 ,0
960 ,0
961 ,SWP_MOVE | SWP_ZORDER
962 );
963 ::WinInvalidateRect(pChildWin->GetHWND(), &vRect, FALSE);
964 }
965 }
966 pCurrent = pCurrent->GetNext();
967 }
968 } // end of wxWindow::ScrollWindow
969
970 // ---------------------------------------------------------------------------
971 // subclassing
972 // ---------------------------------------------------------------------------
973
974 void wxWindow::SubclassWin(
975 WXHWND hWnd
976 )
977 {
978 HWND hwnd = (HWND)hWnd;
979
980 wxASSERT_MSG( !m_fnOldWndProc, wxT("subclassing window twice?") );
981 wxCHECK_RET(::WinIsWindow(vHabmain, hwnd), wxT("invalid HWND in SubclassWin") );
982 m_fnOldWndProc = (WXFARPROC) ::WinSubclassWindow(hwnd, (PFNWP)wxWndProc);
983 } // end of wxWindow::SubclassWin
984
985 void wxWindow::UnsubclassWin()
986 {
987 //
988 // Restore old Window proc
989 //
990 HWND hwnd = GetHWND();
991
992 if (m_hWnd)
993 {
994 wxCHECK_RET( ::WinIsWindow(vHabmain, hwnd), wxT("invalid HWND in UnsubclassWin") );
995
996 PFNWP fnProc = (PFNWP)::WinQueryWindowPtr(hwnd, QWP_PFNWP);
997
998 if ( (m_fnOldWndProc != 0) && (fnProc != (PFNWP) m_fnOldWndProc))
999 {
1000 WinSubclassWindow(hwnd, (PFNWP)m_fnOldWndProc);
1001 m_fnOldWndProc = 0;
1002 }
1003 }
1004 } // end of wxWindow::UnsubclassWin
1005
1006 //
1007 // Make a Windows extended style from the given wxWindows window style
1008 //
1009 WXDWORD wxWindow::MakeExtendedStyle(
1010 long lStyle
1011 , bool bEliminateBorders
1012 )
1013 {
1014 //
1015 // Simply fill out with wxWindow extended styles. We'll conjure
1016 // something up in OS2Create and all window redrawing pieces later
1017 //
1018 WXDWORD dwStyle = 0;
1019
1020 if (lStyle & wxTRANSPARENT_WINDOW )
1021 dwStyle |= wxTRANSPARENT_WINDOW;
1022
1023 if (!bEliminateBorders)
1024 {
1025 if (lStyle & wxSUNKEN_BORDER)
1026 dwStyle |= wxSUNKEN_BORDER;
1027 if (lStyle & wxDOUBLE_BORDER)
1028 dwStyle |= wxDOUBLE_BORDER;
1029 if (lStyle & wxRAISED_BORDER )
1030 dwStyle |= wxRAISED_BORDER;
1031 if (lStyle & wxSTATIC_BORDER)
1032 dwStyle |= wxSTATIC_BORDER;
1033 }
1034 return dwStyle;
1035 } // end of wxWindow::MakeExtendedStyle
1036
1037 //
1038 // Determines whether simulated 3D effects or CTL3D should be used,
1039 // applying a default border style if required, and returning an extended
1040 // style to pass to OS2Create.
1041 //
1042 WXDWORD wxWindow::Determine3DEffects(
1043 WXDWORD dwDefaultBorderStyle
1044 , bool* pbWant3D
1045 ) const
1046 {
1047 WXDWORD dwStyle = 0L;
1048
1049 //
1050 // Native PM does not have any specialize 3D effects like WIN32 does,
1051 // so we have to try and invent them.
1052 //
1053
1054 //
1055 // If matches certain criteria, then assume no 3D effects
1056 // unless specifically requested (dealt with in MakeExtendedStyle)
1057 //
1058 if (!GetParent() ||
1059 !IsKindOf(CLASSINFO(wxControl)) ||
1060 (m_windowStyle & wxNO_BORDER)
1061 )
1062 {
1063 *pbWant3D = FALSE;
1064 return MakeExtendedStyle(m_windowStyle, FALSE);
1065 }
1066
1067 //
1068 // 1) App can specify global 3D effects
1069 //
1070 *pbWant3D = wxTheApp->GetAuto3D();
1071
1072 //
1073 // 2) If the parent is being drawn with user colours, or simple border
1074 // specified, switch effects off.
1075 //
1076 if (GetParent() &&
1077 (GetParent()->GetWindowStyleFlag() & wxUSER_COLOURS) ||
1078 (m_windowStyle & wxSIMPLE_BORDER)
1079 )
1080 *pbWant3D = FALSE;
1081
1082 //
1083 // 3) Control can override this global setting by defining
1084 // a border style, e.g. wxSUNKEN_BORDER
1085 //
1086 if ((m_windowStyle & wxDOUBLE_BORDER) ||
1087 (m_windowStyle & wxRAISED_BORDER) ||
1088 (m_windowStyle & wxSTATIC_BORDER) ||
1089 (m_windowStyle & wxSUNKEN_BORDER)
1090 )
1091 *pbWant3D = TRUE;
1092
1093 dwStyle = MakeExtendedStyle( m_windowStyle
1094 ,FALSE
1095 );
1096
1097 //
1098 // If we want 3D, but haven't specified a border here,
1099 // apply the default border style specified.
1100 //
1101 if (dwDefaultBorderStyle && (*pbWant3D) &&
1102 !((m_windowStyle & wxDOUBLE_BORDER) ||
1103 (m_windowStyle & wxRAISED_BORDER) ||
1104 (m_windowStyle & wxSTATIC_BORDER) ||
1105 (m_windowStyle & wxSIMPLE_BORDER)
1106 )
1107 )
1108 dwStyle |= dwDefaultBorderStyle;
1109 return dwStyle;
1110 } // end of wxWindow::Determine3DEffects
1111
1112 #if WXWIN_COMPATIBILITY
1113 void wxWindow::OnCommand(
1114 wxWindow& rWin
1115 , wxCommandEvent& rEvent
1116 )
1117 {
1118 if (GetEventHandler()->ProcessEvent(rEvent))
1119 return;
1120 if (m_parent)
1121 m_parent->GetEventHandler()->OnCommand( rWin
1122 ,rEvent
1123 );
1124 } // end of wxWindow::OnCommand
1125
1126 wxObject* wxWindow::GetChild(
1127 int nNumber
1128 ) const
1129 {
1130 //
1131 // Return a pointer to the Nth object in the Panel
1132 //
1133 wxNode* pNode = GetChildren().First();
1134 int n = nNumber;
1135
1136 while (pNode && n--)
1137 pNode = pNode->Next();
1138 if (pNode)
1139 {
1140 wxObject* pObj = (wxObject*)pNode->Data();
1141 return(pObj);
1142 }
1143 else
1144 return NULL;
1145 } // end of wxWindow::GetChild
1146
1147 #endif // WXWIN_COMPATIBILITY
1148
1149 //
1150 // Setup background and foreground colours correctly
1151 //
1152 void wxWindow::SetupColours()
1153 {
1154 if ( GetParent() )
1155 SetBackgroundColour(GetParent()->GetBackgroundColour());
1156 } // end of wxWindow::SetupColours
1157
1158 void wxWindow::OnIdle(
1159 wxIdleEvent& rEvent
1160 )
1161 {
1162 //
1163 // Check if we need to send a LEAVE event
1164 //
1165 if (m_bMouseInWindow)
1166 {
1167 POINTL vPoint;
1168
1169 ::WinQueryPointerPos(HWND_DESKTOP, &vPoint);
1170 if (::WinWindowFromPoint(HWND_DESKTOP, &vPoint, FALSE) != (HWND)GetHwnd())
1171 {
1172 //
1173 // Generate a LEAVE event
1174 //
1175 m_bMouseInWindow = FALSE;
1176
1177 //
1178 // Unfortunately the mouse button and keyboard state may have changed
1179 // by the time the OnIdle function is called, so 'state' may be
1180 // meaningless.
1181 //
1182 int nState = 0;
1183
1184 if (::WinGetKeyState(HWND_DESKTOP, VK_SHIFT) != 0)
1185 nState |= VK_SHIFT;
1186 if (::WinGetKeyState(HWND_DESKTOP, VK_CTRL) != 0);
1187 nState |= VK_CTRL;
1188
1189 wxMouseEvent rEvent(wxEVT_LEAVE_WINDOW);
1190
1191 InitMouseEvent( rEvent
1192 ,vPoint.x
1193 ,vPoint.y
1194 ,nState
1195 );
1196 (void)GetEventHandler()->ProcessEvent(rEvent);
1197 }
1198 }
1199 UpdateWindowUI();
1200 } // end of wxWindow::OnIdle
1201
1202 //
1203 // Set this window to be the child of 'parent'.
1204 //
1205 bool wxWindow::Reparent(
1206 wxWindow* pParent
1207 )
1208 {
1209 if (!wxWindowBase::Reparent(pParent))
1210 return FALSE;
1211
1212 HWND hWndChild = GetHwnd();
1213 HWND hWndParent = GetParent() ? GetWinHwnd(GetParent()) : (HWND)0;
1214
1215 ::WinSetParent(hWndChild, hWndParent, TRUE);
1216 return TRUE;
1217 } // end of wxWindow::Reparent
1218
1219 void wxWindow::Clear()
1220 {
1221 wxClientDC vDc(this);
1222 wxBrush vBrush( GetBackgroundColour()
1223 ,wxSOLID
1224 );
1225
1226 vDc.SetBackground(vBrush);
1227 vDc.Clear();
1228 } // end of wxWindow::Clear
1229
1230 void wxWindow::Refresh(
1231 bool bEraseBack
1232 , const wxRect* pRect
1233 )
1234 {
1235 HWND hWnd = GetHwnd();
1236
1237 if (hWnd)
1238 {
1239 if (pRect)
1240 {
1241 RECTL vOs2Rect;
1242
1243 vOs2Rect.xLeft = pRect->x;
1244 vOs2Rect.yTop = pRect->y;
1245 vOs2Rect.xRight = pRect->x + pRect->width;
1246 vOs2Rect.yBottom = pRect->y + pRect->height;
1247
1248 ::WinInvalidateRect(hWnd, &vOs2Rect, bEraseBack);
1249 }
1250 else
1251 ::WinInvalidateRect(hWnd, NULL, bEraseBack);
1252 }
1253 } // end of wxWindow::Refresh
1254
1255 // ---------------------------------------------------------------------------
1256 // drag and drop
1257 // ---------------------------------------------------------------------------
1258
1259 #if wxUSE_DRAG_AND_DROP
1260 void wxWindow::SetDropTarget(
1261 wxDropTarget* pDropTarget
1262 )
1263 {
1264 if (m_dropTarget != 0)
1265 {
1266 m_dropTarget->Revoke(m_hWnd);
1267 delete m_dropTarget;
1268 }
1269 m_dropTarget = pDropTarget;
1270 if (m_dropTarget != 0)
1271 m_dropTarget->Register(m_hWnd);
1272 } // end of wxWindow::SetDropTarget
1273 #endif
1274
1275 //
1276 // old style file-manager drag&drop support: we retain the old-style
1277 // DragAcceptFiles in parallel with SetDropTarget.
1278 //
1279 void wxWindow::DragAcceptFiles(
1280 bool bAccept
1281 )
1282 {
1283 HWND hWnd = GetHwnd();
1284
1285 if (hWnd && bAccept)
1286 ::DrgAcceptDroppedFiles(hWnd, NULL, NULL, DO_COPY, 0L);
1287 } // end of wxWindow::DragAcceptFiles
1288
1289 // ----------------------------------------------------------------------------
1290 // tooltips
1291 // ----------------------------------------------------------------------------
1292
1293 #if wxUSE_TOOLTIPS
1294
1295 void wxWindow::DoSetToolTip(
1296 wxToolTip* pTooltip
1297 )
1298 {
1299 wxWindowBase::DoSetToolTip(pTooltip);
1300
1301 if (m_tooltip)
1302 m_tooltip->SetWindow(this);
1303 } // end of wxWindow::DoSetToolTip
1304
1305 #endif // wxUSE_TOOLTIPS
1306
1307 // ---------------------------------------------------------------------------
1308 // moving and resizing
1309 // ---------------------------------------------------------------------------
1310
1311 // Get total size
1312 void wxWindow::DoGetSize(
1313 int* pWidth
1314 , int* pHeight
1315 ) const
1316 {
1317 HWND hWnd = GetHwnd();
1318 RECTL vRect;
1319
1320 ::WinQueryWindowRect(hWnd, &vRect);
1321
1322 if (pWidth)
1323 *pWidth = vRect.xRight - vRect.xLeft;
1324 if (pHeight )
1325 // OS/2 PM is backwards from windows
1326 *pHeight = vRect.yTop - vRect.yBottom;
1327 } // end of wxWindow::DoGetSize
1328
1329 void wxWindow::DoGetPosition(
1330 int* pX
1331 , int* pY
1332 ) const
1333 {
1334 HWND hWnd = GetHwnd();
1335 RECT vRect;
1336 POINTL vPoint;
1337
1338 ::WinQueryWindowRect(hWnd, &vRect);
1339
1340 vPoint.x = vRect.xLeft;
1341 vPoint.y = vRect.yBottom;
1342
1343 //
1344 // We do the adjustments with respect to the parent only for the "real"
1345 // children, not for the dialogs/frames
1346 //
1347 if (!IsTopLevel())
1348 {
1349 HWND hParentWnd = 0;
1350 wxWindow* pParent = GetParent();
1351
1352 if (pParent)
1353 hParentWnd = GetWinHwnd(pParent);
1354
1355 //
1356 // Since we now have the absolute screen coords, if there's a parent we
1357 // must subtract its bottom left corner
1358 //
1359 if (hParentWnd)
1360 {
1361 RECTL vRect2;
1362
1363 ::WinQueryWindowRect(hParentWnd, &vRect2);
1364 vPoint.x -= vRect.xLeft;
1365 vPoint.y -= vRect.yBottom;
1366 }
1367
1368 //
1369 // We may be faking the client origin. So a window that's really at (0,
1370 // 30) may appear (to wxWin apps) to be at (0, 0).
1371 //
1372 wxPoint vPt(pParent->GetClientAreaOrigin());
1373
1374 vPoint.x -= vPt.x;
1375 vPoint.y -= vPt.y;
1376 }
1377
1378 if (pX)
1379 *pX = vPoint.x;
1380 if (pY)
1381 *pY = vPoint.y;
1382 } // end of wxWindow::DoGetPosition
1383
1384 void wxWindow::DoScreenToClient(
1385 int* pX
1386 , int* pY
1387 ) const
1388 {
1389 HWND hWnd = GetHwnd();
1390 SWP vSwp;
1391
1392 ::WinQueryWindowPos(hWnd, &vSwp);
1393
1394 if (pX)
1395 *pX -= vSwp.x;
1396 if (pY)
1397 *pY -= vSwp.y;
1398 } // end of wxWindow::DoScreenToClient
1399
1400 void wxWindow::DoClientToScreen(
1401 int* pX
1402 , int* pY
1403 ) const
1404 {
1405 HWND hWnd = GetHwnd();
1406 SWP vSwp;
1407
1408 ::WinQueryWindowPos(hWnd, &vSwp);
1409
1410 if (pX)
1411 *pX += vSwp.x;
1412 if (pY)
1413 *pY += vSwp.y;
1414 } // end of wxWindow::DoClientToScreen
1415
1416 //
1417 // Get size *available for subwindows* i.e. excluding menu bar etc.
1418 // Must be a frame type window
1419 //
1420 void wxWindow::DoGetClientSize(
1421 int* pWidth
1422 , int* pHeight
1423 ) const
1424 {
1425 HWND hWnd = GetHwnd();
1426 HWND hWndClient;
1427 RECTL vRect;
1428
1429 if (IsKindOf(CLASSINFO(wxFrame)))
1430 hWndClient = ::WinWindowFromID(GetHwnd(), FID_CLIENT);
1431 else
1432 hWndClient = NULLHANDLE;
1433 if( hWndClient == NULLHANDLE)
1434 ::WinQueryWindowRect(GetHwnd(), &vRect);
1435 else
1436 ::WinQueryWindowRect(hWndClient, &vRect);
1437
1438 if (pWidth)
1439 *pWidth = vRect.xRight;
1440 if (pHeight)
1441 *pHeight = vRect.yTop;
1442 } // end of wxWindow::DoGetClientSize
1443
1444 void wxWindow::DoMoveWindow(
1445 int nX
1446 , int nY
1447 , int nWidth
1448 , int nHeight
1449 )
1450 {
1451 RECTL vRect;
1452 HWND hParent;
1453 wxWindow* pParent = GetParent();
1454
1455 if (pParent)
1456 hParent = GetWinHwnd(pParent);
1457 else
1458 hParent = HWND_DESKTOP;
1459 ::WinQueryWindowRect(hParent, &vRect);
1460 nY = vRect.yTop - (nY + nHeight);
1461
1462 if ( !::WinSetWindowPos( GetHwnd()
1463 ,HWND_TOP
1464 ,(LONG)nX
1465 ,(LONG)nY
1466 ,(LONG)nWidth
1467 ,(LONG)nHeight
1468 ,SWP_SIZE | SWP_MOVE
1469 ))
1470 {
1471 wxLogLastError("MoveWindow");
1472 }
1473 } // end of wxWindow::DoMoveWindow
1474
1475 //
1476 // Set the size of the window: if the dimensions are positive, just use them,
1477 // but if any of them is equal to -1, it means that we must find the value for
1478 // it ourselves (unless sizeFlags contains wxSIZE_ALLOW_MINUS_ONE flag, in
1479 // which case -1 is a valid value for x and y)
1480 //
1481 // If sizeFlags contains wxSIZE_AUTO_WIDTH/HEIGHT flags (default), we calculate
1482 // the width/height to best suit our contents, otherwise we reuse the current
1483 // width/height
1484 //
1485 void wxWindow::DoSetSize(
1486 int nX
1487 , int nY
1488 , int nWidth
1489 , int nHeight
1490 , int nSizeFlags
1491 )
1492 {
1493 //
1494 // Get the current size and position...
1495 //
1496 int nCurrentX;
1497 int nCurrentY;
1498 int nCurrentWidth;
1499 int nCurrentHeight;
1500 wxSize vSize(-1, -1);
1501
1502 GetPosition( &nCurrentX
1503 ,&nCurrentY
1504 );
1505 GetSize( &nCurrentWidth
1506 ,&nCurrentHeight
1507 );
1508
1509 //
1510 // ... and don't do anything (avoiding flicker) if it's already ok
1511 //
1512 if ( nX == nCurrentX &&
1513 nY == nCurrentY &&
1514 nWidth == nCurrentWidth &&
1515 nHeight == nCurrentHeight
1516 )
1517 {
1518 return;
1519 }
1520
1521 if (nX == -1 && !(nSizeFlags & wxSIZE_ALLOW_MINUS_ONE))
1522 nX = nCurrentX;
1523 if (nY == -1 && !(nSizeFlags & wxSIZE_ALLOW_MINUS_ONE))
1524 nY = nCurrentY;
1525
1526 AdjustForParentClientOrigin( nX
1527 ,nY
1528 ,nSizeFlags
1529 );
1530
1531 if (nWidth == -1)
1532 {
1533 if (nSizeFlags & wxSIZE_AUTO_WIDTH)
1534 {
1535 vSize = DoGetBestSize();
1536 nWidth = vSize.x;
1537 }
1538 else
1539 {
1540 //
1541 // Just take the current one
1542 //
1543 nWidth = nCurrentWidth;
1544 }
1545 }
1546
1547 if (nHeight == -1)
1548 {
1549 if (nSizeFlags & wxSIZE_AUTO_HEIGHT)
1550 {
1551 if (vSize.x == -1)
1552 {
1553 vSize = DoGetBestSize();
1554 }
1555 nHeight = vSize.y;
1556 }
1557 else
1558 {
1559 // just take the current one
1560 nHeight = nCurrentHeight;
1561 }
1562 }
1563
1564 DoMoveWindow( nX
1565 ,nY
1566 ,nWidth
1567 ,nHeight
1568 );
1569 } // end of wxWindow::DoSetSize
1570
1571 void wxWindow::DoSetClientSize(
1572 int nWidth
1573 , int nHeight
1574 )
1575 {
1576 wxWindow* pParent = GetParent();
1577 HWND hWnd = GetHwnd();
1578 HWND hParentWnd = (HWND)0;
1579 HWND hClientWnd = (HWND)0;
1580 RECTL vRect;
1581 RECT vRect2;
1582 RECT vRect3;
1583
1584 hClientWnd = ::WinWindowFromID(GetHwnd(), FID_CLIENT);
1585 ::WinQueryWindowRect(hClientWnd, &vRect2);
1586
1587 if (pParent)
1588 hParentWnd = (HWND) pParent->GetHWND();
1589
1590 ::WinQueryWindowRect(hWnd, &vRect);
1591 ::WinQueryWindowRect(hParentWnd, &vRect3);
1592 //
1593 // Find the difference between the entire window (title bar and all)
1594 // and the client area; add this to the new client size to move the
1595 // window. OS/2 is backward from windows on height
1596 //
1597 int nActualWidth = vRect2.xRight - vRect2.xLeft - vRect.xRight + nWidth;
1598 int nActualHeight = vRect2.yTop - vRect2.yBottom - vRect.yTop + nHeight;
1599
1600 //
1601 // If there's a parent, must subtract the parent's bottom left corner
1602 // since MoveWindow moves relative to the parent
1603 //
1604 POINTL vPoint;
1605
1606 vPoint.x = vRect2.xLeft;
1607 vPoint.y = vRect2.yBottom;
1608 if (pParent)
1609 {
1610 vPoint.x -= vRect3.xLeft;
1611 vPoint.y -= vRect3.yBottom;
1612 }
1613
1614 DoMoveWindow( vPoint.x
1615 ,vPoint.y
1616 ,nActualWidth
1617 ,nActualHeight
1618 );
1619
1620 wxSizeEvent vEvent( wxSize( nWidth
1621 ,nHeight
1622 )
1623 ,m_windowId
1624 );
1625
1626 vEvent.SetEventObject(this);
1627 GetEventHandler()->ProcessEvent(vEvent);
1628 } // end of wxWindow::DoSetClientSize
1629
1630 wxPoint wxWindow::GetClientAreaOrigin() const
1631 {
1632 return wxPoint(0, 0);
1633 } // end of wxWindow::GetClientAreaOrigin
1634
1635 void wxWindow::AdjustForParentClientOrigin(
1636 int& rX
1637 , int& rY
1638 , int nSizeFlags
1639 )
1640 {
1641 //
1642 // Don't do it for the dialogs/frames - they float independently of their
1643 // parent
1644 //
1645 if (!IsTopLevel())
1646 {
1647 wxWindow* pParent = GetParent();
1648
1649 if (!(nSizeFlags & wxSIZE_NO_ADJUSTMENTS) && pParent)
1650 {
1651 wxPoint vPoint(pParent->GetClientAreaOrigin());
1652 rX += vPoint.x;
1653 rY += vPoint.y;
1654 }
1655 }
1656 } // end of wxWindow::AdjustForParentClientOrigin
1657
1658 // ---------------------------------------------------------------------------
1659 // text metrics
1660 // ---------------------------------------------------------------------------
1661
1662 int wxWindow::GetCharHeight() const
1663 {
1664 HPS hPs;
1665 FONTMETRICS vFontMetrics;
1666 BOOL bRc;
1667
1668 hPs = ::WinGetPS(GetHwnd());
1669
1670 if(!GpiQueryFontMetrics(hPs, sizeof(FONTMETRICS), &vFontMetrics))
1671 {
1672 ::WinReleasePS(hPs);
1673 return (0);
1674 }
1675 ::WinReleasePS(hPs);
1676 return(vFontMetrics.lMaxAscender + vFontMetrics.lMaxDescender);
1677 } // end of wxWindow::GetCharHeight
1678
1679 int wxWindow::GetCharWidth() const
1680 {
1681 HPS hPs;
1682 FONTMETRICS vFontMetrics;
1683
1684 hPs = ::WinGetPS(GetHwnd());
1685
1686 if(!GpiQueryFontMetrics(hPs, sizeof(FONTMETRICS), &vFontMetrics))
1687 {
1688 ::WinReleasePS(hPs);
1689 return (0);
1690 }
1691 ::WinReleasePS(hPs);
1692 return(vFontMetrics.lAveCharWidth);
1693 } // end of wxWindow::GetCharWidth
1694
1695 void wxWindow::GetTextExtent(
1696 const wxString& rString
1697 , int* pX
1698 , int* pY
1699 , int* pDescent
1700 , int* pExternalLeading
1701 , const wxFont* pTheFont
1702 ) const
1703 {
1704 const wxFont* pFontToUse = pTheFont;
1705 HPS hPs;
1706
1707 hPs = ::WinGetPS(GetHwnd());
1708 /*
1709 // TODO: Will have to play with fonts later
1710
1711 if (!pFontToUse)
1712 pFontToUse = &m_font;
1713
1714 HFONT hFnt = 0;
1715 HFONT hFfontOld = 0;
1716
1717 if (pFontToUse && pFontToUse->Ok())
1718 {
1719 ::GpiCreateLog
1720 hFnt = (HFONT)((wxFont *)pFontToUse)->GetResourceHandle(); // const_cast
1721 if (hFnt)
1722 hFontOld = (HFONT)SelectObject(dc,fnt);
1723 }
1724
1725 SIZE sizeRect;
1726 TEXTMETRIC tm;
1727 GetTextExtentPoint(dc, string, (int)string.Length(), &sizeRect);
1728 GetTextMetrics(dc, &tm);
1729
1730 if ( fontToUse && fnt && hfontOld )
1731 SelectObject(dc, hfontOld);
1732
1733 ReleaseDC(hWnd, dc);
1734
1735 if ( x )
1736 *x = sizeRect.cx;
1737 if ( y )
1738 *y = sizeRect.cy;
1739 if ( descent )
1740 *descent = tm.tmDescent;
1741 if ( externalLeading )
1742 *externalLeading = tm.tmExternalLeading;
1743 */
1744 ::WinReleasePS(hPs);
1745 }
1746
1747 #if wxUSE_CARET && WXWIN_COMPATIBILITY
1748 // ---------------------------------------------------------------------------
1749 // Caret manipulation
1750 // ---------------------------------------------------------------------------
1751
1752 void wxWindow::CreateCaret(
1753 int nWidth
1754 , int nHeight
1755 )
1756 {
1757 SetCaret(new wxCaret( this
1758 ,nWidth
1759 ,nHeight
1760 ));
1761 } // end of wxWindow::CreateCaret
1762
1763 void wxWindow::CreateCaret(
1764 const wxBitmap* pBitmap
1765 )
1766 {
1767 wxFAIL_MSG("not implemented");
1768 } // end of wxWindow::CreateCaret
1769
1770 void wxWindow::ShowCaret(
1771 bool bShow
1772 )
1773 {
1774 wxCHECK_RET( m_caret, "no caret to show" );
1775
1776 m_caret->Show(bShow);
1777 } // end of wxWindow::ShowCaret
1778
1779 void wxWindow::DestroyCaret()
1780 {
1781 SetCaret(NULL);
1782 } // end of wxWindow::DestroyCaret
1783
1784 void wxWindow::SetCaretPos(
1785 int nX
1786 , int nY)
1787 {
1788 wxCHECK_RET( m_caret, "no caret to move" );
1789
1790 m_caret->Move( nX
1791 ,nY
1792 );
1793 } // end of wxWindow::SetCaretPos
1794
1795 void wxWindow::GetCaretPos(
1796 int* pX
1797 , int* pY
1798 ) const
1799 {
1800 wxCHECK_RET( m_caret, "no caret to get position of" );
1801
1802 m_caret->GetPosition( pX
1803 ,pY
1804 );
1805 } // end of wxWindow::GetCaretPos
1806
1807 #endif //wxUSE_CARET
1808
1809 // ---------------------------------------------------------------------------
1810 // popup menu
1811 // ---------------------------------------------------------------------------
1812
1813 static void wxYieldForCommandsOnly()
1814 {
1815 //
1816 // Peek all WM_COMMANDs (it will always return WM_QUIT too but we don't
1817 // want to process it here)
1818 //
1819 QMSG vMsg;
1820
1821 while (::WinPeekMsg( vHabmain
1822 ,&vMsg
1823 ,(HWND)0
1824 ,WM_COMMAND
1825 ,WM_COMMAND
1826 ,PM_REMOVE
1827 ) && vMsg.msg != WM_QUIT)
1828 {
1829 wxTheApp->DoMessage((WXMSG*)&vMsg);
1830 }
1831 }
1832
1833 bool wxWindow::DoPopupMenu(
1834 wxMenu* pMenu
1835 , int nX
1836 , int nY
1837 )
1838 {
1839 HWND hWnd = GetHwnd();
1840 HWND hWndParent = GetParent() ? GetWinHwnd(GetParent()) : (HWND)0;
1841 HWND hMenu = GetHmenuOf(pMenu);
1842
1843 pMenu->SetInvokingWindow(this);
1844 pMenu->UpdateUI();
1845
1846 DoClientToScreen( &nX
1847 ,&nY
1848 );
1849 wxCurrentPopupMenu = pMenu;
1850
1851 ::WinPopupMenu( hWndParent
1852 ,hWnd
1853 ,hMenu
1854 ,nX
1855 ,nY
1856 ,0L
1857 ,PU_MOUSEBUTTON2DOWN | PU_MOUSEBUTTON2 | PU_KEYBOARD
1858 );
1859 // we need to do it righ now as otherwise the events are never going to be
1860 // sent to wxCurrentPopupMenu from HandleCommand()
1861 //
1862 // note that even eliminating (ugly) wxCurrentPopupMenu global wouldn't
1863 // help and we'd still need wxYieldForCommandsOnly() as the menu may be
1864 // destroyed as soon as we return (it can be a local variable in the caller
1865 // for example) and so we do need to process the event immediately
1866 wxYieldForCommandsOnly();
1867 wxCurrentPopupMenu = NULL;
1868
1869 pMenu->SetInvokingWindow(NULL);
1870 return TRUE;
1871 } // end of wxWindow::DoPopupMenu
1872
1873 // ===========================================================================
1874 // pre/post message processing
1875 // ===========================================================================
1876
1877 MRESULT wxWindow::OS2DefWindowProc(
1878 WXUINT uMsg
1879 , WXWPARAM wParam
1880 , WXLPARAM lParam
1881 )
1882 {
1883 if (m_fnOldWndProc)
1884 return (MRESULT)m_fnOldWndProc(GetHWND(), (ULONG)uMsg, (MPARAM)wParam, (MPARAM)lParam);
1885 else
1886 return ::WinDefWindowProc(GetHWND(), (ULONG)uMsg, (MPARAM)wParam, (MPARAM)lParam);
1887 } // end of wxWindow::OS2DefWindowProc
1888
1889 bool wxWindow::OS2ProcessMessage(
1890 WXMSG* pMsg
1891 )
1892 {
1893 QMSG* pQMsg = (QMSG*)pMsg;
1894
1895 if (m_hWnd != 0 && (GetWindowStyleFlag() & wxTAB_TRAVERSAL))
1896 {
1897 //
1898 // Intercept dialog navigation keys
1899 //
1900 bool bProcess = TRUE;
1901 USHORT uKeyFlags = SHORT1FROMMP(pQMsg->mp1);
1902
1903 if (uKeyFlags & KC_KEYUP)
1904 bProcess = FALSE;
1905
1906 if (uKeyFlags & KC_ALT)
1907 bProcess = FALSE;
1908
1909 if (!(uKeyFlags & KC_VIRTUALKEY))
1910 bProcess = FALSE;
1911
1912 if (bProcess)
1913 {
1914 bool bCtrlDown = IsCtrlDown();
1915 bool bShiftDown = IsShiftDown();
1916
1917 //
1918 // WM_QUERYDLGCODE: ask the control if it wants the key for itself,
1919 // don't process it if it's the case (except for Ctrl-Tab/Enter
1920 // combinations which are always processed)
1921 //
1922 ULONG ulDlgCode = 0;
1923
1924 if (!bCtrlDown)
1925 {
1926 ulDlgCode = (ULONG)::WinSendMsg(pQMsg->hwnd, WM_QUERYDLGCODE, pQMsg, 0);
1927 }
1928
1929 bool bForward = TRUE;
1930 bool bWindowChange = FALSE;
1931
1932 switch (SHORT2FROMMP(pQMsg->mp2))
1933 {
1934 //
1935 // Going to make certain assumptions about specific types of controls
1936 // here, so we may have to alter some things later if they prove invalid
1937 //
1938 case VK_TAB:
1939 //
1940 // Shift tabl will always be a nav-key but tabs may be wanted
1941 //
1942 if (!bShiftDown)
1943 {
1944 bProcess = FALSE;
1945 }
1946 else
1947 {
1948 //
1949 // Entry Fields want tabs for themselve usually
1950 //
1951 switch (ulDlgCode)
1952 {
1953 case DLGC_ENTRYFIELD:
1954 case DLGC_MLE:
1955 bProcess = TRUE;
1956 break;
1957
1958 default:
1959 bProcess = FALSE;
1960 }
1961
1962 //
1963 // Ctrl-Tab cycles thru notebook pages
1964 //
1965 bWindowChange = bCtrlDown;
1966 bForward = !bShiftDown;
1967 }
1968 break;
1969
1970 case VK_UP:
1971 case VK_LEFT:
1972 if (bCtrlDown)
1973 bProcess = FALSE;
1974 else
1975 bForward = FALSE;
1976 break;
1977
1978 case VK_DOWN:
1979 case VK_RIGHT:
1980 if (bCtrlDown)
1981 bProcess = FALSE;
1982 break;
1983
1984 case VK_ENTER:
1985 {
1986 if (bCtrlDown)
1987 {
1988 //
1989 // ctrl-enter is not processed
1990 //
1991 return FALSE;
1992 }
1993 else if (ulDlgCode & DLGC_BUTTON)
1994 {
1995 //
1996 // buttons want process Enter themselevs
1997 //
1998 bProcess = FALSE;
1999 }
2000 else
2001 {
2002 wxPanel* pPanel = wxDynamicCast(this, wxPanel);
2003 wxButton* pBtn = NULL;
2004
2005 if (pPanel)
2006 {
2007 //
2008 // Panel may have a default button which should
2009 // be activated by Enter
2010 //
2011 pBtn = pPanel->GetDefaultItem();
2012 }
2013
2014 if (pBtn && pBtn->IsEnabled())
2015 {
2016 //
2017 // If we do have a default button, do press it
2018 //
2019 pBtn->OS2Command(BN_CLICKED, 0 /* unused */);
2020 return TRUE;
2021 }
2022 // else: but if it does not it makes sense to make
2023 // it work like a TAB - and that's what we do.
2024 // Note that Ctrl-Enter always works this way.
2025 }
2026 }
2027 break;
2028
2029 default:
2030 bProcess = FALSE;
2031 }
2032
2033 if (bProcess)
2034 {
2035 wxNavigationKeyEvent vEvent;
2036
2037 vEvent.SetDirection(bForward);
2038 vEvent.SetWindowChange(bWindowChange);
2039 vEvent.SetEventObject(this);
2040
2041 if (GetEventHandler()->ProcessEvent(vEvent))
2042 {
2043 wxButton* pBtn = wxDynamicCast(FindFocus(), wxButton);
2044
2045 if (pBtn)
2046 {
2047 //
2048 // The button which has focus should be default
2049 //
2050 pBtn->SetDefault();
2051 }
2052 return TRUE;
2053 }
2054 }
2055 }
2056 //
2057 // Let Dialogs process
2058 //
2059 if (::WinSendMsg(pQMsg->hwnd, WM_QUERYDLGCODE, pQMsg, 0));
2060 return TRUE;
2061 }
2062
2063 #if wxUSE_TOOLTIPS
2064 if ( m_tooltip )
2065 {
2066 // relay mouse move events to the tooltip control
2067 QMSG* pQMsg = (QMSG*)pMsg;
2068
2069 if (pQMsg->msg == WM_MOUSEMOVE )
2070 m_tooltip->RelayEvent(pMsg);
2071 }
2072 #endif // wxUSE_TOOLTIPS
2073
2074 return FALSE;
2075 } // end of wxWindow::OS2ProcessMessage
2076
2077 bool wxWindow::OS2TranslateMessage(
2078 WXMSG* pMsg
2079 )
2080 {
2081 #if wxUSE_ACCEL
2082 return m_acceleratorTable.Translate(m_hWnd, pMsg);
2083 #else
2084 return FALSE;
2085 #endif //wxUSE_ACCEL
2086 } // end of wxWindow::OS2TranslateMessage
2087
2088 // ---------------------------------------------------------------------------
2089 // message params unpackers
2090 // ---------------------------------------------------------------------------
2091
2092 void wxWindow::UnpackCommand(
2093 WXWPARAM wParam
2094 , WXLPARAM lParam
2095 , WORD* pId
2096 , WXHWND* phWnd
2097 , WORD* pCmd
2098 )
2099 {
2100 *pId = LOWORD(wParam);
2101 *phWnd = NULL; // or may be GetHWND() ?
2102 *pCmd = LOWORD(lParam);
2103 } // end of wxWindow::UnpackCommand
2104
2105 void wxWindow::UnpackActivate(
2106 WXWPARAM wParam
2107 , WXLPARAM lParam
2108 , WXWORD* pState
2109 , WXHWND* phWnd
2110 )
2111 {
2112 *pState = LOWORD(wParam);
2113 *phWnd = (WXHWND)lParam;
2114 } // end of wxWindow::UnpackActivate
2115
2116 void wxWindow::UnpackScroll(
2117 WXWPARAM wParam
2118 , WXLPARAM lParam
2119 , WXWORD* pCode
2120 , WXWORD* pPos
2121 , WXHWND* phWnd
2122 )
2123 {
2124 ULONG ulId;
2125 HWND hWnd;
2126
2127 ulId = (ULONG)LONGFROMMP(wParam);
2128 hWnd = ::WinWindowFromID(GetHwnd(), ulId);
2129 if (hWnd == m_hWndScrollBarHorz || hWnd == m_hWndScrollBarVert)
2130 *phWnd = NULLHANDLE;
2131 else
2132 *phWnd = hWnd;
2133
2134 *pPos = SHORT1FROMMP(lParam);
2135 *pCode = SHORT2FROMMP(lParam);
2136 } // end of wxWindow::UnpackScroll
2137
2138 void wxWindow::UnpackMenuSelect(
2139 WXWPARAM wParam
2140 , WXLPARAM lParam
2141 , WXWORD* pItem
2142 , WXWORD* pFlags
2143 , WXHMENU* phMenu
2144 )
2145 {
2146 *pItem = (WXWORD)LOWORD(wParam);
2147 *pFlags = HIWORD(wParam);
2148 *phMenu = (WXHMENU)lParam;
2149 } // end of wxWindow::UnpackMenuSelect
2150
2151 // ---------------------------------------------------------------------------
2152 // Main wxWindows window proc and the window proc for wxWindow
2153 // ---------------------------------------------------------------------------
2154
2155 //
2156 // Hook for new window just as it's being created, when the window isn't yet
2157 // associated with the handle
2158 //
2159 wxWindow* wxWndHook = NULL;
2160
2161 //
2162 // Main window proc
2163 //
2164 MRESULT EXPENTRY wxWndProc(
2165 HWND hWnd
2166 , ULONG ulMsg
2167 , MPARAM wParam
2168 , MPARAM lParam
2169 )
2170 {
2171 //
2172 // Trace all ulMsgs - useful for the debugging
2173 //
2174 #ifdef __WXDEBUG__
2175 wxLogTrace(wxTraceMessages, wxT("Processing %s(wParam=%8lx, lParam=%8lx)"),
2176 wxGetMessageName(ulMsg), wParam, lParam);
2177 #endif // __WXDEBUG__
2178
2179 wxWindow* pWnd = wxFindWinFromHandle((WXHWND)hWnd);
2180
2181 //
2182 // When we get the first message for the HWND we just created, we associate
2183 // it with wxWindow stored in wxWndHook
2184 //
2185 if (!pWnd && wxWndHook)
2186 {
2187 wxAssociateWinWithHandle(hWnd, wxWndHook);
2188 pWnd = wxWndHook;
2189 wxWndHook = NULL;
2190 pWnd->SetHWND((WXHWND)hWnd);
2191 }
2192
2193 MRESULT rc = (MRESULT)0;
2194
2195
2196 //
2197 // Stop right here if we don't have a valid handle in our wxWindow object.
2198 //
2199 if (pWnd && !pWnd->GetHWND())
2200 {
2201 pWnd->SetHWND((WXHWND) hWnd);
2202 rc = pWnd->OS2DefWindowProc(ulMsg, wParam, lParam );
2203 pWnd->SetHWND(0);
2204 }
2205 else
2206 {
2207 if (pWnd)
2208 rc = pWnd->OS2WindowProc(ulMsg, wParam, lParam);
2209 else
2210 rc = ::WinDefWindowProc(hWnd, ulMsg, wParam, lParam);
2211 }
2212
2213 return rc;
2214 } // end of wxWndProc
2215
2216 //
2217 // We will add (or delete) messages we need to handle at this default
2218 // level as we go
2219 //
2220 MRESULT wxWindow::OS2WindowProc(
2221 WXUINT uMsg
2222 , WXWPARAM wParam
2223 , WXLPARAM lParam
2224 )
2225 {
2226 //
2227 // Did we process the uMsg?
2228 //
2229 bool bProcessed = FALSE;
2230 bool bAllow;
2231 MRESULT mResult;
2232 WXHICON hIcon;
2233 WXHBRUSH hBrush;
2234
2235 //
2236 // For most messages we should return 0 when we do process the message
2237 //
2238 mResult = (MRESULT)0;
2239
2240 switch (uMsg)
2241 {
2242 case WM_CREATE:
2243 {
2244 bool bMayCreate;
2245
2246 bProcessed = HandleCreate( (WXLPCREATESTRUCT)lParam
2247 ,&bMayCreate
2248 );
2249 if (bProcessed)
2250 {
2251 //
2252 // Return 0 to bAllow window creation
2253 //
2254 mResult = (MRESULT)(bMayCreate ? 0 : -1);
2255 }
2256 }
2257 break;
2258
2259 case WM_DESTROY:
2260 HandleDestroy();
2261 bProcessed = TRUE;
2262 break;
2263
2264 case WM_MOVE:
2265 bProcessed = HandleMove( LOWORD(lParam)
2266 ,HIWORD(lParam)
2267 );
2268 break;
2269
2270 case WM_SIZE:
2271 bProcessed = HandleSize( LOWORD(lParam)
2272 ,HIWORD(lParam)
2273 ,(WXUINT)wParam
2274 );
2275 break;
2276
2277 case WM_ACTIVATE:
2278 {
2279 WXWORD wState;
2280 WXHWND hWnd;
2281
2282 UnpackActivate( wParam
2283 ,lParam
2284 ,&wState
2285 ,&hWnd
2286 );
2287
2288 bProcessed = HandleActivate( wState
2289 ,(WXHWND)hWnd
2290 );
2291 bProcessed = FALSE;
2292 }
2293 break;
2294
2295 case WM_SETFOCUS:
2296 if (SHORT1FROMMP((MPARAM)lParam) == TRUE)
2297 bProcessed = HandleSetFocus((WXHWND)(HWND)wParam);
2298 else
2299 bProcessed = HandleKillFocus((WXHWND)(HWND)wParam);
2300 break;
2301
2302 case WM_PAINT:
2303 bProcessed = HandlePaint();
2304 break;
2305
2306 case WM_CLOSE:
2307 //
2308 // Don't let the DefWindowProc() destroy our window - we'll do it
2309 // ourselves in ~wxWindow
2310 //
2311 bProcessed = TRUE;
2312 mResult = (MRESULT)TRUE;
2313 break;
2314
2315 case WM_SHOW:
2316 bProcessed = HandleShow(wParam != 0, (int)lParam);
2317 break;
2318
2319 //
2320 // Under OS2 PM Joysticks are treated just like mouse events
2321 // The "Motion" events will be prevelent in joysticks
2322 //
2323 case WM_MOUSEMOVE:
2324 case WM_BUTTON1DOWN:
2325 case WM_BUTTON1UP:
2326 case WM_BUTTON1DBLCLK:
2327 case WM_BUTTON1MOTIONEND:
2328 case WM_BUTTON1MOTIONSTART:
2329 case WM_BUTTON2DOWN:
2330 case WM_BUTTON2UP:
2331 case WM_BUTTON2DBLCLK:
2332 case WM_BUTTON2MOTIONEND:
2333 case WM_BUTTON2MOTIONSTART:
2334 case WM_BUTTON3DOWN:
2335 case WM_BUTTON3UP:
2336 case WM_BUTTON3DBLCLK:
2337 case WM_BUTTON3MOTIONEND:
2338 case WM_BUTTON3MOTIONSTART:
2339 {
2340 short x = LOWORD(lParam);
2341 short y = HIWORD(lParam);
2342
2343 bProcessed = HandleMouseEvent(uMsg, x, y, (WXUINT)wParam);
2344 }
2345 break;
2346 case WM_SYSCOMMAND:
2347 bProcessed = HandleSysCommand(wParam, lParam);
2348 break;
2349
2350 case WM_COMMAND:
2351 {
2352 WORD id, cmd;
2353 WXHWND hwnd;
2354 UnpackCommand(wParam, lParam, &id, &hwnd, &cmd);
2355
2356 bProcessed = HandleCommand(id, cmd, hwnd);
2357 }
2358 break;
2359
2360 //
2361 // For these messages we must return TRUE if process the message
2362 //
2363 case WM_DRAWITEM:
2364 case WM_MEASUREITEM:
2365 {
2366 int nIdCtrl = (UINT)wParam;
2367
2368 if ( uMsg == WM_DRAWITEM )
2369 {
2370 bProcessed = OS2OnDrawItem(nIdCtrl,
2371 (WXDRAWITEMSTRUCT *)lParam);
2372 }
2373 else
2374 {
2375 bProcessed = OS2OnMeasureItem(nIdCtrl,
2376 (WXMEASUREITEMSTRUCT *)lParam);
2377 }
2378
2379 if ( bProcessed )
2380 mResult = (MRESULT)TRUE;
2381 }
2382 break;
2383
2384 case WM_QUERYDLGCODE:
2385 if ( m_lDlgCode )
2386 {
2387 mResult = (MRESULT)m_lDlgCode;
2388 bProcessed = TRUE;
2389 }
2390 //
2391 //else: get the dlg code from the DefWindowProc()
2392 //
2393 break;
2394
2395 //
2396 // In OS/2 PM all keyboard events are of the WM_CHAR type. Virtual key and key-up
2397 // and key-down events are obtained from the WM_CHAR params.
2398 //
2399 case WM_CHAR:
2400 {
2401 USHORT uKeyFlags = SHORT1FROMMP((MPARAM)wParam);
2402
2403 if (uKeyFlags & KC_KEYUP)
2404 {
2405 bProcessed = HandleKeyUp((WXDWORD)wParam, lParam);
2406 break;
2407 }
2408 else // keydown event
2409 {
2410 //
2411 // If this has been processed by an event handler,
2412 // return 0 now (we've handled it). DON't RETURN
2413 // we still need to process further
2414 //
2415 HandleKeyDown((WXDWORD)wParam, lParam);
2416 if (uKeyFlags & KC_VIRTUALKEY)
2417 {
2418 USHORT uVk = SHORT2FROMMP((MPARAM)lParam);
2419
2420 //
2421 // We consider these message "not interesting" to OnChar
2422 //
2423 if (uVk == VK_SHIFT || uVk == VK_CTRL )
2424 {
2425 bProcessed = TRUE;
2426 break;
2427 }
2428 switch(uVk)
2429 {
2430 //
2431 // Avoid duplicate messages to OnChar for these ASCII keys: they
2432 // will be translated by TranslateMessage() and received in WM_CHAR
2433 case VK_ESC:
2434 case VK_SPACE:
2435 case VK_ENTER:
2436 case VK_BACKSPACE:
2437 case VK_TAB:
2438 // But set processed to FALSE, not TRUE to still pass them to
2439 // the control's default window proc - otherwise built-in
2440 // keyboard handling won't work
2441 bProcessed = FALSE;
2442 break;
2443
2444 case VK_LEFT:
2445 case VK_RIGHT:
2446 case VK_DOWN:
2447 case VK_UP:
2448 default:
2449 bProcessed = HandleChar((WXDWORD)wParam, lParam);
2450 }
2451 break;
2452 }
2453 else // WM_CHAR -- Always an ASCII character
2454 {
2455 bProcessed = HandleChar((WXDWORD)wParam, lParam, TRUE);
2456 break;
2457 }
2458 }
2459 }
2460
2461 case WM_HSCROLL:
2462 case WM_VSCROLL:
2463 {
2464 WXWORD wCode;
2465 WXWORD wPos;
2466 WXHWND hWnd;
2467 UnpackScroll( wParam
2468 ,lParam
2469 ,&wCode
2470 ,&wPos
2471 ,&hWnd
2472 );
2473
2474 bProcessed = OS2OnScroll( uMsg == WM_HSCROLL ? wxHORIZONTAL
2475 : wxVERTICAL
2476 ,wCode
2477 ,wPos
2478 ,hWnd
2479 );
2480 }
2481 break;
2482
2483 #if defined(__VISAGECPP__) && (__IBMCPP__ >= 400)
2484 case WM_CTLCOLORCHANGE:
2485 {
2486 bProcessed = HandleCtlColor(&hBrush);
2487 }
2488 break;
2489 #endif
2490 case WM_ERASEBACKGROUND:
2491 //
2492 // Returning TRUE to requestw PM to paint the window background
2493 // in SYSCLR_WINDOW. We don't really want that
2494 //
2495 bProcessed = HandleEraseBkgnd((WXHDC)(HPS)wParam);
2496 mResult = (MRESULT)(FALSE);
2497 break;
2498
2499 //
2500 // Instead of CTLCOLOR messages PM sends QUERYWINDOWPARAMS to
2501 // things such as colors and fonts and such
2502 //
2503 case WM_QUERYWINDOWPARAMS:
2504 {
2505 PWNDPARAMS pWndParams = (PWNDPARAMS)wParam;
2506
2507 bProcessed = HandleWindowParams( pWndParams
2508 ,lParam
2509 );
2510 }
2511 break;
2512
2513 // the return value for this message is ignored
2514 case WM_SYSCOLORCHANGE:
2515 bProcessed = HandleSysColorChange();
2516 break;
2517
2518 case WM_REALIZEPALETTE:
2519 bProcessed = HandlePaletteChanged();
2520 break;
2521
2522 case WM_PRESPARAMCHANGED:
2523 bProcessed = HandlePresParamChanged(wParam);
2524 break;
2525
2526
2527 // move all drag and drops to wxDrg
2528 case WM_ENDDRAG:
2529 bProcessed = HandleEndDrag(wParam);
2530 break;
2531
2532 case WM_INITDLG:
2533 bProcessed = HandleInitDialog((WXHWND)(HWND)wParam);
2534
2535 if ( bProcessed )
2536 {
2537 // we never set focus from here
2538 mResult = FALSE;
2539 }
2540 break;
2541
2542 // wxFrame specific message
2543 case WM_MINMAXFRAME:
2544 bProcessed = HandleGetMinMaxInfo((PSWP)wParam);
2545 break;
2546
2547 case WM_SYSVALUECHANGED:
2548 // TODO: do something
2549 mResult = (MRESULT)TRUE;
2550 break;
2551
2552 //
2553 // Comparable to WM_SETPOINTER for windows, only for just controls
2554 //
2555 case WM_CONTROLPOINTER:
2556 bProcessed = HandleSetCursor( SHORT1FROMMP(wParam) // Control ID
2557 ,(HWND)lParam // Cursor Handle
2558 );
2559 if (bProcessed )
2560 {
2561 //
2562 // Returning TRUE stops the DefWindowProc() from further
2563 // processing this message - exactly what we need because we've
2564 // just set the cursor.
2565 //
2566 mResult = (MRESULT)TRUE;
2567 }
2568 break;
2569 }
2570 if (!bProcessed)
2571 {
2572 #ifdef __WXDEBUG__
2573 wxLogTrace(wxTraceMessages, wxT("Forwarding %s to DefWindowProc."),
2574 wxGetMessageName(uMsg));
2575 #endif // __WXDEBUG__
2576 if (IsKindOf(CLASSINFO(wxFrame)))
2577 mResult = ::WinDefWindowProc(m_hWnd, uMsg, wParam, lParam);
2578 else
2579 mResult = OS2DefWindowProc(uMsg, wParam, lParam);
2580 }
2581 return mResult;
2582 } // end of wxWindow::OS2WindowProc
2583
2584 //
2585 // Dialog window proc
2586 //
2587 MRESULT wxDlgProc(
2588 HWND hWnd
2589 , UINT uMsg
2590 , MPARAM wParam
2591 , MPARAM lParam)
2592 {
2593 if (uMsg == WM_INITDLG)
2594 {
2595 //
2596 // For this message, returning TRUE tells system to set focus to the
2597 // first control in the dialog box
2598 //
2599 return (MRESULT)TRUE;
2600 }
2601 else
2602 {
2603 //
2604 // For all the other ones, FALSE means that we didn't process the
2605 // message
2606 //
2607 return (MRESULT)0;
2608 }
2609 } // end of wxDlgProc
2610
2611 wxWindow* wxFindWinFromHandle(
2612 WXHWND hWnd
2613 )
2614 {
2615 wxNode* pNode = wxWinHandleList->Find((long)hWnd);
2616
2617 if (!pNode)
2618 return NULL;
2619 return (wxWindow *)pNode->Data();
2620 } // end of wxFindWinFromHandle
2621
2622 void wxAssociateWinWithHandle(
2623 HWND hWnd
2624 , wxWindow* pWin
2625 )
2626 {
2627 //
2628 // Adding NULL hWnd is (first) surely a result of an error and
2629 // (secondly) breaks menu command processing
2630 //
2631 wxCHECK_RET( hWnd != (HWND)NULL,
2632 wxT("attempt to add a NULL hWnd to window list ignored") );
2633
2634
2635 wxWindow* pOldWin = wxFindWinFromHandle((WXHWND) hWnd);
2636
2637 if (pOldWin && (pOldWin != pWin))
2638 {
2639 wxString str(pWin->GetClassInfo()->GetClassName());
2640 wxLogError( "Bug! Found existing HWND %X for new window of class %s"
2641 ,(int)hWnd
2642 ,(const char*)str
2643 );
2644 }
2645 else if (!pOldWin)
2646 {
2647 wxWinHandleList->Append( (long)hWnd
2648 ,pWin
2649 );
2650 }
2651 } // end of wxAssociateWinWithHandle
2652
2653 void wxRemoveHandleAssociation(
2654 wxWindow* pWin
2655 )
2656 {
2657 wxWinHandleList->DeleteObject(pWin);
2658 } // end of wxRemoveHandleAssociation
2659
2660 //
2661 // Default destroyer - override if you destroy it in some other way
2662 // (e.g. with MDI child windows)
2663 //
2664 void wxWindow::OS2DestroyWindow()
2665 {
2666 }
2667
2668 void wxWindow::OS2DetachWindowMenu()
2669 {
2670 if (m_hMenu)
2671 {
2672 HMENU hMenu = (HMENU)m_hMenu;
2673
2674 int nN = (int)::WinSendMsg(hMenu, MM_QUERYITEMCOUNT, 0, 0);
2675 int i;
2676
2677 for (i = 0; i < nN; i++)
2678 {
2679 wxChar zBuf[100];
2680 int nChars = (int)::WinSendMsg( hMenu
2681 ,MM_QUERYITEMTEXT
2682 ,MPFROM2SHORT(i, nN)
2683 ,zBuf
2684 );
2685 if (!nChars)
2686 {
2687 wxLogLastError(wxT("GetMenuString"));
2688 continue;
2689 }
2690
2691 if (wxStrcmp(zBuf, wxT("&Window")) == 0)
2692 {
2693 ::WinSendMsg(hMenu, MM_DELETEITEM, MPFROM2SHORT(i, TRUE), 0);
2694 break;
2695 }
2696 }
2697 }
2698 } // end of wxWindow::OS2DetachWindowMenu
2699
2700 bool wxWindow::OS2Create(
2701 WXHWND hParent
2702 , PSZ zClass
2703 , const wxChar* zTitle
2704 , WXDWORD dwStyle
2705 , long lX
2706 , long lY
2707 , long lWidth
2708 , long lHeight
2709 , WXHWND hOwner
2710 , WXHWND hZOrder
2711 , unsigned long ulId
2712 , void* pCtlData
2713 , void* pPresParams
2714 , WXDWORD dwExStyle
2715 )
2716 {
2717 ERRORID vError;
2718 wxString sError;
2719 long lX1 = 0L;
2720 long lY1 = 0L;
2721 long lWidth1 = 20L;
2722 long lHeight1 = 20L;
2723 int nControlId = 0;
2724 int nNeedsubclass = 0;
2725 PCSZ pszClass = zClass;
2726
2727 //
2728 // Find parent's size, if it exists, to set up a possible default
2729 // panel size the size of the parent window
2730 //
2731 RECTL vParentRect;
2732 HWND hWndClient;
2733
2734 lX1 = lX;
2735 lY1 = lY;
2736 if (lWidth > -1L)
2737 lWidth1 = lWidth;
2738 if (lHeight > -1L)
2739 lHeight1 = lHeight;
2740
2741 wxWndHook = this;
2742
2743 //
2744 // check to see if the new window is a standard control
2745 //
2746 if ((ULONG)zClass == (ULONG)WC_BUTTON ||
2747 (ULONG)zClass == (ULONG)WC_COMBOBOX ||
2748 (ULONG)zClass == (ULONG)WC_CONTAINER ||
2749 (ULONG)zClass == (ULONG)WC_ENTRYFIELD ||
2750 (ULONG)zClass == (ULONG)WC_FRAME ||
2751 (ULONG)zClass == (ULONG)WC_LISTBOX ||
2752 (ULONG)zClass == (ULONG)WC_MENU ||
2753 (ULONG)zClass == (ULONG)WC_NOTEBOOK ||
2754 (ULONG)zClass == (ULONG)WC_SCROLLBAR ||
2755 (ULONG)zClass == (ULONG)WC_SPINBUTTON ||
2756 (ULONG)zClass == (ULONG)WC_STATIC ||
2757 (ULONG)zClass == (ULONG)WC_TITLEBAR ||
2758 (ULONG)zClass == (ULONG)WC_VALUESET
2759 )
2760 {
2761 nControlId = ulId;
2762 }
2763 else
2764 {
2765 // no standard controls
2766 if(wxString (wxT("wxFrameClass")) == wxString(zClass) )
2767 {
2768 pszClass = WC_FRAME;
2769 nNeedsubclass = 1;
2770 }
2771 else
2772 {
2773 nControlId = ulId;
2774 if(nControlId < 0)
2775 nControlId = FID_CLIENT;
2776 }
2777 }
2778
2779 //
2780 // We will either have a registered class via string name or a standard PM Class via a long
2781 //
2782 m_hWnd = (WXHWND)::WinCreateWindow( (HWND)hParent
2783 ,zClass
2784 ,(PSZ)zTitle ? zTitle : wxT("")
2785 ,(ULONG)dwStyle
2786 ,(LONG)lX1
2787 ,(LONG)lY1
2788 ,(LONG)lWidth
2789 ,(LONG)lHeight
2790 ,hOwner
2791 ,HWND_TOP
2792 ,(ULONG)nControlId
2793 ,pCtlData
2794 ,pPresParams
2795 );
2796 if (!m_hWnd)
2797 {
2798 vError = ::WinGetLastError(vHabmain);
2799 sError = wxPMErrorToStr(vError);
2800 wxLogError("Can't create window of class %s!. Error: %s\n", zClass, sError);
2801 return FALSE;
2802 }
2803 m_dwExStyle = dwExStyle;
2804 ::WinSetWindowULong(m_hWnd, QWL_USER, (ULONG) this);
2805 wxWndHook = NULL;
2806
2807 #ifdef __WXDEBUG__
2808 wxNode* pNode = wxWinHandleList->Member(this);
2809
2810 if (pNode)
2811 {
2812 HWND hWnd = (HWND)pNode->GetKeyInteger();
2813
2814 if (hWnd != (HWND)m_hWnd)
2815
2816 {
2817 wxLogError("A second HWND association is being added for the same window!");
2818 }
2819 }
2820 #endif
2821 wxAssociateWinWithHandle((HWND)m_hWnd
2822 ,this
2823 );
2824 //
2825 // Now need to subclass window.
2826 //
2827 if(!nNeedsubclass)
2828 {
2829 wxAssociateWinWithHandle((HWND)m_hWnd,this);
2830 }
2831 else
2832 {
2833 SubclassWin(GetHWND());
2834 }
2835 return TRUE;
2836 } // end of wxWindow::OS2Create
2837
2838 // ===========================================================================
2839 // OS2 PM message handlers
2840 // ===========================================================================
2841
2842 // ---------------------------------------------------------------------------
2843 // window creation/destruction
2844 // ---------------------------------------------------------------------------
2845
2846 bool wxWindow::HandleCreate(
2847 WXLPCREATESTRUCT vCs
2848 , bool* pbMayCreate
2849 )
2850 {
2851 wxWindowCreateEvent vEvent(this);
2852
2853 (void)GetEventHandler()->ProcessEvent(vEvent);
2854 *pbMayCreate = TRUE;
2855 return TRUE;
2856 } // end of wxWindow::HandleCreate
2857
2858 bool wxWindow::HandleDestroy()
2859 {
2860 wxWindowDestroyEvent vEvent(this);
2861
2862 (void)GetEventHandler()->ProcessEvent(vEvent);
2863
2864 //
2865 // Delete our drop target if we've got one
2866 //
2867 #if wxUSE_DRAG_AND_DROP
2868 if (m_dropTarget != NULL)
2869 {
2870 m_dropTarget->Revoke(m_hWnd);
2871 delete m_dropTarget;
2872 m_dropTarget = NULL;
2873 }
2874 #endif // wxUSE_DRAG_AND_DROP
2875
2876 //
2877 // WM_DESTROY handled
2878 //
2879 return TRUE;
2880 } // end of wxWindow::HandleDestroy
2881
2882 // ---------------------------------------------------------------------------
2883 // activation/focus
2884 // ---------------------------------------------------------------------------
2885 void wxWindow::OnSetFocus(
2886 wxFocusEvent& rEvent
2887 )
2888 {
2889 //
2890 // Panel wants to track the window which was the last to have focus in it,
2891 // so we want to set ourselves as the window which last had focus
2892 //
2893 // Notice that it's also important to do it upwards the tree becaus
2894 // otherwise when the top level panel gets focus, it won't set it back to
2895 // us, but to some other sibling
2896 //
2897 wxWindow* pWin = this;
2898
2899 while (pWin)
2900 {
2901 wxWindow* pParent = pWin->GetParent();
2902 wxPanel* pPanel = wxDynamicCast( pParent
2903 ,wxPanel
2904 );
2905 if (pPanel)
2906 {
2907 pPanel->SetLastFocus(pWin);
2908 }
2909 pWin = pParent;
2910 }
2911
2912 wxLogTrace(_T("focus"), _T("%s (0x%08x) gets focus"),
2913 GetClassInfo()->GetClassName(), GetHandle());
2914
2915 rEvent.Skip();
2916 } // end of wxWindow::OnSetFocus
2917
2918 bool wxWindow::HandleActivate(
2919 int nState
2920 , WXHWND WXUNUSED(hActivate)
2921 )
2922 {
2923 wxActivateEvent vEvent( wxEVT_ACTIVATE
2924 ,(bool)nState
2925 ,m_windowId
2926 );
2927 vEvent.SetEventObject(this);
2928 return GetEventHandler()->ProcessEvent(vEvent);
2929 } // end of wxWindow::HandleActivate
2930
2931 bool wxWindow::HandleSetFocus(
2932 WXHWND WXUNUSED(hWnd)
2933 )
2934 {
2935 #if wxUSE_CARET
2936 //
2937 // Deal with caret
2938 //
2939 if (m_caret)
2940 {
2941 m_caret->OnSetFocus();
2942 }
2943 #endif // wxUSE_CARET
2944
2945 //
2946 // Panel wants to track the window which was the last to have focus in it
2947 //
2948 wxPanel* pPanel = wxDynamicCast( GetParent()
2949 ,wxPanel
2950 );
2951 if (pPanel)
2952 {
2953 pPanel->SetLastFocus(this);
2954 }
2955
2956 wxFocusEvent vEvent(wxEVT_SET_FOCUS, m_windowId);
2957
2958 vEvent.SetEventObject(this);
2959 return GetEventHandler()->ProcessEvent(vEvent);
2960 } // end of wxWindow::HandleSetFocus
2961
2962 bool wxWindow::HandleKillFocus(
2963 WXHWND WXUNUSED(hWnd)
2964 )
2965 {
2966 #if wxUSE_CARET
2967 //
2968 // Deal with caret
2969 //
2970 if (m_caret)
2971 {
2972 m_caret->OnKillFocus();
2973 }
2974 #endif // wxUSE_CARET
2975
2976 wxFocusEvent vEvent( wxEVT_KILL_FOCUS
2977 ,m_windowId
2978 );
2979
2980 vEvent.SetEventObject(this);
2981 return GetEventHandler()->ProcessEvent(vEvent);
2982 } // end of wxWindow::HandleKillFocus
2983
2984 // ---------------------------------------------------------------------------
2985 // miscellaneous
2986 // ---------------------------------------------------------------------------
2987
2988 bool wxWindow::HandleShow(
2989 bool bShow
2990 , int nStatus
2991 )
2992 {
2993 wxShowEvent vEvent( GetId()
2994 ,bShow
2995 );
2996
2997 vEvent.m_eventObject = this;
2998 return GetEventHandler()->ProcessEvent(vEvent);
2999 } // end of wxWindow::HandleShow
3000
3001 bool wxWindow::HandleInitDialog(
3002 WXHWND WXUNUSED(hWndFocus)
3003 )
3004 {
3005 wxInitDialogEvent vEvent(GetId());
3006
3007 vEvent.m_eventObject = this;
3008 return GetEventHandler()->ProcessEvent(vEvent);
3009 } // end of wxWindow::HandleInitDialog
3010
3011 bool wxWindow::HandleEndDrag(WXWPARAM wParam)
3012 {
3013 // TODO: We'll handle drag and drop later
3014 return FALSE;
3015 }
3016
3017 bool wxWindow::HandleSetCursor(
3018 USHORT vId
3019 , WXHWND hPointer
3020 )
3021 {
3022 //
3023 // Under OS/2 PM this allows the pointer to be changed
3024 // as it passes over a control
3025 //
3026 ::WinSetPointer(HWND_DESKTOP, (HPOINTER)hPointer);
3027 return TRUE;
3028 } // end of wxWindow::HandleSetCursor
3029
3030 // ---------------------------------------------------------------------------
3031 // owner drawn stuff
3032 // ---------------------------------------------------------------------------
3033 bool wxWindow::OS2OnDrawItem(
3034 int vId
3035 , WXDRAWITEMSTRUCT* pItemStruct
3036 )
3037 {
3038 wxDC vDc;
3039
3040 #if wxUSE_OWNER_DRAWN
3041 //
3042 // Is it a menu item?
3043 //
3044 if (vId == 0)
3045 {
3046 ERRORID vError;
3047 wxString sError;
3048 POWNERITEM pMeasureStruct = (POWNERITEM)pItemStruct;
3049 wxFrame* pFrame = (wxFrame*)this;
3050 wxMenuItem* pMenuItem = pFrame->GetMenuBar()->FindItem(pMeasureStruct->idItem, pMeasureStruct->hItem);
3051 HDC hDC = ::GpiQueryDevice(pMeasureStruct->hps);
3052 wxRect vRect( pMeasureStruct->rclItem.xLeft
3053 ,pMeasureStruct->rclItem.yBottom
3054 ,pMeasureStruct->rclItem.xRight - pMeasureStruct->rclItem.xLeft
3055 ,pMeasureStruct->rclItem.yTop - pMeasureStruct->rclItem.yBottom
3056 );
3057 vDc.SetHDC( hDC
3058 ,FALSE
3059 );
3060 vDc.SetHPS(pMeasureStruct->hps);
3061 //
3062 // Load the wxWindows Pallete and set to RGB mode
3063 //
3064 if (!::GpiCreateLogColorTable( pMeasureStruct->hps
3065 ,0L
3066 ,LCOLF_CONSECRGB
3067 ,0L
3068 ,(LONG)wxTheColourDatabase->m_nSize
3069 ,(PLONG)wxTheColourDatabase->m_palTable
3070 ))
3071 {
3072 vError = ::WinGetLastError(vHabmain);
3073 sError = wxPMErrorToStr(vError);
3074 wxLogError("Unable to set current color table. Error: %s\n", sError);
3075 }
3076 //
3077 // Set the color table to RGB mode
3078 //
3079 if (!::GpiCreateLogColorTable( pMeasureStruct->hps
3080 ,0L
3081 ,LCOLF_RGB
3082 ,0L
3083 ,0L
3084 ,NULL
3085 ))
3086 {
3087 vError = ::WinGetLastError(vHabmain);
3088 sError = wxPMErrorToStr(vError);
3089 wxLogError("Unable to set current color table. Error: %s\n", sError);
3090 }
3091
3092 wxCHECK( pMenuItem->IsKindOf(CLASSINFO(wxMenuItem)), FALSE );
3093
3094
3095 int eAction = 0;
3096 int eStatus = 0;
3097
3098 if (pMeasureStruct->fsAttribute == pMeasureStruct->fsAttributeOld)
3099 {
3100 //
3101 // Entire Item needs to be redrawn (either it has reappeared from
3102 // behind another window or is being displayed for the first time
3103 //
3104 eAction = wxOwnerDrawn::wxODDrawAll;
3105
3106 if (pMeasureStruct->fsAttribute & MIA_HILITED)
3107 {
3108 //
3109 // If it is currently selected we let the system handle it
3110 //
3111 eStatus |= wxOwnerDrawn::wxODSelected;
3112 }
3113 if (pMeasureStruct->fsAttribute & MIA_CHECKED)
3114 {
3115 //
3116 // If it is currently checked we draw our own
3117 //
3118 eStatus |= wxOwnerDrawn::wxODChecked;
3119 pMeasureStruct->fsAttributeOld = pMeasureStruct->fsAttribute &= ~MIA_CHECKED;
3120 }
3121 if (pMeasureStruct->fsAttribute & MIA_DISABLED)
3122 {
3123 //
3124 // If it is currently disabled we let the system handle it
3125 //
3126 eStatus |= wxOwnerDrawn::wxODDisabled;
3127 }
3128 //
3129 // Don't really care about framed (indicationg focus) or NoDismiss
3130 //
3131 }
3132 else
3133 {
3134 if (pMeasureStruct->fsAttribute & MIA_HILITED)
3135 {
3136 eAction = wxOwnerDrawn::wxODDrawAll;
3137 eStatus |= wxOwnerDrawn::wxODSelected;
3138 //
3139 // Keep the system from trying to highlight with its bogus colors
3140 //
3141 pMeasureStruct->fsAttributeOld = pMeasureStruct->fsAttribute &= ~MIA_HILITED;
3142 }
3143 else if (!(pMeasureStruct->fsAttribute & MIA_HILITED))
3144 {
3145 eAction = wxOwnerDrawn::wxODDrawAll;
3146 eStatus = 0;
3147 //
3148 // Keep the system from trying to highlight with its bogus colors
3149 //
3150 pMeasureStruct->fsAttribute = pMeasureStruct->fsAttributeOld &= ~MIA_HILITED;
3151 }
3152 else
3153 {
3154 //
3155 // For now we don't care about anything else
3156 // just ignore the entire message!
3157 //
3158 return TRUE;
3159 }
3160 }
3161 //
3162 // Now redraw the item
3163 //
3164 return(pMenuItem->OnDrawItem( vDc
3165 ,vRect
3166 ,(wxOwnerDrawn::wxODAction)eAction
3167 ,(wxOwnerDrawn::wxODStatus)eStatus
3168 ));
3169 //
3170 // leave the fsAttribute and fsOldAttribute unchanged. If different,
3171 // the system will do the highlight or fraeming or disabling for us,
3172 // otherwise, we'd have to do it ourselves.
3173 //
3174 }
3175
3176 wxWindow* pItem = FindItem(vId);
3177
3178 if (pItem && pItem->IsKindOf(CLASSINFO(wxControl)))
3179 {
3180 return ((wxControl *)pItem)->OS2OnDraw(pItemStruct);
3181 }
3182 #endif
3183 return FALSE;
3184 } // end of wxWindow::OS2OnDrawItem
3185
3186 bool wxWindow::OS2OnMeasureItem(
3187 int lId
3188 , WXMEASUREITEMSTRUCT* pItemStruct
3189 )
3190 {
3191 //
3192 // Is it a menu item?
3193 //
3194 if (lId == 65536) // I really don't like this...has to be a better indicator
3195 {
3196 if (IsKindOf(CLASSINFO(wxFrame))) // we'll assume if Frame then a menu
3197 {
3198 size_t nWidth;
3199 size_t nHeight;
3200 POWNERITEM pMeasureStruct = (POWNERITEM)pItemStruct;
3201 wxFrame* pFrame = (wxFrame*)this;
3202 wxMenuItem* pMenuItem = pFrame->GetMenuBar()->FindItem(pMeasureStruct->idItem, pMeasureStruct->hItem);
3203
3204 wxCHECK( pMenuItem->IsKindOf(CLASSINFO(wxMenuItem)), FALSE );
3205 nWidth = 0L;
3206 nHeight = 0L;
3207 if (pMenuItem->OnMeasureItem( &nWidth
3208 ,&nHeight
3209 ))
3210 {
3211 pMeasureStruct->rclItem.xRight = nWidth;
3212 pMeasureStruct->rclItem.xLeft = 0L;
3213 pMeasureStruct->rclItem.yTop = nHeight;
3214 pMeasureStruct->rclItem.yBottom = 0L;
3215 return TRUE;
3216 }
3217 return FALSE;
3218 }
3219 }
3220 wxWindow* pItem = FindItem(lId);
3221
3222 if (pItem && pItem->IsKindOf(CLASSINFO(wxControl)))
3223 {
3224 return ((wxControl *)pItem)->OS2OnMeasure(pItemStruct);
3225 }
3226 return FALSE;
3227 }
3228
3229 // ---------------------------------------------------------------------------
3230 // colours and palettes
3231 // ---------------------------------------------------------------------------
3232
3233 bool wxWindow::HandleSysColorChange()
3234 {
3235 wxSysColourChangedEvent vEvent;
3236
3237 vEvent.SetEventObject(this);
3238 return GetEventHandler()->ProcessEvent(vEvent);
3239 } // end of wxWindow::HandleSysColorChange
3240
3241 bool wxWindow::HandleCtlColor(
3242 WXHBRUSH* phBrush
3243 )
3244 {
3245 //
3246 // Not much provided with message. So not sure I can do anything with it
3247 //
3248 return TRUE;
3249 } // end of wxWindow::HandleCtlColor
3250
3251 bool wxWindow::HandleWindowParams(
3252 PWNDPARAMS pWndParams
3253 , WXLPARAM lParam
3254 )
3255 {
3256 // TODO: I'll do something here, just not sure what yet
3257 return TRUE;
3258 }
3259
3260 // Define for each class of dialog and control
3261 WXHBRUSH wxWindow::OnCtlColor(WXHDC hDC,
3262 WXHWND hWnd,
3263 WXUINT nCtlColor,
3264 WXUINT message,
3265 WXWPARAM wParam,
3266 WXLPARAM lParam)
3267 {
3268 return (WXHBRUSH)0;
3269 }
3270
3271 bool wxWindow::HandlePaletteChanged()
3272 {
3273 // need to set this to something first
3274 WXHWND hWndPalChange = NULLHANDLE;
3275
3276 wxPaletteChangedEvent vEvent(GetId());
3277
3278 vEvent.SetEventObject(this);
3279 vEvent.SetChangedWindow(wxFindWinFromHandle(hWndPalChange));
3280
3281 return GetEventHandler()->ProcessEvent(vEvent);
3282 } // end of wxWindow::HandlePaletteChanged
3283
3284 bool wxWindow::HandlePresParamChanged(
3285 WXWPARAM wParam
3286 )
3287 {
3288 //
3289 // TODO: Once again I'll do something here when I need it
3290 //
3291 //wxQueryNewPaletteEvent event(GetId());
3292 //event.SetEventObject(this);
3293 // if the background is erased
3294 // bProcessed = HandleEraseBkgnd((WXHDC)(HDC)wParam);
3295
3296 return FALSE; //GetEventHandler()->ProcessEvent(event) && event.GetPaletteRealized();
3297 }
3298
3299 //
3300 // Responds to colour changes: passes event on to children.
3301 //
3302 void wxWindow::OnSysColourChanged(
3303 wxSysColourChangedEvent& rEvent
3304 )
3305 {
3306 wxNode* pNode = GetChildren().First();
3307
3308 while (pNode)
3309 {
3310 //
3311 // Only propagate to non-top-level windows
3312 //
3313 wxWindow* pWin = (wxWindow *)pNode->Data();
3314
3315 if (pWin->GetParent())
3316 {
3317 wxSysColourChangedEvent vEvent;
3318
3319 rEvent.m_eventObject = pWin;
3320 pWin->GetEventHandler()->ProcessEvent(vEvent);
3321 }
3322 pNode = pNode->Next();
3323 }
3324 } // end of wxWindow::OnSysColourChanged
3325
3326 // ---------------------------------------------------------------------------
3327 // painting
3328 // ---------------------------------------------------------------------------
3329
3330 bool wxWindow::HandlePaint()
3331 {
3332 HRGN hRgn = NULLHANDLE;
3333 wxPaintEvent vEvent;
3334 HPS hPS;
3335 RECTL vRect;
3336
3337 if (::WinQueryUpdateRegion(GetHwnd(), hRgn) == RGN_NULL)
3338 {
3339 wxLogLastError("CreateRectRgn");
3340 return FALSE;
3341 }
3342
3343 m_updateRegion = wxRegion(hRgn);
3344 vEvent.SetEventObject(this);
3345 if (!GetEventHandler()->ProcessEvent(vEvent))
3346 {
3347 HPS hPS;
3348
3349 hPS = ::WinBeginPaint( GetHwnd()
3350 ,NULLHANDLE
3351 ,&vRect
3352 );
3353 if(hPS)
3354 {
3355 ::GpiCreateLogColorTable( hPS
3356 ,0L
3357 ,LCOLF_CONSECRGB
3358 ,0L
3359 ,(LONG)wxTheColourDatabase->m_nSize
3360 ,(PLONG)wxTheColourDatabase->m_palTable
3361 );
3362 ::GpiCreateLogColorTable( hPS
3363 ,0L
3364 ,LCOLF_RGB
3365 ,0L
3366 ,0L
3367 ,NULL
3368 );
3369
3370 ::WinFillRect(hPS, &vRect, GetBackgroundColour().GetPixel());
3371
3372 if (m_dwExStyle)
3373 {
3374 LINEBUNDLE vLineBundle;
3375
3376 vLineBundle.lColor = 0x00000000; // Black
3377 vLineBundle.usMixMode = FM_OVERPAINT;
3378 vLineBundle.fxWidth = 1;
3379 vLineBundle.lGeomWidth = 1;
3380 vLineBundle.usType = LINETYPE_SOLID;
3381 vLineBundle.usEnd = 0;
3382 vLineBundle.usJoin = 0;
3383 ::GpiSetAttrs( hPS
3384 ,PRIM_LINE
3385 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
3386 ,0L
3387 ,&vLineBundle
3388 );
3389 ::WinQueryWindowRect(GetHwnd(), &vRect);
3390 wxDrawBorder( hPS
3391 ,vRect
3392 ,m_dwExStyle
3393 );
3394 }
3395 ::WinEndPaint(hPS);
3396 }
3397 }
3398 return (GetEventHandler()->ProcessEvent(vEvent));
3399 } // end of wxWindow::HandlePaint
3400
3401 bool wxWindow::HandleEraseBkgnd(
3402 WXHDC hDC
3403 )
3404 {
3405 SWP vSwp;
3406
3407 ::WinQueryWindowPos(GetHwnd(), &vSwp);
3408 if (vSwp.fl & SWP_MINIMIZE)
3409 return TRUE;
3410
3411 wxDC vDC;
3412
3413 vDC.m_hPS = (HPS)hDC; // this is really a PS
3414 vDC.SetWindow(this);
3415 vDC.BeginDrawing();
3416
3417 wxEraseEvent vEvent(m_windowId, &vDC);
3418
3419 vEvent.SetEventObject(this);
3420
3421 bool rc = GetEventHandler()->ProcessEvent(vEvent);
3422
3423 vDC.EndDrawing();
3424 vDC.m_hPS = NULLHANDLE;
3425 return TRUE;
3426 } // end of wxWindow::HandleEraseBkgnd
3427
3428 void wxWindow::OnEraseBackground(
3429 wxEraseEvent& rEvent
3430 )
3431 {
3432 RECTL vRect;
3433 HPS hPS = rEvent.m_dc->m_hPS;
3434
3435 ::WinQueryWindowRect(GetHwnd(), &vRect);
3436 ::WinFillRect(hPS, &vRect, m_backgroundColour.GetPixel());
3437 } // end of wxWindow::OnEraseBackground
3438
3439 // ---------------------------------------------------------------------------
3440 // moving and resizing
3441 // ---------------------------------------------------------------------------
3442
3443 bool wxWindow::HandleMinimize()
3444 {
3445 wxIconizeEvent vEvent(m_windowId);
3446
3447 vEvent.SetEventObject(this);
3448 return GetEventHandler()->ProcessEvent(vEvent);
3449 } // end of wxWindow::HandleMinimize
3450
3451 bool wxWindow::HandleMaximize()
3452 {
3453 wxMaximizeEvent vEvent(m_windowId);
3454
3455 vEvent.SetEventObject(this);
3456 return GetEventHandler()->ProcessEvent(vEvent);
3457 } // end of wxWindow::HandleMaximize
3458
3459 bool wxWindow::HandleMove(
3460 int nX
3461 , int nY
3462 )
3463 {
3464 wxMoveEvent vEvent( wxPoint( nX
3465 ,nY
3466 )
3467 ,m_windowId
3468 );
3469
3470 vEvent.SetEventObject(this);
3471 return GetEventHandler()->ProcessEvent(vEvent);
3472 } // end of wxWindow::HandleMove
3473
3474 bool wxWindow::HandleSize(
3475 int nWidth
3476 , int nHeight
3477 , WXUINT WXUNUSED(nFlag)
3478 )
3479 {
3480 wxSizeEvent vEvent( wxSize( nWidth
3481 ,nHeight
3482 )
3483 ,m_windowId
3484 );
3485
3486 vEvent.SetEventObject(this);
3487 return GetEventHandler()->ProcessEvent(vEvent);
3488 } // end of wxWindow::HandleSize
3489
3490 bool wxWindow::HandleGetMinMaxInfo(
3491 PSWP pSwp
3492 )
3493 {
3494 bool bRc = FALSE;
3495 POINTL vPoint;
3496
3497 switch(pSwp->fl)
3498 {
3499 case SWP_MAXIMIZE:
3500 ::WinGetMaxPosition(GetHwnd(), pSwp);
3501 m_maxWidth = pSwp->cx;
3502 m_maxHeight = pSwp->cy;
3503 break;
3504
3505 case SWP_MINIMIZE:
3506 ::WinGetMinPosition(GetHwnd(), pSwp, &vPoint);
3507 m_minWidth = pSwp->cx;
3508 m_minHeight = pSwp->cy;
3509 break;
3510
3511 default:
3512 return FALSE;
3513 }
3514 return TRUE;
3515 } // end of wxWindow::HandleGetMinMaxInfo
3516
3517 // ---------------------------------------------------------------------------
3518 // command messages
3519 // ---------------------------------------------------------------------------
3520 bool wxWindow::HandleCommand(
3521 WXWORD wId
3522 , WXWORD wCmd
3523 , WXHWND hControl
3524 )
3525 {
3526 if (wxCurrentPopupMenu)
3527 {
3528 wxMenu* pPopupMenu = wxCurrentPopupMenu;
3529
3530 wxCurrentPopupMenu = NULL;
3531 return pPopupMenu->OS2Command(wCmd, wId);
3532 }
3533
3534 wxWindow* pWin = FindItem(wId);
3535
3536 if (!pWin)
3537 {
3538 pWin = wxFindWinFromHandle(hControl);
3539 }
3540
3541 if (pWin)
3542 return pWin->OS2Command( wCmd
3543 ,wId
3544 );
3545 return FALSE;
3546 } // end of wxWindow::HandleCommand
3547
3548 bool wxWindow::HandleSysCommand(
3549 WXWPARAM wParam
3550 , WXLPARAM lParam
3551 )
3552 {
3553 //
3554 // 4 bits are reserved
3555 //
3556 switch (SHORT1FROMMP(wParam))
3557 {
3558 case SC_MAXIMIZE:
3559 return HandleMaximize();
3560
3561 case SC_MINIMIZE:
3562 return HandleMinimize();
3563 }
3564 return FALSE;
3565 } // end of wxWindow::HandleSysCommand
3566
3567 // ---------------------------------------------------------------------------
3568 // mouse events
3569 // ---------------------------------------------------------------------------
3570
3571 void wxWindow::InitMouseEvent(
3572 wxMouseEvent& rEvent
3573 , int nX
3574 , int nY
3575 , WXUINT uFlags
3576 )
3577 {
3578 rEvent.m_x = nX;
3579 rEvent.m_y = nY;
3580 rEvent.m_shiftDown = ((uFlags & VK_SHIFT) != 0);
3581 rEvent.m_controlDown = ((uFlags & VK_CTRL) != 0);
3582 rEvent.m_leftDown = ((uFlags & VK_BUTTON1) != 0);
3583 rEvent.m_middleDown = ((uFlags & VK_BUTTON3) != 0);
3584 rEvent.m_rightDown = ((uFlags & VK_BUTTON2) != 0);
3585 rEvent.SetTimestamp(s_currentMsg.time);
3586 rEvent.m_eventObject = this;
3587
3588 #if wxUSE_MOUSEEVENT_HACK
3589 m_lastMouseX = nX;
3590 m_lastMouseY = nY;
3591 m_lastMouseEvent = rEvent.GetEventType();
3592 #endif // wxUSE_MOUSEEVENT_HACK
3593 } // end of wxWindow::InitMouseEvent
3594
3595 bool wxWindow::HandleMouseEvent(
3596 WXUINT uMsg
3597 , int nX
3598 , int nY
3599 , WXUINT uFlags
3600 )
3601 {
3602 //
3603 // The mouse events take consecutive IDs from WM_MOUSEFIRST to
3604 // WM_MOUSELAST, so it's enough to substract WM_MOUSEMOVE == WM_MOUSEFIRST
3605 // from the message id and take the value in the table to get wxWin event
3606 // id
3607 //
3608 static const wxEventType eventsMouse[] =
3609 {
3610 wxEVT_MOTION,
3611 wxEVT_LEFT_DOWN,
3612 wxEVT_LEFT_UP,
3613 wxEVT_LEFT_DCLICK,
3614 wxEVT_RIGHT_DOWN,
3615 wxEVT_RIGHT_UP,
3616 wxEVT_RIGHT_DCLICK,
3617 wxEVT_MIDDLE_DOWN,
3618 wxEVT_MIDDLE_UP,
3619 wxEVT_MIDDLE_DCLICK
3620 };
3621
3622 wxMouseEvent vEvent(eventsMouse[uMsg - WM_MOUSEMOVE]);
3623
3624 InitMouseEvent( vEvent
3625 ,nX
3626 ,nY
3627 ,uFlags
3628 );
3629
3630 return GetEventHandler()->ProcessEvent(vEvent);
3631 } // end of wxWindow::HandleMouseEvent
3632
3633 bool wxWindow::HandleMouseMove(
3634 int nX
3635 , int nY
3636 , WXUINT uFlags
3637 )
3638 {
3639 if (!m_bMouseInWindow)
3640 {
3641 //
3642 // Generate an ENTER event
3643 //
3644 m_bMouseInWindow = TRUE;
3645
3646 wxMouseEvent vEvent(wxEVT_ENTER_WINDOW);
3647
3648 InitMouseEvent( vEvent
3649 ,nX
3650 ,nY
3651 ,uFlags
3652 );
3653
3654 (void)GetEventHandler()->ProcessEvent(vEvent);
3655 }
3656 return HandleMouseEvent( WM_MOUSEMOVE
3657 ,nX
3658 ,nY
3659 ,uFlags
3660 );
3661 } // end of wxWindow::HandleMouseMove
3662
3663 // ---------------------------------------------------------------------------
3664 // keyboard handling
3665 // ---------------------------------------------------------------------------
3666
3667 //
3668 // Create the key event of the given type for the given key - used by
3669 // HandleChar and HandleKeyDown/Up
3670 //
3671 wxKeyEvent wxWindow::CreateKeyEvent(
3672 wxEventType eType
3673 , int nId
3674 , WXLPARAM lParam
3675 ) const
3676 {
3677 wxKeyEvent vEvent(eType);
3678
3679 vEvent.SetId(GetId());
3680 vEvent.m_shiftDown = IsShiftDown();
3681 vEvent.m_controlDown = IsCtrlDown();
3682 vEvent.m_altDown = (HIWORD(lParam) & KC_ALT) == KC_ALT;
3683
3684 vEvent.m_eventObject = (wxWindow *)this; // const_cast
3685 vEvent.m_keyCode = nId;
3686 vEvent.SetTimestamp(s_currentMsg.time);
3687
3688 //
3689 // Translate the position to client coords
3690 //
3691 POINTL vPoint;
3692 RECTL vRect;
3693
3694 ::WinQueryPointerPos(HWND_DESKTOP, &vPoint);
3695 ::WinQueryWindowRect( GetHwnd()
3696 ,&vRect
3697 );
3698
3699 vPoint.x -= vRect.xLeft;
3700 vPoint.y -= vRect.yBottom;
3701
3702 vEvent.m_x = vPoint.x;
3703 vEvent.m_y = vPoint.y;
3704
3705 return vEvent;
3706 } // end of wxWindow::CreateKeyEvent
3707
3708 //
3709 // isASCII is TRUE only when we're called from WM_CHAR handler and not from
3710 // WM_KEYDOWN one
3711 //
3712 bool wxWindow::HandleChar(
3713 WXWORD wParam
3714 , WXLPARAM lParam
3715 , bool isASCII
3716 )
3717 {
3718 bool bCtrlDown = FALSE;
3719 int vId;
3720
3721 if (isASCII)
3722 {
3723 //
3724 // If 1 -> 26, translate to CTRL plus a letter.
3725 //
3726 vId = wParam;
3727 if ((vId > 0) && (vId < 27))
3728 {
3729 switch (vId)
3730 {
3731 case 13:
3732 vId = WXK_RETURN;
3733 break;
3734
3735 case 8:
3736 vId = WXK_BACK;
3737 break;
3738
3739 case 9:
3740 vId = WXK_TAB;
3741 break;
3742
3743 default:
3744 bCtrlDown = TRUE;
3745 vId = vId + 96;
3746 }
3747 }
3748 }
3749 else if ( (vId = wxCharCodeOS2ToWX(wParam)) == 0)
3750 {
3751 //
3752 // It's ASCII and will be processed here only when called from
3753 // WM_CHAR (i.e. when isASCII = TRUE), don't process it now
3754 //
3755 vId = -1;
3756 }
3757
3758 if (vId != -1)
3759 {
3760 wxKeyEvent vEvent(CreateKeyEvent( wxEVT_CHAR
3761 ,vId
3762 ,lParam
3763 ));
3764
3765 if (bCtrlDown)
3766 {
3767 vEvent.m_controlDown = TRUE;
3768 }
3769
3770 if (GetEventHandler()->ProcessEvent(vEvent))
3771 return TRUE;
3772 }
3773 return FALSE;
3774 }
3775
3776 bool wxWindow::HandleKeyDown(
3777 WXWORD wParam
3778 , WXLPARAM lParam
3779 )
3780 {
3781 int nId = wxCharCodeOS2ToWX(wParam);
3782
3783 if (!nId)
3784 {
3785 //
3786 // Normal ASCII char
3787 //
3788 nId = wParam;
3789 }
3790
3791 if (nId != -1)
3792 {
3793 wxKeyEvent vEvent(CreateKeyEvent( wxEVT_KEY_DOWN
3794 ,nId
3795 ,lParam
3796 ));
3797
3798 if (GetEventHandler()->ProcessEvent(vEvent))
3799 {
3800 return TRUE;
3801 }
3802 }
3803 return FALSE;
3804 } // end of wxWindow::HandleKeyDown
3805
3806 bool wxWindow::HandleKeyUp(
3807 WXWORD wParam
3808 , WXLPARAM lParam
3809 )
3810 {
3811 int nId = wxCharCodeOS2ToWX(wParam);
3812
3813 if (!nId)
3814 {
3815 //
3816 // Normal ASCII char
3817 //
3818 nId = wParam;
3819 }
3820
3821 if (nId != -1)
3822 {
3823 wxKeyEvent vEvent(CreateKeyEvent( wxEVT_KEY_UP
3824 ,nId
3825 ,lParam
3826 ));
3827
3828 if (GetEventHandler()->ProcessEvent(vEvent))
3829 return TRUE;
3830 }
3831 return FALSE;
3832 } // end of wxWindow::HandleKeyUp
3833
3834 // ---------------------------------------------------------------------------
3835 // joystick
3836 // ---------------------------------------------------------------------------
3837
3838 // ---------------------------------------------------------------------------
3839 // scrolling
3840 // ---------------------------------------------------------------------------
3841
3842 bool wxWindow::OS2OnScroll(
3843 int nOrientation
3844 , WXWORD wParam
3845 , WXWORD wPos
3846 , WXHWND hControl
3847 )
3848 {
3849 if (hControl)
3850 {
3851 wxWindow* pChild = wxFindWinFromHandle(hControl);
3852
3853 if (pChild )
3854 return pChild->OS2OnScroll( nOrientation
3855 ,wParam
3856 ,wPos
3857 ,hControl
3858 );
3859 }
3860
3861 wxScrollWinEvent vEvent;
3862
3863 vEvent.SetPosition(wPos);
3864 vEvent.SetOrientation(nOrientation);
3865 vEvent.m_eventObject = this;
3866
3867 switch (wParam)
3868 {
3869 case SB_LINEUP:
3870 vEvent.m_eventType = wxEVT_SCROLLWIN_LINEUP;
3871 break;
3872
3873 case SB_LINEDOWN:
3874 vEvent.m_eventType = wxEVT_SCROLLWIN_LINEDOWN;
3875 break;
3876
3877 case SB_PAGEUP:
3878 vEvent.m_eventType = wxEVT_SCROLLWIN_PAGEUP;
3879 break;
3880
3881 case SB_PAGEDOWN:
3882 vEvent.m_eventType = wxEVT_SCROLLWIN_PAGEDOWN;
3883 break;
3884
3885 case SB_SLIDERPOSITION:
3886 vEvent.m_eventType = wxEVT_SCROLLWIN_THUMBRELEASE;
3887 break;
3888
3889 case SB_SLIDERTRACK:
3890 vEvent.m_eventType = wxEVT_SCROLLWIN_THUMBTRACK;
3891 break;
3892
3893 default:
3894 return FALSE;
3895 }
3896 return GetEventHandler()->ProcessEvent(vEvent);
3897 } // end of wxWindow::OS2OnScroll
3898
3899 // ===========================================================================
3900 // global functions
3901 // ===========================================================================
3902
3903 void wxGetCharSize(
3904 WXHWND hWnd
3905 , int* pX
3906 , int* pY
3907 ,wxFont* pTheFont
3908 )
3909 {
3910 // TODO: we'll do this later
3911 } // end of wxGetCharSize
3912
3913 //
3914 // Returns 0 if was a normal ASCII value, not a special key. This indicates that
3915 // the key should be ignored by WM_KEYDOWN and processed by WM_CHAR instead.
3916 //
3917 int wxCharCodeOS2ToWX(
3918 int nKeySym
3919 )
3920 {
3921 int nId = 0;
3922
3923 switch (nKeySym)
3924 {
3925 case VK_BACKTAB: nId = WXK_BACK; break;
3926 case VK_TAB: nId = WXK_TAB; break;
3927 case VK_CLEAR: nId = WXK_CLEAR; break;
3928 case VK_ENTER: nId = WXK_RETURN; break;
3929 case VK_SHIFT: nId = WXK_SHIFT; break;
3930 case VK_CTRL: nId = WXK_CONTROL; break;
3931 case VK_PAUSE: nId = WXK_PAUSE; break;
3932 case VK_SPACE: nId = WXK_SPACE; break;
3933 case VK_ESC: nId = WXK_ESCAPE; break;
3934 case VK_END: nId = WXK_END; break;
3935 case VK_HOME : nId = WXK_HOME; break;
3936 case VK_LEFT : nId = WXK_LEFT; break;
3937 case VK_UP: nId = WXK_UP; break;
3938 case VK_RIGHT: nId = WXK_RIGHT; break;
3939 case VK_DOWN : nId = WXK_DOWN; break;
3940 case VK_PRINTSCRN: nId = WXK_PRINT; break;
3941 case VK_INSERT: nId = WXK_INSERT; break;
3942 case VK_DELETE: nId = WXK_DELETE; break;
3943 case VK_F1: nId = WXK_F1; break;
3944 case VK_F2: nId = WXK_F2; break;
3945 case VK_F3: nId = WXK_F3; break;
3946 case VK_F4: nId = WXK_F4; break;
3947 case VK_F5: nId = WXK_F5; break;
3948 case VK_F6: nId = WXK_F6; break;
3949 case VK_F7: nId = WXK_F7; break;
3950 case VK_F8: nId = WXK_F8; break;
3951 case VK_F9: nId = WXK_F9; break;
3952 case VK_F10: nId = WXK_F10; break;
3953 case VK_F11: nId = WXK_F11; break;
3954 case VK_F12: nId = WXK_F12; break;
3955 case VK_F13: nId = WXK_F13; break;
3956 case VK_F14: nId = WXK_F14; break;
3957 case VK_F15: nId = WXK_F15; break;
3958 case VK_F16: nId = WXK_F16; break;
3959 case VK_F17: nId = WXK_F17; break;
3960 case VK_F18: nId = WXK_F18; break;
3961 case VK_F19: nId = WXK_F19; break;
3962 case VK_F20: nId = WXK_F20; break;
3963 case VK_F21: nId = WXK_F21; break;
3964 case VK_F22: nId = WXK_F22; break;
3965 case VK_F23: nId = WXK_F23; break;
3966 case VK_F24: nId = WXK_F24; break;
3967 case VK_NUMLOCK: nId = WXK_NUMLOCK; break;
3968 case VK_SCRLLOCK: nId = WXK_SCROLL; break;
3969 default:
3970 {
3971 return 0;
3972 }
3973 }
3974 return nId;
3975 } // end of wxCharCodeOS2ToWX
3976
3977 int wxCharCodeWXToOS2(
3978 int nId
3979 , bool* bIsVirtual
3980 )
3981 {
3982 int nKeySym = 0;
3983
3984 *bIsVirtual = TRUE;
3985 switch (nId)
3986 {
3987 case WXK_CLEAR: nKeySym = VK_CLEAR; break;
3988 case WXK_SHIFT: nKeySym = VK_SHIFT; break;
3989 case WXK_CONTROL: nKeySym = VK_CTRL; break;
3990 case WXK_PAUSE: nKeySym = VK_PAUSE; break;
3991 case WXK_END: nKeySym = VK_END; break;
3992 case WXK_HOME : nKeySym = VK_HOME; break;
3993 case WXK_LEFT : nKeySym = VK_LEFT; break;
3994 case WXK_UP: nKeySym = VK_UP; break;
3995 case WXK_RIGHT: nKeySym = VK_RIGHT; break;
3996 case WXK_DOWN : nKeySym = VK_DOWN; break;
3997 case WXK_PRINT: nKeySym = VK_PRINTSCRN; break;
3998 case WXK_INSERT: nKeySym = VK_INSERT; break;
3999 case WXK_DELETE: nKeySym = VK_DELETE; break;
4000 case WXK_F1: nKeySym = VK_F1; break;
4001 case WXK_F2: nKeySym = VK_F2; break;
4002 case WXK_F3: nKeySym = VK_F3; break;
4003 case WXK_F4: nKeySym = VK_F4; break;
4004 case WXK_F5: nKeySym = VK_F5; break;
4005 case WXK_F6: nKeySym = VK_F6; break;
4006 case WXK_F7: nKeySym = VK_F7; break;
4007 case WXK_F8: nKeySym = VK_F8; break;
4008 case WXK_F9: nKeySym = VK_F9; break;
4009 case WXK_F10: nKeySym = VK_F10; break;
4010 case WXK_F11: nKeySym = VK_F11; break;
4011 case WXK_F12: nKeySym = VK_F12; break;
4012 case WXK_F13: nKeySym = VK_F13; break;
4013 case WXK_F14: nKeySym = VK_F14; break;
4014 case WXK_F15: nKeySym = VK_F15; break;
4015 case WXK_F16: nKeySym = VK_F16; break;
4016 case WXK_F17: nKeySym = VK_F17; break;
4017 case WXK_F18: nKeySym = VK_F18; break;
4018 case WXK_F19: nKeySym = VK_F19; break;
4019 case WXK_F20: nKeySym = VK_F20; break;
4020 case WXK_F21: nKeySym = VK_F21; break;
4021 case WXK_F22: nKeySym = VK_F22; break;
4022 case WXK_F23: nKeySym = VK_F23; break;
4023 case WXK_F24: nKeySym = VK_F24; break;
4024 case WXK_NUMLOCK: nKeySym = VK_NUMLOCK; break;
4025 case WXK_SCROLL: nKeySym = VK_SCRLLOCK; break;
4026 default:
4027 {
4028 *bIsVirtual = FALSE;
4029 nKeySym = nId;
4030 break;
4031 }
4032 }
4033 return nKeySym;
4034 } // end of wxCharCodeWXToOS2
4035
4036 wxWindow* wxGetActiveWindow()
4037 {
4038 HWND hWnd = ::WinQueryActiveWindow(HWND_DESKTOP);
4039
4040 if (hWnd != 0)
4041 {
4042 return wxFindWinFromHandle((WXHWND)hWnd);
4043 }
4044 return NULL;
4045 } // end of wxGetActiveWindow
4046
4047 #ifdef __WXDEBUG__
4048 const char* wxGetMessageName(
4049 int nMessage)
4050 {
4051 switch (nMessage)
4052 {
4053 case 0x0000: return "WM_NULL";
4054 case 0x0001: return "WM_CREATE";
4055 case 0x0002: return "WM_DESTROY";
4056 case 0x0004: return "WM_ENABLE";
4057 case 0x0005: return "WM_SHOW";
4058 case 0x0006: return "WM_MOVE";
4059 case 0x0007: return "WM_SIZE";
4060 case 0x0008: return "WM_ADJUSTWINDOWPOS";
4061 case 0x0009: return "WM_CALCVALIDRECTS";
4062 case 0x000A: return "WM_SETWINDOWPARAMS";
4063 case 0x000B: return "WM_QUERYWINDOWPARAMS";
4064 case 0x000C: return "WM_HITTEST";
4065 case 0x000D: return "WM_ACTIVATE";
4066 case 0x000F: return "WM_SETFOCUS";
4067 case 0x0010: return "WM_SETSELECTION";
4068 case 0x0011: return "WM_PPAINT";
4069 case 0x0012: return "WM_PSETFOCUS";
4070 case 0x0013: return "WM_PSYSCOLORCHANGE";
4071 case 0x0014: return "WM_PSIZE";
4072 case 0x0015: return "WM_PACTIVATE";
4073 case 0x0016: return "WM_PCONTROL";
4074 case 0x0020: return "WM_COMMAND";
4075 case 0x0021: return "WM_SYSCOMMAND";
4076 case 0x0022: return "WM_HELP";
4077 case 0x0023: return "WM_PAINT";
4078 case 0x0024: return "WM_TIMER";
4079 case 0x0025: return "WM_SEM1";
4080 case 0x0026: return "WM_SEM2";
4081 case 0x0027: return "WM_SEM3";
4082 case 0x0028: return "WM_SEM4";
4083 case 0x0029: return "WM_CLOSE";
4084 case 0x002A: return "WM_QUIT";
4085 case 0x002B: return "WM_SYSCOLORCHANGE";
4086 case 0x002D: return "WM_SYSVALUECHANGE";
4087 case 0x002E: return "WM_APPTERMINATENOTIFY";
4088 case 0x002F: return "WM_PRESPARAMCHANGED";
4089 // Control notification messages
4090 case 0x0030: return "WM_CONTROL";
4091 case 0x0031: return "WM_VSCROLL";
4092 case 0x0032: return "WM_HSCROLL";
4093 case 0x0033: return "WM_INITMENU";
4094 case 0x0034: return "WM_MENUSELECT";
4095 case 0x0035: return "WM_MENUSEND";
4096 case 0x0036: return "WM_DRAWITEM";
4097 case 0x0037: return "WM_MEASUREITEM";
4098 case 0x0038: return "WM_CONTROLPOINTER";
4099 case 0x003A: return "WM_QUERYDLGCODE";
4100 case 0x003B: return "WM_INITDLG";
4101 case 0x003C: return "WM_SUBSTITUTESTRING";
4102 case 0x003D: return "WM_MATCHMNEMONIC";
4103 case 0x003E: return "WM_SAVEAPPLICATION";
4104 case 0x0129: return "WM_CTLCOLORCHANGE";
4105 case 0x0130: return "WM_QUERYCTLTYPE";
4106 // Frame messages
4107 case 0x0040: return "WM_FLASHWINDOW";
4108 case 0x0041: return "WM_FORMATFRAME";
4109 case 0x0042: return "WM_UPDATEFRAME";
4110 case 0x0043: return "WM_FOCUSCHANGE";
4111 case 0x0044: return "WM_SETBORDERSIZE";
4112 case 0x0045: return "WM_TRACKFRAME";
4113 case 0x0046: return "WM_MINMAXFRAME";
4114 case 0x0047: return "WM_SETICON";
4115 case 0x0048: return "WM_QUERYICON";
4116 case 0x0049: return "WM_SETACCELTABLE";
4117 case 0x004A: return "WM_QUERYACCELTABLE";
4118 case 0x004B: return "WM_TRANSLATEACCEL";
4119 case 0x004C: return "WM_QUERYTRACKINFO";
4120 case 0x004D: return "WM_QUERYBORDERSIZE";
4121 case 0x004E: return "WM_NEXTMENU";
4122 case 0x004F: return "WM_ERASEBACKGROUND";
4123 case 0x0050: return "WM_QUERYFRAMEINFO";
4124 case 0x0051: return "WM_QUERYFOCUSCHAIN";
4125 case 0x0052: return "WM_OWNERPOSCHANGE";
4126 case 0x0053: return "WM_CACLFRAMERECT";
4127 case 0x0055: return "WM_WINDOWPOSCHANGED";
4128 case 0x0056: return "WM_ADJUSTFRAMEPOS";
4129 case 0x0059: return "WM_QUERYFRAMECTLCOUNT";
4130 case 0x005B: return "WM_QUERYHELPINFO";
4131 case 0x005C: return "WM_SETHELPINFO";
4132 case 0x005D: return "WM_ERROR";
4133 case 0x005E: return "WM_REALIZEPALETTE";
4134 // Clipboard messages
4135 case 0x0060: return "WM_RENDERFMT";
4136 case 0x0061: return "WM_RENDERALLFMTS";
4137 case 0x0062: return "WM_DESTROYCLIPBOARD";
4138 case 0x0063: return "WM_PAINTCLIPBOARD";
4139 case 0x0064: return "WM_SIZECLIPBOARD";
4140 case 0x0065: return "WM_HSCROLLCLIPBOARD";
4141 case 0x0066: return "WM_VSCROLLCLIPBOARD";
4142 case 0x0067: return "WM_DRAWCLIPBOARD";
4143 // mouse messages
4144 case 0x0070: return "WM_MOUSEMOVE";
4145 case 0x0071: return "WM_BUTTON1DOWN";
4146 case 0x0072: return "WM_BUTTON1UP";
4147 case 0x0073: return "WM_BUTTON1DBLCLK";
4148 case 0x0074: return "WM_BUTTON2DOWN";
4149 case 0x0075: return "WM_BUTTON2UP";
4150 case 0x0076: return "WM_BUTTON2DBLCLK";
4151 case 0x0077: return "WM_BUTTON3DOWN";
4152 case 0x0078: return "WM_BUTTON3UP";
4153 case 0x0079: return "WM_BUTTON3DBLCLK";
4154 case 0x007D: return "WM_MOUSEMAP";
4155 case 0x007E: return "WM_VRNDISABLED";
4156 case 0x007F: return "WM_VRNENABLED";
4157 case 0x0410: return "WM_CHORD";
4158 case 0x0411: return "WM_BUTTON1MOTIONSTART";
4159 case 0x0412: return "WM_BUTTON1MOTIONEND";
4160 case 0x0413: return "WM_BUTTON1CLICK";
4161 case 0x0414: return "WM_BUTTON2MOTIONSTART";
4162 case 0x0415: return "WM_BUTTON2MOTIONEND";
4163 case 0x0416: return "WM_BUTTON2CLICK";
4164 case 0x0417: return "WM_BUTTON3MOTIONSTART";
4165 case 0x0418: return "WM_BUTTON3MOTIONEND";
4166 case 0x0419: return "WM_BUTTON3CLICK";
4167 case 0x0420: return "WM_BEGINDRAG";
4168 case 0x0421: return "WM_ENDDRAG";
4169 case 0x0422: return "WM_SINGLESELECT";
4170 case 0x0423: return "WM_OPEN";
4171 case 0x0424: return "WM_CONTEXTMENU";
4172 case 0x0425: return "WM_CONTEXTHELP";
4173 case 0x0426: return "WM_TEXTEDIT";
4174 case 0x0427: return "WM_BEGINSELECT";
4175 case 0x0228: return "WM_ENDSELECT";
4176 case 0x0429: return "WM_PICKUP";
4177 case 0x04C0: return "WM_PENFIRST";
4178 case 0x04FF: return "WM_PENLAST";
4179 case 0x0500: return "WM_MMPMFIRST";
4180 case 0x05FF: return "WM_MMPMLAST";
4181 case 0x0600: return "WM_STDDLGFIRST";
4182 case 0x06FF: return "WM_STDDLGLAST";
4183 case 0x0BD0: return "WM_BIDI_FIRST";
4184 case 0x0BFF: return "WM_BIDI_LAST";
4185 // keyboard input
4186 case 0x007A: return "WM_CHAR";
4187 case 0x007B: return "WM_VIOCHAR";
4188 // DDE messages
4189 case 0x00A0: return "WM_DDE_INITIATE";
4190 case 0x00A1: return "WM_DDE_REQUEST";
4191 case 0x00A2: return "WM_DDE_ACK";
4192 case 0x00A3: return "WM_DDE_DATA";
4193 case 0x00A4: return "WM_DDE_ADVISE";
4194 case 0x00A5: return "WM_DDE_UNADVISE";
4195 case 0x00A6: return "WM_DDE_POKE";
4196 case 0x00A7: return "WM_DDE_EXECUTE";
4197 case 0x00A8: return "WM_DDE_TERMINATE";
4198 case 0x00A9: return "WM_DDE_INITIATEACK";
4199 case 0x00AF: return "WM_DDE_LAST";
4200 // Buttons
4201 case 0x0120: return "BM_CLICK";
4202 case 0x0121: return "BM_QUERYCHECKINDEX";
4203 case 0x0122: return "BM_QUERYHILITE";
4204 case 0x0123: return "BM_SETHILITE";
4205 case 0x0124: return "BM_QUERYCHECK";
4206 case 0x0125: return "BM_SETCHECK";
4207 case 0x0126: return "BM_SETDEFAULT";
4208 case 0x0128: return "BM_AUTOSIZE";
4209 // Combo boxes
4210 case 0x029A: return "CBID_LIST";
4211 case 0x029B: return "CBID_EDIT";
4212 case 0x0170: return "CBM_SHOWLIST";
4213 case 0x0171: return "CBM_HILITE";
4214 case 0x0172: return "CBM_ISLISTSHOWING";
4215 // Edit fields
4216 case 0x0140: return "EM_QUERYCHANGED";
4217 case 0x0141: return "EM_QUERYSEL";
4218 case 0x0142: return "EM_SETSEL";
4219 case 0x0143: return "EM_SETTEXTLIMIT";
4220 case 0x0144: return "EM_CUT";
4221 case 0x0145: return "EM_COPY";
4222 case 0x0146: return "EM_CLEAR";
4223 case 0x0147: return "EM_PASTE";
4224 case 0x0148: return "EM_QUERYFIRSTCHAR";
4225 case 0x0149: return "EM_SETFIRSTCHAR";
4226 case 0x014A: return "EM_QUERYREADONLY";
4227 case 0x014B: return "EM_SETREADONLY";
4228 case 0x014C: return "EM_SETINSERTMODE";
4229 // Listboxes
4230 case 0x0160: return "LM_QUERYITEMCOUNT";
4231 case 0x0161: return "LM_INSERTITEM";
4232 case 0x0162: return "LM_SETOPENINDEX";
4233 case 0x0163: return "LM_DELETEITEM";
4234 case 0x0164: return "LM_SELECTITEM";
4235 case 0x0165: return "LM_QUERYSELECTION";
4236 case 0x0166: return "LM_SETITEMTEXT";
4237 case 0x0167: return "LM_QUERYITEMTEXTLENGTH";
4238 case 0x0168: return "LM_QUERYITEMTEXT";
4239 case 0x0169: return "LM_SETITEMHANDLE";
4240 case 0x016A: return "LM_QUERYITEMHANDLE";
4241 case 0x016B: return "LM_SEARCHSTRING";
4242 case 0x016C: return "LM_SETITEMHEIGHT";
4243 case 0x016D: return "LM_QUERYTOPINDEX";
4244 case 0x016E: return "LM_DELETEALL";
4245 case 0x016F: return "LM_INSERTMULITEMS";
4246 case 0x0660: return "LM_SETITEMWIDTH";
4247 // Menus
4248 case 0x0180: return "MM_INSERTITEM";
4249 case 0x0181: return "MM_DELETEITEM";
4250 case 0x0182: return "MM_QUERYITEM";
4251 case 0x0183: return "MM_SETITEM";
4252 case 0x0184: return "MM_QUERYITEMCOUNT";
4253 case 0x0185: return "MM_STARTMENUMODE";
4254 case 0x0186: return "MM_ENDMENUMODE";
4255 case 0x0188: return "MM_REMOVEITEM";
4256 case 0x0189: return "MM_SELECTITEM";
4257 case 0x018A: return "MM_QUERYSELITEMID";
4258 case 0x018B: return "MM_QUERYITEMTEXT";
4259 case 0x018C: return "MM_QUERYITEMTEXTLENGTH";
4260 case 0x018D: return "MM_SETITEMHANDLE";
4261 case 0x018E: return "MM_SETITEMTEXT";
4262 case 0x018F: return "MM_ITEMPOSITIONFROMID";
4263 case 0x0190: return "MM_ITEMIDFROMPOSITION";
4264 case 0x0191: return "MM_QUERYITEMATTR";
4265 case 0x0192: return "MM_SETITEMATTR";
4266 case 0x0193: return "MM_ISITEMVALID";
4267 case 0x0194: return "MM_QUERYITEMRECT";
4268 case 0x0431: return "MM_QUERYDEFAULTITEMID";
4269 case 0x0432: return "MM_SETDEFAULTITEMID";
4270 // Scrollbars
4271 case 0x01A0: return "SBM_SETSCROLLBAR";
4272 case 0x01A1: return "SBM_SETPOS";
4273 case 0x01A2: return "SBM_QUERYPOS";
4274 case 0x01A3: return "SBM_QUERYRANGE";
4275 case 0x01A6: return "SBM_SETTHUMBSIZE";
4276
4277 // Help messages
4278 case 0x0F00: return "WM_HELPBASE";
4279 case 0x0FFF: return "WM_HELPTOP";
4280 // Beginning of user defined messages
4281 case 0x1000: return "WM_USER";
4282
4283 // wxWindows user defined types
4284
4285 // listview
4286 // case 0x1000 + 0: return "LVM_GETBKCOLOR";
4287 case 0x1000 + 1: return "LVM_SETBKCOLOR";
4288 case 0x1000 + 2: return "LVM_GETIMAGELIST";
4289 case 0x1000 + 3: return "LVM_SETIMAGELIST";
4290 case 0x1000 + 4: return "LVM_GETITEMCOUNT";
4291 case 0x1000 + 5: return "LVM_GETITEMA";
4292 case 0x1000 + 75: return "LVM_GETITEMW";
4293 case 0x1000 + 6: return "LVM_SETITEMA";
4294 case 0x1000 + 76: return "LVM_SETITEMW";
4295 case 0x1000 + 7: return "LVM_INSERTITEMA";
4296 case 0x1000 + 77: return "LVM_INSERTITEMW";
4297 case 0x1000 + 8: return "LVM_DELETEITEM";
4298 case 0x1000 + 9: return "LVM_DELETEALLITEMS";
4299 case 0x1000 + 10: return "LVM_GETCALLBACKMASK";
4300 case 0x1000 + 11: return "LVM_SETCALLBACKMASK";
4301 case 0x1000 + 12: return "LVM_GETNEXTITEM";
4302 case 0x1000 + 13: return "LVM_FINDITEMA";
4303 case 0x1000 + 83: return "LVM_FINDITEMW";
4304 case 0x1000 + 14: return "LVM_GETITEMRECT";
4305 case 0x1000 + 15: return "LVM_SETITEMPOSITION";
4306 case 0x1000 + 16: return "LVM_GETITEMPOSITION";
4307 case 0x1000 + 17: return "LVM_GETSTRINGWIDTHA";
4308 case 0x1000 + 87: return "LVM_GETSTRINGWIDTHW";
4309 case 0x1000 + 18: return "LVM_HITTEST";
4310 case 0x1000 + 19: return "LVM_ENSUREVISIBLE";
4311 case 0x1000 + 20: return "LVM_SCROLL";
4312 case 0x1000 + 21: return "LVM_REDRAWITEMS";
4313 case 0x1000 + 22: return "LVM_ARRANGE";
4314 case 0x1000 + 23: return "LVM_EDITLABELA";
4315 case 0x1000 + 118: return "LVM_EDITLABELW";
4316 case 0x1000 + 24: return "LVM_GETEDITCONTROL";
4317 case 0x1000 + 25: return "LVM_GETCOLUMNA";
4318 case 0x1000 + 95: return "LVM_GETCOLUMNW";
4319 case 0x1000 + 26: return "LVM_SETCOLUMNA";
4320 case 0x1000 + 96: return "LVM_SETCOLUMNW";
4321 case 0x1000 + 27: return "LVM_INSERTCOLUMNA";
4322 case 0x1000 + 97: return "LVM_INSERTCOLUMNW";
4323 case 0x1000 + 28: return "LVM_DELETECOLUMN";
4324 case 0x1000 + 29: return "LVM_GETCOLUMNWIDTH";
4325 case 0x1000 + 30: return "LVM_SETCOLUMNWIDTH";
4326 case 0x1000 + 31: return "LVM_GETHEADER";
4327 case 0x1000 + 33: return "LVM_CREATEDRAGIMAGE";
4328 case 0x1000 + 34: return "LVM_GETVIEWRECT";
4329 case 0x1000 + 35: return "LVM_GETTEXTCOLOR";
4330 case 0x1000 + 36: return "LVM_SETTEXTCOLOR";
4331 case 0x1000 + 37: return "LVM_GETTEXTBKCOLOR";
4332 case 0x1000 + 38: return "LVM_SETTEXTBKCOLOR";
4333 case 0x1000 + 39: return "LVM_GETTOPINDEX";
4334 case 0x1000 + 40: return "LVM_GETCOUNTPERPAGE";
4335 case 0x1000 + 41: return "LVM_GETORIGIN";
4336 case 0x1000 + 42: return "LVM_UPDATE";
4337 case 0x1000 + 43: return "LVM_SETITEMSTATE";
4338 case 0x1000 + 44: return "LVM_GETITEMSTATE";
4339 case 0x1000 + 45: return "LVM_GETITEMTEXTA";
4340 case 0x1000 + 115: return "LVM_GETITEMTEXTW";
4341 case 0x1000 + 46: return "LVM_SETITEMTEXTA";
4342 case 0x1000 + 116: return "LVM_SETITEMTEXTW";
4343 case 0x1000 + 47: return "LVM_SETITEMCOUNT";
4344 case 0x1000 + 48: return "LVM_SORTITEMS";
4345 case 0x1000 + 49: return "LVM_SETITEMPOSITION32";
4346 case 0x1000 + 50: return "LVM_GETSELECTEDCOUNT";
4347 case 0x1000 + 51: return "LVM_GETITEMSPACING";
4348 case 0x1000 + 52: return "LVM_GETISEARCHSTRINGA";
4349 case 0x1000 + 117: return "LVM_GETISEARCHSTRINGW";
4350 case 0x1000 + 53: return "LVM_SETICONSPACING";
4351 case 0x1000 + 54: return "LVM_SETEXTENDEDLISTVIEWSTYLE";
4352 case 0x1000 + 55: return "LVM_GETEXTENDEDLISTVIEWSTYLE";
4353 case 0x1000 + 56: return "LVM_GETSUBITEMRECT";
4354 case 0x1000 + 57: return "LVM_SUBITEMHITTEST";
4355 case 0x1000 + 58: return "LVM_SETCOLUMNORDERARRAY";
4356 case 0x1000 + 59: return "LVM_GETCOLUMNORDERARRAY";
4357 case 0x1000 + 60: return "LVM_SETHOTITEM";
4358 case 0x1000 + 61: return "LVM_GETHOTITEM";
4359 case 0x1000 + 62: return "LVM_SETHOTCURSOR";
4360 case 0x1000 + 63: return "LVM_GETHOTCURSOR";
4361 case 0x1000 + 64: return "LVM_APPROXIMATEVIEWRECT";
4362 case 0x1000 + 65: return "LVM_SETWORKAREA";
4363
4364 // tree view
4365 case 0x1100 + 0: return "TVM_INSERTITEMA";
4366 case 0x1100 + 50: return "TVM_INSERTITEMW";
4367 case 0x1100 + 1: return "TVM_DELETEITEM";
4368 case 0x1100 + 2: return "TVM_EXPAND";
4369 case 0x1100 + 4: return "TVM_GETITEMRECT";
4370 case 0x1100 + 5: return "TVM_GETCOUNT";
4371 case 0x1100 + 6: return "TVM_GETINDENT";
4372 case 0x1100 + 7: return "TVM_SETINDENT";
4373 case 0x1100 + 8: return "TVM_GETIMAGELIST";
4374 case 0x1100 + 9: return "TVM_SETIMAGELIST";
4375 case 0x1100 + 10: return "TVM_GETNEXTITEM";
4376 case 0x1100 + 11: return "TVM_SELECTITEM";
4377 case 0x1100 + 12: return "TVM_GETITEMA";
4378 case 0x1100 + 62: return "TVM_GETITEMW";
4379 case 0x1100 + 13: return "TVM_SETITEMA";
4380 case 0x1100 + 63: return "TVM_SETITEMW";
4381 case 0x1100 + 14: return "TVM_EDITLABELA";
4382 case 0x1100 + 65: return "TVM_EDITLABELW";
4383 case 0x1100 + 15: return "TVM_GETEDITCONTROL";
4384 case 0x1100 + 16: return "TVM_GETVISIBLECOUNT";
4385 case 0x1100 + 17: return "TVM_HITTEST";
4386 case 0x1100 + 18: return "TVM_CREATEDRAGIMAGE";
4387 case 0x1100 + 19: return "TVM_SORTCHILDREN";
4388 case 0x1100 + 20: return "TVM_ENSUREVISIBLE";
4389 case 0x1100 + 21: return "TVM_SORTCHILDRENCB";
4390 case 0x1100 + 22: return "TVM_ENDEDITLABELNOW";
4391 case 0x1100 + 23: return "TVM_GETISEARCHSTRINGA";
4392 case 0x1100 + 64: return "TVM_GETISEARCHSTRINGW";
4393 case 0x1100 + 24: return "TVM_SETTOOLTIPS";
4394 case 0x1100 + 25: return "TVM_GETTOOLTIPS";
4395
4396 // header
4397 case 0x1200 + 0: return "HDM_GETITEMCOUNT";
4398 case 0x1200 + 1: return "HDM_INSERTITEMA";
4399 case 0x1200 + 10: return "HDM_INSERTITEMW";
4400 case 0x1200 + 2: return "HDM_DELETEITEM";
4401 case 0x1200 + 3: return "HDM_GETITEMA";
4402 case 0x1200 + 11: return "HDM_GETITEMW";
4403 case 0x1200 + 4: return "HDM_SETITEMA";
4404 case 0x1200 + 12: return "HDM_SETITEMW";
4405 case 0x1200 + 5: return "HDM_LAYOUT";
4406 case 0x1200 + 6: return "HDM_HITTEST";
4407 case 0x1200 + 7: return "HDM_GETITEMRECT";
4408 case 0x1200 + 8: return "HDM_SETIMAGELIST";
4409 case 0x1200 + 9: return "HDM_GETIMAGELIST";
4410 case 0x1200 + 15: return "HDM_ORDERTOINDEX";
4411 case 0x1200 + 16: return "HDM_CREATEDRAGIMAGE";
4412 case 0x1200 + 17: return "HDM_GETORDERARRAY";
4413 case 0x1200 + 18: return "HDM_SETORDERARRAY";
4414 case 0x1200 + 19: return "HDM_SETHOTDIVIDER";
4415
4416 // tab control
4417 case 0x1300 + 2: return "TCM_GETIMAGELIST";
4418 case 0x1300 + 3: return "TCM_SETIMAGELIST";
4419 case 0x1300 + 4: return "TCM_GETITEMCOUNT";
4420 case 0x1300 + 5: return "TCM_GETITEMA";
4421 case 0x1300 + 60: return "TCM_GETITEMW";
4422 case 0x1300 + 6: return "TCM_SETITEMA";
4423 case 0x1300 + 61: return "TCM_SETITEMW";
4424 case 0x1300 + 7: return "TCM_INSERTITEMA";
4425 case 0x1300 + 62: return "TCM_INSERTITEMW";
4426 case 0x1300 + 8: return "TCM_DELETEITEM";
4427 case 0x1300 + 9: return "TCM_DELETEALLITEMS";
4428 case 0x1300 + 10: return "TCM_GETITEMRECT";
4429 case 0x1300 + 11: return "TCM_GETCURSEL";
4430 case 0x1300 + 12: return "TCM_SETCURSEL";
4431 case 0x1300 + 13: return "TCM_HITTEST";
4432 case 0x1300 + 14: return "TCM_SETITEMEXTRA";
4433 case 0x1300 + 40: return "TCM_ADJUSTRECT";
4434 case 0x1300 + 41: return "TCM_SETITEMSIZE";
4435 case 0x1300 + 42: return "TCM_REMOVEIMAGE";
4436 case 0x1300 + 43: return "TCM_SETPADDING";
4437 case 0x1300 + 44: return "TCM_GETROWCOUNT";
4438 case 0x1300 + 45: return "TCM_GETTOOLTIPS";
4439 case 0x1300 + 46: return "TCM_SETTOOLTIPS";
4440 case 0x1300 + 47: return "TCM_GETCURFOCUS";
4441 case 0x1300 + 48: return "TCM_SETCURFOCUS";
4442 case 0x1300 + 49: return "TCM_SETMINTABWIDTH";
4443 case 0x1300 + 50: return "TCM_DESELECTALL";
4444
4445 // toolbar
4446 case WM_USER+1000+1: return "TB_ENABLEBUTTON";
4447 case WM_USER+1000+2: return "TB_CHECKBUTTON";
4448 case WM_USER+1000+3: return "TB_PRESSBUTTON";
4449 case WM_USER+1000+4: return "TB_HIDEBUTTON";
4450 case WM_USER+1000+5: return "TB_INDETERMINATE";
4451 case WM_USER+1000+9: return "TB_ISBUTTONENABLED";
4452 case WM_USER+1000+10: return "TB_ISBUTTONCHECKED";
4453 case WM_USER+1000+11: return "TB_ISBUTTONPRESSED";
4454 case WM_USER+1000+12: return "TB_ISBUTTONHIDDEN";
4455 case WM_USER+1000+13: return "TB_ISBUTTONINDETERMINATE";
4456 case WM_USER+1000+17: return "TB_SETSTATE";
4457 case WM_USER+1000+18: return "TB_GETSTATE";
4458 case WM_USER+1000+19: return "TB_ADDBITMAP";
4459 case WM_USER+1000+20: return "TB_ADDBUTTONS";
4460 case WM_USER+1000+21: return "TB_INSERTBUTTON";
4461 case WM_USER+1000+22: return "TB_DELETEBUTTON";
4462 case WM_USER+1000+23: return "TB_GETBUTTON";
4463 case WM_USER+1000+24: return "TB_BUTTONCOUNT";
4464 case WM_USER+1000+25: return "TB_COMMANDTOINDEX";
4465 case WM_USER+1000+26: return "TB_SAVERESTOREA";
4466 case WM_USER+1000+76: return "TB_SAVERESTOREW";
4467 case WM_USER+1000+27: return "TB_CUSTOMIZE";
4468 case WM_USER+1000+28: return "TB_ADDSTRINGA";
4469 case WM_USER+1000+77: return "TB_ADDSTRINGW";
4470 case WM_USER+1000+29: return "TB_GETITEMRECT";
4471 case WM_USER+1000+30: return "TB_BUTTONSTRUCTSIZE";
4472 case WM_USER+1000+31: return "TB_SETBUTTONSIZE";
4473 case WM_USER+1000+32: return "TB_SETBITMAPSIZE";
4474 case WM_USER+1000+33: return "TB_AUTOSIZE";
4475 case WM_USER+1000+35: return "TB_GETTOOLTIPS";
4476 case WM_USER+1000+36: return "TB_SETTOOLTIPS";
4477 case WM_USER+1000+37: return "TB_SETPARENT";
4478 case WM_USER+1000+39: return "TB_SETROWS";
4479 case WM_USER+1000+40: return "TB_GETROWS";
4480 case WM_USER+1000+42: return "TB_SETCMDID";
4481 case WM_USER+1000+43: return "TB_CHANGEBITMAP";
4482 case WM_USER+1000+44: return "TB_GETBITMAP";
4483 case WM_USER+1000+45: return "TB_GETBUTTONTEXTA";
4484 case WM_USER+1000+75: return "TB_GETBUTTONTEXTW";
4485 case WM_USER+1000+46: return "TB_REPLACEBITMAP";
4486 case WM_USER+1000+47: return "TB_SETINDENT";
4487 case WM_USER+1000+48: return "TB_SETIMAGELIST";
4488 case WM_USER+1000+49: return "TB_GETIMAGELIST";
4489 case WM_USER+1000+50: return "TB_LOADIMAGES";
4490 case WM_USER+1000+51: return "TB_GETRECT";
4491 case WM_USER+1000+52: return "TB_SETHOTIMAGELIST";
4492 case WM_USER+1000+53: return "TB_GETHOTIMAGELIST";
4493 case WM_USER+1000+54: return "TB_SETDISABLEDIMAGELIST";
4494 case WM_USER+1000+55: return "TB_GETDISABLEDIMAGELIST";
4495 case WM_USER+1000+56: return "TB_SETSTYLE";
4496 case WM_USER+1000+57: return "TB_GETSTYLE";
4497 case WM_USER+1000+58: return "TB_GETBUTTONSIZE";
4498 case WM_USER+1000+59: return "TB_SETBUTTONWIDTH";
4499 case WM_USER+1000+60: return "TB_SETMAXTEXTROWS";
4500 case WM_USER+1000+61: return "TB_GETTEXTROWS";
4501 case WM_USER+1000+41: return "TB_GETBITMAPFLAGS";
4502
4503 default:
4504 static char s_szBuf[128];
4505 sprintf(s_szBuf, "<unknown message = %d>", nMessage);
4506 return s_szBuf;
4507 }
4508 return NULL;
4509 } // end of wxGetMessageName
4510
4511 #endif // __WXDEBUG__
4512
4513 static void TranslateKbdEventToMouse(
4514 wxWindow* pWin
4515 , int* pX
4516 , int* pY
4517 , ULONG* pFlags
4518 )
4519 {
4520 //
4521 // Construct the key mask
4522 ULONG& fwKeys = *pFlags;
4523
4524 fwKeys = VK_BUTTON2;
4525 if ((::WinGetKeyState(HWND_DESKTOP, VK_CTRL) & 0x100) != 0)
4526 fwKeys |= VK_CTRL;
4527 if ((::WinGetKeyState(HWND_DESKTOP, VK_SHIFT) & 0x100) != 0)
4528 fwKeys |= VK_SHIFT;
4529
4530 //
4531 // Simulate right mouse button click
4532 //
4533 POINTL vPoint;
4534
4535 ::WinQueryMsgPos(vHabmain, &vPoint);
4536 *pX = vPoint.x;
4537 *pY = vPoint.y;
4538
4539 pWin->ScreenToClient(pX, pY);
4540 } // end of TranslateKbdEventToMouse
4541
4542 // Find the wxWindow at the current mouse position, returning the mouse
4543 // position.
4544 wxWindow* wxFindWindowAtPointer(
4545 wxPoint& rPt
4546 )
4547 {
4548 return wxFindWindowAtPoint(wxGetMousePosition());
4549 }
4550
4551 wxWindow* wxFindWindowAtPoint(
4552 const wxPoint& rPt
4553 )
4554 {
4555 POINTL vPt2;
4556
4557 vPt2.x = rPt.x;
4558 vPt2.y = rPt.y;
4559
4560 HWND hWndHit = ::WinWindowFromPoint(HWND_DESKTOP, &vPt2, FALSE);
4561 wxWindow* pWin = wxFindWinFromHandle((WXHWND)hWndHit) ;
4562 HWND hWnd = hWndHit;
4563
4564 //
4565 // Try to find a window with a wxWindow associated with it
4566 //
4567 while (!pWin && (hWnd != 0))
4568 {
4569 hWnd = ::WinQueryWindow(hWnd, QW_PARENT);
4570 pWin = wxFindWinFromHandle((WXHWND)hWnd) ;
4571 }
4572 return pWin;
4573 }
4574
4575 // Get the current mouse position.
4576 wxPoint wxGetMousePosition()
4577 {
4578 POINTL vPt;
4579
4580 ::WinQueryPointerPos(HWND_DESKTOP, &vPt);
4581 return wxPoint(vPt.x, vPt.y);
4582 }
4583