Roberto Lopez wrote:
Code: Select all
IF valtype( nToRow )=='N' .and. valtype( nToCol )=='N'
QRectF := QRectF( nCol , nRow , nToCol - nCol , nToRow - nRow )
QTextOption := QTextOption()
IF valtype( nAlignment ) == 'N'
QTextOption:setAlignment( nAlignment )
ELSE
QTextOption:setAlignment( 0 )
ENDIF
::qPainter:drawText( QRectF , cData , QTextOption )
It should be:
Code: Select all
IF valtype( nToRow )=='N' .and. valtype( nToCol )=='N'
qRectF := QRectF( nCol , nRow , nToCol - nCol , nToRow - nRow )
qTextOption := QTextOption()
IF valtype( nAlignment ) == 'N'
qTextOption:setAlignment( nAlignment )
ELSE
qTextOption:setAlignment( 0 )
ENDIF
::qPainter:drawText( QRectF , cData , QTextOption )
The variable prefix has to be cleaned in whole HMG.
It is very ambiqous and difficult to locate a bug.
QTextOption:setAlignment( nAlignment )
The line above, at a first glance, suggests that you are
calling the class object itself, NOT a method of class instance.
enjoy hbIDEing... Pritpal Bedi