scrolling to selection

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@27177 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Stefan Csomor
2004-05-08 12:41:45 +00:00
parent 40ad34262a
commit a9fc5eec8b

View File

@@ -36,6 +36,8 @@ END_EVENT_TABLE()
#include "wx/mac/uma.h" #include "wx/mac/uma.h"
const short kTextColumnId = 1024 ;
// new databrowserbased version // new databrowserbased version
// Listbox item // Listbox item
@@ -123,7 +125,7 @@ static pascal OSStatus ListBoxGetSetItemData(ControlRef browser,
switch (property) switch (property)
{ {
case 1024: case kTextColumnId:
{ {
long ref = GetControlReference( browser ) ; long ref = GetControlReference( browser ) ;
if ( ref ) if ( ref )
@@ -208,7 +210,7 @@ bool wxListBox::Create(wxWindow *parent, wxWindowID id,
columnDesc.headerBtnDesc.btnFontStyle.style = normal; columnDesc.headerBtnDesc.btnFontStyle.style = normal;
columnDesc.headerBtnDesc.titleString = NULL ; // CFSTR( "" ); columnDesc.headerBtnDesc.titleString = NULL ; // CFSTR( "" );
columnDesc.propertyDesc.propertyID = 1024; columnDesc.propertyDesc.propertyID = kTextColumnId;
columnDesc.propertyDesc.propertyType = kDataBrowserTextType; columnDesc.propertyDesc.propertyType = kDataBrowserTextType;
columnDesc.propertyDesc.propertyFlags = columnDesc.propertyDesc.propertyFlags =
#if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2 #if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_2
@@ -707,7 +709,8 @@ void wxListBox::MacSet( int n , const wxString& text )
void wxListBox::MacScrollTo( int n ) void wxListBox::MacScrollTo( int n )
{ {
// TODO implement scrolling UInt32 id = m_idArray[n] ;
verify_noerr( ::RevealDataBrowserItem((ControlRef) m_macControl , id , kTextColumnId , kDataBrowserRevealWithoutSelecting ) ) ;
} }
void wxListBox::OnSize( wxSizeEvent &event) void wxListBox::OnSize( wxSizeEvent &event)