diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7bfd72c8fe..e4763a6209 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,72 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-07-08 16:50 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * harbour/contrib/hbqt/hbqt.ch
+
+  * harbour/contrib/hbqt/QBitmap.cpp
+  * harbour/contrib/hbqt/QBrush.cpp
+  * harbour/contrib/hbqt/QCursor.cpp
+  * harbour/contrib/hbqt/QImage.cpp
+  * harbour/contrib/hbqt/QLine.cpp
+  * harbour/contrib/hbqt/QLinearGradient.cpp
+  * harbour/contrib/hbqt/QPicture.cpp
+  * harbour/contrib/hbqt/QPixmap.cpp
+  * harbour/contrib/hbqt/QPoint.cpp
+  * harbour/contrib/hbqt/QPointF.cpp
+  * harbour/contrib/hbqt/QRadialGradient.cpp
+  * harbour/contrib/hbqt/QRect.cpp
+  * harbour/contrib/hbqt/QRectF.cpp
+  * harbour/contrib/hbqt/QRegion.cpp
+  * harbour/contrib/hbqt/QSizeF.cpp
+
+  * harbour/contrib/hbqt/TQBitmap.prg
+  * harbour/contrib/hbqt/TQImage.prg
+  * harbour/contrib/hbqt/TQLine.prg
+  * harbour/contrib/hbqt/TQLinearGradient.prg
+  * harbour/contrib/hbqt/TQPicture.prg
+  * harbour/contrib/hbqt/TQPixmap.prg
+  * harbour/contrib/hbqt/TQPoint.prg
+  * harbour/contrib/hbqt/TQPointF.prg
+  * harbour/contrib/hbqt/TQRadialGradient.prg
+  * harbour/contrib/hbqt/TQRect.prg
+  * harbour/contrib/hbqt/TQRectF.prg
+  * harbour/contrib/hbqt/TQRegion.prg
+  * harbour/contrib/hbqt/TQSizeF.prg
+
+  * harbour/contrib/hbqt/qth/QBitmap.qth
+  * harbour/contrib/hbqt/qth/QBrush.qth
+  * harbour/contrib/hbqt/qth/QCursor.qth
+  * harbour/contrib/hbqt/qth/QImage.qth
+  * harbour/contrib/hbqt/qth/QLine.qth
+  * harbour/contrib/hbqt/qth/QLinearGradient.qth
+  * harbour/contrib/hbqt/qth/QPalette.qth
+  * harbour/contrib/hbqt/qth/QPicture.qth
+  * harbour/contrib/hbqt/qth/QPixmap.qth
+  * harbour/contrib/hbqt/qth/QPoint.qth
+  * harbour/contrib/hbqt/qth/QPointF.qth
+  * harbour/contrib/hbqt/qth/QRadialGradient.qth
+  * harbour/contrib/hbqt/qth/QRect.qth
+  * harbour/contrib/hbqt/qth/QRectF.qth
+  * harbour/contrib/hbqt/qth/QRegion.qth
+  * harbour/contrib/hbqt/qth/QSizeF.qth
+
+  ! Updated for exact constructor parameters.
+    If the constructor accepts parameters with identical .prg supplied values,
+    a new parameter is inserted as a first argument and then resolved in .cpp.
+        
+      oBrush := QBrush():new( "QPixmap"  , pQPixmap )
+      oBrush := QBrush():new( "QImage"   , pQImage )
+      oBrush := QBrush():new( "QGradient", pQGradient )
+           
+          Note that constructor fetches only one argument, a pointer to relevant
+          object, which at prg to cpp level can never be differed so this 
+          mechanism was necessary. The first parameter will be matched exact
+          and hence it is case sensitive. If this parameter is of the same type
+          object is being created then it call will only supply pointer:
+  
+      oBrush := QBrush():new( pQBrush_other )
+
 2009-07-08 22:47 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * utils/hbmk2/hbmk2.prg
     + Added -[no]ignore option which tells hbmk2 to ignore
diff --git a/harbour/contrib/hbqt/QBitmap.cpp b/harbour/contrib/hbqt/QBitmap.cpp
index bfe5c3afe2..7abb879acb 100644
--- a/harbour/contrib/hbqt/QBitmap.cpp
+++ b/harbour/contrib/hbqt/QBitmap.cpp
@@ -73,7 +73,41 @@
  */
 HB_FUNC( QT_QBITMAP )
 {
-   hb_retptr( ( QBitmap* ) new QBitmap() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap( *hbqt_par_QBitmap( 1 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISCHAR( 1 ) )
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap( hbqt_par_QString( 1 ), ( const char * ) 0 ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISCHAR( 1 ) && HB_ISCHAR( 2 ) )
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap( hbqt_par_QString( 1 ), hb_parc( 2 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap( hb_parni( 1 ), hb_parni( 2 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISCHAR( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      if(      ( QString ) "QPixmap" == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QBitmap* ) new QBitmap( *hbqt_par_QPixmap( 1 ) ) );
+      }
+      else if( ( QString ) "QSize"   == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QBitmap* ) new QBitmap( *hbqt_par_QSize( 1 ) ) );
+      }
+      else
+      {
+         hb_retptr( ( QBitmap* ) new QBitmap() );
+      }
+   }
+   else
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QBrush.cpp b/harbour/contrib/hbqt/QBrush.cpp
index 1e97d23465..c92423ff0c 100644
--- a/harbour/contrib/hbqt/QBrush.cpp
+++ b/harbour/contrib/hbqt/QBrush.cpp
@@ -80,36 +80,7 @@ HB_FUNC( QT_QBRUSH )
 {
    if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
    {
-      hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QPixmap( 1 ) ) );
-
-      #if 0       /* ToDO */
-      QString objName = hbqt_par_QObject( 1 )->objectName();
-
-      if( objName == ( QString ) "QPixmap" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QPixmap( 1 ) ) );
-      }
-      else if( objName == ( QString ) "QImage" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QImage( 1 ) ) );
-      }
-      else if( objName == ( QString ) "QBrush" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QBrush( 1 ) ) );
-      }
-      else if( objName == ( QString ) "QGradient" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QGradient( 1 ) ) );
-      }
-      else if( objName == ( QString ) "QColor" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QColor( 1 ), Qt::SolidPattern ) );
-      }
-      else
-      {
-         hb_retptr( ( QBrush* ) new QBrush() );
-      }
-      #endif
+      hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QBrush( 1 ) ) );
    }
    else if( hb_pcount() == 1 && HB_ISNUM( 1 ) )
    {
@@ -131,6 +102,32 @@ HB_FUNC( QT_QBRUSH )
    {
       hb_retptr( ( QBrush* ) new QBrush( ( Qt::GlobalColor ) hb_parni( 1 ), *hbqt_par_QPixmap( 2 ) ) );
    }
+   else if( hb_pcount() >= 2 && HB_ISCHAR( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      QString objName = hbqt_par_QString( 1 );
+
+      if(      objName == ( QString ) "QPixmap" )
+      {
+         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QPixmap( 1 ) ) );
+      }
+      else if( objName == ( QString ) "QImage" )
+      {
+         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QImage( 1 ) ) );
+      }
+      else if( objName == ( QString ) "QGradient" )
+      {
+         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QGradient( 1 ) ) );
+      }
+      else if( objName == ( QString ) "QColor" )
+      {
+         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QColor( 1 ),
+                                            HB_ISNUM( 3 ) ? ( Qt::BrushStyle ) hb_parni( 3 ) : Qt::SolidPattern ) );
+      }
+      else
+      {
+         hb_retptr( ( QBrush* ) new QBrush() );
+      }
+   }
    else
    {
       hb_retptr( ( QBrush* ) new QBrush() );
diff --git a/harbour/contrib/hbqt/QCursor.cpp b/harbour/contrib/hbqt/QCursor.cpp
index b5937cc23e..9d3b99c78b 100644
--- a/harbour/contrib/hbqt/QCursor.cpp
+++ b/harbour/contrib/hbqt/QCursor.cpp
@@ -63,7 +63,6 @@
 #include <qpixmap.h>
 #include <QtGui/QCursor>
 
-
 /*
  * QCursor ()
  * QCursor ( Qt::CursorShape shape )
@@ -82,24 +81,22 @@ HB_FUNC( QT_QCURSOR )
    }
    else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
    {
-      hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QPixmap( 1 ), -1, -1 ) );
-
-      #if 0    /* TODO */
-      QString objName = hbqt_par_QObject( 1 )->objectName();
+      hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QCursor( 1 ) ) );
+   }
+   else if( hb_pcount() >= 2 && HB_ISCHAR( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      QString objName = hbqt_par_QString( 1 );
 
       if( objName == ( QString ) "QPixmap" )
       {
-         hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QPixmap( 1 ), -1, -1 ) );
-      }
-      else if( objName == ( QString ) "QCursor" )
-      {
-         hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QCursor( 1 ) ) );
+         hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QPixmap( 2 ),
+                                              HB_ISNUM( 3 ) ? hb_parni( 3 ) : -1,
+                                              HB_ISNUM( 4 ) ? hb_parni( 4 ) : -1 ) );
       }
       else
       {
          hb_retptr( ( QCursor* ) new QCursor() );
       }
-      #endif
    }
    else if( hb_pcount() >= 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
    {
@@ -107,11 +104,6 @@ HB_FUNC( QT_QCURSOR )
                                            HB_ISNUM( 3 ) ? hb_parni( 3 ) : -1,
                                            HB_ISNUM( 4 ) ? hb_parni( 4 ) : -1 ) );
    }
-   else if( hb_pcount() >= 2 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
-   {
-      hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QPixmap( 1 ), hb_parni( 2 ),
-                                           HB_ISNUM( 3 ) ? hb_parni( 3 ) : -1 ) );
-   }
    else
    {
       hb_retptr( ( QCursor* ) new QCursor() );
diff --git a/harbour/contrib/hbqt/QImage.cpp b/harbour/contrib/hbqt/QImage.cpp
index 7b9b3d8f70..43bab04400 100644
--- a/harbour/contrib/hbqt/QImage.cpp
+++ b/harbour/contrib/hbqt/QImage.cpp
@@ -91,7 +91,38 @@
  */
 HB_FUNC( QT_QIMAGE )
 {
-   hb_retptr( ( QImage* ) new QImage() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( *hbqt_par_QImage( 1 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISCHAR( 1 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( hbqt_par_QString( 1 ), ( const char * ) 0 ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISCHAR( 1 ) && HB_ISCHAR( 2 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( hbqt_par_QString( 1 ), ( const char * ) hb_parcx( 2 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( *hbqt_par_QSize( 1 ), ( QImage::Format ) hb_parni( 2 ) ) );
+   }
+   else if( hb_pcount() == 3 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( hb_parni( 1 ), hb_parni( 2 ), ( QImage::Format ) hb_parni( 3 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISCHAR( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( ( const uchar * ) hb_parc( 1 ), hb_parni( 2 ), hb_parni( 3 ), ( QImage::Format ) hb_parni( 4 ) ) );
+   }
+   else if( hb_pcount() == 5 && HB_ISCHAR( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) && HB_ISNUM( 5 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( ( const uchar * ) hb_parc( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ), ( QImage::Format ) hb_parni( 5 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QImage* ) new QImage() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QLine.cpp b/harbour/contrib/hbqt/QLine.cpp
index a26f0335c6..389e814274 100644
--- a/harbour/contrib/hbqt/QLine.cpp
+++ b/harbour/contrib/hbqt/QLine.cpp
@@ -70,7 +70,22 @@
  */
 HB_FUNC( QT_QLINE )
 {
-   hb_retptr( ( QLine* ) new QLine() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QLine* ) new QLine( *hbqt_par_QLine( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      hb_retptr( ( QLine* ) new QLine( *hbqt_par_QPoint( 1 ), *hbqt_par_QPoint( 2 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QLine* ) new QLine( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QLine* ) new QLine() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QLinearGradient.cpp b/harbour/contrib/hbqt/QLinearGradient.cpp
index 9d25346ffc..e856d61f2d 100644
--- a/harbour/contrib/hbqt/QLinearGradient.cpp
+++ b/harbour/contrib/hbqt/QLinearGradient.cpp
@@ -70,7 +70,22 @@
  */
 HB_FUNC( QT_QLINEARGRADIENT )
 {
-   hb_retptr( ( QLinearGradient* ) new QLinearGradient() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QLinearGradient* ) new QLinearGradient( *hbqt_par_QLinearGradient( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      hb_retptr( ( QLinearGradient* ) new QLinearGradient( *hbqt_par_QPoint( 1 ), *hbqt_par_QPoint( 2 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QLinearGradient* ) new QLinearGradient( hb_parnd( 1 ), hb_parnd( 2 ), hb_parnd( 3 ), hb_parnd( 4 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QLinearGradient* ) new QLinearGradient() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QPicture.cpp b/harbour/contrib/hbqt/QPicture.cpp
index 3935f93c6f..23e415e1b7 100644
--- a/harbour/contrib/hbqt/QPicture.cpp
+++ b/harbour/contrib/hbqt/QPicture.cpp
@@ -70,7 +70,18 @@
  */
 HB_FUNC( QT_QPICTURE )
 {
-   hb_retptr( ( QPicture* ) new QPicture() );
+   if( hb_pcount() == 1 && HB_ISNUM( 1 ) )
+   {
+      hb_retptr( ( QPicture* ) new QPicture( hb_parni( 1 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QPicture* ) new QPicture( *hbqt_par_QPicture( 1 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QPicture* ) new QPicture() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QPixmap.cpp b/harbour/contrib/hbqt/QPixmap.cpp
index bffa476d75..f5621a6b10 100644
--- a/harbour/contrib/hbqt/QPixmap.cpp
+++ b/harbour/contrib/hbqt/QPixmap.cpp
@@ -74,14 +74,18 @@
  */
 HB_FUNC( QT_QPIXMAP )
 {
-   if( hb_pcount() >= 1 && HB_ISCHAR( 1 ) )
+   if( hb_pcount() == 1 && HB_ISCHAR( 1 ) )
    {
       hb_retptr( ( QPixmap* ) new QPixmap( hbqt_par_QString( 1 ), ( const char * ) 0, Qt::AutoColor ) );
    }
-   else if( hb_pcount() >= 1 && HB_ISPOINTER( 1 ) )
+   else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
    {
       hb_retptr( ( QPixmap* ) new QPixmap( *hbqt_par_QPixmap( 1 ) ) );
    }
+   else if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QPixmap* ) new QPixmap( hb_parni( 1 ), hb_parni( 2 ) ) );
+   }
    else
    {
       hb_retptr( ( QPixmap* ) new QPixmap() );
diff --git a/harbour/contrib/hbqt/QPoint.cpp b/harbour/contrib/hbqt/QPoint.cpp
index a93d90c850..e490df6696 100644
--- a/harbour/contrib/hbqt/QPoint.cpp
+++ b/harbour/contrib/hbqt/QPoint.cpp
@@ -69,7 +69,18 @@
  */
 HB_FUNC( QT_QPOINT )
 {
-   hb_retptr( ( QPoint* ) new QPoint( hb_parni( 1 ), hb_parni( 2 ) ) );
+   if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QPoint* ) new QPoint( hb_parni( 1 ), hb_parni( 2 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QPoint* ) new QPoint( *hbqt_par_QPoint( 1 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QPoint* ) new QPoint() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QPointF.cpp b/harbour/contrib/hbqt/QPointF.cpp
index 514b23628d..7c92d94d28 100644
--- a/harbour/contrib/hbqt/QPointF.cpp
+++ b/harbour/contrib/hbqt/QPointF.cpp
@@ -70,8 +70,18 @@
  */
 HB_FUNC( QT_QPOINTF )
 {
-   hb_retptr( ( QPointF* ) new QPointF( ( qreal ) hb_parnd( 1 ),
-                                        ( qreal ) hb_parnd( 2 ) ) );
+   if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QPointF* ) new QPointF( ( qreal ) hb_parnd( 1 ), ( qreal ) hb_parnd( 2 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QPointF* ) new QPointF( *hbqt_par_QPoint( 1 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QPointF* ) new QPointF() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QRadialGradient.cpp b/harbour/contrib/hbqt/QRadialGradient.cpp
index 07458d909c..ea8a402c5d 100644
--- a/harbour/contrib/hbqt/QRadialGradient.cpp
+++ b/harbour/contrib/hbqt/QRadialGradient.cpp
@@ -72,7 +72,26 @@
  */
 HB_FUNC( QT_QRADIALGRADIENT )
 {
-   hb_retptr( ( QRadialGradient* ) new QRadialGradient() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient( *hbqt_par_QRadialGradient( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient( *hbqt_par_QPointF( 1 ), hb_parnd( 2 ) ) );
+   }
+   else if( hb_pcount() == 3 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) && HB_ISPOINTER( 3 ) )
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient( *hbqt_par_QPointF( 1 ), hb_parnd( 2 ), *hbqt_par_QPointF( 3 ) ) );
+   }
+   else if( hb_pcount() == 5 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) && HB_ISNUM( 5 ) )
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient( hb_parnd( 1 ), hb_parnd( 2 ), hb_parnd( 3 ), hb_parnd( 4 ), hb_parnd( 5 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QRect.cpp b/harbour/contrib/hbqt/QRect.cpp
index 05201c06cf..f43cb53b0b 100644
--- a/harbour/contrib/hbqt/QRect.cpp
+++ b/harbour/contrib/hbqt/QRect.cpp
@@ -71,7 +71,22 @@
  */
 HB_FUNC( QT_QRECT )
 {
-   hb_retptr( ( QRect* ) new QRect( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ) ) );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QRect* ) new QRect( *hbqt_par_QRect( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      hb_retptr( ( QRect* ) new QRect( *hbqt_par_QPoint( 1 ), *hbqt_par_QPoint( 2 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QRect* ) new QRect( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QRect* ) new QRect() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QRectF.cpp b/harbour/contrib/hbqt/QRectF.cpp
index 04d47aace8..d2ff6851cc 100644
--- a/harbour/contrib/hbqt/QRectF.cpp
+++ b/harbour/contrib/hbqt/QRectF.cpp
@@ -72,10 +72,22 @@
  */
 HB_FUNC( QT_QRECTF )
 {
-   hb_retptr( ( QRectF* ) new QRectF( ( qreal ) hb_parnd( 1 ),
-                                      ( qreal ) hb_parnd( 2 ),
-                                      ( qreal ) hb_parnd( 3 ),
-                                      ( qreal ) hb_parnd( 4 ) ) );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QRectF* ) new QRectF( *hbqt_par_QRectF( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      hb_retptr( ( QRectF* ) new QRectF( *hbqt_par_QPoint( 1 ), *hbqt_par_QPoint( 2 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QRectF* ) new QRectF( hb_parnd( 1 ), hb_parnd( 2 ), hb_parnd( 3 ), hb_parnd( 4 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QRectF* ) new QRectF() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QRegion.cpp b/harbour/contrib/hbqt/QRegion.cpp
index 242aca33d5..009f56ef7e 100644
--- a/harbour/contrib/hbqt/QRegion.cpp
+++ b/harbour/contrib/hbqt/QRegion.cpp
@@ -82,9 +82,44 @@
  */
 HB_FUNC( QT_QREGION )
 {
-   hb_retptr( ( QRegion* ) new QRegion( hb_parni( 1 ), hb_parni( 2 ),
-                                        hb_parni( 3 ), hb_parni( 4 ),
-      ( QRegion::RegionType ) ( HB_ISNUM( 5 ) ? hb_parni( 5 ) : QRegion::Rectangle ) ) );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QRegion( 1 ) ) );
+   }
+   else if( hb_pcount() >= 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QRegion* ) new QRegion( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ),
+                                           HB_ISNUM( 5 ) ? ( QRegion::RegionType ) hb_parni( 5 ) : QRegion::Rectangle ) );
+   }
+   else if( hb_pcount() >= 2 && HB_ISCHAR( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      if(      ( QString ) "QPolygon" == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QPolygon( 2 ),
+                                              HB_ISNUM( 3 ) ? ( Qt::FillRule ) hb_parni( 3 ) : Qt::OddEvenFill ) );
+      }
+      else if( ( QString ) "QBitmap"  == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QBitmap( 2 ) ) );
+      }
+      else if( ( QString ) "QRect"    == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QRect( 2 ),
+                                               HB_ISNUM( 3 ) ? ( QRegion::RegionType ) hb_parni( 3 ) : QRegion::Rectangle ) );
+      }
+      else
+      {
+         hb_retptr( ( QRegion* ) new QRegion() );
+      }
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QRect( 1 ), ( QRegion::RegionType ) hb_parni( 2 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QRegion* ) new QRegion() );
+   }
 }
 
 /*
diff --git a/harbour/contrib/hbqt/QSizeF.cpp b/harbour/contrib/hbqt/QSizeF.cpp
index 4280a4439c..9730433f54 100644
--- a/harbour/contrib/hbqt/QSizeF.cpp
+++ b/harbour/contrib/hbqt/QSizeF.cpp
@@ -67,12 +67,33 @@
  * QSizeF ()
  * QSizeF ( const QSize & size )
  * QSizeF ( qreal width, qreal height )
- * QSizeF boundedTo ( const QSizeF & otherSize ) const
- * QSizeF expandedTo ( const QSizeF & otherSize ) const
  */
 HB_FUNC( QT_QSIZEF )
 {
-   hb_retptr( ( QSizeF* ) new QSizeF( hb_parnd( 1 ), hb_parnd( 2 ) ) );
+   if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QSizeF* ) new QSizeF( hb_parnd( 1 ), hb_parnd( 2 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QSizeF* ) new QSizeF() );
+   }
+   }
+
+/*
+ * QSizeF boundedTo ( const QSizeF & otherSize ) const
+ */
+HB_FUNC( QT_QSIZEF_BOUNDEDTO )
+{
+   hb_retptr( new QSizeF( hbqt_par_QSizeF( 1 )->boundedTo( *hbqt_par_QSizeF( 2 ) ) ) );
+}
+
+/*
+ * QSizeF expandedTo ( const QSizeF & otherSize ) const
+ */
+HB_FUNC( QT_QSIZEF_EXPANDEDTO )
+{
+   hb_retptr( new QSizeF( hbqt_par_QSizeF( 1 )->expandedTo( *hbqt_par_QSizeF( 2 ) ) ) );
 }
 
 /*
diff --git a/harbour/contrib/hbqt/TQBitmap.prg b/harbour/contrib/hbqt/TQBitmap.prg
index 342f94ff09..f48110aa5a 100644
--- a/harbour/contrib/hbqt/TQBitmap.prg
+++ b/harbour/contrib/hbqt/TQBitmap.prg
@@ -72,11 +72,9 @@ CREATE CLASS QBitmap INHERIT QPixmap
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QBitmap
+METHOD New( ... ) CLASS QBitmap
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QBitmap( pParent )
+   ::pPtr := Qt_QBitmap( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQImage.prg b/harbour/contrib/hbqt/TQImage.prg
index b1e37020b1..3e5bf1f8d3 100644
--- a/harbour/contrib/hbqt/TQImage.prg
+++ b/harbour/contrib/hbqt/TQImage.prg
@@ -128,11 +128,9 @@ CREATE CLASS QImage
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QImage
+METHOD New( ... ) CLASS QImage
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QImage( pParent )
+   ::pPtr := Qt_QImage( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQLine.prg b/harbour/contrib/hbqt/TQLine.prg
index 7ec3ec357a..9be92000ea 100644
--- a/harbour/contrib/hbqt/TQLine.prg
+++ b/harbour/contrib/hbqt/TQLine.prg
@@ -85,11 +85,9 @@ CREATE CLASS QLine
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QLine
+METHOD New( ... ) CLASS QLine
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QLine( pParent )
+   ::pPtr := Qt_QLine( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQLinearGradient.prg b/harbour/contrib/hbqt/TQLinearGradient.prg
index e06e48dc0f..dfa13a2bcd 100644
--- a/harbour/contrib/hbqt/TQLinearGradient.prg
+++ b/harbour/contrib/hbqt/TQLinearGradient.prg
@@ -74,11 +74,9 @@ CREATE CLASS QLinearGradient INHERIT QGradient
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QLinearGradient
+METHOD New( ... ) CLASS QLinearGradient
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QLinearGradient( pParent )
+   ::pPtr := Qt_QLinearGradient( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQPicture.prg b/harbour/contrib/hbqt/TQPicture.prg
index b5dfcdbd3e..834ec6ee17 100644
--- a/harbour/contrib/hbqt/TQPicture.prg
+++ b/harbour/contrib/hbqt/TQPicture.prg
@@ -79,11 +79,9 @@ CREATE CLASS QPicture INHERIT QPaintDevice
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QPicture
+METHOD New( ... ) CLASS QPicture
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QPicture( pParent )
+   ::pPtr := Qt_QPicture( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQPixmap.prg b/harbour/contrib/hbqt/TQPixmap.prg
index 2b74630731..05d1d94c0b 100644
--- a/harbour/contrib/hbqt/TQPixmap.prg
+++ b/harbour/contrib/hbqt/TQPixmap.prg
@@ -108,11 +108,9 @@ CREATE CLASS QPixmap INHERIT QPaintDevice
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QPixmap
+METHOD New( ... ) CLASS QPixmap
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QPixmap( pParent )
+   ::pPtr := Qt_QPixmap( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQPoint.prg b/harbour/contrib/hbqt/TQPoint.prg
index 724384cfa0..92c6ee5150 100644
--- a/harbour/contrib/hbqt/TQPoint.prg
+++ b/harbour/contrib/hbqt/TQPoint.prg
@@ -76,11 +76,9 @@ CREATE CLASS QPoint
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QPoint
+METHOD New( ... ) CLASS QPoint
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QPoint( pParent )
+   ::pPtr := Qt_QPoint( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQPointF.prg b/harbour/contrib/hbqt/TQPointF.prg
index e8bdafb92d..7451eeed8c 100644
--- a/harbour/contrib/hbqt/TQPointF.prg
+++ b/harbour/contrib/hbqt/TQPointF.prg
@@ -76,11 +76,9 @@ CREATE CLASS QPointF
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QPointF
+METHOD New( ... ) CLASS QPointF
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QPointF( pParent )
+   ::pPtr := Qt_QPointF( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQRadialGradient.prg b/harbour/contrib/hbqt/TQRadialGradient.prg
index c00995cd5c..bc8b7d8419 100644
--- a/harbour/contrib/hbqt/TQRadialGradient.prg
+++ b/harbour/contrib/hbqt/TQRadialGradient.prg
@@ -76,11 +76,9 @@ CREATE CLASS QRadialGradient INHERIT QGradient
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QRadialGradient
+METHOD New( ... ) CLASS QRadialGradient
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QRadialGradient( pParent )
+   ::pPtr := Qt_QRadialGradient( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQRect.prg b/harbour/contrib/hbqt/TQRect.prg
index 663d7fe78a..bd4e139ab6 100644
--- a/harbour/contrib/hbqt/TQRect.prg
+++ b/harbour/contrib/hbqt/TQRect.prg
@@ -127,11 +127,9 @@ CREATE CLASS QRect
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QRect
+METHOD New( ... ) CLASS QRect
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QRect( pParent )
+   ::pPtr := Qt_QRect( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQRectF.prg b/harbour/contrib/hbqt/TQRectF.prg
index c2a773fd71..76c698ab4c 100644
--- a/harbour/contrib/hbqt/TQRectF.prg
+++ b/harbour/contrib/hbqt/TQRectF.prg
@@ -128,11 +128,9 @@ CREATE CLASS QRectF
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QRectF
+METHOD New( ... ) CLASS QRectF
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QRectF( pParent )
+   ::pPtr := Qt_QRectF( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQRegion.prg b/harbour/contrib/hbqt/TQRegion.prg
index a5d75b10a9..9315d7de2b 100644
--- a/harbour/contrib/hbqt/TQRegion.prg
+++ b/harbour/contrib/hbqt/TQRegion.prg
@@ -86,11 +86,9 @@ CREATE CLASS QRegion
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QRegion
+METHOD New( ... ) CLASS QRegion
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QRegion( pParent )
+   ::pPtr := Qt_QRegion( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/TQSizeF.prg b/harbour/contrib/hbqt/TQSizeF.prg
index 3aac97f9e1..908014e5e2 100644
--- a/harbour/contrib/hbqt/TQSizeF.prg
+++ b/harbour/contrib/hbqt/TQSizeF.prg
@@ -63,6 +63,8 @@ CREATE CLASS QSizeF
 
    METHOD  New()
 
+   METHOD  boundedTo( pOtherSize )             INLINE  Qt_QSizeF_boundedTo( ::pPtr, pOtherSize )
+   METHOD  expandedTo( pOtherSize )            INLINE  Qt_QSizeF_expandedTo( ::pPtr, pOtherSize )
    METHOD  height()                            INLINE  Qt_QSizeF_height( ::pPtr )
    METHOD  isEmpty()                           INLINE  Qt_QSizeF_isEmpty( ::pPtr )
    METHOD  isNull()                            INLINE  Qt_QSizeF_isNull( ::pPtr )
@@ -81,11 +83,9 @@ CREATE CLASS QSizeF
 
 /*----------------------------------------------------------------------*/
 
-METHOD New( pParent ) CLASS QSizeF
+METHOD New( ... ) CLASS QSizeF
 
-   ::pParent := pParent
-
-   ::pPtr := Qt_QSizeF( pParent )
+   ::pPtr := Qt_QSizeF( ... )
 
    RETURN Self
 
diff --git a/harbour/contrib/hbqt/hbqt.ch b/harbour/contrib/hbqt/hbqt.ch
index 3a80a0d658..182ea86193 100644
--- a/harbour/contrib/hbqt/hbqt.ch
+++ b/harbour/contrib/hbqt/hbqt.ch
@@ -1615,6 +1615,115 @@
 #define QIcon_On                                  0    // Display the pixmap when the widget is in an "on" state
 #define QIcon_Off                                 1    // Display the pixmap when the widget is in an "off" state
 
+#define QFont_MixedCase                           0   // This is the normal text rendering option where no capitalization change is applied.
+#define QFont_AllUppercase                        1   // This alters the text to be rendered in all uppercase type.
+#define QFont_AllLowercase                        2   // This alters the text to be rendered in all lowercase type.
+#define QFont_SmallCaps                           3   // This alters the text to be rendered in small-caps type.
+#define QFont_Capitalize                          4   // This alters the text to be rendered with the first character of each word as an uppercase character.
+
+// enum #define QFont_SpacingType
+//
+#define QFont_PercentageSpacing                   0   // A value of 100 will keep the spacing unchanged; a value of 200 will enlarge the spacing after a character by the width of the character itself.
+#define QFont_AbsoluteSpacing                     1   // A positive value increases the letter spacing by the corresponding pixels; a negative value decreases the spacing.
+
+// enum #define QFont_Stretch
+// Predefined stretch values that follow the CSS naming convention. The higher the value, the more stretched the text is.
+//
+#define QFont_UltraCondensed                      50
+#define QFont_ExtraCondensed                      62
+#define QFont_Condensed                           75
+#define QFont_SemiCondensed                       87
+#define QFont_Unstretched                         100
+#define QFont_SemiExpanded                        112
+#define QFont_Expanded                            125
+#define QFont_ExtraExpanded                       150
+#define QFont_UltraExpanded                       200
+
+// enum #define QFont_Style
+// This enum describes the different styles of glyphs that are used to display text.
+//
+#define QFont_StyleNormal                         0   // Normal glyphs used in unstyled text.
+#define QFont_StyleItalic                         1   // Italic glyphs that are specifically designed for the purpose of representing italicized text.
+#define QFont_StyleOblique                        2   // Glyphs with an italic appearance that are typically based on the unstyled glyphs, but are not fine-tuned for the purpose of representing italicized text.
+
+// enum #define QFont_StyleHint
+// Style hints are used by the font matching algorithm to find an appropriate default family if a selected font family is not available.
+//
+#define QFont_AnyStyle                            ?                  // leaves the font matching algorithm to choose the family. This is the default.
+#define QFont_SansSerif                           QFont_Helvetica    // the font matcher prefer sans serif fonts.
+#define QFont_Helvetica                           0                  // is a synonym for SansSerif.
+#define QFont_Serif                               QFont_Times        // the font matcher prefers serif fonts.
+#define QFont_Times                               ?                  // is a synonym for Serif.
+#define QFont_TypeWriter                          QFont_Courier      // the font matcher prefers fixed pitch fonts.
+#define QFont_Courier                             ?                  // a synonym for TypeWriter.
+#define QFont_OldEnglish                          ?                  // the font matcher prefers decorative fonts.
+#define QFont_Decorative                          QFont_OldEnglish   // is a synonym for OldEnglish.
+#define QFont_System                              ?                  // the font matcher prefers system fonts.
+
+// enum #define QFont_StyleStrategy
+// The style strategy tells the font matching algorithm what type of fonts should be used to find an appropriate default family.
+//
+#define QFont_PreferDefault                       0x0001   // the default style strategy. It does not prefer any type of font.
+#define QFont_PreferBitmap                        0x0002   // prefers bitmap fonts (as opposed to outline fonts).
+#define QFont_PreferDevice                        0x0004   // prefers device fonts.
+#define QFont_PreferOutline                       0x0008   // prefers outline fonts (as opposed to bitmap fonts).
+#define QFont_ForceOutline                        0x0010   // forces the use of outline fonts.
+#define QFont_NoAntialias                         0x0100   // don't antialias the fonts.
+#define QFont_PreferAntialias                     0x0080   // antialias if possible.
+#define QFont_OpenGLCompatible                    0x0200   // forces the use of OpenGL compatible fonts.
+#define QFont_NoFontMerging                       0x8000   // If a font does not contain a character requested to draw then Qt automatically chooses a similar looking for that contains the character. This flag disables this feature.
+
+// Any of these may be OR-ed with one of these flags:
+//
+#define QFont_PreferMatch                         0x0020   // prefer an exact match. The font matcher will try to use the exact font size that has been specified.
+#define QFont_PreferQuality                       0x0040   // prefer the best quality font. The font matcher will use the nearest standard point size that the font supports.
+
+#define QFont_Light                               25
+#define QFont_Normal                              50
+#define QFont_DemiBold                            63
+#define QFont_Bold                                75
+#define QFont_Black                               87
+
+
+#define QFileDialog_AcceptOpen                           0
+#define QFileDialog_AcceptSave                           1
+
+// enum #define QFileDialog_DialogLabel
+//
+#define QFileDialog_LookIn                               0
+#define QFileDialog_FileName                             1
+#define QFileDialog_FileType                             2
+#define QFileDialog_Accept                               3
+#define QFileDialog_Reject                               4
+
+// enum #define QFileDialog_FileMode
+// This enum is used to indicate what the user may select in the file dialog;
+// i.e. what the dialog will return if the user clicks OK.
+//
+#define QFileDialog_AnyFile                              0   // The name of a file, whether it exists or not.
+#define QFileDialog_ExistingFile                         1   // The name of a single existing file.
+#define QFileDialog_Directory                            2   // The name of a directory. Both files and directories are displayed.
+#define QFileDialog_ExistingFiles                        3   // The names of zero or more existing files.
+
+// The Options type is a typedef for QFlags<Option>. It stores an OR combination of Option values.
+//
+#define QFileDialog_ShowDirsOnly                         0x00000001   // Only show directories in the file dialog. By default both files and directories are shown. (Valid only in the Directory file mode.)
+#define QFileDialog_DontResolveSymlinks                  0x00000002   // Don't resolve symlinks in the file dialog. By default symlinks are resolved.
+#define QFileDialog_DontConfirmOverwrite                 0x00000004   // Don't ask for confirmation if an existing file is selected. By default confirmation is requested.
+#define QFileDialog_DontUseNativeDialog                  0x00000010   // Don't use the native file dialog. By default on Mac OS X and Windows, the native file dialog is used.
+#define QFileDialog_ReadOnly                             0x00000020   // Indicates that the model is readonly.
+#define QFileDialog_HideNameFilterDetails                0x00000040   // Indicates if the is hidden or not.
+
+//enum QFileDialog::ViewMode
+//This enum describes the view mode of the file dialog; i.e. what information about each file will be displayed.
+//
+#define QFileDialog_Detail                               0   // Displays an icon, a name, and details for each item in the directory.
+#define QFileDialog_List                                 1   // Displays only an icon and a name for each item in the directory.
+
+#define QDialog_Accepted                                 1
+#define QDialog_Rejected                                 0
+
+
 /*----------------------------------------------------------------------*/
 
 #define _HBQT_CH
diff --git a/harbour/contrib/hbqt/qth/QBitmap.qth b/harbour/contrib/hbqt/qth/QBitmap.qth
index 5e22032089..dd011059cd 100644
--- a/harbour/contrib/hbqt/qth/QBitmap.qth
+++ b/harbour/contrib/hbqt/qth/QBitmap.qth
@@ -56,10 +56,19 @@
 
 <CLASS>
 Inherits = QPixmap
-Type     = Core
+Type     = PlainObject
 New      = 
 </CLASS>
 
+<DOC>
+oBitmap := QBitmap():new()
+oBitmap := QBitmap():new( pBitmap_other )
+oBitmap := QBitmap():new( nWidth, nHeight )
+oBitmap := QBitmap():new( "QPixmap", pQPixmap )
+oBitmap := QBitmap():new( "QSize"  , pQSize )
+oBitmap := QBitmap():new( cImageFilename, [ cFormat ] )
+</DOC>
+
 <CODE>
 #include <QtGui/QBitmap>
 
@@ -74,7 +83,41 @@ New      =
  */
 HB_FUNC( QT_QBITMAP )
 {
-   hb_retptr( ( QBitmap* ) new QBitmap() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap( *hbqt_par_QBitmap( 1 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISCHAR( 1 ) )
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap( hbqt_par_QString( 1 ), ( const char * ) 0 ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISCHAR( 1 ) && HB_ISCHAR( 2 ) )
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap( hbqt_par_QString( 1 ), hb_parc( 2 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap( hb_parni( 1 ), hb_parni( 2 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISCHAR( 1 ) && HB_ISPOINTER( 2 ) )   
+   {
+      if(      ( QString ) "QPixmap" == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QBitmap* ) new QBitmap( *hbqt_par_QPixmap( 1 ) ) );
+      }
+      else if( ( QString ) "QSize"   == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QBitmap* ) new QBitmap( *hbqt_par_QSize( 1 ) ) );
+      }
+      else
+      {
+         hb_retptr( ( QBitmap* ) new QBitmap() );
+      }
+   }   
+   else
+   {
+      hb_retptr( ( QBitmap* ) new QBitmap() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QBrush.qth b/harbour/contrib/hbqt/qth/QBrush.qth
index 3848022c0d..9d1a0b5896 100644
--- a/harbour/contrib/hbqt/qth/QBrush.qth
+++ b/harbour/contrib/hbqt/qth/QBrush.qth
@@ -62,19 +62,16 @@ New      =
 
 <DOC>
 oBrush := QBrush():new()
-oBrush := QBrush():new( pQPixmap )
+oBrush := QBrush():new( pQBrush )
 oBrush := QBrush():new( nQt_GlobalColor )
-oBrush := QBrush():new( nQt_GlobalColor, nQt_BrushStyle )  // i.e. Qt_SolidPattern 
-oBrush := QBrush():new( pQColor, nQt_BrushStyle )          // i.e. Qt_SolidPattern 
+oBrush := QBrush():new( nQt_GlobalColor, nQt_BrushStyle ) 
+oBrush := QBrush():new( pQColor, nQt_BrushStyle )         
 oBrush := QBrush():new( pQColor, pQPixmap )
 oBrush := QBrush():new( nQt_GlobalColor, pQPixmap )
-
-/* TODO
- * oBrush := QBrush():new( pQImage )
- * oBrush := QBrush():new( pQBrush )
- * oBrush := QBrush():new( pQGradient )
- * oBrush := QBrush():new( pQColor )
- */
+oBrush := QBrush():new( "QPixmap"  , pQPixmap )
+oBrush := QBrush():new( "QImage"   , pQImage )
+oBrush := QBrush():new( "QGradient", pQGradient )
+oBrush := QBrush():new( "QColor"   , pQColor, [ nQt_BrushStyle = Qt_SolidPattern ] )
 </DOC>
 
 <CODE>
@@ -98,36 +95,7 @@ HB_FUNC( QT_QBRUSH )
 {
    if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
    {
-      hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QPixmap( 1 ) ) );
-
-      #if 0       /* ToDO */
-      QString objName = hbqt_par_QObject( 1 )->objectName();
-
-      if( objName == ( QString ) "QPixmap" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QPixmap( 1 ) ) );
-      }
-      else if( objName == ( QString ) "QImage" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QImage( 1 ) ) );
-      }
-      else if( objName == ( QString ) "QBrush" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QBrush( 1 ) ) );
-      }
-      else if( objName == ( QString ) "QGradient" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QGradient( 1 ) ) );
-      }
-      else if( objName == ( QString ) "QColor" )
-      {
-         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QColor( 1 ), Qt::SolidPattern ) );
-      }
-      else
-      {
-         hb_retptr( ( QBrush* ) new QBrush() );
-      }
-      #endif
+      hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QBrush( 1 ) ) );
    }
    else if( hb_pcount() == 1 && HB_ISNUM( 1 ) )
    {
@@ -149,6 +117,32 @@ HB_FUNC( QT_QBRUSH )
    {
       hb_retptr( ( QBrush* ) new QBrush( ( Qt::GlobalColor ) hb_parni( 1 ), *hbqt_par_QPixmap( 2 ) ) );
    }
+   else if( hb_pcount() >= 2 && HB_ISCHAR( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      QString objName = hbqt_par_QString( 1 );
+
+      if(      objName == ( QString ) "QPixmap" )
+      {
+         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QPixmap( 1 ) ) );
+      }
+      else if( objName == ( QString ) "QImage" )
+      {
+         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QImage( 1 ) ) );
+      }
+      else if( objName == ( QString ) "QGradient" )
+      {
+         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QGradient( 1 ) ) );
+      }
+      else if( objName == ( QString ) "QColor" )
+      {
+         hb_retptr( ( QBrush* ) new QBrush( *hbqt_par_QColor( 1 ), 
+                                            HB_ISNUM( 3 ) ? ( Qt::BrushStyle ) hb_parni( 3 ) : Qt::SolidPattern ) );
+      }
+      else
+      {
+         hb_retptr( ( QBrush* ) new QBrush() );
+      }
+   }
    else
    {
       hb_retptr( ( QBrush* ) new QBrush() );
diff --git a/harbour/contrib/hbqt/qth/QCursor.qth b/harbour/contrib/hbqt/qth/QCursor.qth
index d006a50d94..35ddcf5f35 100644
--- a/harbour/contrib/hbqt/qth/QCursor.qth
+++ b/harbour/contrib/hbqt/qth/QCursor.qth
@@ -62,21 +62,16 @@ New      =
 
 <DOC>
 oCursor := QCursor():new()
+oCursor := QCursor():new( pQCursor )
 oCursor := QCursor():new( nQt_CursorShape )
-oCursor := QCursor():new( pQPixmap )
+oCursor := QCursor():new( "QPixmap", pQPixmap, [ nHotX = -1 ] , [ nHotY = -1 ] )
 oCursor := QCursor():new( pQBitmap, pQBitmapAsMask, [ nHotX = -1 ], [ nHotY = -1 ] )
-oCursor := QCursor():new( pQPixmap, nHotX, [ nHotY = -1 ] )
-
-/* TODO
- * oCursor := QCursor():new( pQCursor )
- */
 </DOC>
 
 <CODE>
 #include <qpixmap.h>
 #include <QtGui/QCursor>
 
-
 /*
  * QCursor ()
  * QCursor ( Qt::CursorShape shape )
@@ -95,24 +90,22 @@ HB_FUNC( QT_QCURSOR )
    }
    else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
    {
-      hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QPixmap( 1 ), -1, -1 ) );
-
-      #if 0    /* TODO */
-      QString objName = hbqt_par_QObject( 1 )->objectName();
+      hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QCursor( 1 ) ) );
+   }
+   else if( hb_pcount() >= 2 && HB_ISCHAR( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      QString objName = hbqt_par_QString( 1 );
 
       if( objName == ( QString ) "QPixmap" )
       {
-         hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QPixmap( 1 ), -1, -1 ) );
-      }
-      else if( objName == ( QString ) "QCursor" ) 
-      {
-         hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QCursor( 1 ) ) );
+         hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QPixmap( 2 ), 
+                                              HB_ISNUM( 3 ) ? hb_parni( 3 ) : -1,
+                                              HB_ISNUM( 4 ) ? hb_parni( 4 ) : -1 ) );
       }
       else
       {
          hb_retptr( ( QCursor* ) new QCursor() );
       }
-      #endif 
    }
    else if( hb_pcount() >= 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
    {
@@ -120,11 +113,6 @@ HB_FUNC( QT_QCURSOR )
                                            HB_ISNUM( 3 ) ? hb_parni( 3 ) : -1,
                                            HB_ISNUM( 4 ) ? hb_parni( 4 ) : -1 ) );
    }
-   else if( hb_pcount() >= 2 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
-   {
-      hb_retptr( ( QCursor* ) new QCursor( *hbqt_par_QPixmap( 1 ), hb_parni( 2 ),
-                                           HB_ISNUM( 3 ) ? hb_parni( 3 ) : -1 ) );   
-   }
    else
    {
       hb_retptr( ( QCursor* ) new QCursor() );
diff --git a/harbour/contrib/hbqt/qth/QImage.qth b/harbour/contrib/hbqt/qth/QImage.qth
index 6de0a0af0c..94fc5864da 100644
--- a/harbour/contrib/hbqt/qth/QImage.qth
+++ b/harbour/contrib/hbqt/qth/QImage.qth
@@ -1,3 +1,1136 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Project source code:
+ *
+ * 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 "common.ch"
+#include "xbp.ch"
+#include "appevent.ch"
+#include "inkey.ch"
+#include "gra.ch"
+
+#ifdef __XPP__
+#pragma library("XppUi2")
+#endif
+
+/*----------------------------------------------------------------------*/
+
+#define TAB_1   1
+#define TAB_2   2
+#define TAB_3   3
+#define TAB_4   4
+#define TAB_5   5
+
+STATIC oMLE         /* Change Font elsewhere */
+
+/*----------------------------------------------------------------------*/
+
+PROCEDURE Main()
+
+   BuildADialog()
+
+   RETURN
+
+/*----------------------------------------------------------------------*/
+
+PROCEDURE BuildADialog()
+   LOCAL oDlg, mp1, mp2, oXbp, nEvent, aSize, aTabs, oDa
+   LOCAL nThread := ThreadID()
+   LOCAL cThread := hb_ntos( nThread )
+   LOCAL aPP, oHtm
+
+   /* Create Application Window */
+   oDlg := GuiStdDialog( "Harbour - Xbase++ - QT Dialog  [ "+ hb_ntos( nThread )+" ]" )
+
+   oDlg:close := {|| MsgBox( "You can also close me by pressing [ESC]" ), .T. }
+   // oDlg:killDisplayFocus := {|| hb_OutDebug( "Loosing Display Focus" ) }
+   SetAppWindow( oDlg )
+
+   oDa := oDlg:drawingArea
+
+   /* Obtain desktop dimensions */
+   aSize := AppDesktop():currentSize()
+   /* Place on the center of desktop */
+   oDlg:setPos( { ( aSize[ 1 ] - oDlg:currentSize()[ 1 ] ) / 2, ;
+                  ( aSize[ 2 ] - oDlg:currentSize()[ 2 ] ) / 2 } )
+
+   /* Callback to report the mouse moves */
+   // oDa:motion := {|| hb_outDebug( "MouseMove: "+cThread ) }
+
+   /* Make background color of :drawingArea different */
+   oDa:setColorBG( GraMakeRGBColor( { 134,128,200 } ) )
+   oDa:setFontCompoundName( "10.Tohama italics" )
+   //oDa:setColorFG( GraMakeRGBColor( { 255,255,255 } ) )
+
+   /* Install menu system */
+   Build_MenuBar( oDlg )
+
+   /* Install Statusbar */
+   Build_StatusBar( oDa )
+
+   /* Install Toolbar */
+   Build_ToolBar( oDa )
+
+   /* Install Tab Pages */
+   aTabs := Build_TabPages( oDa )
+
+   /* Install checkboxes */
+   Build_CheckBox( aTabs[ TAB_3 ] )
+
+   /* Install 3state checkboxes */
+   Build_3State( aTabs[ TAB_3 ] )
+
+   /* Install Radio Buttons */
+   Build_RadioButton( aTabs[ TAB_3 ] )
+
+   /* Install ListBox */
+   Build_ListBox( aTabs[ TAB_5 ] )
+
+   /* Install Push Buttons */
+   Build_PushButton( oDa )
+
+   /* Install Single Line Edits */
+   Build_SLEs( oDa )
+
+   /* Install Multi-Line Edit */
+   oMLE := Build_MLE( aTabs[ 2 ] )
+
+   /* Install ScrollBar */
+   Build_ScrollBar( aTabs[ 5 ] )
+
+   /* Install Spin Buttons */
+   Build_SpinButtons( aTabs[ TAB_3 ] )
+
+   /* Install Combo Box */
+   Build_ComboBox( oDa )
+
+   /* Install TreeView */
+   Build_TreeView( aTabs[ TAB_4 ] )
+
+   /* Build Statics */
+   Build_Statics( oDA )
+
+   /* Build HTML Viewer */
+   oHtm := Build_HTMLViewer( aTabs[ TAB_1 ] )
+
+
+
+   /* Present the dialog on the screen */
+   oDlg:Show()
+
+   /* Enter Xbase++ Event Loop - working */
+   DO WHILE .t.
+      nEvent := AppEvent( @mp1, @mp2, @oXbp )
+      IF ( nEvent == xbeP_Close ) .OR. ( nEvent == xbeP_Keyboard .and. mp1 == xbeK_ESC )
+hb_outDebug( "      WOW      " )
+         EXIT
+      ELSEIF nEvent == xbeP_Keyboard .and. mp1 == xbeK_F1
+         oHtm:setHTML( '<html><h1>Direct HTML Injection</h1><p><font color="#ab00ff" size="16">'+;
+                       'This HTML content</font> is pushed dynamically with<br><br>:setHTML()</br></br>.</html>' )
+      ENDIF
+      oXbp:handleEvent( nEvent, mp1, mp2 )
+   ENDDO
+
+   /* Very important - destroy resources */
+   oDlg:destroy()
+
+hb_outDebug( "------WOW------" )
+   RETURN
+
+/*----------------------------------------------------------------------*/
+
+PROCEDURE AppSys()
+   RETURN
+
+/*----------------------------------------------------------------------*/
+
+#ifdef __XPP__
+FUNCTION Hb_OutDebug( cStr ) ; RETURN nil
+FUNCTION Hb_Symbol_Unused()  ; RETURN nil
+FUNCTION Hb_NtoS( n )        ; RETURN ltrim( str( n ) )
+FUNCTION Hb_ThreadStart()    ; RETURN nil
+FUNCTION hb_DirBase()        ; RETURN CurDir()
+#endif
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION PP_Debug( oXbp )
+   LOCAL aPP := oXbp:setPresParam()
+   LOCAL s := ''
+
+   aeval( aPP, {|e_| s += ( hb_ntos( e_[ 1 ] ) +' '+ valtype( e_[ 2 ] ) +' '+ ;
+        IF( valtype( e_[ 2 ] )=='N', hb_ntos( e_[ 2 ] ), ' ' ) + ';  '+ chr( 13 )+chr( 10 ) ) } )
+
+   #ifdef __XPP__
+   MsgBox( s )
+   #else
+   hb_outDebug( s )
+   #endif
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION GuiStdDialog( cTitle )
+   LOCAL oDlg
+
+   DEFAULT cTitle TO "Standard Dialog Window"
+
+   oDlg          := XbpDialog():new( , , {10,10}, {900,500}, , .f. )
+
+   /* NOTE: method to install the windows icon is bit different than Windows */
+   /* So curretly we can only place disk icon file only */
+   oDlg:icon     :=  "test"
+
+   /* TODO: still not implemented*/
+   oDlg:taskList := .T.
+
+   oDlg:title    := cTitle
+   oDlg:create()
+
+   RETURN oDlg
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION Build_MenuBar( oDlg )
+   LOCAL oMenuBar, oSubMenu
+
+   //oMenuBar := XbpMenuBar():new( oDlg ):create()
+   oMenuBar := SetAppWindow():MenuBar()
+
+   /* Define submenu in procedural style.
+    * The numeric index of the selected menu item
+    * is passed to the Callback code block -> mp1
+    */
+   oSubMenu := XbpMenu():new( oMenuBar ):create()
+   //
+   oSubMenu:title := "~Procedural"
+   oSubMenu:addItem( { "Play Charge ~1",   } )
+   oSubMenu:addItem( { "Play Nannyboo ~2", } )
+   oSubMenu:itemSelected := {|mp1| MyFunctionXbp( 100+mp1 ) }
+   //
+   oMenuBar:addItem( { oSubMenu, NIL } )
+   //
+   oSubMenu:disableItem( 2 )
+
+   /* Define submenu in the functional style:
+    * A menu item executes a code block that calls a function
+    */
+   oSubMenu := XbpMenu():new( oMenuBar ):create()
+   oSubMenu:title := "~Functional"
+   oSubMenu:addItem( { "Play Opening ~1"+chr(K_TAB)+"Ctrl+U", {|| MyFunctionXbp( 1 ) } } )
+   oSubMenu:addItem( { "Play Closing ~2"                    , {|| MyFunctionXbp( 2 ) } } )
+   oSubMenu:addItem( { NIL, NIL, XBPMENUBAR_MIS_SEPARATOR, NIL } )
+   oSubMenu:addItem( { "new.png|~MessageBox"                , {|| MyFunctionXbp( 3 ) }  , , XBPMENUBAR_MIA_HILITED } )
+   oMenuBar:addItem( { oSubMenu, NIL } )
+   //
+   oSubMenu:insItem( 2, { "This executes MsgBox()"          , {|| MyFunctionXbp( 103 ) }, , XBPMENUBAR_MIA_CHECKED } )
+   oSubMenu:itemMarked := {|mp1| IF( mp1 == 5, MsgBox( "WOW - ::itemMarked - Activated" ), NIL ) }
+
+   /* Menu colors are being honored in Harbour only */
+   oSubMenu:setColorBG( GraMakeRGBColor( { 134,128,250 } ) )
+   oSubMenu:setColorFG( GraMakeRGBColor( { 255,  1,  1 } ) )
+
+   #ifdef __HARBOUR__
+   #if 0
+      oSubMenu := XbpMenu():new( oMenuBar ):create()
+      oSubMenu:title := "~Dialogs"
+      #if 1             /*  T H R E D E D   D I A L O G */
+         oSubMenu:addItem( { "~One More Instance"+ chr( K_TAB ) +"Ctrl+M", ;
+                                    {|| hb_threadStart( {|| BuildADialog() } ) } } )
+      #else
+         oSubMenu:addItem( { "~One More Instance"+ chr( K_TAB )+ "Ctrl+M", {|| BuildADialog() } } )
+      #endif
+   #endif
+   #endif
+   oMenuBar:addItem( { oSubMenu, NIL } )
+
+   oSubMenu := XbpMenu():new( oMenuBar ):create()
+   oSubMenu:title := "~Miscellaneous"
+   oSubMenu:addItem( { "Convert Images - XbpBitmap()", {|| Build_Bitmap( oDlg ) } } )
+   oMenuBar:addItem( { oSubMenu, NIL } )
+
+   Return nil
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION MyFunctionXbp( nMode )
+
+   DO CASE
+   CASE nMode == 1
+      MsgBox( "Play Opening" + STR( GraMakeRGBColor( { 134,128,164 } ) ) )
+
+   CASE nMode == 2
+      MsgBox( "Play Closing ~2" )
+
+   CASE nMode == 3
+      MsgBox( "new.png|~MessageBox" )
+
+   CASE nMode == 101
+      MsgBox( "101 - Play Charge" )
+
+   CASE nMode == 102
+      MsgBox( "102 - Play Nanyboo" )
+
+   CASE nMode == 103
+      MsgBox( "This executes MsgBox()" )
+
+   ENDCASE
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_ToolBar( oDA )
+   LOCAL oTBar
+
+   // Create an XbpToolBar object and
+   // add it at the top of the dialog
+   //
+   oTBar := XbpToolBar():new( oDA )
+   oTBar:create( , , { 0, oDA:currentSize()[ 2 ]-60 }, ;
+                     { oDA:currentSize()[ 1 ], 60 } )
+   //
+   // Add two tool bar buttons, each with a
+   // caption and an image. Constrict the
+   // button image sizes to 32 pixels and
+   // ensure transparency is turned off.
+   //
+   oTBar:imageWidth  := 32
+   oTBar:imageHeight := 32
+
+   /* Harbour does not support resource IDs so giving bitmap files */
+   #ifdef __HARBOUR__
+      oTBar:addItem( "Save"       , "new.png" , , , , , "1" )
+      oTBar:addItem( "Open"       , "open.png", , , , , "2" )
+      oTBar:addItem( "Font Dialog", "copy.png", , , , , "3" )
+
+   #else
+      oTBar:addItem( "Save"        )//, 100 )
+      oTBar:addItem( "Open"        )//, 101 )
+      oTBar:addItem( "Font Dialog" )
+   #endif
+
+   oTBar:transparentColor := GRA_CLR_INVALID
+   oTBar:buttonClick := {|oButton| ExeToolbar( oButton, oDa ) }
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION ExeToolbar( oButton, oDa )
+
+   DO CASE
+   CASE oButton:caption == "Save"
+      Build_FileDialog( oDA,"save" )
+   CASE oButton:caption == "Open"
+      Build_FileDialog( oDA,"open" )
+   CASE oButton:caption == "Font Dialog"
+      Build_FontDialog( oDa )
+   ENDCASE
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_PushButton( oDA )
+   LOCAL oXbp
+
+    oXbp := XbpPushButton():new( oDA )
+    oXbp:caption := "A"
+    oXbp:create( , , {30,370}, {90,40} )
+    oXbp:activate:= {|| MsgBox( "Pushbutton A" ) }
+    /* Harbour supports presentation colors */
+    //oXbp:setColorBG( GraMakeRGBColor( {133,240,90} ) )
+    oXbp:setColorBG( GraMakeRGBColor( {0,0,255} ) )
+
+    oXbp := XbpPushButton():new( oDA )
+    oXbp:caption := "new.png"
+    oXbp:create( , , {140,370}, {90,40} )
+    oXbp:activate:= {|| MsgBox( "Pushbutton B" ) }
+    /* Harbour supports presentation colors */
+    oXbp:setColorBG( GraMakeRGBColor( {255,255,0} ) )
+
+    RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_CheckBox( oWnd )
+   LOCAL oXbp
+
+   oXbp := XbpCheckbox():new()
+   oXbp:caption := "A"
+   oXbp:create( oWnd, , {30,30}, {100,30} )
+
+   // Determine state using mp1
+   oXbp:selected := ;
+      {| mp1, mp2, oChk| MsgBox( "Checkbox A", ;
+                       IIf( mp1, "selected" , ;
+                                 "not selected" ) ) }
+
+   // Create second checkbox, specify position using :new()
+   oXbp := XbpCheckbox():new( oWnd, , {30,70}, {100,30} )
+   oXbp:caption := "B"
+   oXbp:create()
+
+   // Determine state using :getData()
+   oXbp:selected := ;
+      {| mp1, mp2, oChk| MsgBox( "Checkbox B", ;
+            IIf( oChk:getData(), "selected", ;
+                                 "not selected" ) ) }
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_3State( oWnd )
+   LOCAL oXbp
+   LOCAL aState := { "not selected", "selected", "undefined" }
+
+   // Create first 3State button, passing the position to :create()
+   //
+   oXbp := Xbp3State():new()
+   oXbp:caption := "3State A"
+   oXbp:create( oWnd, , {130,30}, {100,30} )
+   // Determine current state using mp1
+   oXbp:selected := {| mp1, mp2, oBtn| MsgBox( "3State A", aState[ mp1+1 ] ) }
+
+   // Create second 3State Button, passing the position to :new()
+   //
+   oXbp := Xbp3State():new( oWnd, , {130,70}, {100,30} )
+   oXbp:caption := "3State B"
+   oXbp:create()
+   // Determine current state using :getData()
+   oXbp:selected := {| mp1, mp2, oBtn|  MsgBox( "3State B", aState[ oBtn:getData()+1 ] ) }
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_RadioButton( oStatic )
+   LOCAL bSelected, oRadio
+
+   // Display which radiobutton is selected
+   bSelected := {|mp1,mp2,obj| MsgBox( obj:caption ) }
+
+   // Create four radiobuttons
+   oRadio := XbpRadioButton():new( oStatic,, {30,110}, {80,30} )
+   oRadio:caption   := "COM 1"
+   oRadio:selection :=.T.
+   oRadio:selected  := bSelected
+   oRadio:create()
+
+   oRadio := XbpRadioButton():new( oStatic,, {30,150}, {80,30} )
+   oRadio:caption   := "COM 2"
+   oRadio:selected  := bSelected
+   oRadio:create()
+
+   oRadio := XbpRadioButton():new( oStatic,, {30,190}, {80,30} )
+   oRadio:caption   := "COM 3"
+   oRadio:selected  := bSelected
+   oRadio:create()
+
+   oRadio := XbpRadioButton():new( oStatic,, {30,230}, {80,30} )
+   oRadio:caption   := "COM 4"
+   oRadio:selected  := bSelected
+   oRadio:create()
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_TabPages( oWnd )
+   LOCAL nHeight := 390
+   LOCAL aTabs   := { NIL,NIL,NIL,NIL,NIL }
+
+   aTabs[ TAB_1 ] := XbpTabPage():new( oWnd, , { 510, 20 }, { 360, nHeight } )
+   aTabs[ TAB_1 ]:caption    := "Web"
+   aTabs[ TAB_1 ]:preOffset  := 20
+   aTabs[ TAB_1 ]:postOffset := 60
+   aTabs[ TAB_1 ]:minimized  := .F.
+   aTabs[ TAB_1 ]:create()
+   aTabs[ TAB_1 ]:TabActivate := SetMaximized( aTabs, 1 )
+
+   aTabs[ TAB_2 ] := XbpTabPage():new( oWnd, , { 510, 20 }, { 360, nHeight } )
+   aTabs[ TAB_2 ]:caption    := "MLE"
+   aTabs[ TAB_2 ]:preOffset  := 40
+   aTabs[ TAB_2 ]:postOffset := 60
+   aTabs[ TAB_2 ]:create()
+   aTabs[ TAB_2 ]:TabActivate := SetMaximized( aTabs, 1 )
+
+   aTabs[ TAB_3 ] := XbpTabPage():new( oWnd, , { 510, 20 }, { 360, nHeight } )
+   aTabs[ TAB_3 ]:caption    := "Buttons"
+   aTabs[ TAB_3 ]:preOffset  := 60
+   aTabs[ TAB_3 ]:postOffset := 40
+   aTabs[ TAB_3 ]:create()
+   aTabs[ TAB_3 ]:TabActivate := SetMaximized( aTabs, 3 )
+
+   aTabs[ TAB_4 ] := XbpTabPage():new( oWnd, , { 510, 20 }, { 360, nHeight } )
+   aTabs[ TAB_4 ]:caption    := "Tree"
+   aTabs[ TAB_4 ]:preOffset  := 80
+   aTabs[ TAB_4 ]:postOffset := 20
+   aTabs[ TAB_4 ]:create()
+   aTabs[ TAB_4 ]:TabActivate := SetMaximized( aTabs, 4 )
+   aTabs[ TAB_4 ]:setColorBG( GraMakeRGBColor( {198,198,198} ) )
+
+   aTabs[ TAB_5 ] := XbpTabPage():new( oWnd, , { 510, 20 }, { 360, nHeight } )
+   aTabs[ TAB_5 ]:minimized := .F.
+   aTabs[ TAB_5 ]:caption   := "Lists"
+   aTabs[ TAB_4 ]:preOffset  := 100
+   aTabs[ TAB_4 ]:postOffset := 20
+   aTabs[ TAB_5 ]:create()
+   aTabs[ TAB_5 ]:TabActivate := SetMaximized( aTabs, 5 )
+   aTabs[ TAB_5 ]:setPointer( , XBPSTATIC_SYSICON_SIZENESW, XBPWINDOW_POINTERTYPE_SYSPOINTER )
+   /* comment our following line to position tabs at the bottom */
+   /* aTabs[ TAB_5 ]:type := XBPTABPAGE_TAB_BOTTOM */
+
+   RETURN aTabs
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION SetMaximized( aTabs, nMax )
+   RETURN {|| aeval( aTabs, {|o,i| IF( i == nMax, o:maximize(), o:minimize() ) } ) }
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_ListBox( oWnd )
+   LOCAL oListBox, aItems
+
+   aItems := { "India", "United States", "England", "Japan", "Hungary", "Argentina", "China" }
+
+   // Create list box that allows multiple selections
+
+   oListBox := XbpListBox():new()
+   //oListBox:markMode := XBPLISTBOX_MM_MULTIPLE
+   oListBox:create( oWnd, , {10,10}, {150,200} )
+
+   // Copy field names from the DbStruct() array to the list box
+   aeval( aItems, {|e| oListBox:addItem( e ) } )
+
+   // Code block for list box selection:
+   oListBox:ItemSelected := {|mp1, mp2, obj| mp1:=oListBox:getData(), ;
+                              mp2:=oListBox:getItem( mp1 ), MsgBox( "itemSelected: "+mp2 ) }
+   oListBox:setColorFG( GraMakeRGBColor( {227,12,110} ) )
+   oListBox:setColorBG( GraMakeRGBColor( {50,45,170} ) )
+
+   oListBox:setPointer( , XBPSTATIC_SYSICON_MOVE, XBPWINDOW_POINTERTYPE_SYSPOINTER )
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_StatusBar( oWnd )
+   LOCAL oSBar, oPanel
+
+   oSBar := XbpStatusBar():new( oWnd )
+   oSBar:create( oWnd, , { 0,0 }, { oWnd:currentSize()[1],30 } )
+
+   oPanel := oSBar:getItem( 1 )
+   oPanel:caption  := "Harbour-QT-Xbase++ is Ready"
+   oPanel:autosize := XBPSTATUSBAR_AUTOSIZE_SPRING
+
+   #ifdef __XPP__
+   oSBar:setPointer( , XBPSTATIC_SYSICON_SIZEWE, XBPWINDOW_POINTERTYPE_SYSPOINTER )
+   #else
+   oSBar:setPointer( , 'vr.png', XBPWINDOW_POINTERTYPE_ICON )
+   #endif
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_ScrollBar( oWnd )
+   LOCAL oXbpH, oXbpV
+   LOCAL aSize   := oWnd:currentSize()
+   LOCAL nWidth  := aSize[ 1 ]
+   LOCAL nHeight := aSize[ 2 ]
+   LOCAL nFat    := 20
+
+   oXbpH := XbpScrollbar():new()
+   oXbpH:type  := XBPSCROLL_HORIZONTAL
+   oXbpH:range := { 1, 100 }           //50
+   oXbpH:create( oWnd, , { 10,nHeight-50 }, { nWidth-40,nFat } )
+   oXbpH:scroll := {|| oXbpV:setData( oXbpH:getData() ) }
+
+   oXbpV := XbpScrollbar():new()
+   oXbpV:type  := XBPSCROLL_VERTICAL
+   oXbpV:range := { 1, 100 }
+   oXbpV:create( oWnd, , { nWidth-30,10 }, { nFat,nHeight-60 } )
+   oXbpV:scroll := {|| oXbpH:setData( oXbpV:getData() ) }
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_SLEs( oWnd )
+   LOCAL oXbp
+   LOCAL cVarA := "Test A", cVarB := "Test B"
+
+   // Create second SLE, specify position using :new()
+   oXbp              := XbpSLE():new( oWnd, , {30,320}, {90,30} )
+   oXbp:tabStop      := .T.
+   oXbp:bufferLength := 15
+   oXbp:dataLink     := {|x| IIf( x==NIL, cVarA, cVarA := x ) }
+   oXbp:create()
+   oXbp:setData()
+   //oXbp:setInputFocus  := { |x,y,oSLE| oSLE:getData(), Qt_QDebug( "Var A =" + cVarA ) }
+   //oXbp:setInputFocus  := { |x,y,oSLE| oSLE:getData() }
+
+   oXbp:setColorBG( GraMakeRGBColor( { 170,170,170 } ) )
+
+   oXbp              := XbpSLE():new()
+   oXbp:autoTab      := .T.
+   oXbp:bufferLength := 20
+   // Data code block containing assignment to LOCAL variable
+   oXbp:dataLink     := {|x| IIf( x==NIL, cVarB, cVarB := x ) }
+   oXbp:create( oWnd, , {140,320}, {90,30} )
+   oXbp:setData()
+   // Assign the value of the edit buffer to a LOCAL variable
+   // when the input focus is lost
+   oXbp:killInputFocus := { |x,y,oSLE| oSLE:getData(), hb_outDebug( "Var B =" + cVarB ) }
+
+   oXbp:setColorBG( GraMakeRGBColor( { 190,190,190 } ) )
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_MLE( oWnd )
+   LOCAL cText := "This is Xbase++ compatible implementation of XbpMLE()"
+
+   // Create MLE, specify position using :create() and
+   // assign data code block accessing LOCAL variable
+   oMLE          := XbpMLE():new()
+   oMLE:wordWrap := .t.
+   oMLE:dataLink := {|x| IIf( x==NIL, cText, cText := x ) }
+   oMLE:create( oWnd, , {10,10}, {oWnd:currentSize()[1]-25,oWnd:currentSize()[2]-45} )
+
+   // Copy text from LOCAL variable into edit buffer
+   // via :dataLink
+   oMLE:setData()
+
+   oMLE:setColorBG( GraMakeRGBColor( { 190,190,0 } ) )
+   oMLE:setColorFG( GraMakeRGBColor( { 0,0,0 } ) )
+   oMLE:setFontCompoundName( "14.Courier bold" )
+
+   RETURN oMLE
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_SpinButtons( oWnd )
+   LOCAL oSpinRed, oSpinGreen, oSpinBlue, bCallBack
+   LOCAL nGreen := 5, nBlue := 12, nRed := 35
+   LOCAL nX := 230, nY := 190
+
+   // Callback code block
+   bCallback := {|mp1, mp2, oXbp| nRed := oXbp:getData(), ;
+                               RGB( nRed, nGreen, nBlue ) }
+
+   // Create spinbutton for red (without using :dataLink)
+   oSpinRed := XbpSpinButton():new( oWnd,, {nX,nY+00}, {100,40} )
+   oSpinRed:align := 2
+   oSpinRed:fastSpin := .T.
+   oSpinRed:create()
+   oSpinRed:setNumLimits( 0, 255 )
+   oSpinRed:endSpin  := bCallback
+   oSpinRed:keyboard := bCallback
+   oSpinRed:setData( 121 )
+
+   // Callback code block
+   bCallback := {|mp1, mp2, oXbp| oXbp:getData(), ;
+                       RGB( nRed, nGreen, nBlue ) }
+
+   // Create spinbutton for green (using :dataLink)
+   oSpinGreen := XbpSpinButton():new( oWnd,, {nX,nY+50}, {100,40} )
+   oSpinGreen:align := 3
+   oSpinGreen:create()
+   oSpinGreen:setNumLimits( 0, 255 )
+   oSpinGreen:dataLink := {|x| IIf( x==NIL, nGreen, nGreen := x ) }
+   oSpinGreen:endSpin  := bCallback
+   oSpinGreen:keyboard := bCallback
+   oSpinGreen:setData()
+
+   // Create spinbutton for blue (using :dataLink)
+   // (Master is oSpinGreen)
+   oSpinBlue := XbpSpinButton():new( oWnd,, {nX,nY+100}, {100,40} )
+   oSpinBlue:master := oSpinGreen
+   oSpinBlue:create()
+   oSpinBlue:setNumLimits( 0, 255 )
+   oSpinBlue:dataLink := {|x| IIf( x==NIL, nBlue, nBlue := x ) }
+   oSpinBlue:endSpin  := bCallback
+   oSpinBlue:keyboard := bCallback
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION RGB( r, g, b )
+
+   HB_SYMBOL_UNUSED( r )
+   HB_SYMBOL_UNUSED( g )
+   HB_SYMBOL_UNUSED( b )
+
+   // Display a static window with flashing color of rgb
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+STATIC FUNCTION Build_ComboBox( oWnd )
+   LOCAL oCombo, i, bAction
+   LOCAL cDay  := "< Monday >"
+   LOCAL aDays := { "Monday" , "Tuesday"  , "Wednesday", "Thursday", ;
+                    "Friday" , "Saturday" , "Sunday" }
+   LOCAL aPNG  := { "copy", "cut", "new", "open", "paste", "save", "new" }
+
+   // Create combo box with drop down list box
+   oCombo      := XbpCombobox():new()
+   oCombo:type := XBPCOMBO_DROPDOWN
+   //oCombo:editable := .f.
+   oCombo:create( oWnd,, {30, 20}, {200, 30} )
+
+   // Link data from entry field to LOCAL variable
+   oCombo:XbpSLE:dataLink := {|x| IIf( x==NIL, cDay, cDay := x ) }
+   oCombo:XbpSLE:setData()
+
+   // Code block for selection:
+   //  - assign to LOCAL variable using :getData()
+   //  - display LOCAL variable using DispoutAt()
+   bAction := {|mp1, mp2, obj| obj:XbpSLE:getData(), hb_outDebug( "Highlighted: "+cDay ) }
+
+   // Assign code block for selection with Up and Down keys
+   oCombo:ItemMarked := bAction
+
+   // Assign code block for selection by left mouse click in list box
+   oCombo:ItemSelected := {|mp1, mp2, obj| obj:XbpSLE:getData(), hb_outDebug( "Selected: "+cDay ) }
+
+   // Copy data from array to combo box, then discard array
+   FOR i := 1 TO 7
+      oCombo:addItem( aDays[ i ] )
+      #ifdef __HARBOUR__
+      /*  the command below is not Xbase++ compatible - will be documented while extended */
+      oCombo:setIcon( i, aPNG[ i ]+".png" )
+      #endif
+   NEXT
+
+   oCombo:XbpSLE:setData()
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_TreeView( oWnd )
+   LOCAL i
+   LOCAL oTree := XbpTreeView():new( oWnd, , {10,10}, {oWnd:currentSize()[1]-25,oWnd:currentSize()[2]-45} )
+
+   oTree:hasLines   := .T.
+   oTree:hasButtons := .T.
+   oTree:create()
+   oTree:itemCollapsed := {|oItem,aRect,oSelf| MsgBox( oItem:caption ) }
+
+   FOR i := 1 TO 5
+      WorkAreaInfo( oTree, i )
+   NEXT
+
+   RETURN nil
+
+   ** Build the tree structure for a work area
+
+PROCEDURE WorkAreaInfo( oTree, iIndex )
+   LOCAL oArea, oStatus, oStruct
+
+   // First level in the tree starts with oTree:rootItem
+   oArea := oTree:rootItem:addItem( "Alias "+hb_ntos( iIndex ) )
+
+   // Second level in the tree begins with a XbpTreeViewItem
+   // Create XbpTreeViewItem explicitly (1st possibility)
+   oStatus         := XbpTreeViewItem():new()
+   oStatus:caption := "STATUS"
+   oStatus:create()
+
+   oArea:addItem( oStatus )
+   #ifdef __HARBOUR__
+   oArea:setImage( "copy.png" )
+   #endif
+
+   // Create XbpTreeViewItem implicitly (2nd possibility)
+   oStruct := oArea:addItem( "STRUCTURE" )
+
+   // Create third level in the tree
+   WAStatus( oStatus, iIndex )
+   WAStruct( oStruct, iIndex )
+
+   RETURN
+
+   ** Third level -> status information
+
+PROCEDURE WAStatus( oItem, iIndex )
+   oItem:addItem( "Bof() = "    + IIf( iIndex%2 == 0, ".T.", ".F." ) )
+   oItem:addItem( "Eof() = "    + IIf( iIndex%3 == 0, ".T.", ".F." ) )
+   oItem:addItem( "Found() = "  + IIf( iIndex%4 == 0, ".T.", ".F." ) )
+   oItem:addItem( "Recno() = "  + Ltrim( Str( iIndex  ) ) )
+   oItem:addItem( "LastRec() =" + Ltrim( Str( iIndex )+'....PPP' ) )
+
+   RETURN
+
+   ** Third level -> field information
+
+PROCEDURE WAStruct( oItem, iIndex )
+   LOCAL aStr := {}
+
+   aadd( aStr, { "Name__"+hb_ntos( iIndex ), 'C', 20, 0 } )
+   aadd( aStr, { "Birth" , 'D',  8, 0 } )
+   aadd( aStr, { "Salary", 'N', 10, 2 } )
+
+   AEval( aStr, ;
+     {|a,i,oSub| oSub := oItem:addItem( "FIELD_NAME = " + a[1] ), FieldStruct( oSub, a ) } )
+
+   RETURN
+
+   ** Create fourth level in the tree
+
+PROCEDURE FieldStruct( oItem, aField )
+
+   oItem:addItem( "FIELD_TYPE = " + aField[2] )
+   oItem:addItem( "FIELD_LEN  = " + Str( aField[3], 3 ) )
+   oItem:addItem( "FIELD_DEC  = " + Str( aField[4], 3 ) )
+
+   RETURN
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_Statics( oWnd )
+   LOCAL oGrp,oLbl, oLin, oBox, oBmp, oBmp1
+   LOCAL nC1 := 10, nC2 := 45, nC3 := 110, nC4 := 175
+   LOCAL nW := 50, nH := 50, nG := 10
+   LOCAL nT := 60
+
+   oGrp := XbpStatic():new( oWnd, , {250,10}, {240,400} )
+   oGrp:type := XBPSTATIC_TYPE_GROUPBOX
+   oGrp:caption := " Harbour-QT-Statics "
+   oGrp:create()
+   oGrp:setColorFG( GraMakeRGBColor( {   0,255,255 } ) )
+   oGrp:setColorBG( GraMakeRGBColor( { 134,128,220 } ) )
+   #ifdef __HARBOUR__
+   oGrp:setPointer( , 'abs3.png', XBPWINDOW_POINTERTYPE_ICON )
+   #endif
+
+   oLbl := XbpStatic():new( oGrp, , {10,20}, {220,30} )
+   oLbl:type    := XBPSTATIC_TYPE_TEXT
+   oLbl:options := XBPSTATIC_TEXT_CENTER + XBPSTATIC_TEXT_VCENTER
+   oLbl:caption := "Harbour-QT"
+   oLbl:create()
+   oLbl:setFontCompoundName( "18.Courier normal" )
+   oLbl:setColorFG( GraMakeRGBColor( { 255,0,0 } ) )
+
+   // OK
+   oLin := XbpStatic():new( oGrp, , {nC2,nT}, {180,10} )
+   oLin:type := XBPSTATIC_TYPE_RAISEDLINE
+   oLin:create()
+   // OK
+   oLin := XbpStatic():new( oGrp, , {nC2,nT+15}, {180,10} )
+   oLin:type := XBPSTATIC_TYPE_RECESSEDLINE
+   oLin:options := XBPSTATIC_FRAMETHICK
+   oLin:create()
+
+   nT := 100
+   // OK
+   oLin := XbpStatic():new( oGrp, , {nC1,nT}, {10,170} )
+   oLin:type := XBPSTATIC_TYPE_RAISEDLINE
+   oLin:options := XBPSTATIC_FRAMETHICK
+   oLin:create()
+   // OK
+   oLin := XbpStatic():new( oGrp, , {nC1+15,nT}, {10,170} )
+   oLin:type := XBPSTATIC_TYPE_RECESSEDLINE
+   oLin:create()
+
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC2,nT}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_RAISEDBOX
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC3,nT}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_RECESSEDBOX
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC2,nT+nH+nG}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_RAISEDRECT
+   oBox:options := XBPSTATIC_FRAMETHICK
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC3,nT+nH+nG}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_RECESSEDRECT
+   oBox:options := XBPSTATIC_FRAMETHICK
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC2,nT+(nH+nG)*2}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_FGNDFRAME
+   oBox:options := XBPSTATIC_FRAMETHICK
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC3,nT+(nH+nG)*2}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_BGNDFRAME
+   oBox:options := XBPSTATIC_FRAMETHICK
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC2,nT+(nH+nG)*3}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_FGNDRECT
+   oBox:options := XBPSTATIC_FRAMETHICK
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC3,nT+(nH+nG)*3}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_BGNDRECT
+   oBox:options := XBPSTATIC_FRAMETHICK
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC2,nT+(nH+nG)*4}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_HALFTONERECT
+   oBox:options := XBPSTATIC_FRAMETHICK
+   oBox:create()
+   // OK
+   oBox := XbpStatic():new( oGrp, , {nC3,nT+(nH+nG)*4}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_HALFTONEFRAME
+   oBox:options := XBPSTATIC_FRAMETHICK
+   oBox:create()
+
+   oBox := XbpStatic():new( oGrp, , {nC4,nT}, {nW,nH+nH+nG} )
+   oBox:type := XBPSTATIC_TYPE_BITMAP
+   oBox:options := XBPSTATIC_BITMAP_SCALED
+   oBmp := XbpBitmap():new():create()
+   oBmp:loadFile( 'paste.png' )
+   oBox:caption := oBmp
+   oBox:create()
+   oBox:setColorBG( GraMakeRGBColor( { 0,100,100 } ) )
+
+   oBox := XbpStatic():new( oGrp, , {nC4,nT+(nH+nG)*2}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_BITMAP
+   oBox:options := XBPSTATIC_BITMAP_TILED
+   #ifdef __HARBOUR__
+   oBox:caption := 'cut.png'
+   #else
+   oBmp1 := XbpBitmap():new():create()
+   oBmp1:loadFile( 'paste.png' )
+   oBox:caption := oBmp1
+   #endif
+   oBox:create()
+   oBox:setColorBG( GraMakeRGBColor( { 100,0,100 } ) )
+
+
+   #ifdef __HARBOUR__ /* Differes from Xbase++ by Disk File | Resource Name, ID */
+   oBox := XbpStatic():new( oGrp, , {nC4,nT+(nH+nG)*3}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_ICON
+   oBox:caption := "vr.png"
+   oBox:create()
+   oBox:setColorBG( GraMakeRGBColor( { 255,255,187 } ) )
+   #endif
+
+   oBox := XbpStatic():new( oGrp, , {nC4,nT+(nH+nG)*4}, {nW,nH} )
+   oBox:type := XBPSTATIC_TYPE_SYSICON
+   oBox:caption := XBPSTATIC_SYSICON_ICONINFORMATION //XBPSTATIC_SYSICON_ICONQUESTION //
+   oBox:create()
+
+   #define CRLF chr(13)+chr(10)
+
+   oLbl := XbpStatic():new( oWnd, , {30,60}, {200,240} )
+   oLbl:type    := XBPSTATIC_TYPE_TEXT
+   oLbl:options := XBPSTATIC_TEXT_CENTER + XBPSTATIC_TEXT_VCENTER + XBPSTATIC_TEXT_WORDBREAK
+   oLbl:caption := "The GroupBox at the right demonstrates many static controls" + CRLF + ;
+                   "  "                    + CRLF + ;
+                   "XBPSTATIC_TYPE_TEXT"   + CRLF + ;
+                   "XBPSTATIC_TYPE_*LINE"  + CRLF + ;
+                   "XBPSTATIC_TYPE_*BOX"   + CRLF + ;
+                   "XBPSTATIC_TYPE_*RECT"  + CRLF + ;
+                   "XBPSTATIC_TYPE_*FRAME" + CRLF + ;
+                   "XBPSTATIC_TYPE_BITMAP" + CRLF + ;
+                   "  "                    + CRLF + ;
+                   "BITMAP"                + CRLF + ;
+                   "though, is not exactly Xbase++ compatible in the sense " +;
+                   "that it is not pulled from a resource" + CRLF + ;
+                   "( to be addressed later )"
+
+   oLbl:create()
+   oLbl:setFontCompoundName( "8.Times normal" )
+   oLbl:setColorBG( GraMakeRGBColor( { 100,0,150 } ) )
+   oLbl:setColorFG( GraMakeRGBColor( { 255,255,0 } ) )
+   oLbl:setPointer( , XBPSTATIC_SYSICON_SIZE, XBPWINDOW_POINTERTYPE_SYSPOINTER )
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_HTMLViewer( oWnd )
+   LOCAL oFrm, oHtm, sz_:= oWnd:currentSize()
+
+   oFrm := XbpStatic():new( oWnd, , {5,5}, {sz_[1]-5-10,sz_[2]-30-7} )
+   oFrm:type := XBPSTATIC_TYPE_RECESSEDBOX
+   oFrm:options := XBPSTATIC_FRAMETHICK
+   oFrm:create()
+   #ifdef __HARBOUR__
+   //oFrm:setStyleSheet( "border: 2px solid yellow;" )
+   #endif
+
+   sz_:= oFrm:currentSize()
+   // oHtm := XbpHTMLViewer():new( oWnd, , {10,10}, {sz_[1]-25,sz_[2]-30-15} )
+   oHtm := XbpHTMLViewer():new( oFrm, , {10,10}, {sz_[1]-10-10,sz_[2]-10-10} )
+   oHtm:create()
+   oHtm:navigate( "http://www.harbour-project.org" )
+   oHtm:titleChange    := {|e| hb_outDebug( e ) }
+   // oHtm:progressChange := {|nProg,nMax| hb_outDebug( "Downloaded: "+str( nProg*100/nMax,10,0 ) ) }
+
+   RETURN oHtm
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_FileDialog( oWnd, cMode )
+   LOCAL oDlg, cFile, aFiles
+
+   oDlg := XbpFileDialog():new():create( oWnd, , { 10,10 } )
+   IF cMode == "open"
+      oDlg:title       := "Open Index or Database"
+      oDlg:center      := .t.
+      oDlg:fileFilters := { { "Index Files", "*.ntx" }, { "Database Files", "*.dbf" } }
+      //oDlg:setColorBG( GraMakeRGBColor( { 170,170,170 } ) )
+      aFiles := oDlg:open( "c:\temp", , .t. )
+      IF !empty( aFiles )
+         aeval( aFiles, {|e| hb_outDebug( e ) } )
+      ENDIF
+   ELSE
+      oDlg:title       := "Save this Database"
+      oDlg:fileFilters := { { "Database Files", "*.dbf" } }
+      oDlg:quit        := {|| MsgBox( "Quitting the Dialog" ), 1 }
+      cFile := oDlg:saveAs( "c:\temp\myfile.dbf" )
+      IF !empty( cFile )
+         hb_outDebug( cFile )
+      ENDIF
+   ENDIF
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_Bitmap( oWnd )
+   LOCAL oBmp, aFltr, cFile, cExt, nFrmt, oDlg
+   LOCAL cExtns := { "png","gif","jpg","jpeg","bmp","tiff" }
+   LOCAL nFrmts := { XBPBMP_FORMAT_PNG, XBPBMP_FORMAT_GIF, XBPBMP_FORMAT_JPG, ;
+                     XBPBMP_FORMAT_JPG, XBPBMP_FORMAT_WIN3X }
+
+   aFltr := {}
+   aadd( aFltr, { "Windows Bitmap             ", "*.bmp"  } )
+   aadd( aFltr, { "Graphic Interchange Format ", "*.gif"  } )
+   aadd( aFltr, { "Joint Photographic Experts ", "*.jpg; *.jpeg" } )
+   aadd( aFltr, { "Portable Network Graphics  ", "*.png"  } )
+   aadd( aFltr, { "Portable Pixmap            ", "*.ppm"  } )
+   aadd( aFltr, { "Tagged Image File Format   ", "*.tiff" } )
+   aadd( aFltr, { "X11 Bitmap                 ", "*.xbm"  } )
+   aadd( aFltr, { "X11 Pixmap                 ", "*.xpm"  } )
+   aeval( aFltr, {|e_,i| aFltr[ i,1 ] := trim( e_[ 1 ] ) } )
+
+   oDlg := XbpFileDialog():new( oWnd, , {10,10} )
+   oDlg:title := "Select an image to be converted"
+   oDlg:fileFilters := aFltr
+   oDlg:create()
+
+   cFile := oDlg:open( hb_DirBase(), , .f. )
+
+   IF !empty( cFile )
+      oBmp := XbpBitmap():new():create()
+      IF oBmp:loadFile( cFile )
+         MsgBox( "x = "+hb_ntos( oBmp:xSize ) +" y = "+hb_ntos( oBmp:ySize )+" b = "+hb_ntos( oBmp:bits ) )
+
+         aFltr := {}
+         aadd( aFltr, { "Windows Bitmap             ", "*.bmp"  } )
+         aadd( aFltr, { "Joint Photographic Experts ", "*.jpg; *.jpeg"  } )
+         aadd( aFltr, { "Portable Network Graphics  ", "*.png"  } )
+         aadd( aFltr, { "Portable Pixmap            ", "*.ppm"  } )
+         aadd( aFltr, { "Tagged Image File Format   ", "*.tiff" } )
+         aadd( aFltr, { "X11 Bitmap                 ", "*.xbm"  } )
+         aadd( aFltr, { "X11 Pixmap                 ", "*.xpm"  } )
+
+         oDlg:title := "Specify how to save it !"
+         oDlg:fileFilters := aFltr
+         cFile := oDlg:saveAs()
+
+         IF !empty( cFile )
+            cExt := upper( substr( cFile, at( ".", cFile )+1 ) )
+            IF !empty( cExt )
+               nFrmt := nFrmts[ ascan( cExtns, cExt ) ]
+
+               oBmp:saveFile( cFile, nFrmt )
+            ENDIF
+         ENDIF
+      ENDIF
+   ENDIF
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION Build_FontDialog( oWnd )
+   LOCAL oDlg
+
+   oDlg := XbpFontDialog():new( oWnd, , , , { 20,20 } )
+   oDlg:activateOk := {|oFont| DisplayFontInfo( oFont ) }
+   oDlg:create()
+
+   oDlg:display( 0 )
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
+FUNCTION DisplayFontInfo( oFont )
+
+   oMLE:setFont( oFont )
+
+   RETURN nil
+
+/*----------------------------------------------------------------------*/
+
 /*
  * $Id$
  */
@@ -56,10 +1189,22 @@
 
 <CLASS>
 Inherits =
-Type     = Core
+Type     = PlainObject
 New      =
 </CLASS>
 
+<DOC>
+oImage := QImage():new()
+oImage := QImage():new( pQSize, cFormat )
+oImage := QImage():new( iWidth, iHeight, cFormat )
+oImage := QImage():new( @cData, iWidth, iHeight, cFormat )
+oImage := QImage():new( cData , iWidth, iHeight, cFormat )
+oImage := QImage():new( @cData, iWidth, iHeight, iBytesPerLine, cFormat )
+oImage := QImage():new( cData , iWidth, iHeight, iBytesPerLine, cFormat )
+oImage := QImage():new( cFileName [, cFormat ] )
+oImage := QImage():new( pQImage )
+</DOC>
+
 <CODE>
 #include <QStringList>
 #include <QtGui/QImage>
@@ -81,7 +1226,38 @@ New      =
  */
 HB_FUNC( QT_QIMAGE )
 {
-   hb_retptr( ( QImage* ) new QImage() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( *hbqt_par_QImage( 1 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISCHAR( 1 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( hbqt_par_QString( 1 ), ( const char * ) 0 ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISCHAR( 1 ) && HB_ISCHAR( 2 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( hbqt_par_QString( 1 ), ( const char * ) hb_parcx( 2 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( *hbqt_par_QSize( 1 ), ( QImage::Format ) hb_parni( 2 ) ) );
+   }
+   else if( hb_pcount() == 3 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( hb_parni( 1 ), hb_parni( 2 ), ( QImage::Format ) hb_parni( 3 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISCHAR( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( ( const uchar * ) hb_parc( 1 ), hb_parni( 2 ), hb_parni( 3 ), ( QImage::Format ) hb_parni( 4 ) ) );
+   }
+   else if( hb_pcount() == 5 && HB_ISCHAR( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) && HB_ISNUM( 5 ) )
+   {
+      hb_retptr( ( QImage* ) new QImage( ( const uchar * ) hb_parc( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ), ( QImage::Format ) hb_parni( 5 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QImage* ) new QImage() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QLine.qth b/harbour/contrib/hbqt/qth/QLine.qth
index 82aa834da9..0b4d77dfdd 100644
--- a/harbour/contrib/hbqt/qth/QLine.qth
+++ b/harbour/contrib/hbqt/qth/QLine.qth
@@ -56,10 +56,17 @@
 
 <CLASS>
 Inherits = 
-Type     = Core
+Type     = PlainObject
 New      = 
 </CLASS>
 
+<DOC>
+oLine := QLine():new()
+oLine := QLine():new( pQLine )
+oLine := QLine():new( pQPoint_p1, pQPoint_p2 )
+oLine := QLine():new( nX1, nY1, nX2, nY2 )
+</DOC>
+
 <CODE>
 #include <QtCore/QLine>
 
@@ -71,7 +78,22 @@ New      =
  */
 HB_FUNC( QT_QLINE )
 {
-   hb_retptr( ( QLine* ) new QLine() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QLine* ) new QLine( *hbqt_par_QLine( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      hb_retptr( ( QLine* ) new QLine( *hbqt_par_QPoint( 1 ), *hbqt_par_QPoint( 2 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QLine* ) new QLine( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QLine* ) new QLine() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QLinearGradient.qth b/harbour/contrib/hbqt/qth/QLinearGradient.qth
index af17d43a30..7d4de932dd 100644
--- a/harbour/contrib/hbqt/qth/QLinearGradient.qth
+++ b/harbour/contrib/hbqt/qth/QLinearGradient.qth
@@ -56,10 +56,17 @@
 
 <CLASS>
 Inherits = QGradient
-Type     = Core
+Type     = PlainObject
 New      =
 </CLASS>
 
+<DOC>
+oLinearGradiant := QLinearGradiant():new()
+oLinearGradiant := QLinearGradiant():new( pQLinearGradient )
+oLinearGradiant := QLinearGradiant():new( pQPointF_start, pQPointF_finalStop )
+oLinearGradiant := QLinearGradiant():new( nX1, nY1, nX2, nY2 )
+</DOC>
+
 <CODE>
 #include <QtGui/QLinearGradient>
 
@@ -71,7 +78,22 @@ New      =
  */
 HB_FUNC( QT_QLINEARGRADIENT )
 {
-   hb_retptr( ( QLinearGradient* ) new QLinearGradient() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QLinearGradient* ) new QLinearGradient( *hbqt_par_QLinearGradient( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      hb_retptr( ( QLinearGradient* ) new QLinearGradient( *hbqt_par_QPoint( 1 ), *hbqt_par_QPoint( 2 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QLinearGradient* ) new QLinearGradient( hb_parnd( 1 ), hb_parnd( 2 ), hb_parnd( 3 ), hb_parnd( 4 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QLinearGradient* ) new QLinearGradient() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QPalette.qth b/harbour/contrib/hbqt/qth/QPalette.qth
index 9384316852..533e3d81e8 100644
--- a/harbour/contrib/hbqt/qth/QPalette.qth
+++ b/harbour/contrib/hbqt/qth/QPalette.qth
@@ -65,6 +65,12 @@ oPalette := QPalette():new()
 oPalette := QPalette():new( nQt_color )
 oPalette := QPalette():new( pQPalette )
 oPalette := QPalette():new( pQColorButton, pQColorWindow )
+
+/* TODO
+ * oPalette := QPalette():new( pQBrush_windowText, pQBrush_button, pQBrush_light, pQBrush_dark, ;
+ *                             pQBrush_mid, pQBrush_text, pQBrush_bright_text, pQBrush_base, ;
+ *                             pQBrush_window )
+ */
 </DOC>
 
 <CODE>
diff --git a/harbour/contrib/hbqt/qth/QPicture.qth b/harbour/contrib/hbqt/qth/QPicture.qth
index 1942e58ea3..8b42228f7c 100644
--- a/harbour/contrib/hbqt/qth/QPicture.qth
+++ b/harbour/contrib/hbqt/qth/QPicture.qth
@@ -56,10 +56,16 @@
 
 <CLASS>
 Inherits = QPaintDevice
-Type     = Core
+Type     = PlainObject
 New      = 
 </CLASS>
 
+<DOC>
+oPicture := QPicture():new()
+oPicture := QPicture():new( nFormatVersion )
+oPicture := QPicture():new( pQPicture )
+</DOC>
+
 <CODE>
 #include <QtGui/QPicture>
 
@@ -71,7 +77,18 @@ New      =
  */
 HB_FUNC( QT_QPICTURE )
 {
-   hb_retptr( ( QPicture* ) new QPicture() );
+   if( hb_pcount() == 1 && HB_ISNUM( 1 ) )
+   {
+      hb_retptr( ( QPicture* ) new QPicture( hb_parni( 1 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QPicture* ) new QPicture( *hbqt_par_QPicture( 1 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QPicture* ) new QPicture() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QPixmap.qth b/harbour/contrib/hbqt/qth/QPixmap.qth
index fa79bcd689..1914948d8e 100644
--- a/harbour/contrib/hbqt/qth/QPixmap.qth
+++ b/harbour/contrib/hbqt/qth/QPixmap.qth
@@ -56,10 +56,17 @@
 
 <CLASS>
 Inherits = QPaintDevice
-Type     = Core
+Type     = PlainObject
 New      = 
 </CLASS>
 
+<DOC>
+oPixmap := QPixmap():new()
+oPixmap := QPixmap():new( nWidth, nHeight )
+oPixmap := QPixmap():new( cImageFilename )
+oPixmap := QPixmap():new( pQPixmap )
+</DOC>
+
 <CODE>
 #include <QtGui/QPixmap>
 #include <QtGui/QBitmap>
@@ -75,14 +82,18 @@ New      =
  */
 HB_FUNC( QT_QPIXMAP )
 {
-   if( hb_pcount() >= 1 && HB_ISCHAR( 1 ) )
+   if( hb_pcount() == 1 && HB_ISCHAR( 1 ) )
    {
       hb_retptr( ( QPixmap* ) new QPixmap( hbqt_par_QString( 1 ), ( const char * ) 0, Qt::AutoColor ) );
    }
-   else if( hb_pcount() >= 1 && HB_ISPOINTER( 1 ) )
+   else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
    {
       hb_retptr( ( QPixmap* ) new QPixmap( *hbqt_par_QPixmap( 1 ) ) );
    }
+   else if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QPixmap* ) new QPixmap( hb_parni( 1 ), hb_parni( 2 ) ) );
+   }
    else
    {
       hb_retptr( ( QPixmap* ) new QPixmap() );
diff --git a/harbour/contrib/hbqt/qth/QPoint.qth b/harbour/contrib/hbqt/qth/QPoint.qth
index 362f8af7cc..a3d138e90f 100644
--- a/harbour/contrib/hbqt/qth/QPoint.qth
+++ b/harbour/contrib/hbqt/qth/QPoint.qth
@@ -55,10 +55,16 @@
 ;
 
 <CLASS>
-Type     = Core
-New      = nX, nY
+Type     = PlainObject
+New      = 
 </CLASS>
 
+<DOC>
+oPoint := QPoint():new()
+oPoint := QPoint():new( nX, nY )
+oPoint := QPoint():new( pQPoint )
+</DOC>
+
 <CODE>
 #include <QtCore/QPoint>
 
@@ -69,7 +75,18 @@ New      = nX, nY
  */
 HB_FUNC( QT_QPOINT )
 {
-   hb_retptr( ( QPoint* ) new QPoint( hb_parni( 1 ), hb_parni( 2 ) ) );
+   if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QPoint* ) new QPoint( hb_parni( 1 ), hb_parni( 2 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QPoint* ) new QPoint( *hbqt_par_QPoint( 1 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QPoint* ) new QPoint() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QPointF.qth b/harbour/contrib/hbqt/qth/QPointF.qth
index eb53018a7c..b5ac1916e1 100644
--- a/harbour/contrib/hbqt/qth/QPointF.qth
+++ b/harbour/contrib/hbqt/qth/QPointF.qth
@@ -55,10 +55,16 @@
 ;
 
 <CLASS>
-Type     = Core
-New      = nXf, nYf
+Type     = PlainObject
+New      = 
 </CLASS>
 
+<DOC>
+oPointF := QPointF():new()
+oPointF := QPointF():new( nX, nY )
+oPointF := QPointF():new( pQPoint )
+</DOC>
+
 <CODE>
 #include <QtCore/QPointF>
 
@@ -70,8 +76,18 @@ New      = nXf, nYf
  */
 HB_FUNC( QT_QPOINTF )
 {
-   hb_retptr( ( QPointF* ) new QPointF( ( qreal ) hb_parnd( 1 ), 
-                                        ( qreal ) hb_parnd( 2 ) ) );
+   if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QPointF* ) new QPointF( ( qreal ) hb_parnd( 1 ), ( qreal ) hb_parnd( 2 ) ) );
+   }
+   else if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QPointF* ) new QPointF( *hbqt_par_QPoint( 1 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QPointF* ) new QPointF() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QRadialGradient.qth b/harbour/contrib/hbqt/qth/QRadialGradient.qth
index 9f56b30315..c8f112c735 100644
--- a/harbour/contrib/hbqt/qth/QRadialGradient.qth
+++ b/harbour/contrib/hbqt/qth/QRadialGradient.qth
@@ -56,10 +56,18 @@
 
 <CLASS>
 Inherits = QGradient
-Type     = Core
+Type     = PlainObject
 New      = 
 </CLASS>
 
+<DOC>
+oRadialGradient := QRadialGradient():new()
+oRadialGradient := QRadialGradient():new( pQRadialGradient )
+oRadialGradient := QRadialGradient():new( pQPointF_center, nRadius )
+oRadialGradient := QRadialGradient():new( pQPointF_center, nRadius, pQPointF_focalPoint )
+oRadialGradient := QRadialGradient():new( nCx, nCy, nRadius, nFx, nFy )
+</DOC>
+
 <CODE>
 #include <QtGui/QRadialGradient>
 
@@ -73,7 +81,26 @@ New      =
  */
 HB_FUNC( QT_QRADIALGRADIENT )
 {
-   hb_retptr( ( QRadialGradient* ) new QRadialGradient() );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient( *hbqt_par_QRadialGradient( 1 ) ) );  
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient( *hbqt_par_QPointF( 1 ), hb_parnd( 2 ) ) );  
+   }
+   else if( hb_pcount() == 3 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) && HB_ISPOINTER( 3 ) )
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient( *hbqt_par_QPointF( 1 ), hb_parnd( 2 ), *hbqt_par_QPointF( 3 ) ) );  
+   }
+   else if( hb_pcount() == 5 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) && HB_ISNUM( 5 ) )
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient( hb_parnd( 1 ), hb_parnd( 2 ), hb_parnd( 3 ), hb_parnd( 4 ), hb_parnd( 5 ) ) );  
+   }
+   else
+   {
+      hb_retptr( ( QRadialGradient* ) new QRadialGradient() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QRect.qth b/harbour/contrib/hbqt/qth/QRect.qth
index 39456ade64..3008836eaa 100644
--- a/harbour/contrib/hbqt/qth/QRect.qth
+++ b/harbour/contrib/hbqt/qth/QRect.qth
@@ -55,10 +55,22 @@
 ;
 
 <CLASS>
-Type     = Core
-New      = nLeft, nTop, nRight, nBottom
+Type     = PlainObject
+New      = 
 </CLASS>
 
+<DOC>
+oRect := QRect():new()
+oRect := QRect():new( pQRect_other )
+oRect := QRect():new( pQPoint_topLeft, pQPoint_bottomRight )
+oRect := QRect():new( nX, nY, nWidth, nHeight )
+
+/* TODO:
+ *
+ * oRect := QRect():new( pQPoint_topLeft, pQSize_size )
+ */
+</DOC>
+
 <CODE>
 #include <QtCore/QRect>
 
@@ -71,7 +83,22 @@ New      = nLeft, nTop, nRight, nBottom
  */
 HB_FUNC( QT_QRECT )
 {
-   hb_retptr( ( QRect* ) new QRect( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ) ) );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QRect* ) new QRect( *hbqt_par_QRect( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      hb_retptr( ( QRect* ) new QRect( *hbqt_par_QPoint( 1 ), *hbqt_par_QPoint( 2 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QRect* ) new QRect( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QRect* ) new QRect() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QRectF.qth b/harbour/contrib/hbqt/qth/QRectF.qth
index d4ca5b76b4..46bb8b0e38 100644
--- a/harbour/contrib/hbqt/qth/QRectF.qth
+++ b/harbour/contrib/hbqt/qth/QRectF.qth
@@ -55,10 +55,22 @@
 ;
 
 <CLASS>
-Type     = Core
-New      = nLeft, nTop, nRight, nBottom
+Type     = PlainObject
+New      = 
 </CLASS>
 
+<DOC>
+oRectF := QRectF():new()
+oRectF := QRectF():new( pQRectF_other )
+oRectF := QRectF():new( pQPoint_topLeft, pQPoint_bottomRight )
+oRectF := QRectF():new( nX, nY, nWidth, nHeight )
+
+/* TODO:
+ *
+ * oRect := QRectF():new( pQPoint_topLeft, pQSize_size )
+ */
+</DOC>
+
 <CODE>
 #include <QtCore/QRectF>
 
@@ -72,10 +84,22 @@ New      = nLeft, nTop, nRight, nBottom
  */
 HB_FUNC( QT_QRECTF )
 {
-   hb_retptr( ( QRectF* ) new QRectF( ( qreal ) hb_parnd( 1 ), 
-                                      ( qreal ) hb_parnd( 2 ), 
-                                      ( qreal ) hb_parnd( 3 ), 
-                                      ( qreal ) hb_parnd( 4 ) ) );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QRectF* ) new QRectF( *hbqt_par_QRectF( 1 ) ) );
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      hb_retptr( ( QRectF* ) new QRectF( *hbqt_par_QPoint( 1 ), *hbqt_par_QPoint( 2 ) ) );
+   }
+   else if( hb_pcount() == 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QRectF* ) new QRectF( hb_parnd( 1 ), hb_parnd( 2 ), hb_parnd( 3 ), hb_parnd( 4 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QRectF* ) new QRectF() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QRegion.qth b/harbour/contrib/hbqt/qth/QRegion.qth
index c8b767ee1f..8106a5a431 100644
--- a/harbour/contrib/hbqt/qth/QRegion.qth
+++ b/harbour/contrib/hbqt/qth/QRegion.qth
@@ -55,10 +55,20 @@
 ;
 
 <CLASS>
-Type     = Parameters
+Type     = PlainObject
 New      = nX, nY, nWidth, nHeight, nType
 </CLASS>
 
+<DOC>
+oRegion := QRegion():new()
+oRegion := QRegion():new( pQRegion_other )
+oRegion := QRegion():new( nX, nY, nW, nH, [ nQRegion_RegionType = QRegion_Rectangle ] )
+oRegion := QRegion():new( "QPolygon", pQPolygon, [ nQt_FillRule = Qt_OddEvenFill ] )
+oRegion := QRegion():new( "QBitmap" , pQBitmap )
+oRegion := QRegion():new( "QRect"   , pQRect, [ nQRegion_RegionType = QRegion_Rectangle ] ) )
+oRegion := QRegion():new( pQRect, nQRegion_RegionType )
+</DOC>
+
 <CODE>
 #include <QtGui/QRegion>
 
@@ -73,9 +83,44 @@ New      = nX, nY, nWidth, nHeight, nType
  */
 HB_FUNC( QT_QREGION )
 {
-   hb_retptr( ( QRegion* ) new QRegion( hb_parni( 1 ), hb_parni( 2 ), 
-                                        hb_parni( 3 ), hb_parni( 4 ), 
-      ( QRegion::RegionType ) ( HB_ISNUM( 5 ) ? hb_parni( 5 ) : QRegion::Rectangle ) ) );
+   if( hb_pcount() == 1 && HB_ISPOINTER( 1 ) )
+   {
+      hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QRegion( 1 ) ) );      
+   }
+   else if( hb_pcount() >= 4 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) && HB_ISNUM( 3 ) && HB_ISNUM( 4 ) )
+   {
+      hb_retptr( ( QRegion* ) new QRegion( hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ), 
+                                           HB_ISNUM( 5 ) ? ( QRegion::RegionType ) hb_parni( 5 ) : QRegion::Rectangle ) );
+   }
+   else if( hb_pcount() >= 2 && HB_ISCHAR( 1 ) && HB_ISPOINTER( 2 ) )
+   {
+      if(      ( QString ) "QPolygon" == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QPolygon( 2 ), 
+                                              HB_ISNUM( 3 ) ? ( Qt::FillRule ) hb_parni( 3 ) : Qt::OddEvenFill ) );
+      }  
+      else if( ( QString ) "QBitmap"  == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QBitmap( 2 ) ) );
+      }
+      else if( ( QString ) "QRect"    == hbqt_par_QString( 1 ) )
+      {
+         hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QRect( 2 ), 
+                                               HB_ISNUM( 3 ) ? ( QRegion::RegionType ) hb_parni( 3 ) : QRegion::Rectangle ) );
+      }
+      else
+      {
+         hb_retptr( ( QRegion* ) new QRegion() );
+      }
+   }
+   else if( hb_pcount() == 2 && HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QRegion* ) new QRegion( *hbqt_par_QRect( 1 ), ( QRegion::RegionType ) hb_parni( 2 ) ) );      
+   }
+   else
+   {
+      hb_retptr( ( QRegion* ) new QRegion() );
+   }
 }
 </CODE>
 
diff --git a/harbour/contrib/hbqt/qth/QSizeF.qth b/harbour/contrib/hbqt/qth/QSizeF.qth
index 82be9124e2..e08e2e0696 100644
--- a/harbour/contrib/hbqt/qth/QSizeF.qth
+++ b/harbour/contrib/hbqt/qth/QSizeF.qth
@@ -55,10 +55,15 @@
 ;
 
 <CLASS>
-Type     = Core
-New      = nWidth, nHeight
+Type     = PlainObject
+New      = 
 </CLASS>
 
+<DOC>
+oSizeF := QSizeF():new()
+oSizeF := QSizeF():new( nWidth, nHeight )
+</DOC>
+
 <CODE>
 #include <QtCore/QSizeF>
 
@@ -67,19 +72,26 @@ New      = nWidth, nHeight
  * QSizeF ()
  * QSizeF ( const QSize & size )
  * QSizeF ( qreal width, qreal height )
- * QSizeF boundedTo ( const QSizeF & otherSize ) const
- * QSizeF expandedTo ( const QSizeF & otherSize ) const
  */
 HB_FUNC( QT_QSIZEF )
 {
-   hb_retptr( ( QSizeF* ) new QSizeF( hb_parnd( 1 ), hb_parnd( 2 ) ) );
-}
+   if( hb_pcount() == 2 && HB_ISNUM( 1 ) && HB_ISNUM( 2 ) )
+   {
+      hb_retptr( ( QSizeF* ) new QSizeF( hb_parnd( 1 ), hb_parnd( 2 ) ) );
+   }
+   else
+   {
+      hb_retptr( ( QSizeF* ) new QSizeF() );
+   }
+   }
 </CODE>
 
 <ENUMS>
 </ENUMS>
 
 <PROTOS>
+QSizeF boundedTo ( const QSizeF & otherSize ) const
+QSizeF expandedTo ( const QSizeF & otherSize ) const
 qreal height () const
 bool isEmpty () const
 bool isNull () const