Classe: TGet
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.
TSrvObject -> TControl -> TGet
Create
Mé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] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
bSetGet | Bloco de código | Indica o bloco de código, no formato {|u| if( Pcount( )>0, := u, ) }, que será executado para atualizar a variável (essa variável deve ser do tipo caracter). Desta forma, se a lista for sequencial, o controle atualizará com o conteúdo do item selecionado, se for indexada, será atualizada com o valor do índice do item selecionado. | ||
nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
nWidth | Numérico | Indica a largura em pixels do objeto. | ||
nHeight | Numérico | Indica a altura em pixels do objeto. | ||
cPict | Caracter | Indica a máscara de formatação, do conteúdo, que será apresentada. | ||
bValid | Bloco de código | Indica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.). | ||
nClrFore | Numérico | Indica a cor do texto do objeto. | ||
nClrBack | Numérico | Indica a cor de fundo do objeto. | ||
oFont | Objeto | Indica o objeto, do tipo TFont, que será utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | ||
uParam12 | Lógico | Compatibilidade. | ||
uParam13 | Objeto | Compatibilidade. | ||
lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
uParam15 | Caracter | Compatibilidade. | ||
uParam16 | Lógico | Compatibilidade. | ||
bWhen | Bloco de código | Indica o bloco de código que será executado quando a mudança de foco da entrada de dados, no objeto criado, estiver sendo realizada. Se o retorno for verdadeiro (.T.), o objeto continua habilitado; caso contrário, falso (.F.). | ||
lCenter | Lógico | Compatibilidade. | ||
lRight | Lógico | Compatibilidade. | ||
bChange | Bloco de código | Indica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual. | ||
lReadOnly | Lógico | Indica se o objeto pode ser editado. | ||
lPassword | Lógico | Indica se, verdadeiro (.T.), o objeto apresentará asterisco (*) para entrada de dados de senha; caso contrário, falso (.F.). | ||
uParam23 | Caracter | Compatibilidade. | ||
cReadVar | Caracter | Indica o nome da variável, configurada no parâmetro , que será manipulada pelo objeto. Além disso, esse parâmetro será o retorno da função ReadVar(). | ||
uParam25 | Caracter | Compatibilidade. | ||
uParam26 | Caracter | Compatibilidade. | ||
uParam27 | Lógico | Compatibilidade. | ||
uParam28 | Numérico | Compatibilidade. | ||
uParam29 | Lógico | Compatibilidade. |
-
oObjeto()
- Retorna o objeto criado.
cTGet2 := "Teste TGet 02"oTGet2 := TGet():Create( oDlg,{||cTGet2},14,01,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, )
New
Mé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] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
bSetGet | Bloco de código | Indica o bloco de código, no formato {|u| if( Pcount( )>0, := u, ) }, que será executado para atualizar a variável (essa variável deve ser do tipo caracter). Desta forma, se a lista for sequencial, o controle atualizará com o conteúdo do item selecionado, se for indexada, será atualizada com o valor do índice do item selecionado. | ||
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
nWidth | Numérico | Indica a largura em pixels do objeto. | ||
nHeight | Numérico | Indica a altura em pixels do objeto. | ||
cPict | Caracter | Indica a máscara de formatação, do conteúdo, que será apresentada. | ||
bValid | Bloco de código | Indica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.). | ||
nClrFore | Numérico | Indica a cor do texto do objeto. | ||
nClrBack | Numérico | Indica a cor de fundo do objeto. | ||
oFont | Objeto | Indica o objeto, do tipo TFont, que será utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | ||
uParam12 | Lógico | Compatibilidade. | ||
uParam13 | Objeto | Compatibilidade. | ||
lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
uParam15 | Caracter | Compatibilidade. | ||
uParam16 | Lógico | Compatibilidade. | ||
bWhen | Bloco de código | Indica o bloco de código que será executado quando a mudança de foco da entrada de dados, no objeto criado, estiver sendo realizada. Se o retorno for verdadeiro (.T.), o objeto continua habilitado; caso contrário, falso (.F.). | ||
uParam18 | Lógico | Compatibilidade. | ||
uParam19 | Lógico | Compatibilidade. | ||
bChange | Bloco de código | Indica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual. | ||
lReadOnly | Lógico | Indica se o objeto pode ser editado. | ||
lPassword | Lógico | Indica se, verdadeiro (.T.), o objeto apresentará asterisco (*) para entrada de dados de senha; caso contrário, falso (.F.). | ||
uParam23 | Caracter | Compatibilidade. | ||
cReadVar | Caracter | Indica o nome da variável, configurada no parâmetro bSetGet, que será manipulada pelo objeto. Além disso, esse parâmetro será o retorno da função ReadVar(). | ||
uParam25 | Caracter | Compatibilidade. | ||
uParam26 | Caracter | Compatibilidade. | ||
uParam27 | Lógico | Compatibilidade. | ||
lHasButton | Lógico | Indica se, verdadeiro (.T.), o uso dos botões padrão, como calendário e calculadora. | ||
lNoButton | Lógico | Oculta o botão F3 (HasButton). |
-
oObjeto()
- Retorna o objeto criado.
cTGet1 := "Teste TGet 01"oTGet1 := TGet():New( 01,01,{||cTGet1},oDlg,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
CtrlRefresh
Força a atualização do objeto.
TGet(): CtrlRefresh ( ) -->
oTGet:CtrlRefresh()
SelectAll
Seleciona todo o conteúdo da Get.
TGet(): SelectAll ( ) -->
oTGet:SelectAll()
SetContentAlign
Alinha o conteúdo interno do objeto.
TGet(): SetContentAlign ( < nAlign> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nAlign | Numérico | Indica o tipo de alinhamento. Para informações dos tipos disponíveis, consulte a área Observações. | X |
Os valores disponíveis para o parâmetro são:
Valor | Descrição |
---|---|
-1 | Alinha conteúdo à esquerda. |
0 | Centraliza conteúdo. |
1 | Alinha conteúdo à direita. |
Importante |
---|
Método disponível para builds da TOTVS Tec superiores a "7.00.080806P - Oct 2 2008 - 11:47:14" |
#include "TOTVS.CH"user function tstGet()local oDlglocal oGet1, nGet1:= 0.00local 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
Propriedade | Descrição | Tipo |
cBuffer | Retorna o texto definido para o objeto. | Caracter |
cPictVar | Indica a máscara de formatação, do conteúdo, que será apresentada. | Caracter |
cText | Retorna o texto definido para o objeto. | Caracter |
lPassword | Indica se, verdadeiro (.T.), o objeto apresentará asterisco (*) para entrada de dados de senha; caso contrário, falso (.F.). | Lógico |
#include "TOTVS.CH"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,{||cTGet1},oDlg,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, ) // Usando o Create cTGet2 := "Teste TGet 02" oTGet2 := TGet():Create( oDlg,{||cTGet2},14,01,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, ) ACTIVATE DIALOG oDlg CENTERED Return