Welcome to the Project Developers' Table

[Rathinagiri]

Thanks Roberto.

[mol]

Thanks for you search!
I thought I'm not suitable for this work

[mol]

I have a little problem.
One of QT functions returns me a pointer. But I need to operate on object.
How to get the object from pointer?

Code: Select all

PointerToImage := ::oQTObject:Pixmap()
Image := <<<< what to do to get object???
Image := Image:ScaledToWidth(::oQTObject:width)
::oQTObject:setPixmap(Image)

[Rathinagiri]

You have to see in HBQT source code for the respective method for the object conversion compatible to Harbour.

I think you can use these HBQT functions (from TQImage.prg from Harbour QT Contrib folder)

Code: Select all

/*
 * $Id: TQImage.prg 13356 2009-12-22 01:47:43Z vouchcac $
 */

/* -------------------------------------------------------------------- */
/* WARNING: Automatically generated source file. DO NOT EDIT!           */
/*          Instead, edit corresponding .qth file,                      */
/*          or the generator tool itself, and run regenarate.           */
/* -------------------------------------------------------------------- */

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


#include "hbclass.ch"


CREATE CLASS QImage INHERIT HbQtObjectHandler

   METHOD  new()

   METHOD  allGray()
   METHOD  alphaChannel()
   METHOD  bits()
   METHOD  bits_1()
   METHOD  bytesPerLine()
   METHOD  cacheKey()
   METHOD  color( nI )
   METHOD  convertToFormat( nFormat, nFlags )
   METHOD  copy( pRectangle )
   METHOD  copy_1( nX, nY, nWidth, nHeight )
   METHOD  createAlphaMask( nFlags )
   METHOD  createHeuristicMask( lClipTight )
   METHOD  createMaskFromColor( nColor, nMode )
   METHOD  depth()
   METHOD  dotsPerMeterX()
   METHOD  dotsPerMeterY()
   METHOD  fill( nPixelValue )
   METHOD  format()
   METHOD  hasAlphaChannel()
   METHOD  height()
   METHOD  invertPixels( nMode )
   METHOD  isGrayscale()
   METHOD  isNull()
   METHOD  load( cFileName, pFormat )
   METHOD  load_1( pDevice, pFormat )
   METHOD  loadFromData( pData, pFormat )
   METHOD  mirrored( lHorizontal, lVertical )
   METHOD  numBytes()
   METHOD  numColors()
   METHOD  offset()
   METHOD  pixel( pPosition )
   METHOD  pixel_1( nX, nY )
   METHOD  pixelIndex( pPosition )
   METHOD  pixelIndex_1( nX, nY )
   METHOD  rect()
   METHOD  rgbSwapped()
   METHOD  save( cFileName, pFormat, nQuality )
   METHOD  save_1( pDevice, pFormat, nQuality )
   METHOD  scaled( pSize, nAspectRatioMode, nTransformMode )
   METHOD  scaled_1( nWidth, nHeight, nAspectRatioMode, nTransformMode )
   METHOD  scaledToHeight( nHeight, nMode )
   METHOD  scaledToWidth( nWidth, nMode )
   METHOD  scanLine( nI )
   METHOD  scanLine_1( nI )
   METHOD  setColor( nIndex, nColorValue )
   METHOD  setDotsPerMeterX( nX )
   METHOD  setDotsPerMeterY( nY )
   METHOD  setNumColors( nNumColors )
   METHOD  setOffset( pOffset )
   METHOD  setPixel( pPosition, nIndex_or_rgb )
   METHOD  setPixel_1( nX, nY, nIndex_or_rgb )
   METHOD  setText( cKey, cText )
   METHOD  size()
   METHOD  text( cKey )
   METHOD  textKeys()
   METHOD  transformed( pMatrix, nMode )
   METHOD  transformed_1( pMatrix, nMode )
   METHOD  valid( pPos )
   METHOD  valid_1( nX, nY )
   METHOD  width()

   ENDCLASS


METHOD QImage:new( ... )
   LOCAL p
   FOR EACH p IN { ... }
      p := hbqt_ptr( p )
      hb_pvalue( p:__enumIndex(), p )
   NEXT
   ::pPtr := Qt_QImage( ... )
   RETURN Self


METHOD QImage:allGray()
   RETURN Qt_QImage_allGray( ::pPtr )


METHOD QImage:alphaChannel()
   RETURN Qt_QImage_alphaChannel( ::pPtr )


METHOD QImage:bits()
   RETURN Qt_QImage_bits( ::pPtr )


METHOD QImage:bits_1()
   RETURN Qt_QImage_bits_1( ::pPtr )


METHOD QImage:bytesPerLine()
   RETURN Qt_QImage_bytesPerLine( ::pPtr )


METHOD QImage:cacheKey()
   RETURN Qt_QImage_cacheKey( ::pPtr )


METHOD QImage:color( nI )
   RETURN Qt_QImage_color( ::pPtr, nI )


METHOD QImage:convertToFormat( nFormat, nFlags )
   RETURN Qt_QImage_convertToFormat( ::pPtr, nFormat, nFlags )


METHOD QImage:copy( pRectangle )
   RETURN Qt_QImage_copy( ::pPtr, hbqt_ptr( pRectangle ) )


METHOD QImage:copy_1( nX, nY, nWidth, nHeight )
   RETURN Qt_QImage_copy_1( ::pPtr, nX, nY, nWidth, nHeight )


METHOD QImage:createAlphaMask( nFlags )
   RETURN Qt_QImage_createAlphaMask( ::pPtr, nFlags )


METHOD QImage:createHeuristicMask( lClipTight )
   RETURN Qt_QImage_createHeuristicMask( ::pPtr, lClipTight )


METHOD QImage:createMaskFromColor( nColor, nMode )
   RETURN Qt_QImage_createMaskFromColor( ::pPtr, nColor, nMode )


METHOD QImage:depth()
   RETURN Qt_QImage_depth( ::pPtr )


METHOD QImage:dotsPerMeterX()
   RETURN Qt_QImage_dotsPerMeterX( ::pPtr )


METHOD QImage:dotsPerMeterY()
   RETURN Qt_QImage_dotsPerMeterY( ::pPtr )


METHOD QImage:fill( nPixelValue )
   RETURN Qt_QImage_fill( ::pPtr, nPixelValue )


METHOD QImage:format()
   RETURN Qt_QImage_format( ::pPtr )


METHOD QImage:hasAlphaChannel()
   RETURN Qt_QImage_hasAlphaChannel( ::pPtr )


METHOD QImage:height()
   RETURN Qt_QImage_height( ::pPtr )


METHOD QImage:invertPixels( nMode )
   RETURN Qt_QImage_invertPixels( ::pPtr, nMode )


METHOD QImage:isGrayscale()
   RETURN Qt_QImage_isGrayscale( ::pPtr )


METHOD QImage:isNull()
   RETURN Qt_QImage_isNull( ::pPtr )


METHOD QImage:load( cFileName, pFormat )
   RETURN Qt_QImage_load( ::pPtr, cFileName, hbqt_ptr( pFormat ) )


METHOD QImage:load_1( pDevice, pFormat )
   RETURN Qt_QImage_load_1( ::pPtr, hbqt_ptr( pDevice ), hbqt_ptr( pFormat ) )


METHOD QImage:loadFromData( pData, pFormat )
   RETURN Qt_QImage_loadFromData( ::pPtr, hbqt_ptr( pData ), hbqt_ptr( pFormat ) )


METHOD QImage:mirrored( lHorizontal, lVertical )
   RETURN Qt_QImage_mirrored( ::pPtr, lHorizontal, lVertical )


METHOD QImage:numBytes()
   RETURN Qt_QImage_numBytes( ::pPtr )


METHOD QImage:numColors()
   RETURN Qt_QImage_numColors( ::pPtr )


METHOD QImage:offset()
   RETURN Qt_QImage_offset( ::pPtr )


METHOD QImage:pixel( pPosition )
   RETURN Qt_QImage_pixel( ::pPtr, hbqt_ptr( pPosition ) )


METHOD QImage:pixel_1( nX, nY )
   RETURN Qt_QImage_pixel_1( ::pPtr, nX, nY )


METHOD QImage:pixelIndex( pPosition )
   RETURN Qt_QImage_pixelIndex( ::pPtr, hbqt_ptr( pPosition ) )


METHOD QImage:pixelIndex_1( nX, nY )
   RETURN Qt_QImage_pixelIndex_1( ::pPtr, nX, nY )


METHOD QImage:rect()
   RETURN Qt_QImage_rect( ::pPtr )


METHOD QImage:rgbSwapped()
   RETURN Qt_QImage_rgbSwapped( ::pPtr )


METHOD QImage:save( cFileName, pFormat, nQuality )
   RETURN Qt_QImage_save( ::pPtr, cFileName, hbqt_ptr( pFormat ), nQuality )


METHOD QImage:save_1( pDevice, pFormat, nQuality )
   RETURN Qt_QImage_save_1( ::pPtr, hbqt_ptr( pDevice ), hbqt_ptr( pFormat ), nQuality )


METHOD QImage:scaled( pSize, nAspectRatioMode, nTransformMode )
   RETURN Qt_QImage_scaled( ::pPtr, hbqt_ptr( pSize ), nAspectRatioMode, nTransformMode )


METHOD QImage:scaled_1( nWidth, nHeight, nAspectRatioMode, nTransformMode )
   RETURN Qt_QImage_scaled_1( ::pPtr, nWidth, nHeight, nAspectRatioMode, nTransformMode )


METHOD QImage:scaledToHeight( nHeight, nMode )
   RETURN Qt_QImage_scaledToHeight( ::pPtr, nHeight, nMode )


METHOD QImage:scaledToWidth( nWidth, nMode )
   RETURN Qt_QImage_scaledToWidth( ::pPtr, nWidth, nMode )


METHOD QImage:scanLine( nI )
   RETURN Qt_QImage_scanLine( ::pPtr, nI )


METHOD QImage:scanLine_1( nI )
   RETURN Qt_QImage_scanLine_1( ::pPtr, nI )


METHOD QImage:setColor( nIndex, nColorValue )
   RETURN Qt_QImage_setColor( ::pPtr, nIndex, nColorValue )


METHOD QImage:setDotsPerMeterX( nX )
   RETURN Qt_QImage_setDotsPerMeterX( ::pPtr, nX )


METHOD QImage:setDotsPerMeterY( nY )
   RETURN Qt_QImage_setDotsPerMeterY( ::pPtr, nY )


METHOD QImage:setNumColors( nNumColors )
   RETURN Qt_QImage_setNumColors( ::pPtr, nNumColors )


METHOD QImage:setOffset( pOffset )
   RETURN Qt_QImage_setOffset( ::pPtr, hbqt_ptr( pOffset ) )


METHOD QImage:setPixel( pPosition, nIndex_or_rgb )
   RETURN Qt_QImage_setPixel( ::pPtr, hbqt_ptr( pPosition ), nIndex_or_rgb )


METHOD QImage:setPixel_1( nX, nY, nIndex_or_rgb )
   RETURN Qt_QImage_setPixel_1( ::pPtr, nX, nY, nIndex_or_rgb )


METHOD QImage:setText( cKey, cText )
   RETURN Qt_QImage_setText( ::pPtr, cKey, cText )


METHOD QImage:size()
   RETURN Qt_QImage_size( ::pPtr )


METHOD QImage:text( cKey )
   RETURN Qt_QImage_text( ::pPtr, cKey )


METHOD QImage:textKeys()
   RETURN Qt_QImage_textKeys( ::pPtr )


METHOD QImage:transformed( pMatrix, nMode )
   RETURN Qt_QImage_transformed( ::pPtr, hbqt_ptr( pMatrix ), nMode )


METHOD QImage:transformed_1( pMatrix, nMode )
   RETURN Qt_QImage_transformed_1( ::pPtr, hbqt_ptr( pMatrix ), nMode )


METHOD QImage:valid( pPos )
   RETURN Qt_QImage_valid( ::pPtr, hbqt_ptr( pPos ) )


METHOD QImage:valid_1( nX, nY )
   RETURN Qt_QImage_valid_1( ::pPtr, nX, nY )


METHOD QImage:width()
   RETURN Qt_QImage_width( ::pPtr )

[dhaine_adp]

Hi Roberto,

Finally, grid demos compiles without an error. The zip file contains the grid.prg and grid demos.

I've also found the cause of the error message I posted last time. In grid control create method, the right sytax should be: RETURN { Self } instead of RETURN Self. It should be
enclosed in a curly brace. I don't know why but I suspect that it's an object as well as a
pointer??? I have no idea about the right technical term for that.

Another thing is that where would I handle the position nRow, nCol and the size of the
grid and it's dimension nWidth and nHeight? Is it in the HMG base class CONTROL or in the
grid class?


-- Danny

[Roberto Lopez]

Thanks for you search!
I thought I'm not suitable for this work

You need a little of Sherlock Holmes spirit, a little of curiosity and a lot of patience

You've done a great work with Image control. Thanks!

[Roberto Lopez]

Hi Roberto,

Finally, grid demos compiles without an error. The zip file contains the grid.prg and grid demos.

I've also found the cause of the error message I posted last time. In grid control create method, the right sytax should be: RETURN { Self } instead of RETURN Self. It should be
enclosed in a curly brace. I don't know why but I suspect that it's an object as well as a
pointer??? I have no idea about the right technical term for that.

Another thing is that where would I handle the position nRow, nCol and the size of the
grid and it's dimension nWidth and nHeight? Is it in the HMG base class CONTROL or in the
grid class?


-- Danny

Method Create() must not return an array (it will happen if you use {}). In fact, the returned value is never used, so, it is irrelevant.

Method Create() is automatically called (for all controls) at parent window creation.

Window Create() method is automatically called at window activation.

Your class (grid) inherits from control, meaning that it will use row, col. width and height methods located at control class.

We must keep this design consistent along all controls.

Please, take a look at current HMG.4 code and change grid class according required.

EditBox could be a good sample, since it is simple.

[Roberto Lopez]

Marek,

I've removed the image support dlls from SVN and created a new binary package containing them. The dlls are located at c:\hmg.4\qt\plugins\imageformats.

I've added the required qt.conf file, to make that support available for all samples.

[Rathinagiri]

Thanks Roberto.

What do I do next?

[mol]

You need a little of Sherlock Holmes spirit, a little of curiosity and a lot of patience

You've done a great work with Image control. Thanks!

THX for your kindly words! I couldn't stop myself to add new properties again
But, when everything started to work it was pleasure to do it...
New properties of IMAGE are:
ScaledToWidth and ScaledToHeight.
When somebody will use them, please be patient about STRETCH. In some combinations of all these properties you can reach strange effects.

Marek