fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-06-07 23:43 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* harbour/contrib/hbqt/generator/hbqtgen.prg
  * harbour/contrib/hbqt/generator/qt45.qtp

  * harbour/contrib/hbqt/hbqt.h

  + harbour/contrib/hbqt/hbqt_qabstracttablemodel.cpp
  + harbour/contrib/hbqt/hbqt_qfilesystemmodel.cpp
  + harbour/contrib/hbqt/hbqt_qmodelindex.cpp

  * harbour/contrib/hbqt/Makefile_gen

  + harbour/contrib/hbqt/qth/QAbstractTableModel.qth
  + harbour/contrib/hbqt/qth/QFileSystemModel.qth
  + harbour/contrib/hbqt/qth/QModelIndex.qth

  + harbour/contrib/hbqt/TQAbstractTableModel.prg
  + harbour/contrib/hbqt/TQFileSystemModel.prg
  + harbour/contrib/hbqt/TQModelIndex.prg

    + Added more classes. With this basic user interface classes are complete.
This commit is contained in:
Pritpal Bedi
2009-06-08 06:47:14 +00:00
parent aab67233c7
commit 05e0e42053
14 changed files with 1237 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
harbour/ChangeLog
View File

@@ -17,6 +17,28 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-06-07 23:43 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/hbqt/generator/hbqtgen.prg
* harbour/contrib/hbqt/generator/qt45.qtp
* harbour/contrib/hbqt/hbqt.h
+ harbour/contrib/hbqt/hbqt_qabstracttablemodel.cpp
+ harbour/contrib/hbqt/hbqt_qfilesystemmodel.cpp
+ harbour/contrib/hbqt/hbqt_qmodelindex.cpp
* harbour/contrib/hbqt/Makefile_gen
+ harbour/contrib/hbqt/qth/QAbstractTableModel.qth
+ harbour/contrib/hbqt/qth/QFileSystemModel.qth
+ harbour/contrib/hbqt/qth/QModelIndex.qth
+ harbour/contrib/hbqt/TQAbstractTableModel.prg
+ harbour/contrib/hbqt/TQFileSystemModel.prg
+ harbour/contrib/hbqt/TQModelIndex.prg
+ Added more classes. With this basic user interface classes are complete.
2009-06-07 22:14 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/hbqt/generator/hbqtgen.prg

6
harbour/contrib/hbqt/Makefile_gen
View File

@@ -12,6 +12,7 @@ CPP_SOURCES=\
hbqt_qabstractscrollarea.cpp \
hbqt_qabstractslider.cpp \
hbqt_qabstractspinbox.cpp \
hbqt_qabstracttablemodel.cpp \
hbqt_qaction.cpp \
hbqt_qapplication.cpp \
hbqt_qbitmap.cpp \
@@ -40,6 +41,7 @@ CPP_SOURCES=\
hbqt_qevent.cpp \
hbqt_qeventloop.cpp \
hbqt_qfiledialog.cpp \
hbqt_qfilesystemmodel.cpp \
hbqt_qfocusframe.cpp \
hbqt_qfont.cpp \
hbqt_qfontcombobox.cpp \
@@ -75,6 +77,7 @@ CPP_SOURCES=\
hbqt_qmenu.cpp \
hbqt_qmenubar.cpp \
hbqt_qmessagebox.cpp \
hbqt_qmodelindex.cpp \
hbqt_qobject.cpp \
hbqt_qpaintdevice.cpp \
hbqt_qpagesetupdialog.cpp \
@@ -213,6 +216,7 @@ PRG_SOURCES=\
TQAbstractScrollArea.prg \
TQAbstractSlider.prg \
TQAbstractSpinBox.prg \
TQAbstractTableModel.prg \
TQAction.prg \
TQBitmap.prg \
TQBoxLayout.prg \
@@ -239,6 +243,7 @@ PRG_SOURCES=\
TQEvent.prg \
TQEventLoop.prg \
TQFileDialog.prg \
TQFileSystemModel.prg \
TQFocusFrame.prg \
TQFont.prg \
TQFontComboBox.prg \
@@ -274,6 +279,7 @@ PRG_SOURCES=\
TQMenu.prg \
TQMenuBar.prg \
TQMessageBox.prg \
TQModelIndex.prg \
TQObject.prg \
TQPaintDevice.prg \
TQPageSetupDialog.prg \

81
harbour/contrib/hbqt/TQAbstractTableModel.prg Normal file
View File

@@ -0,0 +1,81 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT wrapper main header
*
* Copyright 2009 Marcos Antonio Gambeta <marcosgambeta at gmail dot com>
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
#include "hbclass.ch"
CREATE CLASS QAbstractTableModel INHERIT QAbstractItemModel
VAR pParent
VAR pPtr
METHOD New()
METHOD index( nRow, nColumn, pParent ) INLINE Qt_QAbstractTableModel_index( ::pPtr, nRow, nColumn, pParent )
ENDCLASS
/*----------------------------------------------------------------------*/
METHOD New( pParent ) CLASS QAbstractTableModel
::pParent := pParent
::pPtr := Qt_QAbstractTableModel( pParent )
RETURN Self
/*----------------------------------------------------------------------*/

112
harbour/contrib/hbqt/TQFileSystemModel.prg Normal file
View File

@@ -0,0 +1,112 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT wrapper main header
*
* Copyright 2009 Marcos Antonio Gambeta <marcosgambeta at gmail dot com>
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
#include "hbclass.ch"
CREATE CLASS QFileSystemModel INHERIT QAbstractItemModel
VAR pParent
VAR pPtr
METHOD New()
METHOD dropMimeData( pData, nAction, nRow, nColumn, pParent ) INLINE Qt_QFileSystemModel_dropMimeData( ::pPtr, pData, nAction, nRow, nColumn, pParent )
METHOD fileIcon( pIndex ) INLINE Qt_QFileSystemModel_fileIcon( ::pPtr, pIndex )
METHOD fileInfo( pIndex ) INLINE Qt_QFileSystemModel_fileInfo( ::pPtr, pIndex )
METHOD fileName( pIndex ) INLINE Qt_QFileSystemModel_fileName( ::pPtr, pIndex )
METHOD filePath( pIndex ) INLINE Qt_QFileSystemModel_filePath( ::pPtr, pIndex )
METHOD filter() INLINE Qt_QFileSystemModel_filter( ::pPtr )
METHOD iconProvider() INLINE Qt_QFileSystemModel_iconProvider( ::pPtr )
METHOD index( cPath, nColumn ) INLINE Qt_QFileSystemModel_index( ::pPtr, cPath, nColumn )
METHOD isDir( pIndex ) INLINE Qt_QFileSystemModel_isDir( ::pPtr, pIndex )
METHOD isReadOnly() INLINE Qt_QFileSystemModel_isReadOnly( ::pPtr )
METHOD lastModified( pIndex ) INLINE Qt_QFileSystemModel_lastModified( ::pPtr, pIndex )
METHOD mimeData( pIndexes ) INLINE Qt_QFileSystemModel_mimeData( ::pPtr, pIndexes )
METHOD mimeTypes() INLINE Qt_QFileSystemModel_mimeTypes( ::pPtr )
METHOD mkdir( pParent, cName ) INLINE Qt_QFileSystemModel_mkdir( ::pPtr, pParent, cName )
METHOD myComputer( nRole ) INLINE Qt_QFileSystemModel_myComputer( ::pPtr, nRole )
METHOD nameFilterDisables() INLINE Qt_QFileSystemModel_nameFilterDisables( ::pPtr )
METHOD nameFilters() INLINE Qt_QFileSystemModel_nameFilters( ::pPtr )
METHOD permissions( pIndex ) INLINE Qt_QFileSystemModel_permissions( ::pPtr, pIndex )
METHOD remove( pIndex ) INLINE Qt_QFileSystemModel_remove( ::pPtr, pIndex )
METHOD resolveSymlinks() INLINE Qt_QFileSystemModel_resolveSymlinks( ::pPtr )
METHOD rmdir( pIndex ) INLINE Qt_QFileSystemModel_rmdir( ::pPtr, pIndex )
METHOD rootDirectory() INLINE Qt_QFileSystemModel_rootDirectory( ::pPtr )
METHOD rootPath() INLINE Qt_QFileSystemModel_rootPath( ::pPtr )
METHOD setFilter( nFilters ) INLINE Qt_QFileSystemModel_setFilter( ::pPtr, nFilters )
METHOD setIconProvider( pProvider ) INLINE Qt_QFileSystemModel_setIconProvider( ::pPtr, pProvider )
METHOD setNameFilterDisables( lEnable ) INLINE Qt_QFileSystemModel_setNameFilterDisables( ::pPtr, lEnable )
METHOD setNameFilters( pFilters ) INLINE Qt_QFileSystemModel_setNameFilters( ::pPtr, pFilters )
METHOD setReadOnly( lEnable ) INLINE Qt_QFileSystemModel_setReadOnly( ::pPtr, lEnable )
METHOD setResolveSymlinks( lEnable ) INLINE Qt_QFileSystemModel_setResolveSymlinks( ::pPtr, lEnable )
METHOD setRootPath( cNewPath ) INLINE Qt_QFileSystemModel_setRootPath( ::pPtr, cNewPath )
METHOD size( pIndex ) INLINE Qt_QFileSystemModel_size( ::pPtr, pIndex )
METHOD type( pIndex ) INLINE Qt_QFileSystemModel_type( ::pPtr, pIndex )
ENDCLASS
/*----------------------------------------------------------------------*/
METHOD New( pParent ) CLASS QFileSystemModel
::pParent := pParent
::pPtr := Qt_QFileSystemModel( pParent )
RETURN Self
/*----------------------------------------------------------------------*/

91
harbour/contrib/hbqt/TQModelIndex.prg Normal file
View File

@@ -0,0 +1,91 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT wrapper main header
*
* Copyright 2009 Marcos Antonio Gambeta <marcosgambeta at gmail dot com>
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
#include "hbclass.ch"
CREATE CLASS QModelIndex
VAR pParent
VAR pPtr
METHOD New()
METHOD child( nRow, nColumn ) INLINE Qt_QModelIndex_child( ::pPtr, nRow, nColumn )
METHOD column() INLINE Qt_QModelIndex_column( ::pPtr )
METHOD data( nRole ) INLINE Qt_QModelIndex_data( ::pPtr, nRole )
METHOD flags() INLINE Qt_QModelIndex_flags( ::pPtr )
METHOD internalId() INLINE Qt_QModelIndex_internalId( ::pPtr )
METHOD internalPointer() INLINE Qt_QModelIndex_internalPointer( ::pPtr )
METHOD isValid() INLINE Qt_QModelIndex_isValid( ::pPtr )
METHOD model() INLINE Qt_QModelIndex_model( ::pPtr )
METHOD parent() INLINE Qt_QModelIndex_parent( ::pPtr )
METHOD row() INLINE Qt_QModelIndex_row( ::pPtr )
METHOD sibling( nRow, nColumn ) INLINE Qt_QModelIndex_sibling( ::pPtr, nRow, nColumn )
ENDCLASS
/*----------------------------------------------------------------------*/
METHOD New( pParent ) CLASS QModelIndex
::pParent := pParent
::pPtr := Qt_QModelIndex( pParent )
RETURN Self
/*----------------------------------------------------------------------*/

4
harbour/contrib/hbqt/generator/hbqtgen.prg
View File

@@ -1567,6 +1567,8 @@ STATIC FUNCTION Build_HBQT_H( cPathOut )
aadd( txt_, "#define hbqt_par_QList( n ) ( ( QList<void*>* ) hb_parptr( n ) ) " )
aadd( txt_, "#define hbqt_par_QStringListModel( n ) ( ( QStringListModel* ) hb_parptr( n ) ) " )
aadd( txt_, "#define hbqt_par_QAbstractListModel( n ) ( ( QAbstractListModel* ) hb_parptr( n ) ) " )
aadd( txt_, "#define hbqt_par_QAbstractTableModel( n ) ( ( QAbstractTableModel* ) hb_parptr( n ) ) " )
aadd( txt_, "#define hbqt_par_QFileSystemModel( n ) ( ( QFileSystemModel* ) hb_parptr( n ) ) " )
aadd( txt_, " " )
aadd( txt_, "#define hbqt_par_QString( n ) ( ( QString ) hb_parc( n ) ) " )
aadd( txt_, "#define hbqt_par_QRgb( n ) ( hb_parnint( n ) ) " )
@@ -1578,7 +1580,7 @@ STATIC FUNCTION Build_HBQT_H( cPathOut )
aadd( txt_, "#define hbqt_ret_QAbstractItemModel( p ) ( hb_retptr( ( QAbstractItemModel* ) p ) ) " )
aadd( txt_, "#define hbqt_ret_QPrinter( p ) ( hb_retptr( ( QPrinter* ) p ) ) " )
aadd( txt_, " " )
aadd( txt_, "#include <QtGui/QWidget> " )
aadd( txt_, "#include <QtGui/QWidget> " )
aadd( txt_, " " )
aadd( txt_, "void hbqt_ret_QRect( QRect ); " )
aadd( txt_, "void hbqt_ret_QSize( QSize ); " )

3
harbour/contrib/hbqt/generator/qt45.qtp
View File

@@ -19,6 +19,7 @@ QAbstractPrintDialog.qth
QAbstractScrollArea.qth
QAbstractSlider.qth
QAbstractSpinBox.qth
QAbstractTableModel.qth
QAction.qth
QApplication.qth
QBitmap.qth
@@ -47,6 +48,7 @@ QErrorMessage.qth
QEvent.qth
QEventLoop.qth
QFileDialog.qth
QFileSystemModel.qth
QFocusFrame.qth
QFont.qth
QFontComboBox.qth
@@ -82,6 +84,7 @@ QMainWindow.qth
QMenu.qth
QMenuBar.qth
QMessageBox.qth
QModelIndex.qth
QObject.qth
QPaintDevice.qth
QPageSetupDialog.qth

2
harbour/contrib/hbqt/hbqt.h
View File

@@ -310,6 +310,8 @@
#define hbqt_par_QList( n ) ( ( QList<void*>* ) hb_parptr( n ) )
#define hbqt_par_QStringListModel( n ) ( ( QStringListModel* ) hb_parptr( n ) )
#define hbqt_par_QAbstractListModel( n ) ( ( QAbstractListModel* ) hb_parptr( n ) )
#define hbqt_par_QAbstractTableModel( n ) ( ( QAbstractTableModel* ) hb_parptr( n ) )
#define hbqt_par_QFileSystemModel( n ) ( ( QFileSystemModel* ) hb_parptr( n ) )
#define hbqt_par_QString( n ) ( ( QString ) hb_parc( n ) )
#define hbqt_par_QRgb( n ) ( hb_parnint( n ) )

87
harbour/contrib/hbqt/hbqt_qabstracttablemodel.cpp Normal file
View File

@@ -0,0 +1,87 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT wrapper main header
*
* Copyright 2009 Marcos Antonio Gambeta <marcosgambeta at gmail dot com>
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
#include "hbapi.h"
#include "hbqt.h"
/*----------------------------------------------------------------------*/
#if QT_VERSION >= 0x040500
/*----------------------------------------------------------------------*/
#include <QtCore/QAbstractTableModel>
/*
* QAbstractTableModel ( QObject * parent = 0 )
* ~QAbstractTableModel ()
*/
HB_FUNC( QT_QABSTRACTTABLEMODEL )
{
// hb_retptr( ( QAbstractTableModel * ) new QAbstractTableModel() );
}
/*
* virtual QModelIndex index ( int row, int column, const QModelIndex & parent = QModelIndex() ) const
*/
HB_FUNC( QT_QABSTRACTTABLEMODEL_INDEX )
{
hb_retptr( new QModelIndex( hbqt_par_QAbstractTableModel( 1 )->index( hb_parni( 2 ), hb_parni( 3 ), ( HB_ISPOINTER( 4 ) ? *hbqt_par_QModelIndex( 4 ) : QModelIndex() ) ) ) );
}
/*----------------------------------------------------------------------*/
#endif /* #if QT_VERSION >= 0x040500 */
/*----------------------------------------------------------------------*/

335
harbour/contrib/hbqt/hbqt_qfilesystemmodel.cpp Normal file
View File

@@ -0,0 +1,335 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT wrapper main header
*
* Copyright 2009 Marcos Antonio Gambeta <marcosgambeta at gmail dot com>
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
#include "hbapi.h"
#include "hbqt.h"
/*----------------------------------------------------------------------*/
#if QT_VERSION >= 0x040500
/*----------------------------------------------------------------------*/
#include <QtGui/QFileSystemModel>
#include <QtCore/QDateTime>
/*
* QFileSystemModel ( QObject * parent = 0 )
* ~QFileSystemModel ()
*/
HB_FUNC( QT_QFILESYSTEMMODEL )
{
hb_retptr( ( QFileSystemModel * ) new QFileSystemModel() );
}
/*
* virtual bool dropMimeData ( const QMimeData * data, Qt::DropAction action, int row, int column, const QModelIndex & parent )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_DROPMIMEDATA )
{
hb_retl( hbqt_par_QFileSystemModel( 1 )->dropMimeData( hbqt_par_QMimeData( 2 ), ( Qt::DropAction ) hb_parni( 3 ), hb_parni( 4 ), hb_parni( 5 ), *hbqt_par_QModelIndex( 6 ) ) );
}
/*
* QIcon fileIcon ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_FILEICON )
{
hb_retptr( new QIcon( hbqt_par_QFileSystemModel( 1 )->fileIcon( *hbqt_par_QModelIndex( 2 ) ) ) );
}
/*
* QFileInfo fileInfo ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_FILEINFO )
{
hb_retptr( new QFileInfo( hbqt_par_QFileSystemModel( 1 )->fileInfo( *hbqt_par_QModelIndex( 2 ) ) ) );
}
/*
* QString fileName ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_FILENAME )
{
hb_retc( hbqt_par_QFileSystemModel( 1 )->fileName( *hbqt_par_QModelIndex( 2 ) ).toLatin1().data() );
}
/*
* QString filePath ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_FILEPATH )
{
hb_retc( hbqt_par_QFileSystemModel( 1 )->filePath( *hbqt_par_QModelIndex( 2 ) ).toLatin1().data() );
}
/*
* QDir::Filters filter () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_FILTER )
{
hb_retni( ( QDir::Filters ) hbqt_par_QFileSystemModel( 1 )->filter() );
}
/*
* QFileIconProvider * iconProvider () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_ICONPROVIDER )
{
hb_retptr( ( QFileIconProvider* ) hbqt_par_QFileSystemModel( 1 )->iconProvider() );
}
/*
* QModelIndex index ( const QString & path, int column = 0 ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_INDEX )
{
hb_retptr( new QModelIndex( hbqt_par_QFileSystemModel( 1 )->index( hbqt_par_QString( 2 ), hb_parni( 3 ) ) ) );
}
/*
* bool isDir ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_ISDIR )
{
hb_retl( hbqt_par_QFileSystemModel( 1 )->isDir( *hbqt_par_QModelIndex( 2 ) ) );
}
/*
* bool isReadOnly () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_ISREADONLY )
{
hb_retl( hbqt_par_QFileSystemModel( 1 )->isReadOnly() );
}
/*
* QDateTime lastModified ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_LASTMODIFIED )
{
hb_retptr( new QDateTime( hbqt_par_QFileSystemModel( 1 )->lastModified( *hbqt_par_QModelIndex( 2 ) ) ) );
}
/*
* virtual QMimeData * mimeData ( const QModelIndexList & indexes ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_MIMEDATA )
{
hb_retptr( ( QMimeData* ) hbqt_par_QFileSystemModel( 1 )->mimeData( *hbqt_par_QModelIndexList( 2 ) ) );
}
/*
* virtual QStringList mimeTypes () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_MIMETYPES )
{
hb_retptr( new QStringList( hbqt_par_QFileSystemModel( 1 )->mimeTypes() ) );
}
/*
* QModelIndex mkdir ( const QModelIndex & parent, const QString & name )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_MKDIR )
{
hb_retptr( new QModelIndex( hbqt_par_QFileSystemModel( 1 )->mkdir( *hbqt_par_QModelIndex( 2 ), hbqt_par_QString( 3 ) ) ) );
}
/*
* QVariant myComputer ( int role = Qt::DisplayRole ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_MYCOMPUTER )
{
hb_retptr( new QVariant( hbqt_par_QFileSystemModel( 1 )->myComputer( ( HB_ISNUM( 2 ) ? hb_parni( 2 ) : Qt::DisplayRole ) ) ) );
}
/*
* bool nameFilterDisables () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_NAMEFILTERDISABLES )
{
hb_retl( hbqt_par_QFileSystemModel( 1 )->nameFilterDisables() );
}
/*
* QStringList nameFilters () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_NAMEFILTERS )
{
hb_retptr( new QStringList( hbqt_par_QFileSystemModel( 1 )->nameFilters() ) );
}
/*
* QFile::Permissions permissions ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_PERMISSIONS )
{
hb_retni( ( QFile::Permissions ) hbqt_par_QFileSystemModel( 1 )->permissions( *hbqt_par_QModelIndex( 2 ) ) );
}
/*
* bool remove ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_REMOVE )
{
hb_retl( hbqt_par_QFileSystemModel( 1 )->remove( *hbqt_par_QModelIndex( 2 ) ) );
}
/*
* bool resolveSymlinks () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_RESOLVESYMLINKS )
{
hb_retl( hbqt_par_QFileSystemModel( 1 )->resolveSymlinks() );
}
/*
* bool rmdir ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_RMDIR )
{
hb_retl( hbqt_par_QFileSystemModel( 1 )->rmdir( *hbqt_par_QModelIndex( 2 ) ) );
}
/*
* QDir rootDirectory () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_ROOTDIRECTORY )
{
hb_retptr( new QDir( hbqt_par_QFileSystemModel( 1 )->rootDirectory() ) );
}
/*
* QString rootPath () const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_ROOTPATH )
{
hb_retc( hbqt_par_QFileSystemModel( 1 )->rootPath().toLatin1().data() );
}
/*
* void setFilter ( QDir::Filters filters )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_SETFILTER )
{
hbqt_par_QFileSystemModel( 1 )->setFilter( ( QDir::Filters ) hb_parni( 2 ) );
}
/*
* void setIconProvider ( QFileIconProvider * provider )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_SETICONPROVIDER )
{
hbqt_par_QFileSystemModel( 1 )->setIconProvider( hbqt_par_QFileIconProvider( 2 ) );
}
/*
* void setNameFilterDisables ( bool enable )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_SETNAMEFILTERDISABLES )
{
hbqt_par_QFileSystemModel( 1 )->setNameFilterDisables( hb_parl( 2 ) );
}
/*
* void setNameFilters ( const QStringList & filters )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_SETNAMEFILTERS )
{
hbqt_par_QFileSystemModel( 1 )->setNameFilters( *hbqt_par_QStringList( 2 ) );
}
/*
* void setReadOnly ( bool enable )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_SETREADONLY )
{
hbqt_par_QFileSystemModel( 1 )->setReadOnly( hb_parl( 2 ) );
}
/*
* void setResolveSymlinks ( bool enable )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_SETRESOLVESYMLINKS )
{
hbqt_par_QFileSystemModel( 1 )->setResolveSymlinks( hb_parl( 2 ) );
}
/*
* QModelIndex setRootPath ( const QString & newPath )
*/
HB_FUNC( QT_QFILESYSTEMMODEL_SETROOTPATH )
{
hb_retptr( new QModelIndex( hbqt_par_QFileSystemModel( 1 )->setRootPath( hbqt_par_QString( 2 ) ) ) );
}
/*
* qint64 size ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_SIZE )
{
hb_retni( hbqt_par_QFileSystemModel( 1 )->size( *hbqt_par_QModelIndex( 2 ) ) );
}
/*
* QString type ( const QModelIndex & index ) const
*/
HB_FUNC( QT_QFILESYSTEMMODEL_TYPE )
{
hb_retc( hbqt_par_QFileSystemModel( 1 )->type( *hbqt_par_QModelIndex( 2 ) ).toLatin1().data() );
}
/*----------------------------------------------------------------------*/
#endif /* #if QT_VERSION >= 0x040500 */
/*----------------------------------------------------------------------*/

168
harbour/contrib/hbqt/hbqt_qmodelindex.cpp Normal file
View File

@@ -0,0 +1,168 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT wrapper main header
*
* Copyright 2009 Marcos Antonio Gambeta <marcosgambeta at gmail dot com>
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
#include "hbapi.h"
#include "hbqt.h"
/*----------------------------------------------------------------------*/
#if QT_VERSION >= 0x040500
/*----------------------------------------------------------------------*/
#include <QtCore/QModelIndex>
/*
* QModelIndex ()
* QModelIndex ( const QModelIndex & other )
* ~QModelIndex ()
*/
HB_FUNC( QT_QMODELINDEX )
{
hb_retptr( ( QModelIndex * ) new QModelIndex() );
}
/*
* QModelIndex child ( int row, int column ) const
*/
HB_FUNC( QT_QMODELINDEX_CHILD )
{
hb_retptr( new QModelIndex( hbqt_par_QModelIndex( 1 )->child( hb_parni( 2 ), hb_parni( 3 ) ) ) );
}
/*
* int column () const
*/
HB_FUNC( QT_QMODELINDEX_COLUMN )
{
hb_retni( hbqt_par_QModelIndex( 1 )->column() );
}
/*
* QVariant data ( int role = Qt::DisplayRole ) const
*/
HB_FUNC( QT_QMODELINDEX_DATA )
{
hb_retptr( new QVariant( hbqt_par_QModelIndex( 1 )->data( ( HB_ISNUM( 2 ) ? hb_parni( 2 ) : Qt::DisplayRole ) ) ) );
}
/*
* Qt::ItemFlags flags () const
*/
HB_FUNC( QT_QMODELINDEX_FLAGS )
{
hb_retni( ( Qt::ItemFlags ) hbqt_par_QModelIndex( 1 )->flags() );
}
/*
* qint64 internalId () const
*/
HB_FUNC( QT_QMODELINDEX_INTERNALID )
{
hb_retni( hbqt_par_QModelIndex( 1 )->internalId() );
}
/*
* void * internalPointer () const
*/
HB_FUNC( QT_QMODELINDEX_INTERNALPOINTER )
{
hbqt_par_QModelIndex( 1 )->internalPointer();
}
/*
* bool isValid () const
*/
HB_FUNC( QT_QMODELINDEX_ISVALID )
{
hb_retl( hbqt_par_QModelIndex( 1 )->isValid() );
}
/*
* const QAbstractItemModel * model () const
*/
HB_FUNC( QT_QMODELINDEX_MODEL )
{
hb_retptr( ( QAbstractItemModel* ) hbqt_par_QModelIndex( 1 )->model() );
}
/*
* QModelIndex parent () const
*/
HB_FUNC( QT_QMODELINDEX_PARENT )
{
hb_retptr( new QModelIndex( hbqt_par_QModelIndex( 1 )->parent() ) );
}
/*
* int row () const
*/
HB_FUNC( QT_QMODELINDEX_ROW )
{
hb_retni( hbqt_par_QModelIndex( 1 )->row() );
}
/*
* QModelIndex sibling ( int row, int column ) const
*/
HB_FUNC( QT_QMODELINDEX_SIBLING )
{
hb_retptr( new QModelIndex( hbqt_par_QModelIndex( 1 )->sibling( hb_parni( 2 ), hb_parni( 3 ) ) ) );
}
/*----------------------------------------------------------------------*/
#endif /* #if QT_VERSION >= 0x040500 */
/*----------------------------------------------------------------------*/

94
harbour/contrib/hbqt/qth/QAbstractTableModel.qth Normal file
View File

@@ -0,0 +1,94 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT Source Generator for Harbour
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
;
; Header File to Generate QT Wrapper Sources
;
<CLASS>
Inherits = QAbstractItemModel
Type = Core
New =
</CLASS>
<CODE>
#include <QtCore/QAbstractTableModel>
/*
* QAbstractTableModel ( QObject * parent = 0 )
* ~QAbstractTableModel ()
*/
HB_FUNC( QT_QABSTRACTTABLEMODEL )
{
// hb_retptr( ( QAbstractTableModel * ) new QAbstractTableModel() );
}
</CODE>
<ENUMS>
</ENUMS>
<PROTOS>
virtual QModelIndex index ( int row, int column, const QModelIndex & parent = QModelIndex() ) const
</PROTOS>
<SLOTS>
</SLOTS>
<SIGNALS>
</SIGNALS>
<VARIABLES>
</VARIABLES>

128
harbour/contrib/hbqt/qth/QFileSystemModel.qth Normal file
View File

@@ -0,0 +1,128 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT Source Generator for Harbour
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
;
; Header File to Generate QT Wrapper Sources
;
<CLASS>
Inherits = QAbstractItemModel
Type = Core
New =
</CLASS>
<CODE>
#include <QtGui/QFileSystemModel>
#include <QtCore/QDateTime>
/*
* QFileSystemModel ( QObject * parent = 0 )
* ~QFileSystemModel ()
*/
HB_FUNC( QT_QFILESYSTEMMODEL )
{
hb_retptr( ( QFileSystemModel * ) new QFileSystemModel() );
}
</CODE>
<ENUMS>
enum Roles { FileIconRole, FilePathRole, FileNameRole, FilePermissions }
</ENUMS>
<PROTOS>
virtual bool dropMimeData ( const QMimeData * data, Qt::DropAction action, int row, int column, const QModelIndex & parent )
QIcon fileIcon ( const QModelIndex & index ) const
QFileInfo fileInfo ( const QModelIndex & index ) const
QString fileName ( const QModelIndex & index ) const
QString filePath ( const QModelIndex & index ) const
QDir::Filters filter () const
QFileIconProvider * iconProvider () const
QModelIndex index ( const QString & path, int column = 0 ) const
bool isDir ( const QModelIndex & index ) const
bool isReadOnly () const
QDateTime lastModified ( const QModelIndex & index ) const
virtual QMimeData * mimeData ( const QModelIndexList & indexes ) const
virtual QStringList mimeTypes () const
QModelIndex mkdir ( const QModelIndex & parent, const QString & name )
QVariant myComputer ( int role = Qt::DisplayRole ) const
bool nameFilterDisables () const
QStringList nameFilters () const
QFile::Permissions permissions ( const QModelIndex & index ) const
bool remove ( const QModelIndex & index ) const
bool resolveSymlinks () const
bool rmdir ( const QModelIndex & index ) const
QDir rootDirectory () const
QString rootPath () const
void setFilter ( QDir::Filters filters )
void setIconProvider ( QFileIconProvider * provider )
void setNameFilterDisables ( bool enable )
void setNameFilters ( const QStringList & filters )
void setReadOnly ( bool enable )
void setResolveSymlinks ( bool enable )
QModelIndex setRootPath ( const QString & newPath )
qint64 size ( const QModelIndex & index ) const
QString type ( const QModelIndex & index ) const
</PROTOS>
<SLOTS>
</SLOTS>
<SIGNALS>
void fileRenamed ( const QString & path, const QString & oldName, const QString & newName )
void rootPathChanged ( const QString & newPath )
</SIGNALS>
<VARIABLES>
</VARIABLES>

105
harbour/contrib/hbqt/qth/QModelIndex.qth Normal file
View File

@@ -0,0 +1,105 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* QT Source Generator for Harbour
*
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/*----------------------------------------------------------------------*/
;
; Header File to Generate QT Wrapper Sources
;
<CLASS>
Inherits =
Type = Core
New =
</CLASS>
<CODE>
#include <QtCore/QModelIndex>
/*
* QModelIndex ()
* QModelIndex ( const QModelIndex & other )
* ~QModelIndex ()
*/
HB_FUNC( QT_QMODELINDEX )
{
hb_retptr( ( QModelIndex * ) new QModelIndex() );
}
</CODE>
<ENUMS>
</ENUMS>
<PROTOS>
QModelIndex child ( int row, int column ) const
int column () const
QVariant data ( int role = Qt::DisplayRole ) const
Qt::ItemFlags flags () const
qint64 internalId () const
void * internalPointer () const
bool isValid () const
const QAbstractItemModel * model () const
QModelIndex parent () const
int row () const
QModelIndex sibling ( int row, int column ) const
</PROTOS>
<SLOTS>
</SLOTS>
<SIGNALS>
</SIGNALS>
<VARIABLES>
</VARIABLES>