PC Toledo

Código: Selecionar todos

ROCEDURE Main()

   CLS

   @ 0, 0, 15, MaxCol() BOX "         " COLOR "W+/B"
   MESSAGE( '@ 0, 0, 15, MaxCol() BOX "         " COLOR "W+/B"' )

   __Box( 1, 1, 5, 7 )
   MESSAGE( "__Box( 1, 1, 5, 7 )" )

   __Box( 1, 1, 5, 7, "X" )
   MESSAGE( '__Box( 1, 1, 5, 7, "X" )' )

   __BoxD( 2, 2, 6, 8 )
   MESSAGE( "__BoxD( 2, 2, 6, 8 )" )

   __BoxS( 3, 3, 7, 9 )
   MESSAGE( "__BoxS( 3, 3, 7, 9 )" )

   RETURN

PROCEDURE MESSAGE( cText )

   @ 16, 0 CLEAR TO 16, MaxCol()
   @ 16, 0 SAY cText
   OutStd( Chr( 7 ) )
   Inkey( 0 )

   RETURN

Código: Selecionar todos

PROCEDURE Main()

   LOCAL GetList := {}

   LOCAL cItem := "Windows"
   LOCAL lx := .F.
   LOCAL ly := .F.

   LOCAL aItems[ 3 ]

   aItems[ 1 ] := RadioButto( 3, 3, "&Windows" )
   aItems[ 2 ] := RadioButto( 4, 3, "&Linux" )
   aItems[ 3 ] := RadioButto( 5, 3, "&OS X" )

   CLS
   SetColor( "W/B+,R/B,G+/R,B+/R+,BG/N+,W/BG,RB/BG" )

   @  2,  2, 6, 40 GET cItem RADIOGROUP aItems COLOR "W/B+,R/B,G/B+" MESSAGE "Select your OS"

   @  8,  3 SAY "Married"
   @  8, 12 GET lx CHECKBOX COLOR "W/B+,W/B,W+/R,W/G+" MESSAGE "Are you married?"
   @  9,  3 SAY "Singer"
   @  9, 12 GET ly CHECKBOX COLOR "W/B+,W/B,W+/R,W/G+" MESSAGE "Are you a singer?"

   READ MSG AT MaxRow(), 0, MaxCol() MSG COLOR "W/B+"

   ? "Is the person married:", iif( lx, "Yes", "No" )
   ? "Is the person a singer:", iif( ly, "Yes", "No" )
   ? "Your OS is", cItem

   RETURN

Código: Selecionar todos

#  if defined( __PLATFORM__WINDOWS )
      hbshell_gtSelect( "GTWVT" )
#  elif defined( __PLATFORM__UNIX )
      hbshell_gtSelect( "GTXWC" )
#  endif