FiveTech Support Forums

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...

i think LoadBitmap has wrong parameter

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

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

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

Silvio

can you post a sample?
please....

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 :

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:

and


After printing is over, please destroy the Image objects.

Please let us know if this works.

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' ) }

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 !!!!!

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.