FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour why I can show only the number 17
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
why I can show only the number 17
Posted: Tue Mar 10, 2009 01:56 AM
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 (fw): Select all Collapse
#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
Best Regards, Saludos



Falconi Silvio
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: why I can show only the number 17
Posted: Tue Mar 10, 2009 02:36 AM

of course... always should be 17

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

you need think other way to do it

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: why I can show only the number 17
Posted: Tue Mar 10, 2009 03:23 AM
silvio try with...

Code (fw): Select all Collapse
#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 )
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: why I can show only the number 17
Posted: Tue Mar 10, 2009 07:51 AM

Daniel ,
U'RE the BEST

Best Regards, Saludos



Falconi Silvio

Continue the discussion