gestione folder

[xfood]

ciao a tutti,
io vorrei creare un folder con 5 pagine, e vorrei se possibile non
fare vedere i tab tipo 1 2 3 4 5
e in più mi serve sapere come posso inserire un pulsante next e prev
in modo tale che se premo next mi attiva la pagina successiva del folder
se premo prev la pagina precedente.
è possibile avere un esempio in merito?

Grazie mille

P.s. utilizzo la FWPPC

[Silvio]

sbaglio ma c'è un po' di confusione nella domanda

Code: Select all  Expand view  RUN

#include "FWCE.ch"



function main()

   local oWnd,   oFld, i

   DEFINE WINDOW oWnd TITLE "folder"
      @ 0.5, 1 FOLDER oFld PROMPTS "1", "2", "3","4","5" ;
        SIZE 225, 245
ACTIVATE WINDOW oWnd
return nil


questo fa il folder con 5 tab


poi per bloccarli devi aggiungere

oFld:aEnable := { .f., .f., .f., .f., .f., .f.}

poi per fare il bottone per andare avanti di un folder

REDEFINE BUTTON obtn_next OF oFld:aDialogs[1] ACTION oFld:SetOption(2)

poi per il resto devi chiedere a emg

[xfood]

grazie mille Silvio e quasi tutto quello che mi serviva,
a parte nascondere i tab...

un'altra cosa,
ho un bottone creato cosi:
@ 0.1, 8 BTNBMP aCtl[ 6 ] FILE CurDir() + "\floppy.bmp" ;
PROMPT "Salva";
SIZE 50, 50 ;
ACTION (msginfo('salvato') OF oFld:aDialogs[ 1 ]

però la scritta salva che ho messo nel parametro prompt
mi scrive al centro del bottone facendo confusione con la bitmap floppy.bmp associata, si potrebbe dire che la scritta che metto del parametro prompt la sposti in basso alla bitmap e non al centro?
grazie mille

[Silvio]

[ <layout: CENTER, TOP, LEFT, BOTTOM, RIGHT> ]

[xfood]

SCUSAMI HO PROVATO,
MA MI METTE LA SCRITTA sALVA SEMPRE AL CENTRO DOVE SBAGLIO?
ECCO L'ESEMPIO

@ 0.1, 8 BTNBMP aCtl[ 6 ] FILE CurDir() + "\floppy.bmp" ;
PROMPT "Salva" layout BUTTOM ;
SIZE 50, 50 ;
ACTION (mSGINFO('SALVA'));
OF oFld:aDialogs[ 1 ]

[Antonio Linares]

@ 0.1, 8 BTNBMP aCtl[ 6 ] FILE CurDir() + "\floppy.bmp" ;
PROMPT "Salva" BOTTOM ;
SIZE 50, 50 ;
ACTION (mSGINFO('SALVA'));
OF oFld:aDialogs[ 1 ]