]> git.saurik.com Git - wxWidgets.git/blob - src/os2/utilsgui.cpp
Use wxMarkupParser in wxStaticText for dealing with markup.
[wxWidgets.git] / src / os2 / utilsgui.cpp
1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: src/os2/utilsgui.cpp
3 // Purpose: Various utility functions only available in GUI
4 // Author: David Webster
5 // Modified by:
6 // Created: 20.08.2003 (extracted from os2/utils.cpp)
7 // RCS-ID: $Id$
8 // Copyright: (c) David Webster
9 // Licence: wxWindows licence
10 ///////////////////////////////////////////////////////////////////////////////
11
12 // ============================================================================
13 // declarations
14 // ============================================================================
15
16 // ----------------------------------------------------------------------------
17 // headers
18 // ----------------------------------------------------------------------------
19
20 // for compilers that support precompilation, includes "wx.h".
21 #include "wx/wxprec.h"
22
23 #ifdef __BORLANDC__
24 #pragma hdrstop
25 #endif
26
27 #ifndef WX_PRECOMP
28 #include "wx/utils.h"
29 #include "wx/app.h"
30 #include "wx/cursor.h"
31 #include "wx/font.h"
32 #include "wx/timer.h"
33 #endif //WX_PRECOMP
34
35 #include "wx/apptrait.h"
36 #include "wx/os2/private/timer.h"
37 #include "wx/evtloop.h"
38
39 #include "wx/os2/private.h" // includes <windows.h>
40
41 // ============================================================================
42 // implementation
43 // ============================================================================
44
45 // ----------------------------------------------------------------------------
46 // functions to work with .INI files
47 // ----------------------------------------------------------------------------
48
49 // Sleep for nSecs seconds. Attempt a Windows implementation using timers.
50 static bool inTimer = false;
51
52 class wxSleepTimer: public wxTimer
53 {
54 public:
55 inline void Notify()
56 {
57 inTimer = false;
58 Stop();
59 }
60 };
61
62 // ---------------------------------------------------------------------------
63 // helper functions for showing a "busy" cursor
64 // ---------------------------------------------------------------------------
65
66 HCURSOR gs_wxBusyCursor = 0; // new, busy cursor
67 HCURSOR gs_wxBusyCursorOld = 0; // old cursor
68 static int gs_wxBusyCursorCount = 0;
69
70 // Set the cursor to the busy cursor for all windows
71 void wxBeginBusyCursor(const wxCursor* pCursor)
72 {
73 if ( gs_wxBusyCursorCount++ == 0 )
74 {
75 gs_wxBusyCursor = (HCURSOR)pCursor->GetHCURSOR();
76 ::WinSetPointer(HWND_DESKTOP, (HPOINTER)gs_wxBusyCursor);
77 }
78 //else: nothing to do, already set
79 }
80
81 // Restore cursor to normal
82 void wxEndBusyCursor()
83 {
84 wxCHECK_RET( gs_wxBusyCursorCount > 0
85 ,wxT("no matching wxBeginBusyCursor() for wxEndBusyCursor()")
86 );
87
88 if (--gs_wxBusyCursorCount == 0)
89 {
90 ::WinSetPointer(HWND_DESKTOP, (HPOINTER)gs_wxBusyCursorOld);
91 gs_wxBusyCursorOld = 0;
92 }
93 }
94
95 // true if we're between the above two calls
96 bool wxIsBusy()
97 {
98 return (gs_wxBusyCursorCount > 0);
99 }
100
101 // Check whether this window wants to process messages, e.g. Stop button
102 // in long calculations.
103 bool wxCheckForInterrupt( wxWindow* pWnd )
104 {
105 if(pWnd)
106 {
107 QMSG vMsg;
108 HAB hab = 0;
109 HWND hwndFilter = NULLHANDLE;
110
111 while(::WinPeekMsg(hab, &vMsg, hwndFilter, 0, 0, PM_REMOVE))
112 {
113 ::WinDispatchMsg(hab, &vMsg);
114 }
115 return true;//*** temporary?
116 }
117 else
118 {
119 wxFAIL_MSG(wxT("pWnd==NULL !!!"));
120 return false;//*** temporary?
121 }
122 }
123
124 // ----------------------------------------------------------------------------
125 // get display info
126 // ----------------------------------------------------------------------------
127
128 // See also the wxGetMousePosition in window.cpp
129 // Deprecated: use wxPoint wxGetMousePosition() instead
130 void wxGetMousePosition(
131 int* pX
132 , int* pY
133 )
134 {
135 POINTL vPt;
136
137 ::WinQueryPointerPos(HWND_DESKTOP, &vPt);
138 *pX = vPt.x;
139 *pY = vPt.y;
140 };
141
142 // Return true if we have a colour display
143 bool wxColourDisplay()
144 {
145 #if 0
146 HPS hpsScreen;
147 HDC hdcScreen;
148 LONG lColors;
149
150 hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
151 hdcScreen = ::GpiQueryDevice(hpsScreen);
152 ::DevQueryCaps(hdcScreen, CAPS_COLORS, 1L, &lColors);
153 return(lColors > 1L);
154 #else
155 // I don't see how the PM display could not be color. Besides, this
156 // was leaking DCs and PSs!!! MN
157 return true;
158 #endif
159 }
160
161 // Returns depth of screen
162 int wxDisplayDepth()
163 {
164 HPS hpsScreen;
165 HDC hdcScreen;
166 LONG lPlanes;
167 LONG lBitsPerPixel;
168 static LONG nDepth = 0;
169
170 // The screen colordepth ain't gonna change. No reason to query
171 // it over and over!
172 if (!nDepth) {
173 hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
174 hdcScreen = ::GpiQueryDevice(hpsScreen);
175 ::DevQueryCaps(hdcScreen, CAPS_COLOR_PLANES, 1L, &lPlanes);
176 ::DevQueryCaps(hdcScreen, CAPS_COLOR_BITCOUNT, 1L, &lBitsPerPixel);
177
178 nDepth = (int)(lPlanes * lBitsPerPixel);
179 ::DevCloseDC(hdcScreen);
180 ::WinReleasePS(hpsScreen);
181 }
182 return (nDepth);
183 }
184
185 // Get size of display
186 void wxDisplaySize(
187 int* pWidth
188 , int* pHeight
189 )
190 {
191 HPS hpsScreen;
192 HDC hdcScreen;
193 static LONG lWidth = 0;
194 static LONG lHeight = 0;
195
196 // The screen size ain't gonna change either so just cache the values
197 if (!lWidth) {
198 hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
199 hdcScreen = ::GpiQueryDevice(hpsScreen);
200 ::DevQueryCaps(hdcScreen, CAPS_WIDTH, 1L, &lWidth);
201 ::DevQueryCaps(hdcScreen, CAPS_HEIGHT, 1L, &lHeight);
202 ::DevCloseDC(hdcScreen);
203 ::WinReleasePS(hpsScreen);
204 }
205 if (pWidth)
206 *pWidth = (int)lWidth;
207 if (pHeight)
208 *pHeight = (int)lHeight;
209 }
210
211 void wxDisplaySizeMM(
212 int* pWidth
213 , int* pHeight
214 )
215 {
216 HPS hpsScreen;
217 HDC hdcScreen;
218
219 hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
220 hdcScreen = ::GpiQueryDevice(hpsScreen);
221
222 if (pWidth)
223 ::DevQueryCaps( hdcScreen
224 ,CAPS_HORIZONTAL_RESOLUTION
225 ,1L
226 ,(PLONG)pWidth
227 );
228 if (pHeight)
229 ::DevQueryCaps( hdcScreen
230 ,CAPS_VERTICAL_RESOLUTION
231 ,1L
232 ,(PLONG)pHeight
233 );
234 ::DevCloseDC(hdcScreen);
235 ::WinReleasePS(hpsScreen);
236 }
237
238 void wxClientDisplayRect(int *x, int *y, int *width, int *height)
239 {
240 // This is supposed to return desktop dimensions minus any window
241 // manager panels, menus, taskbars, etc. If there is a way to do that
242 // for this platform please fix this function, otherwise it defaults
243 // to the entire desktop.
244 if (x) *x = 0;
245 if (y) *y = 0;
246 wxDisplaySize(width, height);
247 }
248
249 void wxGUIAppTraits::InitializeGui(unsigned long &ulHab)
250 {
251 ulHab = ::WinInitialize(0);
252 }
253
254 void wxGUIAppTraits::TerminateGui(unsigned long ulHab)
255 {
256 ::WinTerminate(ulHab);
257 }
258
259 wxPortId wxGUIAppTraits::GetToolkitVersion(int *verMaj, int *verMin) const
260 {
261 // How to get version of PM ? I guess, just reusing the OS version is OK.
262 (void) wxGetOsVersion(verMaj, verMin);
263 return wxPORT_OS2;
264 }
265
266 wxTimerImpl* wxGUIAppTraits::CreateTimerImpl(wxTimer *timer)
267 {
268 return new wxOS2TimerImpl(timer);
269 }
270
271 wxEventLoopBase* wxGUIAppTraits::CreateEventLoop()
272 {
273 return new wxEventLoop;
274 }
275
276 // ---------------------------------------------------------------------------
277 // window information functions
278 // ---------------------------------------------------------------------------
279
280 wxString WXDLLEXPORT wxGetWindowText( WXHWND hWnd )
281 {
282 wxString vStr;
283
284 if ( hWnd )
285 {
286 long lLen = ::WinQueryWindowTextLength((HWND)hWnd) + 1;
287 ::WinQueryWindowText((HWND)hWnd, lLen, (PSZ)(wxChar*)wxStringBuffer(vStr, lLen));
288 }
289
290 return vStr;
291 }
292
293 wxString WXDLLEXPORT wxGetWindowClass( WXHWND hWnd )
294 {
295 wxString vStr;
296 if ( hWnd )
297 {
298 int nLen = 256; // some starting value
299
300 for ( ;; )
301 {
302 int nCount = ::WinQueryClassName((HWND)hWnd, nLen, (PSZ)(wxChar*)wxStringBuffer(vStr, nLen));
303
304 if (nCount == nLen )
305 {
306 // the class name might have been truncated, retry with larger
307 // buffer
308 nLen *= 2;
309 }
310 else
311 {
312 break;
313 }
314 }
315 }
316 return vStr;
317 }
318
319 WXWORD WXDLLEXPORT wxGetWindowId(
320 WXHWND hWnd
321 )
322 {
323 return ::WinQueryWindowUShort((HWND)hWnd, QWS_ID);
324 }
325
326 void wxDrawBorder(
327 HPS hPS
328 , RECTL& rRect
329 , WXDWORD dwStyle
330 )
331 {
332 POINTL vPoint[2];
333
334 vPoint[0].x = rRect.xLeft;
335 vPoint[0].y = rRect.yBottom;
336 ::GpiMove(hPS, &vPoint[0]);
337 if (dwStyle & wxSIMPLE_BORDER ||
338 dwStyle & wxSTATIC_BORDER)
339 {
340 vPoint[1].x = rRect.xRight - 1;
341 vPoint[1].y = rRect.yTop - 1;
342 ::GpiBox( hPS
343 ,DRO_OUTLINE
344 ,&vPoint[1]
345 ,0L
346 ,0L
347 );
348 }
349 if (dwStyle & wxSUNKEN_BORDER)
350 {
351 LINEBUNDLE vLineBundle;
352
353 vLineBundle.lColor = 0x00FFFFFF; // WHITE
354 vLineBundle.usMixMode = FM_OVERPAINT;
355 vLineBundle.fxWidth = 2;
356 vLineBundle.lGeomWidth = 2;
357 vLineBundle.usType = LINETYPE_SOLID;
358 vLineBundle.usEnd = 0;
359 vLineBundle.usJoin = 0;
360 ::GpiSetAttrs( hPS
361 ,PRIM_LINE
362 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
363 ,0L
364 ,&vLineBundle
365 );
366 vPoint[1].x = rRect.xRight - 1;
367 vPoint[1].y = rRect.yTop - 1;
368 ::GpiBox( hPS
369 ,DRO_OUTLINE
370 ,&vPoint[1]
371 ,0L
372 ,0L
373 );
374 vPoint[0].x = rRect.xLeft + 1;
375 vPoint[0].y = rRect.yBottom + 1;
376 ::GpiMove(hPS, &vPoint[0]);
377 vPoint[1].x = rRect.xRight - 2;
378 vPoint[1].y = rRect.yTop - 2;
379 ::GpiBox( hPS
380 ,DRO_OUTLINE
381 ,&vPoint[1]
382 ,0L
383 ,0L
384 );
385
386 vLineBundle.lColor = 0x00000000; // BLACK
387 vLineBundle.usMixMode = FM_OVERPAINT;
388 vLineBundle.fxWidth = 2;
389 vLineBundle.lGeomWidth = 2;
390 vLineBundle.usType = LINETYPE_SOLID;
391 vLineBundle.usEnd = 0;
392 vLineBundle.usJoin = 0;
393 ::GpiSetAttrs( hPS
394 ,PRIM_LINE
395 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
396 ,0L
397 ,&vLineBundle
398 );
399 vPoint[0].x = rRect.xLeft + 2;
400 vPoint[0].y = rRect.yBottom + 2;
401 ::GpiMove(hPS, &vPoint[0]);
402 vPoint[1].x = rRect.xLeft + 2;
403 vPoint[1].y = rRect.yTop - 3;
404 ::GpiLine(hPS, &vPoint[1]);
405 vPoint[1].x = rRect.xRight - 3;
406 vPoint[1].y = rRect.yTop - 3;
407 ::GpiLine(hPS, &vPoint[1]);
408
409 vPoint[0].x = rRect.xLeft + 3;
410 vPoint[0].y = rRect.yBottom + 3;
411 ::GpiMove(hPS, &vPoint[0]);
412 vPoint[1].x = rRect.xLeft + 3;
413 vPoint[1].y = rRect.yTop - 4;
414 ::GpiLine(hPS, &vPoint[1]);
415 vPoint[1].x = rRect.xRight - 4;
416 vPoint[1].y = rRect.yTop - 4;
417 ::GpiLine(hPS, &vPoint[1]);
418 }
419 if (dwStyle & wxDOUBLE_BORDER)
420 {
421 LINEBUNDLE vLineBundle;
422
423 vLineBundle.lColor = 0x00FFFFFF; // WHITE
424 vLineBundle.usMixMode = FM_OVERPAINT;
425 vLineBundle.fxWidth = 2;
426 vLineBundle.lGeomWidth = 2;
427 vLineBundle.usType = LINETYPE_SOLID;
428 vLineBundle.usEnd = 0;
429 vLineBundle.usJoin = 0;
430 ::GpiSetAttrs( hPS
431 ,PRIM_LINE
432 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
433 ,0L
434 ,&vLineBundle
435 );
436 vPoint[1].x = rRect.xRight - 1;
437 vPoint[1].y = rRect.yTop - 1;
438 ::GpiBox( hPS
439 ,DRO_OUTLINE
440 ,&vPoint[1]
441 ,0L
442 ,0L
443 );
444 vLineBundle.lColor = 0x00000000; // WHITE
445 vLineBundle.usMixMode = FM_OVERPAINT;
446 vLineBundle.fxWidth = 2;
447 vLineBundle.lGeomWidth = 2;
448 vLineBundle.usType = LINETYPE_SOLID;
449 vLineBundle.usEnd = 0;
450 vLineBundle.usJoin = 0;
451 ::GpiSetAttrs( hPS
452 ,PRIM_LINE
453 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
454 ,0L
455 ,&vLineBundle
456 );
457 vPoint[0].x = rRect.xLeft + 2;
458 vPoint[0].y = rRect.yBottom + 2;
459 ::GpiMove(hPS, &vPoint[0]);
460 vPoint[1].x = rRect.xRight - 2;
461 vPoint[1].y = rRect.yTop - 2;
462 ::GpiBox( hPS
463 ,DRO_OUTLINE
464 ,&vPoint[1]
465 ,0L
466 ,0L
467 );
468 vLineBundle.lColor = 0x00FFFFFF; // BLACK
469 vLineBundle.usMixMode = FM_OVERPAINT;
470 vLineBundle.fxWidth = 2;
471 vLineBundle.lGeomWidth = 2;
472 vLineBundle.usType = LINETYPE_SOLID;
473 vLineBundle.usEnd = 0;
474 vLineBundle.usJoin = 0;
475 ::GpiSetAttrs( hPS
476 ,PRIM_LINE
477 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
478 ,0L
479 ,&vLineBundle
480 );
481 vPoint[0].x = rRect.xLeft + 3;
482 vPoint[0].y = rRect.yBottom + 3;
483 ::GpiMove(hPS, &vPoint[0]);
484 vPoint[1].x = rRect.xRight - 3;
485 vPoint[1].y = rRect.yTop - 3;
486 ::GpiBox( hPS
487 ,DRO_OUTLINE
488 ,&vPoint[1]
489 ,0L
490 ,0L
491 );
492 }
493 if (dwStyle & wxRAISED_BORDER)
494 {
495 LINEBUNDLE vLineBundle;
496
497 vLineBundle.lColor = 0x00000000; // BLACK
498 vLineBundle.usMixMode = FM_OVERPAINT;
499 vLineBundle.fxWidth = 2;
500 vLineBundle.lGeomWidth = 2;
501 vLineBundle.usType = LINETYPE_SOLID;
502 vLineBundle.usEnd = 0;
503 vLineBundle.usJoin = 0;
504 ::GpiSetAttrs( hPS
505 ,PRIM_LINE
506 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
507 ,0L
508 ,&vLineBundle
509 );
510 vPoint[1].x = rRect.xRight - 1;
511 vPoint[1].y = rRect.yTop - 1;
512 ::GpiBox( hPS
513 ,DRO_OUTLINE
514 ,&vPoint[1]
515 ,0L
516 ,0L
517 );
518 vPoint[0].x = rRect.xLeft + 1;
519 vPoint[0].y = rRect.yBottom + 1;
520 ::GpiMove(hPS, &vPoint[0]);
521 vPoint[1].x = rRect.xRight - 2;
522 vPoint[1].y = rRect.yTop - 2;
523 ::GpiBox( hPS
524 ,DRO_OUTLINE
525 ,&vPoint[1]
526 ,0L
527 ,0L
528 );
529
530 vLineBundle.lColor = 0x00FFFFFF; // WHITE
531 vLineBundle.usMixMode = FM_OVERPAINT;
532 vLineBundle.fxWidth = 2;
533 vLineBundle.lGeomWidth = 2;
534 vLineBundle.usType = LINETYPE_SOLID;
535 vLineBundle.usEnd = 0;
536 vLineBundle.usJoin = 0;
537 ::GpiSetAttrs( hPS
538 ,PRIM_LINE
539 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
540 ,0L
541 ,&vLineBundle
542 );
543 vPoint[0].x = rRect.xLeft + 2;
544 vPoint[0].y = rRect.yBottom + 2;
545 ::GpiMove(hPS, &vPoint[0]);
546 vPoint[1].x = rRect.xLeft + 2;
547 vPoint[1].y = rRect.yTop - 3;
548 ::GpiLine(hPS, &vPoint[1]);
549 vPoint[1].x = rRect.xRight - 3;
550 vPoint[1].y = rRect.yTop - 3;
551 ::GpiLine(hPS, &vPoint[1]);
552
553 vPoint[0].x = rRect.xLeft + 3;
554 vPoint[0].y = rRect.yBottom + 3;
555 ::GpiMove(hPS, &vPoint[0]);
556 vPoint[1].x = rRect.xLeft + 3;
557 vPoint[1].y = rRect.yTop - 4;
558 ::GpiLine(hPS, &vPoint[1]);
559 vPoint[1].x = rRect.xRight - 4;
560 vPoint[1].y = rRect.yTop - 4;
561 ::GpiLine(hPS, &vPoint[1]);
562 }
563 } // end of wxDrawBorder
564
565 void wxOS2SetFont(
566 HWND hWnd
567 , const wxFont& rFont
568 )
569 {
570 char zFont[128];
571 char zFacename[30];
572 char zWeight[30];
573 char zStyle[30];
574
575 if (hWnd == NULLHANDLE)
576 return;
577
578 //
579 // The fonts available for Presentation Params are just a few
580 // outline fonts, the rest are available to the GPI, so we must
581 // map the families to one of these three
582 //
583 switch(rFont.GetFamily())
584 {
585 case wxSCRIPT:
586 strcpy(zFacename, "Script");
587 break;
588
589 case wxDECORATIVE:
590 strcpy(zFacename, "WarpSans");
591 break;
592
593 case wxROMAN:
594 strcpy(zFacename,"Times New Roman");
595 break;
596
597 case wxTELETYPE:
598 strcpy(zFacename, "Courier New");
599 break;
600
601 case wxMODERN:
602 strcpy(zFacename, "Courier New");
603 break;
604
605 case wxDEFAULT:
606 default:
607 case wxSWISS:
608 strcpy(zFacename, "Helvetica");
609 break;
610 }
611
612 switch(rFont.GetWeight())
613 {
614 default:
615 case wxNORMAL:
616 case wxLIGHT:
617 zWeight[0] = '\0';
618 break;
619
620 case wxBOLD:
621 case wxFONTWEIGHT_MAX:
622 strcpy(zWeight, "Bold");
623 break;
624 }
625
626 switch(rFont.GetStyle())
627 {
628 case wxITALIC:
629 case wxSLANT:
630 strcpy(zStyle, "Italic");
631 break;
632
633 default:
634 zStyle[0] = '\0';
635 break;
636 }
637 sprintf(zFont, "%d.%s", rFont.GetPointSize(), zFacename);
638 if (zWeight[0] != '\0')
639 {
640 strcat(zFont, " ");
641 strcat(zFont, zWeight);
642 }
643 if (zStyle[0] != '\0')
644 {
645 strcat(zFont, " ");
646 strcat(zFont, zStyle);
647 }
648 ::WinSetPresParam(hWnd, PP_FONTNAMESIZE, strlen(zFont) + 1, (PVOID)zFont);
649 } // end of wxOS2SetFont
650
651 // ---------------------------------------------------------------------------
652 // Helper for taking a regular bitmap and giving it a disabled look
653 // ---------------------------------------------------------------------------
654 wxBitmap wxDisableBitmap(
655 const wxBitmap& rBmp
656 , long lColor
657 )
658 {
659 wxMask* pMask = rBmp.GetMask();
660
661 if (!pMask)
662 return(wxNullBitmap);
663
664 DEVOPENSTRUC vDop = {0L, "DISPLAY", NULL, 0L, 0L, 0L, 0L, 0L, 0L};
665 SIZEL vSize = {0, 0};
666 HDC hDC = ::DevOpenDC(vHabmain, OD_MEMORY, "*", 5L, (PDEVOPENDATA)&vDop, NULLHANDLE);
667 HPS hPS = ::GpiCreatePS(vHabmain, hDC, &vSize, PU_PELS | GPIA_ASSOC);
668 BITMAPINFOHEADER2 vHeader;
669 BITMAPINFO2 vInfo;
670 ERRORID vError;
671 wxString sError;
672 HBITMAP hBitmap = (HBITMAP)rBmp.GetHBITMAP();
673 HBITMAP hOldBitmap = NULLHANDLE;
674 HBITMAP hOldMask = NULLHANDLE;
675 HBITMAP hMask = (HBITMAP)rBmp.GetMask()->GetMaskBitmap();
676 unsigned char* pucBits; // buffer that will contain the bitmap data
677 unsigned char* pucData; // pointer to use to traverse bitmap data
678 unsigned char* pucBitsMask; // buffer that will contain the mask data
679 unsigned char* pucDataMask; // pointer to use to traverse mask data
680 LONG lScans = 0L;
681 LONG lScansSet = 0L;
682 bool bpp16 = (wxDisplayDepth() == 16);
683
684 memset(&vHeader, '\0', 16);
685 vHeader.cbFix = 16;
686
687 memset(&vInfo, '\0', 16);
688 vInfo.cbFix = 16;
689 vInfo.cx = (ULONG)rBmp.GetWidth();
690 vInfo.cy = (ULONG)rBmp.GetHeight();
691 vInfo.cPlanes = 1;
692 vInfo.cBitCount = 24; // Set to desired count going in
693
694 //
695 // Create the buffers for data....all wxBitmaps are 24 bit internally
696 //
697 int nBytesPerLine = rBmp.GetWidth() * 3;
698 int nSizeDWORD = sizeof(DWORD);
699 int nLineBoundary = nBytesPerLine % nSizeDWORD;
700 int nPadding = 0;
701 int i;
702 int j;
703
704 //
705 // Bitmap must be in a double-word aligned address so we may
706 // have some padding to worry about
707 //
708 if (nLineBoundary > 0)
709 {
710 nPadding = nSizeDWORD - nLineBoundary;
711 nBytesPerLine += nPadding;
712 }
713 pucBits = (unsigned char *)malloc(nBytesPerLine * rBmp.GetHeight());
714 memset(pucBits, '\0', (nBytesPerLine * rBmp.GetHeight()));
715 pucBitsMask = (unsigned char *)malloc(nBytesPerLine * rBmp.GetHeight());
716 memset(pucBitsMask, '\0', (nBytesPerLine * rBmp.GetHeight()));
717
718 //
719 // Extract the bitmap and mask data
720 //
721 if ((hOldBitmap = ::GpiSetBitmap(hPS, hBitmap)) == HBM_ERROR)
722 {
723 vError = ::WinGetLastError(vHabmain);
724 sError = wxPMErrorToStr(vError);
725 }
726 ::GpiQueryBitmapInfoHeader(hBitmap, &vHeader);
727 vInfo.cBitCount = 24;
728 if ((lScans = ::GpiQueryBitmapBits( hPS
729 ,0L
730 ,(LONG)rBmp.GetHeight()
731 ,(PBYTE)pucBits
732 ,&vInfo
733 )) == GPI_ALTERROR)
734 {
735 vError = ::WinGetLastError(vHabmain);
736 sError = wxPMErrorToStr(vError);
737 }
738 if ((hOldMask = ::GpiSetBitmap(hPS, hMask)) == HBM_ERROR)
739 {
740 vError = ::WinGetLastError(vHabmain);
741 sError = wxPMErrorToStr(vError);
742 }
743 ::GpiQueryBitmapInfoHeader(hMask, &vHeader);
744 vInfo.cBitCount = 24;
745 if ((lScans = ::GpiQueryBitmapBits( hPS
746 ,0L
747 ,(LONG)rBmp.GetHeight()
748 ,(PBYTE)pucBitsMask
749 ,&vInfo
750 )) == GPI_ALTERROR)
751 {
752 vError = ::WinGetLastError(vHabmain);
753 sError = wxPMErrorToStr(vError);
754 }
755 if (( hMask = ::GpiSetBitmap(hPS, hOldMask)) == HBM_ERROR)
756 {
757 vError = ::WinGetLastError(vHabmain);
758 sError = wxPMErrorToStr(vError);
759 }
760 pucData = pucBits;
761 pucDataMask = pucBitsMask;
762
763 //
764 // Get the mask value
765 //
766 for (i = 0; i < rBmp.GetHeight(); i++)
767 {
768 for (j = 0; j < rBmp.GetWidth(); j++)
769 {
770 // Byte 1
771 if (bpp16 && *pucDataMask == 0xF8) // 16 bit display gobblygook
772 {
773 *pucData = 0x7F;
774 pucData++;
775 }
776 else if (*pucDataMask == 0xFF) // set to grey
777 {
778 *pucData = 0x7F;
779 pucData++;
780 }
781 else
782 {
783 *pucData = ((unsigned char)(lColor >> 16));
784 pucData++;
785 }
786
787 // Byte 2
788 if (bpp16 && *(pucDataMask + 1) == 0xFC) // 16 bit display gobblygook
789 {
790 *pucData = 0x7F;
791 pucData++;
792 }
793 else if (*(pucDataMask + 1) == 0xFF) // set to grey
794 {
795 *pucData = 0x7F;
796 pucData++;
797 }
798 else
799 {
800 *pucData = ((unsigned char)(lColor >> 8));
801 pucData++;
802 }
803
804 // Byte 3
805 if (bpp16 && *(pucDataMask + 2) == 0xF8) // 16 bit display gobblygook
806 {
807 *pucData = 0x7F;
808 pucData++;
809 }
810 else if (*(pucDataMask + 2) == 0xFF) // set to grey
811 {
812 *pucData = 0x7F;
813 pucData++;
814 }
815 else
816 {
817 *pucData = ((unsigned char)lColor);
818 pucData++;
819 }
820 pucDataMask += 3;
821 }
822 for (j = 0; j < nPadding; j++)
823 {
824 pucData++;
825 pucDataMask++;
826 }
827 }
828
829 //
830 // Create a new bitmap and set the modified bits
831 //
832 wxBitmap vNewBmp( rBmp.GetWidth()
833 ,rBmp.GetHeight()
834 ,24
835 );
836 HBITMAP hNewBmp = (HBITMAP)vNewBmp.GetHBITMAP();
837
838 if ((hOldBitmap = ::GpiSetBitmap(hPS, hNewBmp)) == HBM_ERROR)
839 {
840 vError = ::WinGetLastError(vHabmain);
841 sError = wxPMErrorToStr(vError);
842 }
843 if ((lScansSet = ::GpiSetBitmapBits( hPS
844 ,0L
845 ,(LONG)rBmp.GetHeight()
846 ,(PBYTE)pucBits
847 ,&vInfo
848 )) == GPI_ALTERROR)
849
850 {
851 vError = ::WinGetLastError(vHabmain);
852 sError = wxPMErrorToStr(vError);
853 }
854 wxMask* pNewMask;
855
856 pNewMask = new wxMask(pMask->GetMaskBitmap());
857 vNewBmp.SetMask(pNewMask);
858 free(pucBits);
859 ::GpiSetBitmap(hPS, NULLHANDLE);
860 ::GpiDestroyPS(hPS);
861 ::DevCloseDC(hDC);
862 if (vNewBmp.Ok())
863 return(vNewBmp);
864 return(wxNullBitmap);
865 } // end of wxDisableBitmap
866
867 COLORREF wxColourToRGB(
868 const wxColour& rColor
869 )
870 {
871 return(OS2RGB(rColor.Red(), rColor.Green(), rColor.Blue()));
872 } // end of wxColourToRGB