o exemplo do endereco funcionou. Porem estou fazendo um sem o WS, e estou com dificuldades de fazer coisa simples. Poderia ajudar ? segue o fonte:
#include "FiveWin.ch"
#include "Folder.ch"
function Main()
LOCAL oDlg, oFld,oBtn1,oBtn2,oBtn3
DEFINE DIALOG oDlg FROM 00,00 TO 30,80 TITLE "TESTE"
@ 01,05 FOLDER oFld OF oDlg PROMPTS "Pasta 1","Pasta 2","Pasta3" SIZE 130,150
@ 01,01 BUTTON oBtn1 PROMPT "Teste1" SIZE 35,15 ACTION alert("teste 1") OF oFld:aDialogs[1]
@ 01,02 BUTTON oBtn2 PROMPT "Teste2" SIZE 35,15 ACTION alert("teste 2") OF oFld:aDialogs[2]
@ 01,03 BUTTON oBtn3 PROMPT "Teste3" SIZE 35,15 ACTION alert("teste 3") OF oFld:aDialogs[3]
@ 04,05 Say "111111111111111" Of oFld:aDialogs[1]
@ 05,05 Say "222222222222222" Of oFld:aDialogs[2]
@ 06,05 Say "333333333333333" Of oFld:aDialogs[3]
ACTIVATE DIALOG oDlg CENTERED
return nil
OBS: substitui o foder.prg e o folder.ch, pelos do site. O test.prg do \32, funciona certo, porem o exemplo acima nao. Esta faltando algo ? ou somente funciona no WS ?
Desde ja agradeco !
Gilberto