EnchoiceBar
18 views
Skip to first unread message
Thiago Copacheski Santos
Oct 20, 2011, 8:15:31 PM10/20/11
to totvs-treinam...@googlegroups.com
#INCLUDE "PROTHEUS.CH"
user function ExEnch
local oDialog
local oBar
local lOk := .F.
local oGetCod
local cCod := Space(6)
DEFINE MsDialog oDialog TITLE "Teste EnchoiceBar" FROM 0, 0 TO 400, 600 PIXEL
ACTIVATE MSDIALOG oDialog ON INIT (EnchoiceBar(oDialog, { || Alert(cCod) }, {|| oDialog:End()}))
if lOk
Alert("OK!")
else
Alert("Cancelar!")
endif
return
//*********************************************
static function clickUser
Alert("Usuário!")
return
Thiago Copacheski Santos
FSW - Fábrica de Software
Unidade Curitiba
(55 (41) 3360-6200
Reply all
Reply to author
Forward
0 new messages