FiveTech Software tech support forums

Code: Select all

@ 06, 08 GROUP TO 45, 220 LABEL "Impressora: " OF oDlg 
 

Code: Select all

@ 06, 08 GROUP TO 45, 220 LABEL "Impressora: " OF oDlg   // e compile
 

Code: Select all

@ 06, 08 GROUP TO 45, 220 PROMPT "Impressora: " OF oDlg 
 

Code: Select all

// Quick Browse sample = \SAMPLES\PRUE32.PRG

#include "FiveWin.ch"


//----------------------------------------------------------------------------//

function Main()
   local oDlg
   local lFivePro
   local lDialog
   local lObjects
   local nNivel
   local cName
   local cAddress
   local cPhone
   local nAge
   local oBtn


   lFivePro = .T.
   lDialog  = .T.
   lObjects = .F.
   nNivel   = 1
   cName    = SPACE( 10 )
   cAddress = SPACE( 30 )
   cPhone   = SPACE( 30 )
   nAge     = 0

   DEFINE DIALOG oDlg FROM 8, 2 TO 25, 65 ;
      TITLE  "Customer Update"

   @ 1,  1 SAY "&Name:" OF oDlg
   @ 1,  6 GET cName OF oDlg
   @ 2,  1 SAY "&Address:" OF oDlg
   @ 2,  6 GET cAddress OF oDlg

   // Wanderson, veja:

   //@ 3,  1 TO 7, 8 LABEL "&Products" OF oDlg
   @ 3,  1 GROUP TO 7, 8 LABEL "&Products" OF oDlg

   @ 4,  1 CHECKBOX lFivePro PROMPT "&FivePro" OF oDlg
   @ 5,  1 CHECKBOX lDialog  PROMPT "&Dialog"  OF oDlg
   @ 6,  1 CHECKBOX lObjects PROMPT "&Objects" OF oDlg


   // Wanderson, veja:

   //@ 3,  9 TO 7, 17 LABEL "&Nivel" OF oDlg
   @ 3,  9 GROUP TO 7, 17 LABEL "&Nivel" OF oDlg

   @ 4,  9 RADIO nNivel PROMPT "&Novice", "A&vanced", "&Expert" OF oDlg

   @ 4, 16 SAY "&Phone:" OF oDlg
   @ 4, 21 GET cPhone OF oDlg SIZE 60, 11 PICTURE "@R 99-999-9999999"

   @ 6, 16 SAY OemToAnsi( "&Age:" ) OF oDlg
   @ 6, 21 GET nAge OF oDlg SIZE 20, 11

   //   @ 9,  9 BUTTON oBtn PROMPT "&Acept"  OF oDlg SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )

   @ 6,  9 BUTTON oBtn PROMPT  "&Acept"  OF oDlg SIZE 50, 12 ACTION MsgInfo( oBtn:Cargo , ValType( oBtn:Cargo) )
   oBtn:bGotFocus := { | Self, hCtlLost | Self:Cargo := hCtlLost  }


   @ 6, 19 BUTTON "&Cancel" OF oDlg SIZE 50, 12 ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil