FiveTech Software tech support forums

Code: Select all

#include "fivewin.ch"
Function Main()
Local oDlg  ,oFld 

  DEFINE DIALOG oDlg FROM 1,1 TO 400, 800 TITLE "Test"  PIXEL 
           
     @ 1, 1 FOLDEREX oFld PIXEL SIZE 250, 60 TAB HEIGHT 50  RIGHT  ;
         PROMPT  "Fld 1 "            
            
  ACTIVATE DIALOG oDlg CENTERED  ON init (Bottoni(oFld))

Return nil 

Function Bottoni(oFld)
Local  f := 1
Local nRow := 1 , nCol := 1 , n := 3 ,aBtn := array(15)  , y := 1


oFld:AddItem( 'Fld 2' ) 

 FOR f := 1 TO len(oFld:aPrompts)
        nCol := 5
         
         FOR n := 1 TO 3
            @ nRow, nCol  BUTTON aBtn[y] ;
               PROMPT alltrim(str(y)) ;
               SIZE 50,50 ;
               PIXEL OF oFld:aDialogs[f] UPDATE
             y++
             nCol += 60
         NEXT 
   NEXT       

Return nil

Code: Select all

 Function Bottoni(oFld)
    Local  f := 1
    Local nRow := 1 , nCol := 1 , n := 3 ,aBtn := array(21)  , y := 1


    oFld:AddItem( 'Fld 2' )

     FOR f := 1 TO len(oFld:aPrompts)
            nCol := 5

             FOR n := 1 TO 10
                @ nRow, nCol  BUTTON aBtn[y] ;
                   PROMPT alltrim(str(y)) ;
                   SIZE 50,50 ;
                   PIXEL OF oFld:aDialogs[f] UPDATE
                 y++
                 nCol += 60
                 If ncol>400
                    nRow += 52; nCol := 5
                Endif

             NEXT
            nRow := 1;  nCol := 5
       NEXT      

    Return nil