why I can show only the number 17

[Silvio]

I must create 16 get and insert the umber from 1 to 16
but i made this test and I can show on all gets only the number 17 why ?

where is the error ?

Code: Select all  Expand view

#Include "FiveWin.Ch"

#define BMP_H        15
#define BMP_V        15
#define   TOTY       16

Function Main()
 Local oDlg
Local nY  := 1
Local nX  := 1
 Local nRow:=10
Local ncol:=1
Local oget[  TOTY ]

 DEFINE DIALOG oDlg from 10,2 to 40,46


@ nrow-10, ncol say "Fila"  OF oDlg PIXEL  SIZE  BMP_H,BMP_V
For nY := 1 to TOTY

        @ nrow, ncol GET oGet[ nY] VAR nY  SIZE  BMP_H,BMP_V PIXEL picture "99"  OF oDlg

          nrow :=nrow+ BMP_H
          nCol := 0

Next nY


 ACTIVATE DIALOG oDlg CENTERED

[Daniel Garcia-Gil]

of course... always should be 17

"nY" variable when end bucle "FOR" is = 17

you need think other way to do it

[Daniel Garcia-Gil]

silvio try with...

Code: Select all  Expand view

#Include "FiveWin.Ch"

#define BMP_H        15
#define BMP_V        15
#define   TOTY       16

Function Main()
   Local oDlg
   Local nY  := 1
   Local nX  := 1
   Local nRow:=10
   Local ncol:=1
   Local oget[  TOTY ]

   DEFINE DIALOG oDlg from 10,2 to 40,46


   @ nrow-10, ncol say "Fila"  OF oDlg PIXEL  SIZE  BMP_H,BMP_V
   For nY := 1 to TOTY
      oGet[ nY ] := tget():new(nRow, nCol, SetGet( nY ), oDlg, BMP_H, BMP_V, "99",,,,,,,.t. )
      nRow += BMP_H
   next


   ACTIVATE DIALOG oDlg CENTERED
 
 return nil
 
 function SetGet( nY )
 return bSETGET( nY )

[Silvio]

Daniel ,
U'RE the BEST