Any sample using < ChangeImg > of class TTitle ?

[ukoenig]

Hello,

any sample of usage METHOD ChangeImgg of class TTitle ?
Tested, but returns a error
I want to replace the first defined Image with the new Image < cFile[1] >

The first Image :
@ 10, 10 TITLEIMG oImg[1] OF oTitle BITMAP cFile[5] SIZE 80, 80 REFLEX TRANSPARENT ANIMA
Changing cFile[5] to cFile[1]
oTitle:ChangeImg( cFile[1], 1 )

Error description: Error BASE/1004 Class: 'NIL' has no exported method: CHANGEIMG
Args:
[ 1] = U
[ 2] = C D:\P_QUOTATION\SYSTEM\Star5b.bmp
[ 3] = N 1

METHOD ChangeImg( cBitmap, nImg ) // change image in ::aImgs nImg position

Best Regards
Uwe

[Gale FORd]

It looks like the method ChangeImg is there. You could also call oTitle:LoadBitmaps() directly, see below.

Code: Select all  Expand view

//----------------------------------------------------------------------------//

METHOD ChangeImg( cBitmap, nImg ) CLASS TTitle
   DEFAULT nImg := 1
   ::LoadBitmaps( cBitmap, , , , , ;
                    , , , ;
                    , , nImg )
RETURN NIL  

 

[Enrico Maria Giordano]

oTitle is NIL at the moment you try to call its ChangeImg() method.

EMG

[ukoenig]

Gale, Enrico,
Thank You, it works fine now

oTitle has been defined STATIC, but was NIL inside the Function.

because of needed resizing, I cannot use ChangeImg ( shows full size ), I had to use :

oTitle:LoadBitmaps( cFile[1], , ,80,80, , , , , , 1 )

Best Regards
Uwe