por Pedro Junior » 29 Jul 2004 13:55
Rochinha, agradeço pela sua atenção.
Ainda continuo com o mesmo problema.
Baixei a versão que vc colocou no link e fui compilar o testlbx3.prg
e dá o mesmo problema.
A versão do fivewin.ch é a que foi baixada no teu link.
não mudei nada no exemplo que vem no fivewin.
quando compilo dá erro na linha que tem os seguintes comandos
1 - SET 3DLOOK ON
2 - DEFINE DIALOG oDlg FROM 5,10 TO 24, 55 TITLE cTitle
3 - ACTIVATE DIALOG oDlg CENTERED
se é o fivewin.ch, será que vc poderia me mandar este arquivo para que eu possa fazer o teste?
Será que eu estou compilando errado ?
clipper testlbx3
// Using ListBoxes to perform simple selections
#include "FiveWin.ch"
//----------------------------------------------------------------//
function Main()
SET 3DLOOK ON
MsgInfo( MsgSelect( { "One", "two", "three" }, "two" ) )
return nil
//----------------------------------------------------------------//
function MsgSelect( aItems, cValue, cTitle )
local oDlg
DEFAULT cTitle := "Please, select"
DEFINE DIALOG oDlg FROM 5,10 TO 24, 55 TITLE cTitle
@ 1, 2 LISTBOX cValue ITEMS aItems SIZE 145, 95 OF oDlg
@ 10, 6 BUTTON "&OK" OF oDlg SIZE 40, 12 ;
ACTION oDlg:End() DEFAULT
@ 10, 14 BUTTON "&Cancel" OF oDlg SIZE 40, 12 ;
ACTION ( cValue := nil, oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED
return cValue
//----------------------------------------------------------------//
Editado pela última vez por
Pedro Junior em 29 Jul 2004 13:57, num total de 1 vezes
Um abraço
Pedro Junior