FiveTech Support Forums

FUNCTION Main()

   LOCAL oDlg
   LOCAL lExit := .F.
   LOCAL oBtn

   DEFINE DIALOG oDlg FROM 5, 5 TO 40, 80 TITLE "A Dialog Box"

   @  1,  1 TO 4, 30 LABEL "&This is a LABEL for anything:" OF oDlg

   @  2,  2 CHECKBOX lExit PROMPT "This is a CHECKBOX with a long text description"  OF oDlg
   @  3,  2 CHECKBOX lExit PROMPT "This is a CHECKBOX with a long text description"  OF oDlg
   
   @  5,  4 BUTTON "&Ok" OF oDlg SIZE 40, 12

   @  5, 12 BUTTON oBtn PROMPT "&Cancel" OF oDlg SIZE 40, 12 ;
            ACTION( MsgInfo( "Cancel" ), lExit := .T., oDlg:End() )

   ACTIVATE DIALOG oDlg VALID lExit

RETURN nil