converting my function into a class

[Silvio.Falconi]

on a my function load many images with txImage to move it on a dialog

to move the images ( on my functions ) I use the easy command Move() with no Problems

Code: Select all

 For n= 1 to nImages
           nLeftImage[n]:=nposition +nBmpWidth
           aElements[n]:Move( nRowScroll,nLeftImage[n],,,.t.)
           aElements[n]:Refresh()
           nposition:= nLeftImage[n]
        next

and the image are showed into dialog with animation


this evening I'm try to converte my functions into a class



the same source but with data

Code: Select all

For n= 1 to ::nImages
           ::nLeftImage[n]:=nposition +nBmpWidth
           ::aElements[n]:Move( ::nRowScroll,::nLeftImage[n],,,.t.)
           ::aElements[n]:Refresh()
           nposition:= ::nLeftImage[n]
        next

but I have and error Error description: Error BASE/1004 No exported method: MOVE



I tried also to use

Code: Select all

METHOD SetPos( nRow, nCol ) INLINE ::Super:Move( nRow, nCol,,,.t. )

and change the line

Code: Select all

  ::aElements[n]:setPos( ::nRowScroll,::nLeftImage[n],,,.t.)

but give me the error

Error description: Error BASE/1004 No exported method: SETPOS

How I can resolve it ?

[Silvio.Falconi]

ok I resolved
the array is not populate
now I correct it