Upload
joel-targino
View
314
Download
0
Embed Size (px)
Citation preview
Pgina 1 de 3
tButtonReviso: 23/02/2003
Abrangncia Verso 5.07 Classe de boto. Verso 5.08 Verso 6.09 Verso 7.10
HierarquiatSrvObject -> tControl -> tButton
DescrioUtilize a classe tButton para criar um controle visual do tipo boto.
PropriedadesNome lProcessing bAction Tipo / Descrio Lgico. Se .T. indica o boto est efetuando uma ao. Bloco de cdigo. Executado quando o boto pressionado.
MtodosNew Descrio Sintaxe Mtodo construtor da classe. New([anRow], [anCol], [acCaption], [aoWnd], [abAction], [anWidth], [anHeight], [nPar8], [aoFont], [lPar10], [alPixel],[lPar12],[cPar13], [lPar14], [abWhen], [bPar16], [lPar17]) Parmetro anRow anCol acCaption aoWnd abAction Tipo / Descrio Numrico, opcional. Coordenada vertical em pixels ou carateres. Numrico, opcional. Coordenada horizontal em pixels ou caracteres. Caractere, opcional. Titulo do boto. Objeto, opcional. Janela ou controle onde o boto dever ser criado. Bloco de cdigo, opcional. Bloco que dever ser acionado quando o boto for pressionado. Numrico, opcional. Largura do boto
http://dem.microsiga.com.br/w_wEx011.apw?Cod=023137
24/8/2004
Pgina 2 de 3
anWidth anHeight nPar8 aoFont lPar10 alPixel Parmetros lPar12 cPar13 lPar14
em pixels. Numrico, opcional. Altura do boto em pixels. Reservado. Objeto, opcional. Objeto tipo tFont com propriedades da fonte utilizada para o ttulo do boto. Reservado. Lgico, opcional. Se .T. considera as coordenadas passadas em pixels, se .F. (padro) considera em caracteres. Reservado. Reservado. Reservado. 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. Reservado. Reservado.
abWhen
bPar16 lPar17
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
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 Topo da Pgina
http://dem.microsiga.com.br/w_wEx011.apw?Cod=023137
24/8/2004
Pgina 3 de 3
http://dem.microsiga.com.br/w_wEx011.apw?Cod=023137
24/8/2004