Antonio,
Now i trying with window but not know where i can insert this value
On sample test I see buttons only on first folder How I can see all buttons ?
#include "FWCE.ch"
function main()
local oWnd, oFld, i
Local abtn[120]
Local oPanel[6]
DEFINE WINDOW oWnd TITLE "Beach"
// USE ( CurDir() + "\tavoli" )
@ 0.5, 1 FOLDER oFld PROMPTS "1-20", "21-40", "41-60","61-80","81-100","101-120" ;
SIZE 225, 245
@ 0.6, 1.5 PANEL oPanel[1] OF oFld:aDialogs[ 1 ] ;
SIZE oFld:nWidth()-5 , oFld:nHeight() - 20 PIXEL
FOR i = 1 TO 20
CREAPULSANTI( aBtn, i ,oPanel[1])
NEXT
@ 0.6, 1.5 PANEL oPanel[2] OF oFld:aDialogs[ 2 ] ;
SIZE oFld:nWidth()-5 , oFld:nHeight() - 20 PIXEL
FOR i = 21 TO 40
CREAPULSANTI( aBtn, i ,oPanel[2])
NEXT
@ 0.6, 1.5 PANEL oPanel[3] OF oFld:aDialogs[ 3 ] ;
SIZE oFld:nWidth()-5 , oFld:nHeight() - 20 PIXEL
FOR i = 41 TO 60
CREAPULSANTI( aBtn, i ,oPanel[3])
NEXT
@ 0.6, 1.5 PANEL oPanel[4] OF oFld:aDialogs[ 4 ] ;
SIZE oFld:nWidth()-5 , oFld:nHeight() - 20 PIXEL
FOR i = 61 TO 80
CREAPULSANTI( aBtn, i ,oPanel[4])
NEXT
@ 0.6, 1.5 PANEL oPanel[5] OF oFld:aDialogs[ 5 ] ;
SIZE oFld:nWidth()-5 , oFld:nHeight() - 20 PIXEL
FOR i = 81 TO 100
CREAPULSANTI( aBtn, i ,oPanel[5])
NEXT
@ 0.6, 1.5 PANEL oPanel[6] OF oFld:aDialogs[6] ;
SIZE oFld:nWidth()-5 , oFld:nHeight() - 20 PIXEL
FOR i = 101 TO 120
CREAPULSANTI( aBtn, i ,oPanel[6])
NEXT
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------
STATIC FUNCTION CREAPULSANTI( aBtn, nBtn,odlgscroll )
@ 0.5 + ( nBtn - 1 ) * 40, 12 BUTTON abtn[nBtn] PROMPT "TAV." + STR( nBtn, 2 );
PIXEL of odlgscroll SIZE 40,40
*abtn[nBtn]:bAction := {|| menupopup( aBtn[nBtn ] ) }
RETURN NI
I wish create this window
