Código: Selecionar todos
FUNCTION QualEscolha
LOCAL oJanela
MEMVAR nValRet
PARAMETER cTitulo,cMensagem,cBut1,cBut2,cBut3
INIT DIALOG oJanela TITLE HB_OemToAnsi(cTitulo) ;
AT 100,150 SIZE 550,200 NOEXITESC;
FONT HFont():Add( 'Courier New',0,-16,400,,,) ;
STYLE WS_CAPTION + WS_DLGFRAME + WS_SYSMENU + DS_CENTER
@ 20, 050 SAY HB_OemToAnsi(cMensagem) SIZE 500,30 STYLE SS_CENTER
@ 25, 120 BUTTON HB_OemToAnsi(cBut1) SIZE 140,32 ON CLICK {||Clicou(1)} STYLE WS_TABSTOP
@ 205,120 BUTTON HB_OemToAnsi(cBut2) SIZE 140,32 ON CLICK {||Clicou(2)} STYLE WS_TABSTOP
@ 380,120 BUTTON HB_OemToAnsi(cBut3) SIZE 140,32 ON CLICK {||Clicou(3)} STYLE WS_TABSTOP
ACTIVATE DIALOG oJanela
RETURN nValRet
FUNCTION Clicou
PARAMETER nResp
nValret:=0
IF nResp=1
nValRet:=1
EndDialog()
ELSEIF nResp=2
nValRet:=2
EndDialog()
ELSE
nValRet:=3
EndDialog()
ENDIF
RETURN
FUNCTION Opc_Impr
nValRet := 0
nValRet:=QualEscolha("Op‡äes para ImpressÆo","Escolha o direcionamento da ImpressÆo","&Tela","&Impressora","&Sair")
IF nValRet=1
lVideo := .T.
ELSEIF nValRet=2
lVideo := .F.
ELSEIF nValRet=0 .OR. nValRet=3
lVideo:=Nil
RETURN
ENDIF
RETURN