Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
...
|
...
|
Cria
...
um
...
objeto
...
para
...
entrada
...
de
...
dados
...
editáveis. Esta
...
classe
...
permite
...
armazenar
...
ou
...
alterar
...
o
...
conteúdo
...
de
...
uma
...
variável
...
através
...
da
...
digitação.
...
No
...
entanto,
...
o
...
conteúdo
...
da
...
variável
...
será
...
alterado
...
quando
...
o
...
objeto
...
perder
...
o
...
foco
...
de
...
edição
...
para
...
outro
...
objeto.
Hierarquia
- TControl
- TGet
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Observações
- Em builds superiores a 7.00.111010P o idioma do calendário, chamado a partir do componente TGet, respeitará o idioma definido no arquivo de inicialização do AppServer, na tag rpolanguage.
- Em builds superiores a 7.00.121227P, caso o TGet tenha botão (calculadora, calendário, etc.), o CSS deste botão pode ser passado para o TGet que ele irá repassar para o botão.
Definindo os tipos de dados (Caracter, Data, Numerico)
A definição dos tipos de dados no componente TGet é feito a partir de dois pontos:
- Definição do tipo de variável;
- Definição do parametro lHasButton como Verdadeiro (.T.).
Veja o exemplo a seguir:
Bloco de código | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#include "TOTVS.CH"
User Function TGetTypes()
Local cGet1 := "Define variable value" // Variavel do tipo caracter
Local nGet2 := 0 // Variável do tipo numérica
Local dGet3 := Date() // Variável do tipo Data
Local lHasButton := .T.
DEFINE MSDIALOG oDlg TITLE "Picture test" FROM 000, 000 TO 500, 500 COLORS 0, 16777215 PIXEL
oGet1 := TGet():New( 005, 009, { | u | If( PCount() == 0, cGet1, cGet1 := u ) },oDlg, ;
060, 010, "!@",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"cGet1",,,,lHasButton )
oGet2 TSrvObject -> TControl -> TGet CreateMétodo construtor da classe.TGet(): Create ( [ oWnd], [ bSetGet], [ nRow], [ nCol], [ nWidth], [ nHeight], [ cPict], [ bValid], [ nClrFore], [ nClrBack], [ oFont], [ uParam12], [ uParam13], [ lPixel], [ uParam15], [ uParam16], [ bWhen], [ lCenter], [ lRight], [ bChange], [ lReadOnly], [ lPassword], [ uParam23], [ cReadVar], [ uParam25], [ uParam26], [ uParam27], [ uParam28], [ uParam29], [ uParam30], [cLabelText] ,[nLabelPos], [oLabelFont], [nLabelColor], [cPlaceHold]) --> oObjeto
oObjeto
Em versões superiores à 120420A foi implementada a opção para definição de uma label(descrição) do componente visual. Preenchendo os parâmetros cLabelText, nLabelPos, oLabelFont e nLabelColor será disponibilizada, ao topo ou à esquerda, a descrição definida para o componente. Esta característica visa diminuir a quantidade de interações entre o SmartClient e o AppServer na construção de telas, otimizando assim este processo. Quando utilizada esta opção não será possível alinhar o componente, sendo a Label um objeto independente ela não será alinhada juntamente com o Controle principal, nesta situação é necessário fazer o posicionamento manualmente. cTGet2 := "Teste TGet 02"oTGet2 := TGet():Create( oDlg,{||cTGet2},14,01,096,009,;"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, ) NewMétodo construtor da classe.TGet(): New ( [ nRow], [ nCol], [ bSetGet], [ oWnd], [ nWidth], [ nHeight], [ cPict], [ bValid], [ nClrFore], [ nClrBack], [ oFont], [ uParam12], [ uParam13], [ lPixel], [ uParam15], [ uParam16], [ bWhen], [ uParam18], [ uParam19], [ bChange], [ lReadOnly], [ lPassword], [ uParam23], [ cReadVar], [ uParam25], [ uParam26], [ uParam27], [ lHasButton], [ lNoButton], [cLabelText] ,[nLabelPos], [oLabelFont], [nLabelColor], [cPlaceHold] ) --> oObjeto
oObjeto
Em versões superiores à 120420A foi implementada a opção para definição de uma label(descrição) do componente visual. Preenchendo os parâmetros cLabelText, nLabelPos, oLabelFont e nLabelColor será disponibilizada, ao topo ou à esquerda, a descrição definida para o componente. Esta característica visa diminuir a quantidade de interações entre o SmartClient e o AppServer na construção de telas, otimizando assim este processo. := TGet():New( 01020,01 009, { ||cTGet1 u | If( PCount() == 0, nGet2, nGet2 := u ) },oDlg,096,009,;"@! ; 060, 010, "@E 999.99",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,cTGet1 "nGet2",,,,) CtrlRefreshForça a atualização do objeto.TGet(): CtrlRefresh ( ) --> oTGet:CtrlRefresh() SelectAllSeleciona todo o conteúdo da Get.TGet(): SelectAll ( ) --> oTGet:SelectAll() SetContentAlignAlinha o conteúdo interno do objeto.TGet(): SetContentAlign ( < nAlign> ) -->
lHasButton )
oGet3 := TGet():New( 035, 009, { | u | If( PCount() == 0, dGet3, dGet3 := u ) },oDlg, ;
060, 010, "@D",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"dGet3",,,,lHasButton )
ACTIVATE MSDIALOG oDlg CENTERED
return
|
Preview - TGet com diferentes tipos de dados
Exemplos
Bloco de código | ||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||||||||||
#include "TOTVS.CH"
User Function TGet()
#include "TOTVS.CH" user function tstGet() local oDlglocal oGet1, nGet1:= 0.00 local oGet2, cGet2:="texto" local oGet3, dGet3:= Date() local oBtn1, oBtn2, oBtn3 DEFINE DIALOG oDlg FROM 0,0 TO 500,500 PIXEL @ 10,10 GET oGet1 VAR nGet1 SIZE 100,10 OF oDlg PIXEL PICTURE "@E 999999.99"@ 30,10 GET oGet2 VAR cGet2 SIZE 100,10 OF oDlg PIXEL @ 50,10 GET oGet3 VAR dGet3 SIZE 100,10 OF oDlg PIXEL @ 70,10 BUTTON oBtn1 PROMPT "Align Left" ACTION (SetGtAlign(oGet1,-1),SetGtAlign(oGet2,-1),SetGtAlign(oGet3,-1)) OF oDlg PIXEL@ 90,10 BUTTON oBtn2 PROMPT "Align Center" ACTION (SetGtAlign(oGet1,0),SetGtAlign(oGet2,0),SetGtAlign(oGet3,0)) OF oDlg PIXEL@ 110,10 BUTTON oBtn3 PROMPT "Align Right" ACTION (SetGtAlign(oGet1,1),SetGtAlign(oGet2,1),SetGtAlign(oGet3,1)) OF oDlg PIXEL ACTIVATE DIALOG oDlg CENTEREDreturnfunction SetGtAlign(oGet,nAlign) // Testa build que o método SetContentAlign() está disponívelif GetBuild()>="7.00.080806P-20081002" oGet:SetContentAlign(nAlign)endifreturn
Em builds superiores a 7.00.111010P o idioma do calendário, chamado a partir do componente TGet, respeitará o idioma definido no arquivo de inicialização do AppServer, na tag rpolanguage. User Function TGet() DEFINE DIALOG oDlg TITLE "Exemplo TGet" FROM 180,180 TO 550,700 PIXEL // Usando o New cTGet1 := "Teste TGet 01" oTGet1 := TGet():New( 01,01,{|u|if(PCount()==0,cTGet1,cTGet1:=u)},oDlg,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, ) // Usando o Create cTGet2 := "Teste TGet 02" oTGet2 := TGet():Create( oDlg,{|u|if(PCount()==0,cTGet2,cTGet2:=u)},14,01,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, ) ACTIVATE DIALOG oDlg CENTERED ReturnPreview
|
Exemplo da classe TGet
Referências
A construção de um componente da classe TGET também pode ser feita através do comando AdvPL @ .. GET
Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server
...