src/os2/gauge.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/os2/gauge.cpp
   3 // Purpose:     wxGauge class
   4 // Author:      David Webster
   5 // Modified by:
   6 // Created:     10/06/99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) David Webster
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #include "wx/wxprec.h"
  13
  14 #if wxUSE_GAUGE
  15
  16 #include "wx/gauge.h"
  17
  18 #ifndef WX_PRECOMP
  19     #include "wx/utils.h"
  20     #include "wx/scrolwin.h"
  21 #endif
  22
  23 #include "wx/os2/private.h"
  24
  25 static WXFARPROC fnWndProcGauge = (WXFARPROC)NULL;
  26 extern void  wxAssociateWinWithHandle( HWND         hWnd
  27                                       ,wxWindowOS2* pWin
  28                                      );
  29
  30 IMPLEMENT_DYNAMIC_CLASS(wxGauge, wxControl)
  31
  32 MRESULT EXPENTRY wxGaugeWndProc( HWND hWnd,
  33                                  UINT uMessage,
  34                                  MPARAM wParam,
  35                                  MPARAM lParam )
  36 {
  37     wxGauge*                        pGauge = (wxGauge *)::WinQueryWindowULong( hWnd
  38                                                                               ,QWL_USER
  39                                                                              );
  40     HPS hPS;
  41     RECTL vRect;
  42     RECTL vRect2;
  43     RECTL vRect3;
  44     double dPixelToRange = 0.0;
  45     double dRange = 0.0;
  46
  47     switch (uMessage )
  48     {
  49         case WM_PAINT:
  50             hPS = ::WinBeginPaint( hWnd
  51                                   ,NULLHANDLE
  52                                   ,&vRect
  53                                  );
  54             if(hPS)
  55             {
  56                 ::WinQueryWindowRect(hWnd, &vRect);
  57                 ::GpiCreateLogColorTable( hPS
  58                                          ,0L
  59                                          ,LCOLF_CONSECRGB
  60                                          ,0L
  61                                          ,(LONG)wxTheColourDatabase->m_nSize
  62                                          ,(PLONG)wxTheColourDatabase->m_palTable
  63                                         );
  64                 ::GpiCreateLogColorTable( hPS
  65                                          ,0L
  66                                          ,LCOLF_RGB
  67                                          ,0L
  68                                          ,0L
  69                                          ,NULL
  70                                         );
  71                 //
  72                 // Draw the guage box
  73                 //
  74                 LONG                lColor = 0x00FFFFFF; // White
  75                 POINTL              vPoint = {vRect.xLeft + 1, vRect.yBottom + 1};
  76
  77                 ::GpiSetColor(hPS, lColor);
  78                 ::GpiMove(hPS, &vPoint);
  79                 vPoint.x = vRect.xRight - 1;
  80                 ::GpiLine(hPS, &vPoint);
  81                 vPoint.y = vRect.yTop - 1;
  82                 ::GpiLine(hPS, &vPoint);
  83                 lColor = 0x000C0C0C; // Darkish Grey to give depth feel
  84                 ::GpiSetColor(hPS, lColor);
  85                 vPoint.x = vRect.xLeft + 1;
  86                 ::GpiLine(hPS, &vPoint);
  87                 vPoint.y = vRect.yBottom + 1;
  88                 ::GpiLine(hPS, &vPoint);
  89                 vRect3.xLeft   = vRect.xLeft + 2;
  90                 vRect3.xRight  = vRect.xRight - 2;
  91                 vRect3.yTop    = vRect.yTop - 2;
  92                 vRect3.yBottom = vRect.yBottom + 2;
  93
  94                 if (pGauge->GetWindowStyleFlag() & wxGA_VERTICAL)
  95                 {
  96                     dRange = (double)(vRect3.yTop - vRect3.yBottom);
  97                     dPixelToRange  = dRange/(double)pGauge->GetRange();
  98                     vRect2.yTop    = (int)(pGauge->GetValue() * dPixelToRange);
  99                     vRect2.yBottom = vRect3.yBottom;
 100                     vRect2.xLeft   = vRect3.xLeft;
 101                     vRect2.xRight  = vRect3.xRight;
 102                     vRect3.yBottom  = vRect2.yTop;
 103                     if (vRect3.yBottom <= 1)
 104                          vRect3.yBottom = 2;
 105                     ::WinFillRect(hPS, &vRect3,  pGauge->GetBackgroundColour().GetPixel());
 106                     ::WinFillRect(hPS, &vRect2, pGauge->GetForegroundColour().GetPixel());
 107                 }
 108                 else
 109                 {
 110                     dRange = (double)(vRect3.xRight - vRect3.xLeft);
 111                     dPixelToRange  = dRange/(double)pGauge->GetRange();
 112                     vRect2.yTop    = vRect3.yTop;
 113                     vRect2.yBottom = vRect3.yBottom;
 114                     vRect2.xLeft   = vRect3.xLeft;
 115                     vRect2.xRight  = (int)(pGauge->GetValue() * dPixelToRange);
 116                     vRect3.xLeft = vRect2.xRight;
 117                     if (vRect3.xLeft <= 1)
 118                         vRect3.xLeft = 2;
 119                     ::WinFillRect(hPS, &vRect3,  pGauge->GetBackgroundColour().GetPixel());
 120                     ::WinFillRect(hPS, &vRect2, pGauge->GetForegroundColour().GetPixel());
 121                 }
 122                 ::WinEndPaint(hPS);
 123             }
 124     }
 125     return (fnWndProcGauge( hWnd
 126                            ,(ULONG)uMessage
 127                            ,(MPARAM)wParam
 128                            ,(MPARAM)lParam
 129                           )
 130            );
 131 } // end of wxGaugeWndProc
 132
 133 bool wxGauge::Create( wxWindowOS2* pParent,
 134                       wxWindowID vId,
 135                       int nRange,
 136                       const wxPoint& rPos,
 137                       const wxSize& rSize,
 138                       long lStyle,
 139                       const wxValidator& rValidator,
 140                       const wxString& rsName )
 141 {
 142     int nX       = rPos.x;
 143     int nY       = rPos.y;
 144     int nWidth   = rSize.x;
 145     int nHeight  = rSize.y;
 146     long lMsStyle = 0L;
 147     SWP vSwp;
 148
 149     SetName(rsName);
 150 #if wxUSE_VALIDATORS
 151     SetValidator(rValidator);
 152 #endif
 153     if (pParent)
 154         pParent->AddChild(this);
 155     m_backgroundColour.Set(wxString(wxT("LIGHT GREY")));
 156     m_foregroundColour.Set(wxString(wxT("NAVY")));
 157
 158     m_nRangeMax   = nRange;
 159     m_nGaugePos   = 0;
 160     m_windowStyle = lStyle;
 161
 162     if (vId == wxID_ANY)
 163         m_windowId = (int)NewControlId();
 164     else
 165         m_windowId = vId;
 166
 167     if (m_windowStyle & wxCLIP_SIBLINGS )
 168         lMsStyle |= WS_CLIPSIBLINGS;
 169
 170     //
 171     // OS/2 will use an edit control for this, since there is not a native gauge
 172     // Other choices include using an armless slider but they are more difficult
 173     // to control and manipulate
 174     //
 175
 176     lMsStyle = WS_VISIBLE | ES_MARGIN | ES_LEFT | ES_READONLY;
 177     if (m_windowStyle & wxCLIP_SIBLINGS)
 178         lMsStyle |= WS_CLIPSIBLINGS;
 179
 180     m_hWnd = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
 181                                        ,WC_ENTRYFIELD            // Window class
 182                                        ,(PSZ)NULL                // Initial Text
 183                                        ,(ULONG)lMsStyle          // Style flags
 184                                        ,0L, 0L, 0L, 0L           // Origin -- 0 size
 185                                        ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
 186                                        ,HWND_TOP                 // initial z position
 187                                        ,(HMENU)m_windowId        // Window identifier
 188                                        ,NULL                     // Slider control data
 189                                        ,NULL                     // no Presentation parameters
 190                                       );
 191
 192     wxAssociateWinWithHandle( m_hWnd
 193                              ,(wxWindowOS2*)this
 194                             );
 195     ::WinSetWindowULong(GetHwnd(), QWL_USER, (LONG)this);
 196     fnWndProcGauge = (WXFARPROC)::WinSubclassWindow(m_hWnd, (PFNWP)wxGaugeWndProc);
 197     ::WinQueryWindowPos(m_hWnd, &vSwp);
 198     SetXComp(vSwp.x);
 199     SetYComp(vSwp.y);
 200     wxFont*                          pTextFont = new wxFont( 10
 201                                                             ,wxMODERN
 202                                                             ,wxNORMAL
 203                                                             ,wxNORMAL
 204                                                            );
 205     SetFont(*pTextFont);
 206     if (nWidth == -1L)
 207         nWidth = 50L;
 208     if (nHeight == -1L)
 209         nHeight = 28L;
 210     SetSize( nX
 211             ,nY
 212             ,nWidth
 213             ,nHeight
 214            );
 215     m_nWidth  = nWidth;     // Save for GetBestSize
 216     m_nHeight = nHeight;
 217     ::WinShowWindow((HWND)GetHWND(), TRUE);
 218     delete pTextFont;
 219     return true;
 220 } // end of wxGauge::Create
 221
 222 int wxGauge::GetBezelFace() const
 223 {
 224     return 0;
 225 } // end of wxGauge::GetBezelFace
 226
 227 int wxGauge::GetRange() const
 228 {
 229     return m_nRangeMax;
 230 } // end of wxGauge::GetRange
 231
 232 int wxGauge::GetShadowWidth() const
 233 {
 234     return 0;
 235 } // end of wxGauge::GetShadowWidth
 236
 237 int wxGauge::GetValue() const
 238 {
 239     return m_nGaugePos;
 240 } // end of wxGauge::GetValue
 241
 242 bool wxGauge::SetBackgroundColour( const wxColour& rColour )
 243 {
 244     if (!wxControl::SetBackgroundColour(rColour))
 245         return false;
 246
 247     LONG                            lColor = (LONG)rColour.GetPixel();
 248
 249     ::WinSetPresParam( GetHwnd()
 250                       ,PP_BACKGROUNDCOLOR
 251                       ,sizeof(LONG)
 252                       ,(PVOID)&lColor
 253                      );
 254     return true;
 255 } // end of wxGauge::SetBackgroundColour
 256
 257 void wxGauge::SetBezelFace( int WXUNUSED(nWidth) )
 258 {
 259 } // end of wxGauge::SetBezelFace
 260
 261 bool wxGauge::SetForegroundColour( const wxColour& rColour )
 262 {
 263     if (!wxControl::SetForegroundColour(rColour))
 264         return false;
 265
 266     LONG lColor = (LONG)rColour.GetPixel();
 267
 268     ::WinSetPresParam( GetHwnd()
 269                       ,PP_FOREGROUNDCOLOR
 270                       ,sizeof(LONG)
 271                       ,(PVOID)&lColor
 272                      );
 273
 274     return true;
 275 } // end of wxGauge::SetForegroundColour
 276
 277 void wxGauge::SetRange( int nRange )
 278 {
 279     m_nRangeMax = nRange;
 280 } // end of wxGauge::SetRange
 281
 282 void wxGauge::SetShadowWidth( int WXUNUSED(nWidth) )
 283 {
 284 } // end of wxGauge::SetShadowWidth
 285
 286 void wxGauge::SetValue( int nPos )
 287 {
 288     RECT vRect;
 289
 290     m_nGaugePos = nPos;
 291     ::WinQueryWindowRect(GetHwnd(), &vRect);
 292     ::WinInvalidateRect(GetHwnd(), &vRect, FALSE);
 293 } // end of wxGauge::SetValue
 294
 295 wxSize wxGauge::DoGetBestSize() const
 296 {
 297     return wxSize(m_nWidth,m_nHeight);
 298 }
 299
 300 #endif // wxUSE_GAUGE