Now scaling doesn't scale GetTextExtent() anymore. This

[wxWidgets.git] / src / os2 / gauge.cpp

diff --git a/src/os2/gauge.cpp b/src/os2/gauge.cpp
index a85fbc498ffacbc22cc601acc40b6835be0ffb0a..0cedb8047f69f8715b0646eb61d49c0d9797da82 100644 (file)
--- a/src/os2/gauge.cpp
+++ b/src/os2/gauge.cpp
@@ -1,95 +1,310 @@
 /////////////////////////////////////////////////////////////////////////////
 // Name:        gauge.cpp
 // Purpose:     wxGauge class
 /////////////////////////////////////////////////////////////////////////////
 // Name:        gauge.cpp
 // Purpose:     wxGauge class

-// Author:      AUTHOR
+// Author:      David Webster

 // Modified by:
 // Modified by:

-// Created:     ??/??/98
+// Created:     10/06/99

 // RCS-ID:      $Id$
 // RCS-ID:      $Id$

-// Copyright:   (c) AUTHOR
-// Licence:    wxWindows licence
+// Copyright:   (c) David Webster
+// Licence:     wxWindows licence

 /////////////////////////////////////////////////////////////////////////////
 
 /////////////////////////////////////////////////////////////////////////////
 

-#ifdef __GNUG__
-#pragma implementation "gauge.h"
+#include "wx/wxprec.h"
+
+#ifndef WX_PRECOMP
+#include "wx/defs.h"
+#include "wx/utils.h"
+#include "wx/scrolwin.h"

 #endif
 
 #endif
 

+#include "wx/os2/private.h"

 #include "wx/gauge.h"
 
 #include "wx/gauge.h"
 

-#if !USE_SHARED_LIBRARY
+static WXFARPROC fnWndProcGauge = (WXFARPROC)NULL;
+extern void  wxAssociateWinWithHandle( HWND         hWnd
+                                      ,wxWindowOS2* pWin
+                                     );
+

 IMPLEMENT_DYNAMIC_CLASS(wxGauge, wxControl)
 IMPLEMENT_DYNAMIC_CLASS(wxGauge, wxControl)

-#endif

 
 

-bool wxGauge::Create(wxWindow *parent, wxWindowID id,
-           int range,
-           const wxPoint& pos,
-           const wxSize& size,
-           long style,
-           const wxValidator& validator,
-           const wxString& name)
+MRESULT EXPENTRY wxGaugeWndProc(
+  HWND                              hWnd
+, UINT                              uMessage
+, MPARAM                            wParam
+, MPARAM                            lParam
+)

 {
 {

-    SetName(name);
-    SetValidator(validator);
-    m_rangeMax = range;
-    m_windowStyle = style;
+    wxGauge*                        pGauge = (wxGauge *)::WinQueryWindowULong( hWnd
+                                                                              ,QWL_USER
+                                                                             );
+    wxWindowOS2*                    pWindow = NULL;
+    MRESULT                         rc = (MRESULT)0;
+    bool                            bProcessed = FALSE;
+    HPS                             hPS;
+    RECTL                           vRect;
+    RECTL                           vRect2;
+    RECTL                           vRect3;
+    double                          dPixelToRange = 0.0;
+    double                          dRange = 0.0;
+
+    switch (uMessage )
+    {
+        case WM_PAINT:
+            hPS = ::WinBeginPaint( hWnd
+                                  ,NULLHANDLE
+                                  ,&vRect
+                                 );
+            if(hPS)
+            {
+                ::WinQueryWindowRect(hWnd, &vRect);
+                ::GpiCreateLogColorTable( hPS
+                                         ,0L
+                                         ,LCOLF_CONSECRGB
+                                         ,0L
+                                         ,(LONG)wxTheColourDatabase->m_nSize
+                                         ,(PLONG)wxTheColourDatabase->m_palTable
+                                        );
+                ::GpiCreateLogColorTable( hPS
+                                         ,0L
+                                         ,LCOLF_RGB
+                                         ,0L
+                                         ,0L
+                                         ,NULL
+                                        );
+                //
+                // Draw the guage box
+                //
+                LONG                lColor = 0x00FFFFFF; // White
+                POINTL              vPoint = {vRect.xLeft + 1, vRect.yBottom + 1};
+
+                ::GpiSetColor(hPS, lColor);
+                ::GpiMove(hPS, &vPoint);
+                vPoint.x = vRect.xRight - 1;
+                ::GpiLine(hPS, &vPoint);
+                vPoint.y = vRect.yTop - 1;
+                ::GpiLine(hPS, &vPoint);
+                lColor = 0x000C0C0C; // Darkish Grey to give depth feel
+                ::GpiSetColor(hPS, lColor);
+                vPoint.x = vRect.xLeft + 1;
+                ::GpiLine(hPS, &vPoint);
+                vPoint.y = vRect.yBottom + 1;
+                ::GpiLine(hPS, &vPoint);
+                vRect3.xLeft   = vRect.xLeft + 2;
+                vRect3.xRight  = vRect.xRight - 2;
+                vRect3.yTop    = vRect.yTop - 2;
+                vRect3.yBottom = vRect.yBottom + 2;

 
 

-    if (parent) parent->AddChild(this);
+                if (pGauge->GetWindowStyleFlag() & wxGA_VERTICAL)
+                {
+                    dRange = (double)(vRect3.yTop - vRect3.yBottom);
+                    dPixelToRange  = dRange/(double)pGauge->GetRange();
+                    vRect2.yTop    = (int)(pGauge->GetValue() * dPixelToRange);
+                    vRect2.yBottom = vRect3.yBottom;
+                    vRect2.xLeft   = vRect3.xLeft;
+                    vRect2.xRight  = vRect3.xRight;
+                    vRect3.yBottom  = vRect2.yTop;
+                    if (vRect3.yBottom <= 1)
+                         vRect3.yBottom = 2;
+                    ::WinFillRect(hPS, &vRect3,  pGauge->GetBackgroundColour().GetPixel());
+                    ::WinFillRect(hPS, &vRect2, pGauge->GetForegroundColour().GetPixel());
+                }
+                else
+                {
+                    dRange = (double)(vRect3.xRight - vRect3.xLeft);
+                    dPixelToRange  = dRange/(double)pGauge->GetRange();
+                    vRect2.yTop    = vRect3.yTop;
+                    vRect2.yBottom = vRect3.yBottom;
+                    vRect2.xLeft   = vRect3.xLeft;
+                    vRect2.xRight  = (int)(pGauge->GetValue() * dPixelToRange);
+                    vRect3.xLeft = vRect2.xRight;
+                    if (vRect3.xLeft <= 1)
+                        vRect3.xLeft = 2;
+                    ::WinFillRect(hPS, &vRect3,  pGauge->GetBackgroundColour().GetPixel());
+                    ::WinFillRect(hPS, &vRect2, pGauge->GetForegroundColour().GetPixel());
+                }
+                ::WinEndPaint(hPS);
+            }
+    }
+    return (fnWndProcGauge( hWnd
+                           ,(ULONG)uMessage
+                           ,(MPARAM)wParam
+                           ,(MPARAM)lParam
+                          )
+           );
+} // end of wxGaugeWndProc
+
+bool wxGauge::Create(
+  wxWindowOS2*                      pParent
+, wxWindowID                        vId
+, int                               nRange
+, const wxPoint&                    rPos
+, const wxSize&                     rSize
+, long                              lStyle
+, const wxValidator&                rValidator
+, const wxString&                   rsName
+)
+{
+    int                             nX       = rPos.x;
+    int                             nY       = rPos.y;
+    int                             nWidth   = rSize.x;
+    int                             nHeight  = rSize.y;
+    long                            lMsStyle = 0L;
+    SWP                             vSwp;
+
+    SetName(rsName);
+#if wxUSE_VALIDATORS
+    SetValidator(rValidator);
+#endif
+    if (pParent)
+        pParent->AddChild(this);
+    m_backgroundColour.Set(wxString("LIGHT GREY"));
+    m_foregroundColour.Set(wxString("NAVY"));

 
 

-    if ( id == -1 )
-           m_windowId = (int)NewControlId();
+    m_nRangeMax   = nRange;
+    m_nGaugePos   = 0;
+    m_windowStyle = lStyle;
+
+    if (vId == -1)
+        m_windowId = (int)NewControlId();

     else
     else

-           m_windowId = id;
+        m_windowId = vId;
+
+    if (m_windowStyle & wxCLIP_SIBLINGS )
+        lMsStyle |= WS_CLIPSIBLINGS;
+
+    //
+    // OS/2 will use an edit control for this, since there is not a native gauge
+    // Other choices include using an armless slider but they are more difficult
+    // to control and manipulate
+    //
+
+    lMsStyle = WS_VISIBLE | ES_MARGIN | ES_LEFT | ES_READONLY;
+    if (m_windowStyle & wxCLIP_SIBLINGS)
+        lMsStyle |= WS_CLIPSIBLINGS;

 
 

+    m_hWnd = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
+                                       ,WC_ENTRYFIELD            // Window class
+                                       ,(PSZ)NULL                // Initial Text
+                                       ,(ULONG)lMsStyle          // Style flags
+                                       ,0L, 0L, 0L, 0L           // Origin -- 0 size
+                                       ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
+                                       ,HWND_TOP                 // initial z position
+                                       ,(HMENU)m_windowId        // Window identifier
+                                       ,NULL                     // Slider control data
+                                       ,NULL                     // no Presentation parameters
+                                      );

 
 

-    // TODO
-    return FALSE;
-}
+    wxAssociateWinWithHandle( m_hWnd
+                             ,(wxWindowOS2*)this
+                            );
+    ::WinSetWindowULong(GetHwnd(), QWL_USER, (LONG)this);
+    fnWndProcGauge = (WXFARPROC)::WinSubclassWindow(m_hWnd, (PFNWP)wxGaugeWndProc);
+    ::WinQueryWindowPos(m_hWnd, &vSwp);
+    SetXComp(vSwp.x);
+    SetYComp(vSwp.y);
+    wxFont*                          pTextFont = new wxFont( 10
+                                                            ,wxMODERN
+                                                            ,wxNORMAL
+                                                            ,wxNORMAL
+                                                           );
+    SetFont(*pTextFont);
+    if (nWidth == -1L)
+        nWidth = 50L;
+    if (nHeight == -1L)
+        nHeight = 28L;
+    SetSize( nX
+            ,nY
+            ,nWidth
+            ,nHeight
+           );
+    ::WinShowWindow((HWND)GetHWND(), TRUE);
+    delete pTextFont;
+    return TRUE;
+} // end of wxGauge::Create
+
+int wxGauge::GetBezelFace() const
+{
+    return 0;
+} // end of wxGauge::GetBezelFace

 
 

-void wxGauge::SetSize(int x, int y, int width, int height, int sizeFlags)
+int wxGauge::GetRange() const

 {
 {

-    // TODO
-}
+    return m_nRangeMax;
+} // end of wxGauge::GetRange

 
 

-void wxGauge::SetShadowWidth(int w)
+int wxGauge::GetShadowWidth() const

 {
 {

-    // TODO optional
-}
+    return 0;
+} // end of wxGauge::GetShadowWidth

 
 

-void wxGauge::SetBezelFace(int w)
+int wxGauge::GetValue() const

 {
 {

-    // TODO optional
-}
+    return m_nGaugePos;
+} // end of wxGauge::GetValue

 
 

-void wxGauge::SetRange(int r)
+bool wxGauge::SetBackgroundColour(
+  const wxColour&                   rColour
+)

 {
 {

-    m_rangeMax = r;
-    // TODO
-}
+    if (!wxControl::SetBackgroundColour(rColour))
+        return FALSE;
+
+    LONG                            lColor = (LONG)rColour.GetPixel();

 
 

-void wxGauge::SetValue(int pos)
+    ::WinSetPresParam( GetHwnd()
+                      ,PP_BACKGROUNDCOLOR
+                      ,sizeof(LONG)
+                      ,(PVOID)&lColor
+                     );
+    return TRUE;
+} // end of wxGauge::SetBackgroundColour
+
+void wxGauge::SetBezelFace(
+  int                               WXUNUSED(nWidth)
+)

 {
 {

-    m_gaugePos = pos;
-    // TODO
-}
+} // end of wxGauge::SetBezelFace

 
 

-int wxGauge::GetShadowWidth() const
+bool wxGauge::SetForegroundColour(
+  const wxColour&                   rColour
+)

 {
 {

-    // TODO optional
-    return 0;
-}
+    if (!wxControl::SetForegroundColour(rColour))
+        return FALSE;

 
 

-int wxGauge::GetBezelFace() const
+    LONG                            lColor = (LONG)rColour.GetPixel();
+
+    ::WinSetPresParam( GetHwnd()
+                      ,PP_FOREGROUNDCOLOR
+                      ,sizeof(LONG)
+                      ,(PVOID)&lColor
+                     );
+
+    return TRUE;
+} // end of wxGauge::SetForegroundColour
+
+void wxGauge::SetRange(
+  int                               nRange
+)

 {
 {

-    // TODO optional
-    return 0;
-}
+    m_nRangeMax = nRange;
+} // end of wxGauge::SetRange

 
 

-int wxGauge::GetRange() const
+void wxGauge::SetShadowWidth(
+  int                               WXUNUSED(nWidth)
+)

 {
 {

-    return m_rangeMax;
-}
+} // end of wxGauge::SetShadowWidth

 
 

-int wxGauge::GetValue() const
+void wxGauge::SetValue(
+  int                               nPos
+)

 {
 {

-    return m_gaugePos;
-}
+    RECT                            vRect;
+
+    m_nGaugePos = nPos;
+    ::WinQueryWindowRect(GetHwnd(), &vRect);
+    ::WinInvalidateRect(GetHwnd(), &vRect, FALSE);
+} // end of wxGauge::SetValue
+