* [ Regenerated Sources ]

harbour/contrib/hbqt/qtcore/TQLine.prg

@@ -93,8 +93,15 @@ CREATE CLASS QLine
 /*----------------------------------------------------------------------*/
 
 METHOD QLine:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QLine( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QLine(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtcore/TQPoint.prg

@@ -84,8 +84,15 @@ CREATE CLASS QPoint
 /*----------------------------------------------------------------------*/
 
 METHOD QPoint:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QPoint( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QPoint(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtcore/TQPointF.prg

@@ -84,8 +84,15 @@ CREATE CLASS QPointF
 /*----------------------------------------------------------------------*/
 
 METHOD QPointF:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QPointF( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QPointF(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtcore/TQRect.prg

@@ -135,8 +135,15 @@ CREATE CLASS QRect
 /*----------------------------------------------------------------------*/
 
 METHOD QRect:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QRect( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QRect(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtcore/TQRectF.prg

@@ -136,8 +136,15 @@ CREATE CLASS QRectF
 /*----------------------------------------------------------------------*/
 
 METHOD QRectF:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QRectF( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QRectF(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtcore/TQSize.prg

@@ -90,8 +90,15 @@ CREATE CLASS QSize
 /*----------------------------------------------------------------------*/
 
 METHOD QSize:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QSize( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QSize(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtcore/TQSizeF.prg

@@ -91,8 +91,15 @@ CREATE CLASS QSizeF
 /*----------------------------------------------------------------------*/
 
 METHOD QSizeF:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QSizeF( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QSizeF(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQBitmap.prg

@@ -80,8 +80,15 @@ CREATE CLASS QBitmap INHERIT QPixmap
 /*----------------------------------------------------------------------*/
 
 METHOD QBitmap:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QBitmap( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QBitmap(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQBrush.prg

@@ -90,8 +90,15 @@ CREATE CLASS QBrush
 /*----------------------------------------------------------------------*/
 
 METHOD QBrush:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QBrush( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QBrush(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQColor.prg

@@ -141,8 +141,15 @@ CREATE CLASS QColor
 /*----------------------------------------------------------------------*/
 
 METHOD QColor:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QColor( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QColor(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQCursor.prg

@@ -85,8 +85,15 @@ CREATE CLASS QCursor
 /*----------------------------------------------------------------------*/
 
 METHOD QCursor:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QCursor( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QCursor(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQFont.prg

@@ -134,8 +134,15 @@ CREATE CLASS QFont
 /*----------------------------------------------------------------------*/
 
 METHOD QFont:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QFont( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QFont(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQFontMetrics.prg

@@ -102,8 +102,15 @@ CREATE CLASS QFontMetrics
 /*----------------------------------------------------------------------*/
 
 METHOD QFontMetrics:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QFontMetrics( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QFontMetrics(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQFontMetricsF.prg

@@ -101,8 +101,15 @@ CREATE CLASS QFontMetricsF
 /*----------------------------------------------------------------------*/
 
 METHOD QFontMetricsF:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QFontMetricsF( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QFontMetricsF(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQIcon.prg

@@ -86,8 +86,15 @@ CREATE CLASS QIcon
 /*----------------------------------------------------------------------*/
 
 METHOD QIcon:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QIcon( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QIcon(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQImage.prg

@@ -136,8 +136,15 @@ CREATE CLASS QImage
 /*----------------------------------------------------------------------*/
 
 METHOD QImage:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QImage( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QImage(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQLinearGradient.prg

@@ -82,8 +82,15 @@ CREATE CLASS QLinearGradient INHERIT QGradient
 /*----------------------------------------------------------------------*/
 
 METHOD QLinearGradient:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QLinearGradient( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QLinearGradient(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQPalette.prg

@@ -111,8 +111,15 @@ CREATE CLASS QPalette
 /*----------------------------------------------------------------------*/
 
 METHOD QPalette:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QPalette( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QPalette(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQPen.prg

@@ -97,8 +97,15 @@ CREATE CLASS QPen
 /*----------------------------------------------------------------------*/
 
 METHOD QPen:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QPen( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QPen(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQPicture.prg

@@ -87,8 +87,15 @@ CREATE CLASS QPicture INHERIT QPaintDevice
 /*----------------------------------------------------------------------*/
 
 METHOD QPicture:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QPicture( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QPicture(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQPixmap.prg

@@ -116,8 +116,15 @@ CREATE CLASS QPixmap INHERIT QPaintDevice
 /*----------------------------------------------------------------------*/
 
 METHOD QPixmap:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QPixmap( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QPixmap(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQRadialGradient.prg

@@ -84,8 +84,15 @@ CREATE CLASS QRadialGradient INHERIT QGradient
 /*----------------------------------------------------------------------*/
 
 METHOD QRadialGradient:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QRadialGradient( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QRadialGradient(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQRegion.prg

@@ -94,8 +94,15 @@ CREATE CLASS QRegion
 /*----------------------------------------------------------------------*/
 
 METHOD QRegion:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QRegion( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QRegion(), aP )
 
    RETURN Self
 

harbour/contrib/hbqt/qtgui/TQTextCursor.prg

@@ -136,8 +136,15 @@ CREATE CLASS QTextCursor
 /*----------------------------------------------------------------------*/
 
 METHOD QTextCursor:new( ... )
+   LOCAL p, aP := hb_aParams()
 
-   ::pPtr := Qt_QTextCursor( ... )
+   IF len( aP ) > 0
+      FOR EACH p IN aP
+         p := hbqt_ptr( p )
+      NEXT
+   ENDIF
+
+   ::pPtr := hb_ExecFromArray( @Qt_QTextCursor(), aP )
 
    RETURN Self