PRINT IMAGE on REPORT

[Silvio]

Local aLabBitmap := {'SM_AULE','SM_UFF','SM_LAB'}

.....

COLUMN TITLE "Tipo" DATA " " SIZE 35 FONT 2 CENTER IMAGE IMGDATA loadBitmap(aLabBitmap[LB->TIPO]) HEIGHT 2 ALPHALEVEL 128

WHEN LB->TIPO IS A NUMBER ( 1 , 2 OR 3)

i HAVE THE IMAGES ON RESOURCES , CAN i PRINT THEM ?

[Silvio]

any solution please ?

[Daniel Garcia-Gil]

Silvio...

i think LoadBitmap has wrong parameter

LoadBitmap( <hInst>, <cnBitmap> ) –> hBitmap

http://wiki.fivetechsoft.com/doku.php?id=fivewin_function_loadbitmap

[Silvio]

Daniel,
( seeing the instal.prg)

I made
Local aLabBitmap := {'SM_AULE','SM_UFF','SM_LAB'}
...
hBmpText1 = LoadBitmap( GetResources(), aLabBitmap[LB->TIPO] )

COLUMN TITLE "Tipo" DATA " " SIZE 35 FONT 2 CENTER IMAGE IMGDATA hBmpText1 HEIGHT 6 ALPHALEVEL 128


it not print anything

[Daniel Garcia-Gil]

Silvio

can you post a sample?
please....

[Silvio]

I try with bitmap from source and it run ok

when I insert resources not run

#include "FiveWin.ch"
#include "report.ch"

STATIC oReport

Function Reptext()

Local aLabBitmap := {'SM_AULE','SM_UFF','SM_LAB'}

Local hBmpText1

USE LB INDEX LB NEW

REPORT oReport TITLE "test" ;
CAPTION "teat" ;
PREVIEW

COLUMN TITLE "cod" DATA LB->concep
COLUMN TITLE "desc" DATA LB->Descri
hBmpText1 = LoadBitmap( GetResources(), aLabBitmap[LB->TIPO] )

COLUMN TITLE "Tipo" DATA " " SIZE 35 IMAGE IMGDATA hBmpText1 HEIGHT 6 ALPHALEVEL 128

END REPORT

ACTIVATE REPORT oReport

CLOSE LB

RETURN NIL



the bitmaps ara boxes of different colours

LB->tipo value can be 1 2 or 3






I try to print a report but from sources sample ".\bitmaps\blalbla.bmp" and it run ok

as you can see here :

[nageswaragunupudi]

At present, IMGDATA should return either file name of an image (bitmap) file or an image buffer or an image object.

You may please try changing the two lines like this:

Code: Select all  Expand view

Local aLabBitmap := { TImage:Define( 'SM_AULE' ), TImage:Define( 'SM_UFF' ), TImage:Define( 'SM_LAB' ) }
 

and

Code: Select all  Expand view

COLUMN TITLE "Tipo" DATA "" SIZE 35 IMAGE IMGDATA aLabBitmap[ LB->TIPO ] HEIGHT 6 ALPHALEVEL 128
 

After printing is over, please destroy the Image objects.

Please let us know if this works.

[Silvio]

no,

Error description: Error BASE/1003 Variabile inesistente: TIMAGE

Called from: source\TInforme.prg => TINFORME:REPORT(567)

line 567 Local aLabBitmap := { TImage:Define( 'SM_AULE' ), TImage:Define( 'SM_UFF' ), TImage:Define( 'SM_LAB' ) }

[Silvio]

OK NOW RUN OK

Local aLabBitmap := { TImage():Define( 'SM_AULE' ), TImage():Define( 'SM_UFF' ), TImage():Define( 'SM_LAB' ) }

instad of


Local aLabBitmap := { TImage:Define( 'SM_AULE' ), TImage:Define( 'SM_UFF' ), TImage:Define( 'SM_LAB' ) }














I think we must change something to report class !!!!!

[nageswaragunupudi]

Sorry for writing TImage:Define instead of TImage():Define. Glad you corrected it.

We can expect FWH to make this more flexible in next versions.

[Silvio]

thanks to you mr rao !!!!