EnchoiceBar

18 views
Skip to first unread message

Thiago Copacheski Santos

unread,
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

+ thiago.c...@totvs.com.br
cid:image001.png@01CBAF5D.19B85040

 

image001.png
Reply all
Reply to author
Forward
0 new messages