support metal appearance

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

diff --git a/src/os2/checklst.cpp b/src/os2/checklst.cpp
index ecabf5408ec88e1889148ad9db7fd8210e8fc5db..e1883b85451db375ed7bdaf21085869769deffca 100644 (file)
--- a/src/os2/checklst.cpp
+++ b/src/os2/checklst.cpp
@@ -1,11 +1,11 @@
 ///////////////////////////////////////////////////////////////////////////////
 // Name:        checklst.cpp
 // Purpose:     implementation of wxCheckListBox class
 ///////////////////////////////////////////////////////////////////////////////
 // Name:        checklst.cpp
 // Purpose:     implementation of wxCheckListBox class

-// Author:      AUTHOR
-// Modified by: 
-// Created:     ??/??/98
+// Author:      David Webster
+// Modified by:
+// Created:     10/13/99

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

-// Copyright:   (c) AUTHOR
+// Copyright:   (c) David Webster

 // Licence:     wxWindows licence
 ///////////////////////////////////////////////////////////////////////////////
 
 // Licence:     wxWindows licence
 ///////////////////////////////////////////////////////////////////////////////
 


@@ -13,19 +13,228 @@
 // headers & declarations
 // ============================================================================
 
 // headers & declarations
 // ============================================================================
 

-#ifdef __GNUG__
-#pragma implementation "checklst.h"
-#endif
+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#if wxUSE_OWNER_DRAWN
+
+#include "wx/object.h"
+#include "wx/colour.h"
+#include "wx/font.h"
+#include "wx/bitmap.h"
+#include "wx/window.h"
+#include "wx/listbox.h"
+#include "wx/ownerdrw.h"
+#include "wx/settings.h"
+#include "wx/dcmemory.h"
+#include "wx/dcscreen.h"
+#include "wx/os2/checklst.h"
+#include "wx/log.h"

 
 

-#include "wx/checklst.h"
+#define INCL_PM
+#include <os2.h>
+
+// ----------------------------------------------------------------------------
+// private functions
+// ----------------------------------------------------------------------------
+
+// get item (converted to right type)
+#define GetItem(n)    ((wxCheckListBoxItem *)(GetItem(n)))

 
 // ============================================================================
 // implementation
 // ============================================================================
 
 
 // ============================================================================
 // implementation
 // ============================================================================
 

-#if !USE_SHARED_LIBRARY
-  IMPLEMENT_DYNAMIC_CLASS(wxCheckListBox, wxListBox)
-#endif
+IMPLEMENT_DYNAMIC_CLASS(wxCheckListBox, wxListBox)
+
+// ----------------------------------------------------------------------------
+// declaration and implementation of wxCheckListBoxItem class
+// ----------------------------------------------------------------------------
+
+class wxCheckListBoxItem : public wxOwnerDrawn
+{
+    friend class wxCheckListBox;
+public:
+    //
+    // ctor
+    //
+    wxCheckListBoxItem( wxCheckListBox* pParent
+                       ,size_t          nIndex
+                      );
+
+    //
+    // Drawing functions
+    //
+    virtual bool OnDrawItem( wxDC&         rDc
+                            ,const wxRect& rRect
+                            ,wxODAction    eAct
+                            ,wxODStatus    eStat
+                           );
+
+    //
+    // Simple accessors
+    //
+    bool IsChecked(void) const  { return m_bChecked; }
+    void Check(bool bCheck);
+    void Toggle(void) { Check(!IsChecked()); }
+
+private:
+    bool                            m_bChecked;
+    wxCheckListBox*                 m_pParent;
+    size_t                          m_nIndex;
+}; // end of CLASS wxCheckListBoxItem
+
+wxCheckListBoxItem::wxCheckListBoxItem (
+  wxCheckListBox*                   pParent
+, size_t                            nIndex
+)
+: wxOwnerDrawn( ""
+               ,TRUE // checkable
+              )
+{
+    m_bChecked = FALSE;
+    m_pParent  = pParent;
+    m_nIndex   = nIndex;
+
+    //
+    // We don't initialize m_nCheckHeight/Width vars because it's
+    // done in OnMeasure while they are used only in OnDraw and we
+    // know that there will always be OnMeasure before OnDraw
+    //
+    SetMarginWidth(GetDefaultMarginWidth());
+} // end of wxCheckListBoxItem::wxCheckListBoxItem
+
+bool wxCheckListBoxItem::OnDrawItem (
+  wxDC&                             rDc
+, const wxRect&                     rRect
+, wxODAction                        eAct
+, wxODStatus                        eStat
+)
+{
+    wxRect                          vRect = rRect;
+
+    ::WinQueryWindowRect( m_pParent->GetHWND()
+                         ,&rDc.m_vRclPaint
+                        );
+    if (IsChecked())
+        eStat = (wxOwnerDrawn::wxODStatus)(eStat | wxOwnerDrawn::wxODChecked);
+
+    //
+    // Unfortunately PM doesn't quite get the text position exact.  We need to alter
+    // it down and to the right, just a little bit.  The coords in rRect are OS/2
+    // coords not wxWindows coords.
+    //
+    vRect.x += 5;
+    vRect.y -= 3;
+    if (wxOwnerDrawn::OnDrawItem( rDc
+                                 ,vRect
+                                 ,eAct
+                                 ,eStat))
+    {
+        size_t                      nCheckWidth  = GetDefaultMarginWidth();
+        size_t                      nCheckHeight = m_pParent->GetItemHeight();
+        int                         nParentHeight;
+        int                         nX = rRect.GetX();
+        int                         nY = rRect.GetY();
+        int                         nOldY = nY;
+        wxColour                    vColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW));
+        wxPen                       vPenBack;
+        wxPen                       vPenGray;
+        wxPen                       vPenPrev;
+
+        m_pParent->GetSize( NULL
+                           ,&nParentHeight
+                          );
+
+        nY = nParentHeight - nY - nCheckHeight;
+        vPenBack = wxPen(vColour, 1, wxSOLID);
+        vPenGray = wxPen(wxColour(127, 127, 127), 1, wxSOLID);
+
+        //
+        // Erase the 1-pixel border
+        //
+        rDc.SetPen(vPenBack);
+        rDc.DrawRectangle( nX
+                          ,nY
+                          ,nCheckWidth
+                          ,nCheckHeight
+                         );
+
+        //
+        // Now we draw the smaller rectangle
+        //
+        nY++;
+        nCheckWidth  -= 2;
+        nCheckHeight -= 2;
+
+        //
+        // Draw hollow gray rectangle
+        //
+        rDc.SetPen(vPenGray);
+        rDc.DrawRectangle( nX
+                          ,nY
+                          ,nCheckWidth
+                          ,nCheckHeight
+                         );
+
+        nX++;
+        if (IsChecked())
+        {
+            //
+            // Draw the check by loading the sys standard bitmap and drawing it
+            //
+            HBITMAP                 hChkBmp = ::WinGetSysBitmap( HWND_DESKTOP
+                                                                ,SBMP_MENUCHECK
+                                                               );
+            POINTL                  vPoint = {nX, nOldY + 3};
+
+            ::WinDrawBitmap( rDc.GetHPS()
+                            ,hChkBmp
+                            ,NULL
+                            ,&vPoint
+                            ,NULL
+                            ,NULL
+                            ,DBM_NORMAL
+                           );
+        }
+        return TRUE;
+    }
+    return FALSE;
+} // end of wxCheckListBoxItem::OnDrawItem
+
+//
+// Change the state of the item and redraw it
+//
+void wxCheckListBoxItem::Check (
+  bool                              bCheck
+)
+{
+    m_bChecked = bCheck;
+
+    //
+    // Index may be chanegd because new items were added/deleted
+    //
+    if (m_pParent->GetItemIndex(this) != (int)m_nIndex)
+    {
+        //
+        // Update it
+        //
+        int                         nIndex = m_pParent->GetItemIndex(this);
+
+        wxASSERT_MSG(nIndex != wxNOT_FOUND, wxT("what does this item do here?"));
+
+        m_nIndex = (size_t)nIndex;
+    }
+
+
+    wxCommandEvent                  vEvent( wxEVT_COMMAND_CHECKLISTBOX_TOGGLED
+                                           ,m_pParent->GetId()
+                                          );
+
+    vEvent.SetInt(m_nIndex);
+    vEvent.SetEventObject(m_pParent);
+    m_pParent->ProcessCommand(vEvent);
+} // end of wxCheckListBoxItem::Check

 
 // ----------------------------------------------------------------------------
 // implementation of wxCheckListBox class
 
 // ----------------------------------------------------------------------------
 // implementation of wxCheckListBox class


@@ -34,41 +243,253 @@
 // define event table
 // ------------------
 BEGIN_EVENT_TABLE(wxCheckListBox, wxListBox)
 // define event table
 // ------------------
 BEGIN_EVENT_TABLE(wxCheckListBox, wxListBox)

+  EVT_CHAR(wxCheckListBox::OnChar)
+  EVT_LEFT_DOWN(wxCheckListBox::OnLeftClick)

 END_EVENT_TABLE()
 
 END_EVENT_TABLE()
 

-// control creation
+//
+// Control creation

 // ----------------
 // ----------------

+//

 
 

-// def ctor: use Create() to really create the control
-wxCheckListBox::wxCheckListBox() : wxListBox()
+//
+// Default ctor: use Create() to really create the control
+//
+wxCheckListBox::wxCheckListBox()
+: wxListBox()

 {
 {

-}
+} // end of wxCheckListBox::wxCheckListBox

 
 

-// ctor which creates the associated control
-wxCheckListBox::wxCheckListBox(wxWindow *parent, wxWindowID id,
-                               const wxPoint& pos, const wxSize& size,
-                               int nStrings, const wxString choices[],
-                               long style, const wxValidator& val,
-                               const wxString& name)
+//
+// Ctor which creates the associated control
+//
+wxCheckListBox::wxCheckListBox (
+  wxWindow*                         pParent
+, wxWindowID                        vId
+, const wxPoint&                    rPos
+, const wxSize&                     rSize
+, int                               nStrings
+, const wxString                    asChoices[]
+, long                              lStyle
+, const wxValidator&                rVal
+, const wxString&                   rsName
+)

               : wxListBox()
 {
               : wxListBox()
 {

-    // TODO: you'll probably need a separate Create instead of using
-    // the wxListBox one as here.
-    Create(parent, id, pos, size, nStrings, choices, style|wxLB_OWNERDRAW, val, name);
-}
+    Create( pParent
+           ,vId
+           ,rPos
+           ,rSize
+           ,nStrings
+           ,asChoices
+           ,lStyle | wxLB_OWNERDRAW
+           ,rVal
+           ,rsName
+          );
+} // end of wxCheckListBox::wxCheckListBox
+
+wxCheckListBox::wxCheckListBox (
+  wxWindow*                         pParent
+, wxWindowID                        vId
+, const wxPoint&                    rPos
+, const wxSize&                     rSize
+, const wxArrayString&              asChoices
+, long                              lStyle
+, const wxValidator&                rVal
+, const wxString&                   rsName
+)
+              : wxListBox()
+{
+    wxCArrayString chs(asChoices);
+    Create( pParent
+           ,vId
+           ,rPos
+           ,rSize
+           ,chs.GetCount()
+           ,chs.GetStrings()
+           ,lStyle | wxLB_OWNERDRAW
+           ,rVal
+           ,rsName
+          );
+} // end of wxCheckListBox::wxCheckListBox
+
+void wxCheckListBox::Delete(
+  int                               N
+)
+{
+    wxCHECK_RET( N >= 0 && N < m_nNumItems,
+                 wxT("invalid index in wxListBox::Delete") );
+    wxListBox::Delete(N);
+
+    //
+    // Free memory
+    //
+    delete m_aItems[N];
+    m_aItems.RemoveAt(N);
+} // end of wxCheckListBox::Delete
+
+void wxCheckListBox::InsertItems (
+  int                               nItems
+, const wxString                    asItems[]
+, int                               nPos
+)
+{
+    int                             i;
+
+    wxCHECK_RET( nPos >= 0 && nPos <= m_nNumItems,
+                 wxT("invalid index in wxCheckListBox::InsertItems") );
+
+    wxListBox::InsertItems( nItems
+                           ,asItems
+                           ,nPos
+                          );
+    for (i = 0; i < nItems; i++)
+    {
+        wxOwnerDrawn*               pNewItem = CreateItem((size_t)(nPos + i));
+
+        pNewItem->SetName(asItems[i]);
+        m_aItems.Insert(pNewItem, (size_t)(nPos + i));
+        ::WinSendMsg( (HWND)GetHWND()
+                     ,LM_SETITEMHANDLE
+                     ,(MPARAM)(i + nPos)
+                     ,MPFROMP(pNewItem)
+                    );
+    }
+} // end of wxCheckListBox::InsertItems
+
+bool wxCheckListBox::SetFont (
+  const wxFont&                     rFont
+)
+{
+    size_t                          i;
+
+    for (i = 0; i < m_aItems.GetCount(); i++)
+        m_aItems[i]->SetFont(rFont);
+    wxListBox::SetFont(rFont);
+    return TRUE;
+} // end of wxCheckListBox::SetFont
+
+//
+// Create/retrieve item
+// --------------------
+//

 
 

-// check items
+//
+// Create a check list box item
+//
+wxOwnerDrawn* wxCheckListBox::CreateItem (
+  size_t                            nIndex
+)
+{
+    wxCheckListBoxItem*             pItem = new wxCheckListBoxItem( this
+                                                                   ,nIndex
+                                                                  );
+    return pItem;
+} // end of wxCheckListBox::CreateItem
+
+//
+// Return item size
+// ----------------
+//
+long wxCheckListBox::OS2OnMeasure (
+  WXMEASUREITEMSTRUCT*             pItem
+)
+{
+    if (!pItem)
+        pItem = (WXMEASUREITEMSTRUCT*)new OWNERITEM;
+    if (wxListBox::OS2OnMeasure(pItem) )
+    {
+        POWNERITEM                  pStruct = (POWNERITEM)pItem;
+
+        //
+        // Save item height
+        //
+        m_nItemHeight = pStruct->rclItem.yTop - pStruct->rclItem.yBottom;
+
+        //
+        // Add place for the check mark
+        //
+        pStruct->rclItem.xRight += wxOwnerDrawn::GetDefaultMarginWidth();
+        return long(MRFROM2SHORT((USHORT)m_nItemHeight, (USHORT)(pStruct->rclItem.xRight - pStruct->rclItem.xLeft)));
+    }
+    return 0L;
+} // end of wxCheckListBox::CreateItem
+
+//
+// Check items

 // -----------
 // -----------

+//
+bool wxCheckListBox::IsChecked (
+  size_t                            uiIndex
+) const
+{
+    return GetItem(uiIndex)->IsChecked();
+} // end of wxCheckListBox::IsChecked

 
 

-bool wxCheckListBox::IsChecked(uint uiIndex) const
+void wxCheckListBox::Check (
+  size_t                            uiIndex
+, bool                              bCheck
+)

 {
 {

-    // TODO
-    return FALSE;
-}
+    GetItem(uiIndex)->Check(bCheck);
+} // end of wxCheckListBox::Check

 
 

-void wxCheckListBox::Check(uint uiIndex, bool bCheck)
+//
+// Process events
+// --------------
+//
+void wxCheckListBox::OnChar (
+  wxKeyEvent&                       rEvent
+)

 {
 {

-    // TODO
-}
+    if (rEvent.GetKeyCode() == WXK_SPACE)
+        GetItem(GetSelection())->Toggle();
+    else
+        rEvent.Skip();
+} // end of wxCheckListBox::OnChar

 
 

+void wxCheckListBox::OnLeftClick (
+  wxMouseEvent&                     rEvent
+)
+{
+    //
+    // Clicking on the item selects it, clicking on the checkmark toggles
+    //
+    if (rEvent.GetX() <= wxOwnerDrawn::GetDefaultMarginWidth())
+    {
+        int                         nParentHeight;
+        wxScreenDC                  vDc;
+        wxCoord                     vHeight;
+
+        GetSize( NULL
+                ,&nParentHeight
+               );
+        vDc.SetFont(GetFont());
+        vHeight = (wxCoord)(vDc.GetCharHeight() * 2.5);
+
+        //
+        // This, of course, will not work if the LB is scrolled
+        //
+        int                         nY = rEvent.GetY();
+
+        nY = nParentHeight - (nY + vHeight);
+
+        size_t                      nItem = (size_t)(nY / vHeight);
+
+        if (nItem < (size_t)m_nNumItems)
+            GetItem(nItem)->Toggle();
+        //
+        // else: it's not an error, just click outside of client zone
+        //
+    }
+    else
+    {
+        //
+        // Implement default behaviour: clicking on the item selects it
+        //
+        rEvent.Skip();
+    }
+} // end of wxCheckListBox::OnLeftClick
+
+#endif