]> git.saurik.com Git - wxWidgets.git/blob - src/mac/bmpbuttn.cpp
Fix by Milan Babuskov <albis@eunet.yu> in MovePageUp
[wxWidgets.git] / src / mac / bmpbuttn.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: bmpbuttn.cpp
3 // Purpose: wxBitmapButton
4 // Author: Stefan Csomor
5 // Modified by:
6 // Created: 1998-01-01
7 // RCS-ID: $Id$
8 // Copyright: (c) Stefan Csomor
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "bmpbuttn.h"
14 #endif
15
16 #include "wx/window.h"
17 #include "wx/bmpbuttn.h"
18
19 #if !USE_SHARED_LIBRARY
20 IMPLEMENT_DYNAMIC_CLASS(wxBitmapButton, wxButton)
21 #endif
22
23 #include "wx/mac/uma.h"
24 #include "wx/bitmap.h"
25
26 bool wxBitmapButton::Create(wxWindow *parent, wxWindowID id, const wxBitmap& bitmap,
27 const wxPoint& pos,
28 const wxSize& size, long style,
29 const wxValidator& validator,
30 const wxString& name)
31 {
32 m_bmpNormal = bitmap;
33
34 m_marginX = 0;
35 m_marginY = 0;
36
37 // int x = pos.x;
38 // int y = pos.y;
39 int width = size.x;
40 int height = size.y;
41
42 if (id == -1)
43 m_windowId = NewControlId();
44 else
45 m_windowId = id;
46
47 if ( width == -1 && bitmap.Ok())
48 width = bitmap.GetWidth() + 2*m_marginX;
49
50 if ( height == -1 && bitmap.Ok())
51 height = bitmap.GetHeight() + 2*m_marginY;
52
53 Rect bounds ;
54 Str255 title ;
55 m_bmpNormal = bitmap;
56 wxBitmapRefData * bmap = NULL ;
57
58 if ( m_bmpNormal.Ok() )
59 bmap = (wxBitmapRefData*) ( m_bmpNormal.GetRefData()) ;
60
61 MacPreControlCreate( parent , id , "" , pos , wxSize( width , height ) ,style, validator , name , &bounds , title ) ;
62
63 m_macControl = ::NewControl( MAC_WXHWND(parent->MacGetRootWindow()) , &bounds , title , false , 0 ,
64 kControlBehaviorOffsetContents +
65 ( bmap && bmap->m_bitmapType == kMacBitmapTypeIcon ?
66 kControlContentCIconHandle : kControlContentPictHandle ) , 0,
67 (( style & wxBU_AUTODRAW ) ? kControlBevelButtonSmallBevelProc : kControlBevelButtonNormalBevelProc ), (long) this ) ;
68 wxASSERT_MSG( (ControlHandle) m_macControl != NULL , "No valid mac control" ) ;
69
70 ControlButtonContentInfo info ;
71 wxMacCreateBitmapButton( &info , m_bmpNormal ) ;
72 if ( info.contentType != kControlNoContent )
73 {
74 ::SetControlData( (ControlHandle) m_macControl , kControlButtonPart , kControlBevelButtonContentTag , sizeof(info) , (char*) &info ) ;
75 }
76 MacPostControlCreate() ;
77
78 return TRUE;
79 }
80
81 void wxBitmapButton::SetBitmapLabel(const wxBitmap& bitmap)
82 {
83 m_bmpNormal = bitmap;
84
85 ControlButtonContentInfo info ;
86 wxMacCreateBitmapButton( &info , m_bmpNormal ) ;
87 if ( info.contentType != kControlNoContent )
88 {
89 ::SetControlData( (ControlHandle) m_macControl , kControlButtonPart , kControlBevelButtonContentTag , sizeof(info) , (char*) &info ) ;
90 }
91 }
92