tButton

Abrangncia

Classe de boto.

Hierarquia tSrvObject -> tControl -> tButton

Descrio

Utilize a classe tButton para criar um controle visual do tipo boto.

Propriedades

Mtodos

z New

Reviso: 23/02/2003

Verso 5.07 Verso 5.08 Verso 6.09 Verso 7.10

Nome Tipo / Descrio lProcessing Lgico. Se .T. indica o boto est efetuando uma ao. bAction Bloco de cdigo. Executado quando o boto pressionado.

Descrio Mtodo construtor da classe.

Sintaxe

New([anRow], [anCol], [acCaption], [aoWnd], [abAction], [anWidth], [anHeight], [nPar8], [aoFont], [lPar10], [alPixel],[lPar12],[cPar13], [lPar14], [abWhen], [bPar16], [lPar17])

Parmetro Tipo / Descrio

anRow Numrico, opcional. Coordenada vertical em pixels ou carateres.

anCol Numrico, opcional. Coordenada horizontal em pixels ou caracteres.

acCaption Caractere, opcional. Titulo do boto.

aoWnd Objeto, opcional. Janela ou controle onde o boto dever ser criado.

abAction Bloco de cdigo, opcional. Bloco que dever ser acionado quando o boto for pressionado.

Numrico, opcional. Largura do boto

Pgina 1 de 3

24/8/2004http://dem.microsiga.com.br/w_wEx011.apw?Cod=023137

Exemplo #include protheus.ch User Function TesteGet() Local oDlg, oButton, oCombo, cCombo, aItems:= {item1,item2,item3} cCombo:= aItems[2] DEFINE MSDIALOG oDlg FROM 0,0 TO 300,300 PIXEL TITLE Meu Combo oCombo:= tComboBox():New(10,10,{|u|if(PCount()>0,cCombo:=u,cCombo)},; aItems,100,20,oDlg,,{||MsgStop(Mudou item)},,,,.T.,,,,,,,,,cCombo) // Boto para fechar a janela oButton:=tButton():New(30,10,fechar,oDlg,{||oDlg:End()},100,20,,,,.T.) ACTIVATE MSDIALOG oDlg CENTERED MsgStop( O valor +cCombo ) Return NIL

Topo da Pgina

Parmetros

anWidth em pixels.

anHeight Numrico, opcional. Altura do boto em pixels.

nPar8 Reservado.

aoFont Objeto, opcional. Objeto tipo tFont com propriedades da fonte utilizada para o ttulo do boto.

lPar10 Reservado.

alPixel Lgico, opcional. Se .T. considera as coordenadas passadas em pixels, se .F. (padro) considera em caracteres.

lPar12 Reservado.

cPar13 Reservado.

lPar14 Reservado.

abWhen

Bloco de cdigo, opcional. Executado quando mudana de foco de entrada de dados est sendo efetuada na janela onde o controle foi criado. O bloco deve retornar .T. se o controle deve permanecer habilitado ou .F. se no.

bPar16 Reservado.

lPar17 Reservado.

Grupos Relacionados Principal / A Linguagem AdvPl / Classes da Interface Visual / Classes de Componentes / Classes de Componentes Visuais

Veja tambm Principal / A Linguagem AdvPl / Classes da Interface Visual / Classes de Componentes / tControl

Principal / A Linguagem AdvPl / Classes da Interface Visual / tSrvObject

Pgina 2 de 3

24/8/2004http://dem.microsiga.com.br/w_wEx011.apw?Cod=023137

Pgina 3 de 3

24/8/2004http://dem.microsiga.com.br/w_wEx011.apw?Cod=023137